標題: [發問] 核取方塊和選項鈕的疑問？ [打印本頁]

---

作者: q1a2z5    時間: 2011-4-27 09:10     標題: 核取方塊和選項鈕的疑問？

本帖最後由 q1a2z5 於 2011-4-27 14:27 編輯

一份簡單客戶資料是由鍵入方式來建置的，現在想增加性別欄(用核取方塊)及地區[欄(用選項鈕方式)來建資料，
不知要如何更改呢？

謝謝！

---

作者: Hsieh    時間: 2011-4-27 22:57

地區可以複選?

---

作者: chin15    時間: 2011-4-27 23:18

Private Sub confirm_Click()
    o = IIf(Me.OptionButton1.Value = True, Me.OptionButton1.Caption, Me.OptionButton2.Caption)
    For i = 4 To 7
        If Me.Controls("CheckBox" & i).Value = True Then t = Me.Controls("CheckBox" & i).Caption: Exit For
    Next
    With Sheets("客戶資料")
        .[a65536].End(3)(2, 1).Resize(, 4) = Array(cust.Text, phone.Text, o, t)
    End With
    Unload Me
End Sub

---

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