Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7156 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   ユーザーフォームを使い

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

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と順次数字を入れて
Ａ列は235と入りますが、Ｄ、Ｅ、Ｆにはそれぞれ２、３、４
とセルに入ってしまいます。

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

　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 さん：

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

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

失礼します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7156 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free