Board logo

標題: [發問] Lablel迴圈顯示 [打印本頁]
作者: boyao    時間: 2012-10-5 13:23     標題: Lablel迴圈顯示

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

[attach]12704[/attach]
作者: kimbal    時間: 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
複製代碼
作者: mark15jill    時間: 2012-10-5 13:54

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

請參考
如何利用迴圈直接改Label 的name?(已解決)
作者: boyao    時間: 2012-10-5 15:41

回復 2# kimbal


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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)