Excel VBA質問箱 IV

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

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


28987 / 76732 ←次へ | 前へ→

【53034】入力フォームから入力した文字をセルに反映させたいのですが
質問  初心者A  - 07/12/12(水) 17:36 -

引用なし
パスワード
   どうも、初めまして。初心者Aといいます。

自分が作りたいのは、エクセルのファイルを開いたら「入力フォーム(下で言うUserForm1)」を表示して、その中にあるテキストボックスに文字を入力してもらい、同じフォーム中のコマンドボタンを押すと入力した文字をエクセルの表の一番左のセル一列(Aの列)に上のセルから順次表示させていくものです。コマンドボタンを押したら下のセルに進んでいくみたいな。

それに伴い以下のコードをそれぞれ「ThisWorkbook」、「UserForm1」に記述しました。
'以下、ThisWorkbookに記述。
Public gyou As Integer
Private Sub Workbook_Open()
  gyou = 2
   UserForm1.Show
End Sub

'以下、UserForm1に記述。
Private Sub CommandButton1_Click()
ThisWorkbook.Worksheets(1).Cells(ThisWorkbook.gyou, 1) = TextBox1.Text
TextBox1.Text = ""
ThisWorkbook.gyou = ThisWorkbook.gyou + 1
End Sub

また、変数「gyou」をPublicで定義した意味は他のフォームでも必要な変数だからです。またまた、変数「gyou」の最初に「2」をいれたのはエクセルの表でいう「A列」の上から2番目の行から始めたい!という意図的なこだわりです。

そして、上記のコードにデバックをかけると「UserForm1」側の「ThisWorkbook.Worksheets(1).Cells(ThisWorkbook.gyou, 1) = TextBox1.Text」のところで「実行時エラー'1004':(改行)アプリケーション定義またはオブジェクト定義のエラーです。」と出てしまいます。

多分、「ThisWorkbook.Worksheets(1).Cells(ThisWorkbook.gyou, 1)」のところだと自分は(短くて浅い経験をもとに)憶測を踏んでいろいろと定義の部分を変えましたが、どれも失敗でした。もう、自分的にはなす術がありません。

どうか、お助け下さい。長々とした下手な日本語ですいませんでした。

0 hits

【53034】入力フォームから入力した文字をセルに反映させたいのですが 初心者A 07/12/12(水) 17:36 質問
【53035】Re:入力フォームから入力した文字をセルに... ハチ 07/12/12(水) 17:49 回答
【53037】Re:入力フォームから入力した文字をセルに... ichinose 07/12/12(水) 18:12 発言
【53043】Re:入力フォームから入力した文字をセルに... 初心者A 07/12/12(水) 18:34 発言
【53046】Re:入力フォームから入力した文字をセルに... Toshi 07/12/12(水) 19:25 発言
【53049】Re:入力フォームから入力した文字をセルに... ichinose 07/12/12(水) 20:57 発言
【53073】Re:入力フォームから入力した文字をセルに... 初心者A 07/12/13(木) 21:49 お礼
【53048】Re:入力フォームから入力した文字をセルに... ハチ 07/12/12(水) 20:48 発言

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