麻辣家族討論版版 - Powered by Discuz! Board

Function Bn(ByRef Rng As Range, ByRef No As Integer, ByRef x As String) As String
'ByRef 選擇性引數。表示以傳址的方式來傳遞引數。Visual Basic 預設為 ByRef
'ByVal 選擇性引數。表示以傳值的方式來傳遞引數。
'*** 計算的範圍 **** 'rng(參數) As(型態) Range
'Range 集合代表某一儲存格、某一欄、某一列、某一指定範圍 (該指定範圍可包含一個或若干連續儲存格範圍) 或者某一立體範圍。
'*** 指定十位數的範圍(0 - 9) **** 'No(參數) As(型態) Integer
'Integer 資料型態: Integer 變數係以範圍為 -32,768 到 32,767 之 16 位元 (2 個位元組) 數字的形式儲存。Integer 的型態宣告字元是百分比符號(%)。
'*** 指定間隔數字的字串 **** 'x(參數) As(型態) String
'String 資料型態: 所含為一連串字元的資料型態，並且將其解釋為字元而不是數值。字串可以包括字母、數字、空白和標點符號。String 資料型態可以存放從 0 到 63K 固定長度的字串，也可存成從 0 到約 2 兆字元的動態長度字元。在 Visual Basic 可用符號 ($) 的型態宣告字元來表示一字串。
Dim rn1 As Range 'Dim 陳述式宣告變數，並配置儲存空間。
'在模組層次裏以 Dim 所宣告的變數，該模組所有的程序皆可使用。在程序層次宣告的變數，則只可在該程序中使用。
If Application.Count(Rng) = 0 Then Bn = Rng.Address(0, 0) & " 必須有數字資料!! "
'Application.Count : 工作表函數 Count
If No < 0 Or No > 9 Then Bn = Bn & "No:參數必須是 0 - 9"
If Bn <> "" Then Exit Function '離開自訂函數
For Each rn1 In Rng 'rng(物件)集合,中的子集合 -> rn1
If IsNumeric(rn1) And rn1 <> "" Then '子集合必須是數字,rn1 = ""-> IsNumeric(rn1)=True
If No = 0 And Len(rn1) = 1 Then '個位數
Bn = Bn & rn1 & x
ElseIf Len(rn1) = 2 And Mid(rn1, 1, 1) = No Then '十位數
Bn = Bn & rn1 & x
End If
End If
Next
Bn = Left(Bn, Len(Bn) - 1)
End Function

複製代碼