Excel VBA質問箱 IV

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

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


28984 / 76732 ←次へ | 前へ→

【53037】Re:入力フォームから入力した文字をセルに反映させたいのですが
発言  ichinose  - 07/12/12(水) 18:12 -

引用なし
パスワード
   こんばんは。

>>
>>自分が作りたいのは、エクセルのファイルを開いたら「入力フォーム(下で言う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)」のところだと自分は(短くて浅い経験をもとに)憶測を踏んでいろいろと定義の部分を変えましたが、どれも失敗でした。もう、自分的にはなす術がありません。
>>
>>どうか、お助け下さい。長々とした下手な日本語ですいませんでした。
Excel2002では、正常に作動していますよ!!
Excelのバージョンは?
エラー発生時のThisWorkbook.gyouの値はどうなっていますか?


>
>Publicの変数は、
>標準モジュールに書かないとダメです。
そんなことないと思いますよ!!
Thisworkbookに
public aa as integer
とすれば、Thisworkbookのオブジェクトに独自プロパティを付ける事と同値と解釈しています。
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 発言

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