返回列表 上一主題 發帖

[發問] 核取方塊和選項鈕的疑問？

q1a2z5

帖子
142 
主題
80 
精華
0 
積分
221 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2011-4-14 
最後登錄
2021-4-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-4-27 09:10 | 只看該作者

[發問] 核取方塊和選項鈕的疑問？

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

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

謝謝！

客戶資料.rar (11.13 KB)

收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
255  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-24 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2011-4-27 22:57 | 只看該作者
地區可以複選?
學海無涯_不恥下問

TOP

chin15

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

TOP

        靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。
返回列表 上一主題