返回列表 上一主題 發帖

[發問] Lablel迴圈顯示

boyao

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

boyao

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

TOP

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

高中生Rank: 3Rank: 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?(已解決)

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

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

  少看=只看不做也枉然

TOP

kimbal

帖子
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
  1.     Private Sub UserForm_Activate()
  2.     Dim ctrl As Control
  3.     Dim cellStart As Range
  4.     Dim cellOffset As Integer
  5.     cellOffset = 0
  6.    
  7.     Set cellStart = Sheet1.Range("C5")
  8.    
  9.     For Each ctrl In Me.Controls
  10.         If TypeName(ctrl) = "Label" Then
  11.             ctrl.Caption = cellStart.Offset(cellOffset, 0) & " " & cellStart.Offset(cellOffset, 1).Value
  12.             cellOffset = cellOffset + 1
  13.         End If
  14.     Next
  15. End Sub
複製代碼
懂得發問,答案就會在其中

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

TOP

        靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。
返回列表 上一主題