Board logo

標題: [發問] 如何讓迴圈所讀取到的資料都顯示過? (G大,謝謝你) [打印本頁]
作者: av8d    時間: 2012-7-24 23:04     標題: 如何讓迴圈所讀取到的資料都顯示過? (G大,謝謝你)

本帖最後由 av8d 於 2012-7-27 10:43 編輯

For i = 1 To 18
    If Me.Controls("OptionButton" & i).Value = True Then   
    TextBox1 = i & "購買"
End Sub

如果i=1,3,6,8,15,16
我該如何讓TextBox1 顯示1,3,6,8,15,16購買
作者: GBKEE    時間: 2012-7-25 16:30

回復 1# av8d
  1. For i = 1 To 18
  2.         If Me.Controls("OptionButton" & i).Value = True Then
  3.             TextBox1 = IIf(TextBox1 <> "", "," & i, i)
  4.         End If
  5.     Next
  6.     TextBox1 = TextBox1 & "購買"
複製代碼
作者: av8d    時間: 2012-7-25 19:25

本帖最後由 av8d 於 2012-7-25 23:13 編輯

回復 2# GBKEE


    謝謝G大~

我可否順便詢問一下~
Sheets("點餐").Cells(Rows.Count, "A").End(3)(2, 1).Resize(1, 7)
3 2 1 1 7 分別是說明地方的?我只知道7好像是共7欄的意思?
作者: GBKEE    時間: 2012-7-26 13:39

回復 3# av8d
多看 VBA的說明可了解
End 屬性 請參閱套用至範例特定傳回 Range 物件，該物件代表包含來源範圍之區域結尾處的儲存格。等於按 END+向上鍵、END+向下鍵、END+向左鍵或 END+向右鍵。唯讀 Range 物件。
expression.End(Direction)
expression    必選。此運算式會傳回 [套用至] 清單中的其中一個物件。
Direction    必選的 XlDirection。要移往的方向。
XlDirection 可以是這些 XlDirection 常數之一。
xlDown      ->4
xlToRight  ->2
xlToLeft     ->1
xlUp           ->3
Sheets("點餐").Cells(Rows.Count, "A").End(3)(2, 1).Resize(1, 7)=>Sheets("點餐").Cells(Rows.Count, "A").End(xlUp).Cells(2, 1).Resize(1, 7)



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