2013蛇年全勤獎章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

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

[發問] Lablel迴圈顯示

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

20121005Test.rar (8.66 KB)

boyao

2013蛇年全勤獎章

4^#

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

回復 2# kimbal

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

boyao

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

3^#

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

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

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

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

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

  少看=只看不做也枉然

論壇貢獻勳章

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