Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7563 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【38219】コマンドボタンで絞込み みさこ 06/5/29(月) 21:22 質問[未読]
【38222】Re:コマンドボタンで絞込み 漂流民 06/5/29(月) 22:22 発言[未読]
【38227】Re:コマンドボタンで絞込み ichinose 06/5/30(火) 7:43 発言[未読]
【38241】ありがとうございます。 みさこ 06/5/30(火) 14:55 お礼[未読]
【38219】コマンドボタンで絞込み
質問  みさこ  - 06/5/29(月) 21:22 -
引用なし
パスワード
   質問です。ユーザーフォームにコマンドボタンを作りました。

[ア][イ][ウ][エ][オ]
[カ][キ][ク][ケ][コ]
・　・　・　・　・
・　・　・　・　・
・　・　・　・　・
・　・　・　・　・

　　[　　　　　]　←テキストボックス

ボタンを押すとテキストボックスに入力されるようにしました。
しかし、今は一文字しか入力できず、続けて押すと文字が入れ替わるだけです。
これを[ア]→[カ]を押すとテキストボックスに[アカ]と入力できるようにできますか？
今はこうなってます。

Private Sub ア_Click()
テキスト入力="ア"
End Sub

よろしくお願いします。
【38222】Re:コマンドボタンで絞込み
発言  漂流民  - 06/5/29(月) 22:22 -
引用なし
パスワード
   ▼みさこ さん：
こんばんわ

「テキスト入力」はテキストボックスのオブジェクト名ということでいいですか？

Private Sub ア_Click()
　　テキスト入力.Text = テキスト入力.Text & "ア"
End Sub
【38227】Re:コマンドボタンで絞込み
発言  ichinose  - 06/5/30(火) 7:43 -
引用なし
パスワード
   漂流民 さん、みさこ さん、おはようございます。

>
>Private Sub ア_Click()
>　　テキスト入力.Text = テキスト入力.Text & "ア"
>End Sub

50音分のコマンドボタンを作成するのですか？

>　　テキスト入力.Text = テキスト入力.Text & "ア"
このコードに悩んでおられるとすると、
ちょっと内容的に大変かもしれませんが、

上記のコードを50音だとすると５０個用意するということになりますよね？

コントロール配列、クラス等で検索すると、
コードが簡潔に記述できますから、調べてみてください。

目安箱にも

http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=51;id=FAQ

ありますから、覗いてみてください。
今は難しくても、いつか役に立つと思いますから・・・。
【38241】ありがとうございます。
お礼  みさこ  - 06/5/30(火) 14:55 -
引用なし
パスワード
   ichinoseさん、漂流民さん

ありがとうございます。ひとまず、漂流民さんに教えていただいたものを使います。
ichinoseさんに教えていただいた擬似コントロール配列・・・
初心者にはちょっと難しくてちんぷんかんぷんなんですが
これからのために、がんばって理解していこうとおもいます。しかし難しい。。。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7563 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free