返回列表 上一主題 發帖

[發問] 依欄數建立選項，並有相似程式指令

lyc43210

帖子
15 
主題
5 
精華
0 
積分
34 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2013 
閱讀權限
10 
性別
男 
註冊時間
2015-4-9 
最後登錄
2018-7-15 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-6-16 18:59 | 顯示全部帖子

[發問] 依欄數建立選項，並有相似程式指令

我想依照工作表的欄數
建立同樣數量的選項按紐

每個選項選取後
都能顯示該選項的內容

目前以查到的 我只會寫增加選項
每個選項的程式碼不知怎麼寫

還請各位高手指導
謝謝
  1. Private Sub UserForm_Initialize()
  2.     i = Cells(1, 1).End(xlToRight).Column
  3.     h = 0
  4.     Dim myC As Control
  5.    
  6.     For a = 1 To i
  7.         Set myC = Controls.Add(bstrprogid:="Forms.optionButton.1")
  8.         myC.Top = h
  9.         h = h + 20
  10.         myC.Caption = Cells(1, a)
  11.     Next a
  12. End Sub

  14. '每個按鈕都是類似這樣的功能
  15. Private Sub OptionButton1_Change()
  16.     Label1.Caption = OptionButton1.Caption
  17. End Sub
複製代碼
收藏 分享

lyc43210

帖子
15 
主題
5 
精華
0 
積分
34 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2013 
閱讀權限
10 
性別
男 
註冊時間
2015-4-9 
最後登錄
2018-7-15 
2#
發表於 2015-6-17 21:51 | 顯示全部帖子
回復 2# lpk187

謝謝

單純這樣使用可以
可是若要套用進其他程式
有時會現在可以 稍微控制像做些修改後 就又不行了
常常會在  Set X_OB(A).OB = Controls(A)     這行出現錯誤

希望高手們能繼續指導
謝謝

TOP

lyc43210

帖子
15 
主題
5 
精華
0 
積分
34 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2013 
閱讀權限
10 
性別
男 
註冊時間
2015-4-9 
最後登錄
2018-7-15 
3#
發表於 2015-6-17 21:56 | 顯示全部帖子
回復 3# bobomi
還是新手 看不懂意思
可以麻煩前輩 多解釋一點嗎
感謝

TOP

lyc43210

帖子
15 
主題
5 
精華
0 
積分
34 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2013 
閱讀權限
10 
性別
男 
註冊時間
2015-4-9 
最後登錄
2018-7-15 
4#
發表於 2015-6-17 22:25 | 顯示全部帖子
回復 6# lpk187

剛剛開個新工作表  重新測試
上面完整一模一樣的程式碼 直接放入
卻都會出現錯誤
不過之前都是可以的

擷取.PNG

TOP

lyc43210

帖子
15 
主題
5 
精華
0 
積分
34 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2013 
閱讀權限
10 
性別
男 
註冊時間
2015-4-9 
最後登錄
2018-7-15 
5#
發表於 2015-6-17 23:08 | 顯示全部帖子
回復 8# lpk187

那樣修改後，又可以正常執行了
但加入我的程式後又不行了
然後又出現不同的錯誤

擷取.PNG
  1. Private Sub UserForm_Initialize()
  2.     i = Sheets(1).Cells(1, 1).End(xlToRight).Column
  3.     h = 336
  4.    
  5.     If i > 14 Then
  6.         ReDim X_OB(15 To i)
  7.         Dim myC As Control
  8.         For a = 1 To i - 14
  9.             Set myC = Controls.Add(bstrprogid:="Forms.optionButton.1")
  10.             With myC
  11.                 .Caption = "        " & Sheets(1).Cells(1, a + 14).Value
  12.                 .font.Name = "微軟正黑體"
  13.                 .font.Size = 12
  14.                 .font.Bold = True
  15.                 .ForeColor = &HFFFFFF
  16.                 .BackColor = &HFFE66F
  17.                 .Height = 21.75
  18.                 .Width = 144.75
  19.                 .Left = -12
  20.                 h = h + 24
  21.                 .Top = h
  22.                 Sheets(2).ScrollHeight = h + 24
  23.                
  24.             End With
  25.             Set X_OB(a).OB = Controls(myC.Name)
  26.         Next a
  27.     End If
  28. End Sub
複製代碼

TOP

lyc43210

帖子
15 
主題
5 
精華
0 
積分
34 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2013 
閱讀權限
10 
性別
男 
註冊時間
2015-4-9 
最後登錄
2018-7-15 
6#
發表於 2015-6-18 12:33 | 顯示全部帖子
回復 12# lpk187

成功解決了!
原來是這地方的問題
謝謝你

TOP

        靜思自在 : 有時當思無時苦，好天要積雨來糧。
返回列表 上一主題