[發問] Checkbox帶入儲存格為簡碼

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-5-17 16:00 | 只看該作者

大大好：

最近遇到需要勾選的表單，製做上遇到了困難，

1.如何帶入工作表
2.帶入工作表為簡碼

簡單的範本請參考附件，謝謝。

能.rar (22.84 KB)

論壇貢獻勳章

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