Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7157 / 13645 ツリー ←次へ | 前へ→

【40826】複数のテキストボックスの利用について Hiroko 06/7/24(月) 21:25 質問[未読]
【40828】Re:複数のテキストボックスの利用について kobasan 06/7/24(月) 21:35 回答[未読]
【40830】Re:複数のテキストボックスの利用について Hiroko 06/7/24(月) 22:14 質問[未読]
【40831】Re:複数のテキストボックスの利用について kobasan 06/7/24(月) 22:43 発言[未読]
【40833】Re:複数のテキストボックスの利用について Hiroko 06/7/24(月) 23:05 お礼[未読]

【40826】複数のテキストボックスの利用について
質問  Hiroko  - 06/7/24(月) 21:25 -

引用なし
パスワード
   ユーザーフォームを使い

テキストボックス1から4まであります。
コマンドボックスONにすると、
テキストボックス1の数字はA列に…テキストボックス2から4まではオフセットをかけて
D列からF列に数字を入れて行きたいのですが…
下のコードでは、テキストボックスの2から4までが正しい数字の反映ができません。
問題箇所をご指定いただきたくお願いします。

Dim i As Integer

With Sheets("Sheet1").Cells(65536, 1).End(xlUp)
  .Offset(1) = TextBox1.Value
End With
With Sheets("Sheet1").Cells(65536, 1).End(xlUp)
   For i = 2 To 4
     .Offset(0, i + 1) = _
     TextBox & i & Value
   Next i

End With
  

【40828】Re:複数のテキストボックスの利用について
回答  kobasan  - 06/7/24(月) 21:35 -

引用なし
パスワード
   Hiroko さん 今晩は。

これでできます。

With Sheets("Sheet1").Cells(65536, 1).End(xlUp)
  .Offset(1) = TextBox1.Value
  For i = 2 To 4
    .Offset(1, i + 1) = _
    TextBox & i & Value
  Next i
End With

【40830】Re:複数のテキストボックスの利用について
質問  Hiroko  - 06/7/24(月) 22:14 -

引用なし
パスワード
   ▼kobasan さん:

こんばんは。
早速ご返事ありがとうございます。
たとえば
textbox1に235 2に345 3に567 4に789と順次数字を入れて
A列は235と入りますが、D、E、Fにはそれぞれ2、3、4
とセルに入ってしまいます。

実行すると下のようになります。
作成しましたコードも同じ結果が出ます。
どこのコードを訂正したらよいのでしょうか?

 A  B C D E F G
235      2 3 4

【40831】Re:複数のテキストボックスの利用について
発言  kobasan  - 06/7/24(月) 22:43 -

引用なし
パスワード
   Hiroko さん すみません。
よく見てなかったです。

With Sheets("Sheet1").Cells(65536, 1).End(xlUp)
  .Offset(1) = TextBox1.Value
  For i = 2 To 4
    .Offset(1, i + 1) = _
    Controls("TextBox" & i).Value   '<---訂正
  Next i
End With

【40833】Re:複数のテキストボックスの利用について
お礼  Hiroko  - 06/7/24(月) 23:05 -

引用なし
パスワード
   ▼kobasan さん:

お忙しいところ、回答ありがとうございました。

スムーズに動きました。
この後、もう少しコードを付け加えようと思っています。
その時には、またよろしくお願いします。

失礼します。

7157 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free