Excel VBA質問箱 IV

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

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


3854 / 13645 ツリー ←次へ | 前へ→

【59824】テキストボックスからの値取得について教えてください。 rassen 09/1/10(土) 13:25 質問[未読]
【59825】Re:テキストボックスからの値取得について... kanabun 09/1/10(土) 14:38 発言[未読]
【59827】Re:テキストボックスからの値取得について... rassen 09/1/10(土) 18:18 発言[未読]
【59829】Re:テキストボックスからの値取得について... kanabun 09/1/10(土) 18:43 発言[未読]
【59832】Re:テキストボックスからの値取得について... kanabun 09/1/10(土) 19:24 発言[未読]
【59833】Re:テキストボックスからの値取得について... rassen 09/1/10(土) 20:55 発言[未読]
【59834】Re:テキストボックスからの値取得について... kanabun 09/1/10(土) 21:08 発言[未読]
【59835】Re:テキストボックスからの値取得について... rassen 09/1/10(土) 21:42 お礼[未読]

【59824】テキストボックスからの値取得について教...
質問  rassen  - 09/1/10(土) 13:25 -

引用なし
パスワード
   VBA初心者です。ユーザーフォーム上にあるBOX1A〜BOX5Zまでの130個のテキストボックスから値を取得したいのですがうまくいきません。
下記のような感じで取得出来るかと思っていたのですが、ダメでした。何か良い方法はありませんか?
英語をやめて数字だけでも試みましたが、文字列になっているのかうまく動いてくれませんでした。

For M=1 To 5
 For N=str("A") to str("Z")
  管理番号="BOX" & M & chr("N")
 Next N
Next M

どなたか分かる方、よろしくお願いします。

【59825】Re:テキストボックスからの値取得につい...
発言  kanabun  - 09/1/10(土) 14:38 -

引用なし
パスワード
   ▼rassen さん:

>ユーザーフォーム上にあるBOX1A〜BOX5Zまでの130個のテキストボックス
> から値を取得したいのですがうまくいきません。

参考まで、標準モジュール上で、こんなの試してみてください。

Sub TextBoxのなまえ()
 Dim m As Long
 Dim n As Long
 For m = 1 To 5
   For n = Asc("A") To Asc("Z")
     Debug.Print "BOX" & m & Chr$(n)
   Next
 Next
End Sub

【59827】Re:テキストボックスからの値取得につい...
発言  rassen  - 09/1/10(土) 18:18 -

引用なし
パスワード
   >参考まで、標準モジュール上で、こんなの試してみてください。
>
>Sub TextBoxのなまえ()
> Dim m As Long
> Dim n As Long
> For m = 1 To 5
>   For n = Asc("A") To Asc("Z")
>     Debug.Print "BOX" & m & Chr$(n)
>   Next
> Next
>End Sub

回答ありがとうございます。

上記、標準モジュールで試して見ましたが、何も起こりませんでした。
ちなみに、フォームのモジュールの方で試すとテキストBOXにはプログラムを入れていないのに「コンパイルエラー:このメンバ識別子は既にオブジェクトモジュールの中に存在しています。」と表示されます。

【59829】Re:テキストボックスからの値取得につい...
発言  kanabun  - 09/1/10(土) 18:43 -

引用なし
パスワード
   ▼rassen さん:
>上記、標準モジュールで試して見ましたが、何も起こりませんでした。

Debug.Print ステートメントにて、
イミディエイト・ウィンドウに出力しています。
メニュ-[表示]-[イミディエイト・ウィンドウ]
または Ctrl + [G] で
イミディエイト・ウィンドウを覗いてみてください。

【59832】Re:テキストボックスからの値取得につい...
発言  kanabun  - 09/1/10(土) 19:24 -

引用なし
パスワード
   VBE(Visual Basic Editor/VBエディタ)の使い方
ht tp://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_vbe.html

【59833】Re:テキストボックスからの値取得につい...
発言  rassen  - 09/1/10(土) 20:55 -

引用なし
パスワード
   ▼kanabun さん:
>VBE(Visual Basic Editor/VBエディタ)の使い方
>ht tp://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_vbe.html

イミディエイト ウィンドウにBOX1Aから順次表示されていました。
Debug.PrintのところをCells(M,N)=に変えて実行してみましたが、何も起こりませんでした。

紹介して頂いたHPは初心者にもわかり易く書かれてあり、とても助かります。今後の参考にさせて頂きます。

【59834】Re:テキストボックスからの値取得につい...
発言  kanabun  - 09/1/10(土) 21:08 -

引用なし
パスワード
   ▼rassen さん:
>イミディエイト ウィンドウにBOX1Aから順次表示されていました。

>Debug.PrintのところをCells(M,N)=に変えて実行してみましたが、何も起こりませんでした。

目的は、
BOX1A という名前のTextBoxのTextを シートの Cells(1, "A") に転記、
以下同様に
BOX1B という名前のTextBoxのTextを シートの Cells(1, "B") に転記、

 :

BOX5Z という名前のTextBoxのTextを シートの Cells(5, "Z") に転記したい
ということですか?

↓(UserFormの CommandButton1 ボタンのClickイベントプロシージャに記述)

Private Sub CommandButton1_Click()
 Dim m As Long
 Dim n As Long
 For m = 1 To 5
   For n = Asc("A") To Asc("Z")
     Cells(m, Chr$(n)).Value = Controls("BOX" & m & Chr$(n)).Text
   Next
 Next
End Sub

【59835】Re:テキストボックスからの値取得につい...
お礼  rassen  - 09/1/10(土) 21:42 -

引用なし
パスワード
   おかげ様で解決する事が出来ました。
kanabunさん、逐一丁寧な回答本当にありがとうございました。

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