- 帖子
- 472
- 主題
- 5
- 精華
- 0
- 積分
- 485
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- MS Office
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 香港
- 註冊時間
- 2010-7-4
- 最後登錄
- 2014-12-28
|
2#
發表於 2013-5-17 22:36
| 只看該作者
回復 1# lifedidi
單選的情況用OPTIONBUTTON會比較好.
- Private Sub CommandButton1_Click()
- Call subCall(TextBox1, TextBox2, TextBox3, 1, 7, "一")
- Call subCall(TextBox4, TextBox5, TextBox6, 11, 17, "二")
- Call subCall(TextBox7, TextBox8, TextBox9, 21, 27, "三")
- End Sub
- Sub subCall(TB1 As msforms.TextBox, TB2 As msforms.TextBox, TB3 As msforms.TextBox, CBFROM1 As Integer, CBFROM2 As Integer, Rec As String)
- Dim strCode, i
-
- If TB1.Value = "" Then
- MsgBox "無資料"
- Else
- Set A = Sheet1.[a65536].End(xlUp).Offset(1, 0)
- strCode = ""
- For i = CBFROM1 To CBFROM2
- With Me.Controls("Opt" & Trim(Str(i)))
- If .Value Then
- strCode = Application.WorksheetFunction.VLookup(.Caption, Sheet2.Range("A1:B8"), 2, False)
- End If
- End With
- Next
- A.Resize(, 4).Value = Array(TB1, TB2, TB3, strCode)
- MsgBox "第" & Rec & "筆資料建立成功！", vbOKOnly, "成功"
- End If
- End Sub
|
|
發表於 2013-5-17 16:00
| 
