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

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

11^# 跳轉到 »

發表於 2012-5-6 09:27 | 只看該作者

本帖最後由 icestormer 於 2012-5-6 09:33 編輯

回復 9# Hsieh

剛才的程式完全可以使用但我有二個問題還是不懂想請問超版

我如果把程式改成這樣

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", , True)'不改它NAME 讓它由Label1 -21
   .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

然後我另外弄一個CMD 內容是

Label1.caption ="測試" <<會失敗找不到物件
----------------------------------------------------------------------------------------------------------------------------
但如果我是先事在表單上先拉出一個LAbel1後

這時由上頭程式碼產生的Label 1-21 >變成>Label2-21
我再按CMD 的巨集郤是可以改變Lable1.caption

這是為什麼呢? 程式生成的Label1 為何沒法利用 Label1.caption ="測試" 來改變它呢?但事先拉在表單上的Label1.caption 郤可以?實在不懂呢
-----------------------------------------------------------------------------------------------------------------------------------------------------------------
第二問題是.

像程式碼生成出 Label1 -21 這部份可以利用迴圈把它們一次都設定成visible=false? 是要利用tabindex 嗎? 還是要如何寫呢?

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

12^#

發表於 2012-5-6 17:52 | 只看該作者

回復 11# icestormer
表單實際上已存在的控制項才可用 Label1.Caption = "測試"
With Controls.Add("Forms.Label.1", , True) 所新增的控制項不是表單實際上已存在的控制項

Sub Ex()
Dim I As Integer
Controls("Label1").Caption = "測試"
For I = 1 To 21
Controls("Label" & I).Visible = False
Next
End Sub

複製代碼

TOP

icestormer

中學生 Rank: 2

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

13^#

發表於 2012-5-6 20:50 | 只看該作者

本帖最後由 icestormer 於 2012-5-6 22:28 編輯

回復 12# GBKEE

感謝你經剛才試了您的程式碼完全可以用了

不過想問另一個問題如果不用for next可以改用for each  X  in Label 之類的??
就是如果自訂表單上有
TextBox 5個
Label  10個
commandbutton 6個

我可以利用for each 針對 Label  統計一共有多少個Label ?

sub commandbutton_click() <<目前只會這個而已,但他只會計算全部的控制項有多少呢.
for each  x in controls

   i=i+1
next
msgobx  "一共有多少:" & i & "控制項"

end sub
================================================================
想再問您一個問題如果我想利用雙迴圈寫出如下的排序要怎寫呢?怎想都想不出來..

1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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