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 さん：
>全くの素人というのは、「マクロの記録の使用法も分からない」という意味も込めて、

Ｅｘｃｅｌ全開ＶＢＡ
http://www.sigoto.co.jp/excel/

を一度見てみてください
【23151】Re:テキストの着色
回答  IROC  - 05/3/15(火) 9:42 -
引用なし
パスワード
   このようになります。

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

'選択された図形の文字を、１文字目から 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 さん：
>>全くの素人というのは、「マクロの記録の使用法も分からない」という意味も込めて、
>
>Ｅｘｃｅｌ全開ＶＢＡ
>http://www.sigoto.co.jp/excel/
>
>を一度見てみてください

アドバイスありがとうございます。
もっと勉強が必要であることを痛感しました。
【23153】Re:テキストの着色
お礼  miura E-MAIL  - 05/3/15(火) 10:11 -
引用なし
パスワード
   ▼IROC さん：
>このようになります。
>
>ActiveSheet.Shapes("Text Box 1").Select　’図形を選択
>
>'選択された図形の文字を、１文字目から 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