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

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

15^#

發表於 2012-5-7 08:19 | 只看該作者

回復 14# Hsieh

感謝二位超版^^ 來去試看看
快可以有權限下載了. 到時去下載版上先進分享的VBA學習檔案好好學習

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

14^#

發表於 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

複製代碼

學海無涯_不恥下問

帖子: 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

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

複製代碼

帖子: 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 嗎? 還是要如何寫呢?

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

10^#

發表於 2012-5-6 08:35 | 只看該作者

回復 9# Hsieh

謝超版來去試看看

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

9^#

發表於 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)

學海無涯_不恥下問

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

8^#

發表於 2012-5-5 21:07 | 只看該作者

本帖最後由 icestormer 於 2012-5-5 21:32 編輯

問題1.rar (6.87 KB) 回復 6# Hsieh

請問超版  我用下列程式碼在自訂表單上生出這些label  那要怎在另一個按鍵 (改變)中改變LA0的CAPTION呢? 都一直說找不到物件

另外如果想刪除透過程式碼生成的控制項(像是Label)又要怎寫呢??
Private Sub CommandButton2_Click()
For j = 0 To 32
            For i = 0 To 6
            With Controls.Add("Forms.Label.1", "LA" & j + i, True)'請問這行中的 TRUE 是不是指要顯示的意思?
               .Caption = .Name
               .Font.Size = 12
               .BorderStyle = 1
               .ForeColor = &H80000012
               .Top = 42 + (j * 14)
               .Left = i * 70
               .Width = 70
               .Height = 16
               .TextAlign = 3
         end with
next  i
next j
=======================================================
另外不知要怎寫迴圈能表現出下方這種情況呢?

試了好久但都試不出來像下方的程式碼怎要怎寫. 用雙迴圈也寫不出來

1的10
2的9
3的8
4的7
5的6
6的5
7的4
8的3
9的2
10的1

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

7^#

發表於 2012-5-4 14:37 | 只看該作者

回復 6# Hsieh

謝超版來去試看看^^