[發問] 如何用選項鈕方式來輸入資料？

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2011-5-4 10:58 | 只看該作者

若只有這幾個選項，就分別寫Click事件
Private Sub OptionButton1_Click()
Dim r As Range
With ActiveSheet
Set r = IIf(.[a1] = "", .[a1], .[a65536].End(3)(2, 1))
r = OptionButton1.Caption
End With
End Sub
----------------------------------------
Private Sub OptionButton2_Click()
Dim r As Range
With ActiveSheet
Set r = IIf(.[a1] = "", .[a1], .[a65536].End(3)(2, 1))
r = OptionButton2.Caption
End With
End Sub
多的話就用物件類別模組作個集合，指定Click事件
這樣你須要附檔案上來

q1a2z5

帖子: 142
主題: 80
精華: 0
積分: 221
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2011-4-14
最後登錄: 2021-4-28

3^#

發表於 2011-5-5 14:50 | 只看該作者

謝謝你的解答，我將選項鈕分為四區，Frame1在Ａ欄位輸入資料；Frame2在Ｂ欄位輸入資料，依此類推．．
並且將程式碼複製一大串看起來更繁雜了，如何將程式碼簡單化呢？

謝謝！

附件.rar (10.39 KB)

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2011-5-5 16:22 | 只看該作者

回復 3# q1a2z5
UserForm程式碼

Dim MyOp() As New Class1
Private Sub UserForm_Initialize()
Dim E As MSForms.Control, OP As MSForms.OptionButton, i%
For Each E In Controls
If E.Name Like "Frame*" Then
For Each OP In E.Controls
ReDim Preserve MyOp(i)
Set MyOp(i).OP = OP
i = i + 1
Next
End If
Next
End Sub

複製代碼

使用物件類別模組

Option Explicit
Public WithEvents OP As MSForms.OptionButton
Private Sub OP_Click()
Dim R As Range, C%
C = Right(OP.Parent.Name, 1)
With ActiveSheet
Set R = IIf(.Cells(1, C) = "", .Cells(1, C), .Cells(Rows.Count, C).End(3)(2, 1))
R = OP.Caption
End With
End Sub

複製代碼

如圖

q1a2z5

帖子: 142
主題: 80
精華: 0
積分: 221
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2011-4-14
最後登錄: 2021-4-28

5^#

發表於 2011-12-21 09:02 | 只看該作者

本帖最後由 q1a2z5 於 2011-12-21 22:14 編輯

如果Frame1選項要從B2；Frame2選項則從C2開始填入，要如何修改呢？

謝謝！

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2011-12-22 14:49 | 只看該作者

回復 5# q1a2z5

Option Explicit
Public WithEvents OP As MSForms.OptionButton
Private Sub OP_Click()
Dim R As Range, C%
C = Right(OP.Parent.Name, 1) + 1
With ActiveSheet
Set R = IIf(.Cells(1, C) = "", .Cells(1, C), .Cells(Rows.Count, C).End(3)(2, 1))
R = OP.Caption
End With
End Sub

複製代碼

dechiuan999

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

7^#

發表於 2011-12-23 07:20 | 只看該作者

版主大大您好：

使用物件類別模組的
功效如此強大。
小弟已將此範例收藏，
日後再慢慢體會。
另上述語法小弟有些無法領會，
請版主能再詳述。
一、
ReDim Preserve MyOp(i)
Set MyOp(i).OP = OP '設定MYOP(I)是何作用呢？
i = i + 1

二、
C = Right(OP.Parent.Name, 1) + 1
OP.Parent.Name是何含意呢？

謝謝版主大大！

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2011-12-23 18:07 | 只看該作者

本帖最後由 GBKEE 於 2011-12-23 18:13 編輯

回復 7# dechiuan999
Dim MyOp() As New Class1 ->新的 Class1(物件類別模組)
MyOp() 為動態陣列
ReDim Preserve MyOp(i)  ->陣列維數下限新增到i
            Preserve  -> 不改變陣列原有內容
Set MyOp(i).OP = OP  -> 新增的 MyOp(i).OP=OP

OP.Parent.Name ->父層  Frame

dechiuan999

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

9^#

發表於 2011-12-24 06:14 | 只看該作者

謝謝版主大大如此
詳細說明，小弟已能理解。
只是至今尚未領會物件類別模組
的運用方式。也只能期待早點領會其
用意與方法了。

感恩大大！