Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3037 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【64620】セル内の任意の文字に色をつける カンジ 10/2/26(金) 0:03 質問[未読]
【64621】Re:セル内の任意の文字に色をつける りん 10/2/26(金) 4:00 発言[未読]
【64623】Re:セル内の任意の文字に色をつける カンジ 10/2/26(金) 11:27 お礼[未読]
【64671】Re:セル内の任意の文字に色をつける イゾ 10/3/4(木) 21:20 発言[未読]
【64672】Re:セル内の任意の文字に色をつける yoshi 10/3/5(金) 2:11 回答[未読]
【64620】セル内の任意の文字に色をつける
質問  カンジ  - 10/2/26(金) 0:03 -
引用なし
パスワード
   こんばんわ　下記の内容が解決できないでいます。ご指導ください。
セル内の任意の文字を選択し、コマンドボタンで文字を着色したいのですが。
通常は、セル内の任意の文字を選択し｢書式」「フォント」「色」を選択して文字色を変更しますが。セル内の「任意の文字を選択」し、コマンドボタンのクリックで変更するようにしたいのですが、どのように記述すればよいでしょうか。
よろしくお願いします。
【64621】Re:セル内の任意の文字に色をつける
発言  りん E-MAIL  - 10/2/26(金) 4:00 -
引用なし
パスワード
   カンジ さん、こんばんわ
>通常は、セル内の任意の文字を選択し｢書式」「フォント」「色」を選択して文字色を変更しますが。セル内の「任意の文字を選択」し、コマンドボタンのクリックで変更するようにしたいのですが、どのように記述すればよいでしょうか。
文字列の編集中に他の作業（マクロの実行）は無理だと思いますが。
書式ツールバーのフォントの色ボタンではいけない理由は色の分岐ですか？
【64623】Re:セル内の任意の文字に色をつける
お礼  カンジ  - 10/2/26(金) 11:27 -
引用なし
パスワード
   ▼りん さん：
>カンジ さん、こんばんわ
>>通常は、セル内の任意の文字を選択し｢書式」「フォント」「色」を選択して文字色を変更しますが。セル内の「任意の文字を選択」し、コマンドボタンのクリックで変更するようにしたいのですが、どのように記述すればよいでしょうか。
>文字列の編集中に他の作業（マクロの実行）は無理だと思いますが。
>書式ツールバーのフォントの色ボタンではいけない理由は色の分岐ですか？
ありがとうございます。
一つのセル内の任意の文字列に数箇所フォントを変える（赤・青・太字など）作業があり、それらのコマンドボタン（赤色用・青色用・太字用）を用意しておいて迅速に出来るようにしたいと考えていますが、やはり文字列の編集中はマクロ実行は無理なのですね。書式ツールバーの色ボタンで行うことにしたいと思います。
ありがとうございました。
【64671】Re:セル内の任意の文字に色をつける
発言  イゾ  - 10/3/4(木) 21:20 -
引用なし
パスワード
   ▼カンジ さん：
>▼りん さん：
>>カンジ さん、こんばんわ
>>>通常は、セル内の任意の文字を選択し｢書式」「フォント」「色」を選択して文字色を変更しますが。セル内の「任意の文字を選択」し、コマンドボタンのクリックで変更するようにしたいのですが、どのように記述すればよいでしょうか。
>>文字列の編集中に他の作業（マクロの実行）は無理だと思いますが。
>>書式ツールバーのフォントの色ボタンではいけない理由は色の分岐ですか？
>ありがとうございます。
>一つのセル内の任意の文字列に数箇所フォントを変える（赤・青・太字など）作業があり、それらのコマンドボタン（赤色用・青色用・太字用）を用意しておいて迅速に出来るようにしたいと考えていますが、やはり文字列の編集中はマクロ実行は無理なのですね。書式ツールバーの色ボタンで行うことにしたいと思います。
>ありがとうございました。

編集中はマクロが実行できないのなら一括処理でできるように考えてはいかがですか。

今は忙しいのでコード等は記述できませんが、私なら以下のようにします。
（部分部分の動作テストはしました）

『文字転送』、『赤色』、『青色』、『太字』　『書式転送』　等のコマンドボタンを作っておく。


文字列の入ったセルにアクティブにし『文字転送』ボタンで内容を、一文字ずつに分解し
編集用に幅を一文字分にしたセル（編集用）に（横方向並び）転送する。

転送されたセル範囲を選択しながら、コマンドボタンにより書式を変更して行く。

書式変更が終わったら『書式転送』ボタンにてセル（編集用）の内容を元のセルに反映させる。

簡単ですが以上で可能になります。
【64672】Re:セル内の任意の文字に色をつける
回答  yoshi  - 10/3/5(金) 2:11 -
引用なし
パスワード
   ▼カンジ さん：
>セル内の任意の文字を選択し、コマンドボタンで文字を着色したいのですが。
一例ですが、下記マクロを貼り付けて、FontColorAddを実行。
(Openイベントなどで自動実行する)
[色]という名のコマンドバーが出来ます。
セル内の任意の文字を選択し、[色]コマンドバーのボタンを押します。

Sub FontColorAdd()
　FontColorDel
　With Application.CommandBars.Add(Name:="色", Temporary:=True)
　　.Visible = True
　　.Controls.Add ID:=401
　End With
End Sub

Sub FontColorDel()
　On Error Resume Next
　Application.CommandBars("色").Delete
　On Error GoTo 0
End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3037 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free