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

user999

請教各位 CheckBox 及  optionbutton 中選項 可否設計成 來源取excel表格某欄位,如附件說明
懇請諸位幫忙 謝謝!

GBKEE

回復 1# user999

1. Option Explicit
   
2. Private Sub UserForm_Initialize()
   
3.     Dim LeftPos As Integer, TopPos As Integer, NewHeight As Integer, NewWidth As Integer, Rng As Range, H As Integer, i As Integer
   
4.     Dim NewOptionButton As MSForms.Control
   
5.     H = 1
   
6.     NewHeight = 15
   
7.     With Sheet1
   
8.         With .Columns(1)
   
9.             Set Rng = Sheet1.Range(.Cells(2), .Cells(2).End(xlDown))
   
10.             ComboBox1.List = Rng.Value
    
11.         End With
    
12.         With .Columns(2)
    
13.             Set Rng = Sheet1.Range(.Cells(2), .Cells(2).End(xlDown))
    
14.             NewWidth = (Frame2.Width - (Rng.Count * H)) / Rng.Count
    
15.             TopPos = (Frame2.Height - NewHeight) / 2
    
16.             For i = 1 To Rng.Count
    
17.                 LeftPos = 1 * H + (i - 1) * NewWidth
    
18.                 Set NewOptionButton = _
    
19.                 Frame2.Controls.Add("forms.OptionButton.1")
    
20.                 With NewOptionButton
    
21.                     .Width = NewWidth
    
22.                     .Caption = Rng.Cells(i)
    
23.                     .Height = NewHeight
    
24.                     .Left = LeftPos
    
25.                     .Top = TopPos
    
26.                     .AutoSize = True
    
27.                 End With
    
28.             Next
    
29.         End With
    
30.         With .Columns(3)
    
31.             Set Rng = Sheet1.Range(.Cells(2), .Cells(2).End(xlDown))
    
32.             NewWidth = (Frame3.Width - (Rng.Count * H)) / Rng.Count
    
33.             TopPos = (Frame3.Height - NewHeight) / 2
    
34.             For i = 1 To Rng.Count
    
35.                 LeftPos = 1 * H + (i - 1) * NewWidth
    
36.                 Set NewOptionButton = _
    
37.                 Frame3.Controls.Add("forms.CheckBox.1")
    
38.                 With NewOptionButton
    
39.                     .Width = NewWidth
    
40.                     .Caption = Rng.Cells(i)
    
41.                     .Height = NewHeight
    
42.                     .Left = LeftPos
    
43.                     .Top = TopPos
    
44.                     .AutoSize = True
    
45.                 End With
    
46.             Next
    
47.         End With
    
48.     End With
    
49. End Sub

複製代碼

user999

回復 2# GBKEE


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

user999

回復 2# GBKEE


    再請教一下   
           忘了提到附件中另一問題就是,
1.所點選的值要帶回excel工作表中,看了程式碼,我不知從何做起,
2.假設原程式已有forms.OptionButton.1....n  那如何Frame2.Controls.Add("forms.OptionButton.")如何判定放在最後,
  同問題Frame3.Controls.Add("forms.CheckBox.1")\
謝謝您們的幫助

user999

回復 2# GBKEE


    另一問題 optionbutton 及 checkbox 內容一多起來,
在fram2,,fram3中,所有的option僅一行會顯示(壓縮會看不到,)
如何讓它換行
及fram能自動縮放或是設option checkbox 各最大直個數30,(不可能無,限頁面也無法呈現)
麻煩大家了

GBKEE

回復 5# user999
另一問題 optionbutton 及 checkbox 內容一多起來,在fram2,,fram3中,所有的option僅一行會顯示(壓縮會看不到,)如何讓它換行
如果多到Frame2 或 Frame3 換行後還是容不下去該如何處置?
所以建議你在 Frame2 用ComboBox 控制項  單選 , Frame3 用ListBox 控制項 可複選

Hsieh

回復 5# user999

試試看附件是否符合?

動態新增.rar (30.18 KB)

下載次數: 20

2012-7-26 19:21

user999

回復 7# Hsieh


    非常感謝大家,這個真的好用,也看到我沒學過class類別,看來要好好研究一般,謝謝大家拉我一把,這兒的每個主題都有寶,因為有太多熱心的高手在此幫忙,謝謝您們!

user999

請教各位先進:
CheckBox 及 optionbutton 點選選項後 可否設計帶出textbox 輸入資料
如附件

謝謝大家

GBKEE

回復 1# user999
類似的 型態 參考參考

TEST.rar (20.66 KB)

下載次數: 18

2012-8-13 10:50