| |
いつも勉強させていただいています。
早速ですが次のコード １ と ２ では同じような結果
でませんがどうしてかわかりません。ご教授下さい。
１ C1からC3に1 2 3 と入力し下記コード実行すると
B1から下に 1 2 3 と表示されます。
Dim myRange As Range
Dim buf1
Set myRange = Worksheets("Sheet1").Range("C1:C3")
Worksheets("Sheet1").Range("B1").Resize(UBound(buf1)).Value = buf1
２ フォームにTextBoxが３つあり それぞれに 1 2 3
と入力後下記コードを実行すると
A1からA3 に1 1 1 と表示される（TextBox1の値のみ）
TextBox2 TextBox3の値が表示されない
Dim buf(1 To 3)
Dim i As Integer
With Me
For i = 1 To UBound(buf)
buf(i) = .Controls("TextBox" & i).Value
Next i
End With
Worksheets("Sheet1").Range("A1").Resize(UBound(buf)).Value = buf
又
Worksheets("Sheet1").Range("A1").Resize(UBound(buf)).Value = buf
部分を
For i = 1 To UBound(buf)
Worksheets("Sheet1").cells(i,1).value=buf(i)
Next i
にすると
A1からA3 に1 2 3 と表示される
判り難い説明かと思いますがよろしくお願いします。
|
|
かじったばかり
- 06/9/13(水) 19:39 -
