如何利用迴圈直接改Label 的name?(已解決) - Excel程式區

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2012-5-3 23:03 | 顯示全部帖子

回復 1# icestormer
必須是由程式動態新增物件才能夠在表單初始化時做新增同時命名
已經使用手動布置的物件，在表單啟動後則無法重新命名

學海無涯_不恥下問

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2012-5-4 14:20 | 顯示全部帖子

回復 5# icestormer

Private Sub UserForm_Initialize()
'新增2欄8列
For j = 1 To 2
For i = 1 To 8
With Controls.Add("Forms.Label.1", "LA" & i & "_" & j, True)
.Caption = .Name
.Top = 20 * (i - 1) + 5
.Left = 160 * (j - 1) + 5
.Width = 155
.Height = 18
End With
Next
Next
End Sub

複製代碼

學海無涯_不恥下問

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2012-5-6 00:16 | 顯示全部帖子

回復 8# icestormer
表單物件只能用隱藏不能刪除

Private Sub CommandButton1_Click()
If ComboBox1 = "" Then Exit Sub
Me.Controls(ComboBox1.Text).Visible = False '.Caption = "ar"
ComboBox1.RemoveItem ComboBox1.ListIndex
ComboBox1 = ""
End Sub
Private Sub CommandButton2_Click()
Me.Controls(ComboBox1.Text).Caption = TextBox1
End Sub
Private Sub UserForm_Initialize()
'新增2欄8列
For j = 1 To 2
k = 0
For i = 1 To 10
k = k + 1
With Controls.Add("Forms.Label.1", "LA" & k & "_" & 10 - k + 1 & "_" & j, True)
.Caption = .Name
.Top = 20 * (i - 1) + 5
.Left = 160 * (j - 1) + 5
.Width = 155
.Height = 18
ComboBox1.AddItem .Name
End With
Next
Next
End Sub

複製代碼

活頁簿1.rar (11.24 KB)

學海無涯_不恥下問

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2012-5-6 23:38 | 顯示全部帖子

回復 13# icestormer

計算物件數量，以TypeName來判斷是哪一種控制項

Private Sub CommandButton3_Click()
Dim Ct As Control
For Each Ct In Controls
If TypeName(Ct) = "Label" Then cnt = cnt + 1
Next
MsgBox cnt
End Sub

複製代碼

要顯示3列7欄資料，一欄列數做迴圈

Sub ex()
Dim ar(1 To 3, 1 To 7)
For i = 1 To 3 '3列
For j = 1 To 7 '7欄
k = k + 1 '值
ar(i, j) = k '將值寫入陣列
Next
Next
For i = 1 To 3 '循列迴圈
m = Join(Application.Index(ar, i), ",") '取出一列
mystr = IIf(mystr = "", m, mystr & Chr(10) & m) '串聯字串
Next
MsgBox mystr '顯示字串
End Sub

複製代碼

學海無涯_不恥下問

TOP

[發問] 如何利用迴圈直接改Label 的name?(已解決)

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]