CheckBox 及 optionbutton 點選選項後可否設計帶出textbox 輸入資料 - Excel程式區

[發問] CheckBox 及 optionbutton 點選選項後可否設計帶出textbox 輸入資料

4^# 跳轉到 »

發表於 2012-7-26 07:56 | 只看該作者

回復 2# GBKEE

看到您的回答,簡直要痛哭流涕,工作上的瓶頸,在此都能穫得解決,這兒真是好,謝謝您,
也感謝大家,要怎樣像您們一半強,每次多麻煩大家,真感恩!

max

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

3^#

發表於 2012-7-25 17:46 | 只看該作者

回復 1# user999

Option Explicit
Private Sub UserForm_Initialize()
Dim LeftPos As Integer, TopPos As Integer, NewHeight As Integer, NewWidth As Integer, Rng As Range, H As Integer, i As Integer
Dim NewOptionButton As MSForms.Control
H = 1
NewHeight = 15
With Sheet1
With .Columns(1)
Set Rng = Sheet1.Range(.Cells(2), .Cells(2).End(xlDown))
ComboBox1.List = Rng.Value
End With
With .Columns(2)
Set Rng = Sheet1.Range(.Cells(2), .Cells(2).End(xlDown))
NewWidth = (Frame2.Width - (Rng.Count * H)) / Rng.Count
TopPos = (Frame2.Height - NewHeight) / 2
For i = 1 To Rng.Count
LeftPos = 1 * H + (i - 1) * NewWidth
Set NewOptionButton = _
Frame2.Controls.Add("forms.OptionButton.1")
With NewOptionButton
.Width = NewWidth
.Caption = Rng.Cells(i)
.Height = NewHeight
.Left = LeftPos
.Top = TopPos
.AutoSize = True
End With
Next
End With
With .Columns(3)
Set Rng = Sheet1.Range(.Cells(2), .Cells(2).End(xlDown))
NewWidth = (Frame3.Width - (Rng.Count * H)) / Rng.Count
TopPos = (Frame3.Height - NewHeight) / 2
For i = 1 To Rng.Count
LeftPos = 1 * H + (i - 1) * NewWidth
Set NewOptionButton = _
Frame3.Controls.Add("forms.CheckBox.1")
With NewOptionButton
.Width = NewWidth
.Caption = Rng.Cells(i)
.Height = NewHeight
.Left = LeftPos
.Top = TopPos
.AutoSize = True
End With
Next
End With
End With
End Sub