Excel VBA質問箱 IV

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

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


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

【23121】テキストの着色 miura 05/3/14(月) 12:54 質問[未読]
【23125】Re:テキストの着色 IROC 05/3/14(月) 13:06 回答[未読]
【23129】Re:テキストの着色 miura 05/3/14(月) 15:03 回答[未読]
【23131】Re:テキストの着色 IROC 05/3/14(月) 15:33 回答[未読]
【23133】Re:テキストの着色 miura 05/3/14(月) 16:01 回答[未読]
【23138】Re:テキストの着色 IROC 05/3/14(月) 17:36 回答[未読]
【23148】Re:テキストの着色 miura 05/3/15(火) 8:58 回答[未読]
【23150】Re:テキストの着色 sa 05/3/15(火) 9:40 発言[未読]
【23152】Re:テキストの着色 miura 05/3/15(火) 10:08 お礼[未読]
【23151】Re:テキストの着色 IROC 05/3/15(火) 9:42 回答[未読]
【23153】Re:テキストの着色 miura 05/3/15(火) 10:11 お礼[未読]

【23121】テキストの着色
質問  miura E-MAIL  - 05/3/14(月) 12:54 -

引用なし
パスワード
   「検索」で過去に同じ質問がなかったので、質問いたします。

指定されたテキストボックスに「黒字」で入力されている文字を、「コマンド・ボタン」(マクロを登録して)をクリックすることにより、その指定されたテキストボックスの文字の色を、例えば、「青」色に変更したい。

よろしくお願いいたします。

【23125】Re:テキストの着色
回答  IROC  - 05/3/14(月) 13:06 -

引用なし
パスワード
   どのテキストボックスですか?

ユーザーフォームですか?

【23129】Re:テキストの着色
回答  miura E-MAIL  - 05/3/14(月) 15:03 -

引用なし
パスワード
   ▼IROC さん:
>どのテキストボックスですか?

エクセル・シートの左上の「名前ボックス」欄に「テキスト 19(数字はテキストボックス毎に付与されている)」と表示されるものです。

>
>ユーザーフォームですか?

【23131】Re:テキストの着色
回答  IROC  - 05/3/14(月) 15:33 -

引用なし
パスワード
   図形描画のテキストボックスでしょうか?
それならば「マクロの記録」をすればできますよ。


【23133】Re:テキストの着色
回答  miura E-MAIL  - 05/3/14(月) 16:01 -

引用なし
パスワード
   ▼IROC さん:
>図形描画のテキストボックスでしょうか?
>それならば「マクロの記録」をすればできますよ。
>

全くの初心者です。具体的なセンテンスをご教示ください。

レイアウトとしては、「図形描画のテキストボックス」(4×5セルの領域)のすぐ上に
「コマンドボタン」(1×5セルの領域)を配置する。
「コマンドボタン」をクリックして、「テキストボックス」の文字を「黒」から「青」に変える。

【23138】Re:テキストの着色
回答  IROC  - 05/3/14(月) 17:36 -

引用なし
パスワード
   >具体的なセンテンスをご教示ください。

マクロの記録をすれば、VBAコードが自動作成されます。試したのでしょうか?

【23148】Re:テキストの着色
回答  miura E-MAIL  - 05/3/15(火) 8:58 -

引用なし
パスワード
   ▼IROC さん:
>>具体的なセンテンスをご教示ください。
>
>マクロの記録をすれば、VBAコードが自動作成されます。試したのでしょうか?

全くの素人というのは、「マクロの記録の使用法も分からない」という意味も込めて、質問したつもりでした。
一晩かかって、「マクロの記録」に挑戦して、何とか色を変えるところまで、たどりつきました。
後、一歩変更が必要な段階です。
マクロでは
  Selection.Characters.Text = "番号123319057"
において、" "テキストボックスにすでに入力されていた「番号123319057」となっていますが、実際に使用する場合には、任意の文字、数字列となります。
ここを「任意の文字、数字列」に対応できるようにするには、どうすればよいでしょうか。
  Application.Run "マクロ検討用.xls!button76"
  ActiveSheet.Shapes("テキスト 64").Select
  Selection.Characters.Text = "番号2004-319057"
  With Selection.Characters(Start:=1, Length:=15).Font
    .ColorIndex = 41
  End With

【23150】Re:テキストの着色
発言  sa  - 05/3/15(火) 9:40 -

引用なし
パスワード
   ▼miura さん:
>全くの素人というのは、「マクロの記録の使用法も分からない」という意味も込めて、

Excel全開VBA
http://www.sigoto.co.jp/excel/

を一度見てみてください

【23151】Re:テキストの着色
回答  IROC  - 05/3/15(火) 9:42 -

引用なし
パスワード
   このようになります。

ActiveSheet.Shapes("Text Box 1").Select ’図形を選択

'選択された図形の文字を、1文字目から Len(Selection.Characters.Text)で
'取得した文字数までの色を変える。
Selection.Characters(Start:=1, Length:=Len(Selection.Characters.Text)) _
.Font.ColorIndex = 41

【23152】Re:テキストの着色
お礼  miura E-MAIL  - 05/3/15(火) 10:08 -

引用なし
パスワード
   ▼sa さん:
>▼miura さん:
>>全くの素人というのは、「マクロの記録の使用法も分からない」という意味も込めて、
>
>Excel全開VBA
>http://www.sigoto.co.jp/excel/
>
>を一度見てみてください

アドバイスありがとうございます。
もっと勉強が必要であることを痛感しました。

【23153】Re:テキストの着色
お礼  miura E-MAIL  - 05/3/15(火) 10:11 -

引用なし
パスワード
   ▼IROC さん:
>このようになります。
>
>ActiveSheet.Shapes("Text Box 1").Select ’図形を選択
>
>'選択された図形の文字を、1文字目から Len(Selection.Characters.Text)で
>'取得した文字数までの色を変える。
>Selection.Characters(Start:=1, Length:=Len(Selection.Characters.Text)) _
>.Font.ColorIndex = 41

おかげさまで、完全に解決しました。

即応していただき、課題を長時間かかえることがなく、スッキリしました。
当方の知識レベルの低さを痛感した次第です。

今後ともよろしくお願いします。

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