返回列表 上一主題 發帖

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

回復 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 & "購買"
複製代碼

TOP

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

TOP

        靜思自在 : 道德是提昇自我的明燈,不該是呵斥別人的鞭子。
返回列表 上一主題