標題: [發問] Checkbox帶入儲存格為簡碼 [打印本頁]

---

作者: lifedidi    時間: 2013-5-17 16:00     標題: Checkbox帶入儲存格為簡碼

大大好：

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

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

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

[attach]14999[/attach]

---

作者: kimbal    時間: 2013-5-17 22:36

回復 1# lifedidi


    單選的情況用OPTIONBUTTON會比較好.

[attach]15007[/attach]

1. Private Sub CommandButton1_Click()
   
2.     Call subCall(TextBox1, TextBox2, TextBox3, 1, 7, "一")
   
3.     Call subCall(TextBox4, TextBox5, TextBox6, 11, 17, "二")
   
4.     Call subCall(TextBox7, TextBox8, TextBox9, 21, 27, "三")
   
5. End Sub
   
6. 
   
7. Sub subCall(TB1 As msforms.TextBox, TB2 As msforms.TextBox, TB3 As msforms.TextBox, CBFROM1 As Integer, CBFROM2 As Integer, Rec As String)
   
8. 
   
9.     Dim strCode, i
   
10.    
    
11.     If TB1.Value = "" Then
    
12.         MsgBox "無資料"
    
13.     Else
    
14. 
    
15.         Set A = Sheet1.[a65536].End(xlUp).Offset(1, 0)
    
16.         strCode = ""
    
17.         For i = CBFROM1 To CBFROM2
    
18.             With Me.Controls("Opt" & Trim(Str(i)))
    
19.                 If .Value Then
    
20.                     strCode = Application.WorksheetFunction.VLookup(.Caption, Sheet2.Range("A1:B8"), 2, False)
    
21.                 End If
    
22.             End With
    
23.         Next
    
24.         A.Resize(, 4).Value = Array(TB1, TB2, TB3, strCode)
    
25.         MsgBox "第" & Rec & "筆資料建立成功！", vbOKOnly, "成功"
    
26.     End If
    
27. 
    
28. End Sub

複製代碼

---

作者: lifedidi    時間: 2013-5-20 10:06

太棒了！謝謝版主kimbal大大！
一次就解決問題！謝謝！

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)