Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8838 / 76732

←次へ　｜　前へ→


	【73462】テキストボックスからセルへ　For文

さんたぱぱ - 13/1/13(日) 21:15 -


	引用なし

	パスワード

ユーザーフォームにテキストボックス0～19があり、1～19が入力欄、0は明細番号（連番）となっています。
1～19に入力後、登録ボタンを押すとワークシートのセルのA列～T列にそれぞれのテキストボックスの値が入力されるようにしたいのですが、うまくいきません。

A列にはテキストボックス1の値が正しく入力されるのですが、B列～T列には何も入力されません。
解決策を教えていただけませんでしょうか。

Private Sub upBtn1_Click()

DB行 = txtBox0.Value + 1
For i = 1 To 19
Worksheets("売上データ").Cells(DB行, i + 1) = upForm("txtBox" & i).Text
Next i

End Sub

ワークシートの1行目は見出しとなっていますので、明細番号（テキストボックス0）＋1を行番号としています。

よろしくお願いいたします。

210 hits

▼

【73462】テキストボックスからセルへ　For文 さんたぱぱ 13/1/13(日) 21:15

≪