[發問] 如何讓迴圈所讀取到的資料都顯示過? (G大,謝謝你)

av8d

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

回復 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)

av8d

回復 2# GBKEE


    謝謝G大~

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

GBKEE

回復 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 & "購買"

複製代碼