Excel VBA質問箱 IV

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

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


7356 / 13644 ツリー ←次へ | 前へ→

【39595】ユーザーフォームのテキストボックスの利用 ゆち 06/6/27(火) 11:17 質問[未読]
【39597】Re:ユーザーフォームのテキストボックスの利用 Jaka 06/6/27(火) 11:34 発言[未読]
【39598】Re:ユーザーフォームのテキストボックスの利用 Jaka 06/6/27(火) 11:35 発言[未読]
【39599】Re:ユーザーフォームのテキストボックスの利用 ひげくま 06/6/27(火) 11:44 発言[未読]
【39626】Re:ユーザーフォームのテキストボックスの利用 Hiroko 06/6/27(火) 18:42 発言[未読]

【39595】ユーザーフォームのテキストボックスの利用
質問  ゆち  - 06/6/27(火) 11:17 -

引用なし
パスワード
   こんにちは
テキストボックスで入力した値を、
セルに順にいれていくというコードを書いたのですが、
エラーが出てしまいます。

どこがおかしいのですか?

Private Sub CommandButton1_Click()
  With Worksheets(1).Range("A1").End(xlDown).Offset(1, 0)
    .Value = TextBox1.Value
    .Offset(0, 1).Value = text2.Value
  End With
End Sub

【39597】Re:ユーザーフォームのテキストボックスの利...
発言  Jaka  - 06/6/27(火) 11:34 -

引用なし
パスワード
     >    .Offset(0, 1).Value = text2.Value
                ↑
            これであっているんでしょうか?

また、A1が空白の時、A1が空白でなくA2が空白の時、A2が空白でない時などの状況で
Range("A1").End(xlDown)の結果は変化するから、その辺も考慮されたらいいと思います。

【39598】Re:ユーザーフォームのテキストボックスの利...
発言  Jaka  - 06/6/27(火) 11:35 -

引用なし
パスワード
   ずれました
>    .Offset(0, 1).Value = text2.Value
>                 ↑
>            これであっているんでしょうか?

【39599】Re:ユーザーフォームのテキストボックスの利...
発言  ひげくま  - 06/6/27(火) 11:44 -

引用なし
パスワード
   >エラーが出てしまいます。
>
>どこがおかしいのですか?
>
>Private Sub CommandButton1_Click()
>  With Worksheets(1).Range("A1").End(xlDown).Offset(1, 0)
>    .Value = TextBox1.Value
>    .Offset(0, 1).Value = text2.Value
>  End With
>End Sub

どの部分で、どのようなエラーが出るのでしょうか?

また、Jakaさんが書かれていらっしゃいますが、text2とは何のことでしょうか?

【39626】Re:ユーザーフォームのテキストボックスの利...
発言  Hiroko  - 06/6/27(火) 18:42 -

引用なし
パスワード
   ▼ゆち さん:
このような事でしょうか?

Private Sub CommandButton1_Click()
  With Worksheets(1).Range("A65536").End(xlUp).Offset(1)
    .Value = TextBox1.Value
    .Offset(0, 1).Value = TextBox2.Value
  End With
   TextBox1 = ""
   TextBox2 = ""
   TextBox1.SetFocus
End Sub

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