Prepended APLv2 license to the source. Renamed 9Tools.vb to 9Utils.vb. Added "DialogLibraries.loadLibrary" to load the dialogs first.
This commit is contained in:
parent
3ddf7f2d42
commit
38f767c386
16
1CorRel.vb
16
1CorRel.vb
@ -1,3 +1,17 @@
|
|||||||
|
' Copyright (c) 2016 imacat.
|
||||||
|
'
|
||||||
|
' Licensed under the Apache License, Version 2.0 (the "License");
|
||||||
|
' you may not use this file except in compliance with the License.
|
||||||
|
' You may obtain a copy of the License at
|
||||||
|
'
|
||||||
|
' http://www.apache.org/licenses/LICENSE-2.0
|
||||||
|
'
|
||||||
|
' Unless required by applicable law or agreed to in writing, software
|
||||||
|
' distributed under the License is distributed on an "AS IS" BASIS,
|
||||||
|
' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||||
|
' See the License for the specific language governing permissions and
|
||||||
|
' limitations under the License.
|
||||||
|
|
||||||
' 1CorRel: The macros to for generating the report of the Pearson’s correlation coefficient
|
' 1CorRel: The macros to for generating the report of the Pearson’s correlation coefficient
|
||||||
' by imacat <imacat@mail.imacat.idv.tw>, 2016-08-10
|
' by imacat <imacat@mail.imacat.idv.tw>, 2016-08-10
|
||||||
|
|
||||||
@ -10,6 +24,8 @@ Sub subRunCorrelation As Object
|
|||||||
Dim oSheet As Object, mRanges As Object
|
Dim oSheet As Object, mRanges As Object
|
||||||
Dim sExisted As String, nResult As Integer
|
Dim sExisted As String, nResult As Integer
|
||||||
|
|
||||||
|
DialogLibraries.loadLibrary "Stats"
|
||||||
|
|
||||||
' Asks the user for the data range
|
' Asks the user for the data range
|
||||||
oRange = fnAskDataRange (ThisComponent)
|
oRange = fnAskDataRange (ThisComponent)
|
||||||
If IsNull (oRange) Then
|
If IsNull (oRange) Then
|
||||||
|
16
2PTTest.vb
16
2PTTest.vb
@ -1,3 +1,17 @@
|
|||||||
|
' Copyright (c) 2016 imacat.
|
||||||
|
'
|
||||||
|
' Licensed under the Apache License, Version 2.0 (the "License");
|
||||||
|
' you may not use this file except in compliance with the License.
|
||||||
|
' You may obtain a copy of the License at
|
||||||
|
'
|
||||||
|
' http://www.apache.org/licenses/LICENSE-2.0
|
||||||
|
'
|
||||||
|
' Unless required by applicable law or agreed to in writing, software
|
||||||
|
' distributed under the License is distributed on an "AS IS" BASIS,
|
||||||
|
' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||||
|
' See the License for the specific language governing permissions and
|
||||||
|
' limitations under the License.
|
||||||
|
|
||||||
' 2PTTest: The macros to for generating the report of paired T-Test
|
' 2PTTest: The macros to for generating the report of paired T-Test
|
||||||
' by imacat <imacat@mail.imacat.idv.tw>, 2016-08-11
|
' by imacat <imacat@mail.imacat.idv.tw>, 2016-08-11
|
||||||
|
|
||||||
@ -10,6 +24,8 @@ Sub subRunPairedTTest As Object
|
|||||||
Dim oSheet As Object, mRanges As Object
|
Dim oSheet As Object, mRanges As Object
|
||||||
Dim sExisted As String, nResult As Integer
|
Dim sExisted As String, nResult As Integer
|
||||||
|
|
||||||
|
DialogLibraries.loadLibrary "Stats"
|
||||||
|
|
||||||
' Asks the user for the data range
|
' Asks the user for the data range
|
||||||
oRange = fnAskDataRange (ThisComponent)
|
oRange = fnAskDataRange (ThisComponent)
|
||||||
If IsNull (oRange) Then
|
If IsNull (oRange) Then
|
||||||
|
16
3ITTest.vb
16
3ITTest.vb
@ -1,3 +1,17 @@
|
|||||||
|
' Copyright (c) 2016 imacat.
|
||||||
|
'
|
||||||
|
' Licensed under the Apache License, Version 2.0 (the "License");
|
||||||
|
' you may not use this file except in compliance with the License.
|
||||||
|
' You may obtain a copy of the License at
|
||||||
|
'
|
||||||
|
' http://www.apache.org/licenses/LICENSE-2.0
|
||||||
|
'
|
||||||
|
' Unless required by applicable law or agreed to in writing, software
|
||||||
|
' distributed under the License is distributed on an "AS IS" BASIS,
|
||||||
|
' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||||
|
' See the License for the specific language governing permissions and
|
||||||
|
' limitations under the License.
|
||||||
|
|
||||||
' 3ITTest: The macros to for generating the report of independent T-Test
|
' 3ITTest: The macros to for generating the report of independent T-Test
|
||||||
' by imacat <imacat@mail.imacat.idv.tw>, 2016-08-24
|
' by imacat <imacat@mail.imacat.idv.tw>, 2016-08-24
|
||||||
|
|
||||||
@ -10,6 +24,8 @@ Sub subRunIndependentTTest As Object
|
|||||||
Dim oSheet As Object, mRanges As Object
|
Dim oSheet As Object, mRanges As Object
|
||||||
Dim sExisted As String, nResult As Integer
|
Dim sExisted As String, nResult As Integer
|
||||||
|
|
||||||
|
DialogLibraries.loadLibrary "Stats"
|
||||||
|
|
||||||
' Asks the user for the data range
|
' Asks the user for the data range
|
||||||
oRange = fnAskDataRange (ThisComponent)
|
oRange = fnAskDataRange (ThisComponent)
|
||||||
If IsNull (oRange) Then
|
If IsNull (oRange) Then
|
||||||
|
16
4ANOVA.vb
16
4ANOVA.vb
@ -1,3 +1,17 @@
|
|||||||
|
' Copyright (c) 2016 imacat.
|
||||||
|
'
|
||||||
|
' Licensed under the Apache License, Version 2.0 (the "License");
|
||||||
|
' you may not use this file except in compliance with the License.
|
||||||
|
' You may obtain a copy of the License at
|
||||||
|
'
|
||||||
|
' http://www.apache.org/licenses/LICENSE-2.0
|
||||||
|
'
|
||||||
|
' Unless required by applicable law or agreed to in writing, software
|
||||||
|
' distributed under the License is distributed on an "AS IS" BASIS,
|
||||||
|
' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||||
|
' See the License for the specific language governing permissions and
|
||||||
|
' limitations under the License.
|
||||||
|
|
||||||
' 4ANOVA: The macros to for generating the report of ANOVA (Analyze of Variances)
|
' 4ANOVA: The macros to for generating the report of ANOVA (Analyze of Variances)
|
||||||
' by imacat <imacat@mail.imacat.idv.tw>, 2016-08-31
|
' by imacat <imacat@mail.imacat.idv.tw>, 2016-08-31
|
||||||
|
|
||||||
@ -10,6 +24,8 @@ Sub subRunANOVA As Object
|
|||||||
Dim oSheet As Object, mRanges As Object
|
Dim oSheet As Object, mRanges As Object
|
||||||
Dim sExisted As String, nResult As Integer
|
Dim sExisted As String, nResult As Integer
|
||||||
|
|
||||||
|
DialogLibraries.loadLibrary "Stats"
|
||||||
|
|
||||||
' Asks the user for the data range
|
' Asks the user for the data range
|
||||||
oRange = fnAskDataRange (ThisComponent)
|
oRange = fnAskDataRange (ThisComponent)
|
||||||
If IsNull (oRange) Then
|
If IsNull (oRange) Then
|
||||||
|
16
5Chi2GoF.vb
16
5Chi2GoF.vb
@ -1,3 +1,17 @@
|
|||||||
|
' Copyright (c) 2016 imacat.
|
||||||
|
'
|
||||||
|
' Licensed under the Apache License, Version 2.0 (the "License");
|
||||||
|
' you may not use this file except in compliance with the License.
|
||||||
|
' You may obtain a copy of the License at
|
||||||
|
'
|
||||||
|
' http://www.apache.org/licenses/LICENSE-2.0
|
||||||
|
'
|
||||||
|
' Unless required by applicable law or agreed to in writing, software
|
||||||
|
' distributed under the License is distributed on an "AS IS" BASIS,
|
||||||
|
' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||||
|
' See the License for the specific language governing permissions and
|
||||||
|
' limitations under the License.
|
||||||
|
|
||||||
' 5Chi2GoF: The macros to for generating the report of Chi-square goodness of fit
|
' 5Chi2GoF: The macros to for generating the report of Chi-square goodness of fit
|
||||||
' by imacat <imacat@mail.imacat.idv.tw>, 2016-09-05
|
' by imacat <imacat@mail.imacat.idv.tw>, 2016-09-05
|
||||||
|
|
||||||
@ -10,6 +24,8 @@ Sub subRunChi2GoodnessOfFit As Object
|
|||||||
Dim oSheet As Object, mRanges As Object
|
Dim oSheet As Object, mRanges As Object
|
||||||
Dim sExisted As String, nResult As Integer
|
Dim sExisted As String, nResult As Integer
|
||||||
|
|
||||||
|
DialogLibraries.loadLibrary "Stats"
|
||||||
|
|
||||||
' Asks the user for the data range
|
' Asks the user for the data range
|
||||||
oRange = fnAskDataRange (ThisComponent)
|
oRange = fnAskDataRange (ThisComponent)
|
||||||
If IsNull (oRange) Then
|
If IsNull (oRange) Then
|
||||||
|
@ -1,14 +1,22 @@
|
|||||||
' 9Tools: The tool macros
|
' Copyright (c) 2016 imacat.
|
||||||
|
'
|
||||||
|
' Licensed under the Apache License, Version 2.0 (the "License");
|
||||||
|
' you may not use this file except in compliance with the License.
|
||||||
|
' You may obtain a copy of the License at
|
||||||
|
'
|
||||||
|
' http://www.apache.org/licenses/LICENSE-2.0
|
||||||
|
'
|
||||||
|
' Unless required by applicable law or agreed to in writing, software
|
||||||
|
' distributed under the License is distributed on an "AS IS" BASIS,
|
||||||
|
' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||||
|
' See the License for the specific language governing permissions and
|
||||||
|
' limitations under the License.
|
||||||
|
|
||||||
|
' 9Utils: The utility macros.
|
||||||
' by imacat <imacat@mail.imacat.idv.tw>, 2016-08-10
|
' by imacat <imacat@mail.imacat.idv.tw>, 2016-08-10
|
||||||
|
|
||||||
Option Explicit
|
Option Explicit
|
||||||
|
|
||||||
Sub subTest
|
|
||||||
BasicLibraries.loadLibrary "XrayTool"
|
|
||||||
|
|
||||||
MsgBox fnFormatString ("abc % def", Array ("ghi"))
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
' fnCheckRangeName: Checks the range name and returns the range when
|
' fnCheckRangeName: Checks the range name and returns the range when
|
||||||
' found, or null when not found.
|
' found, or null when not found.
|
||||||
Function fnCheckRangeName (oDoc As Object, sRangeName As String) As Object
|
Function fnCheckRangeName (oDoc As Object, sRangeName As String) As Object
|
Loading…
Reference in New Issue
Block a user