麻辣家族討論版版 » Excel程式區 » Lablel迴圈顯示

返回列表下一主題上一主題發帖

[發問] Lablel迴圈顯示

中學生 Rank: 2

帖子: 57
主題: 10
精華: 0
積分: 104
點名: 0
作業系統: WINXP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2012-7-5
最後登錄: 2017-2-18

2013蛇年全勤獎章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-10-5 13:23 | 只看該作者

[發問] Lablel迴圈顯示

如附件
請問有沒有辦法用迴圈的方式去處理每一個Label.Caption
如果是Textbox.value 也是相同的處理方式?
感謝!
目前迴圈的使用~~~學習中

20121005Test.rar (8.66 KB)

樓主熱帖

收藏

boyao

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

2^#

發表於 2012-10-5 13:46 | 只看該作者

如附件
請問有沒有辦法用迴圈的方式去處理每一個Label.Caption
如果是Textbox.value 也是相同的處理方式 ...
boyao 發表於 2012-10-5 13:23

Private Sub UserForm_Activate()
Dim ctrl As Control
Dim cellStart As Range
Dim cellOffset As Integer
cellOffset = 0
Set cellStart = Sheet1.Range("C5")
For Each ctrl In Me.Controls
If TypeName(ctrl) = "Label" Then
ctrl.Caption = cellStart.Offset(cellOffset, 0) & " " & cellStart.Offset(cellOffset, 1).Value
cellOffset = cellOffset + 1
End If
Next
End Sub

複製代碼

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

3^#

發表於 2012-10-5 13:54 | 只看該作者

回復 1# boyao
版上有相同類型文章

請參考
如何利用迴圈直接改Label 的name?(已解決)

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

中學生 Rank: 2

帖子: 57
主題: 10
精華: 0
積分: 104
點名: 0
作業系統: WINXP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2012-7-5
最後登錄: 2017-2-18

2013蛇年全勤獎章

4^#

發表於 2012-10-5 15:41 | 只看該作者

回復 2# kimbal

再請教一下板主.如果有Label的數量限制.該如何定義阿
例如Label1~Label50為一種計算呈現.Label51~Label100為另一種計算呈現
感謝!!

boyao

靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。

返回列表下一主題上一主題