- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2013-7-15 14:46
| 只看該作者
回復 1# duck_simon - 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
|
|
發表於 2013-7-14 21:34
| 
