- 帖子
- 227
- 主題
- 3
- 精華
- 1
- 積分
- 273
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- XP
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2011-3-22
- 最後登錄
- 2013-1-29
|
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 |
|
發表於 2011-4-27 23:18
| 