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

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

12^#

發表於 2015-6-18 01:00 | 只看該作者

本帖最後由 lpk187 於 2015-6-18 01:05 編輯

回復 10# lyc43210

嗯！找出來的原因在Set X_OB(a ).OB = Controls(myC.Name)
原來的ReDim X_OB(15 To i)
陣列是從15開始
但For a = 1 To i - 14
這裡的 A變數則是從1開始和X_OB陣列的編號不同造成的錯誤所以要改成下列：
Set X_OB(a + 14).OB = Controls(myC.Name)

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

11^#

發表於 2015-6-17 23:25 | 只看該作者

回復 10# lyc43210

上傳你的檔案上來吧！

lyc43210

小學生 Rank: 1

帖子: 15
主題: 5
精華: 0
積分: 34
點名: 0
作業系統: Windows 7
軟體版本: Office 2013
閱讀權限: 10
性別: 男
註冊時間: 2015-4-9
最後登錄: 2018-7-15

10^#

發表於 2015-6-17 23:08 | 只看該作者

回復 8# lpk187

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

擷取.PNG

Private Sub UserForm_Initialize()
i = Sheets(1).Cells(1, 1).End(xlToRight).Column
h = 336
If i > 14 Then
ReDim X_OB(15 To i)
Dim myC As Control
For a = 1 To i - 14
Set myC = Controls.Add(bstrprogid:="Forms.optionButton.1")
With myC
.Caption = " " & Sheets(1).Cells(1, a + 14).Value
.font.Name = "微軟正黑體"
.font.Size = 12
.font.Bold = True
.ForeColor = &HFFFFFF
.BackColor = &HFFE66F
.Height = 21.75
.Width = 144.75
.Left = -12
h = h + 24
.Top = h
Sheets(2).ScrollHeight = h + 24
End With
Set X_OB(a).OB = Controls(myC.Name)
Next a
End If
End Sub

複製代碼

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

9^#

發表於 2015-6-17 22:38 | 只看該作者

回復 7# lyc43210

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

8^#

發表於 2015-6-17 22:26 | 只看該作者

本帖最後由 lpk187 於 2015-6-17 22:30 編輯

回復 4# lyc43210

假設你是有其他控制項的話
Set X_OB(A).OB = Controls(A)
這裡的變數A可以把它改成 Set myC = Controls.Add...新增控項的名稱
如下：
Set X_OB(A).OB = Controls(myC.Name)

原本的變數A是指到它的Controls序號位置，改名稱是會指向新增Controls控項的名稱