Excel VBA質問箱 IV

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

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


17513 / 76732 ←次へ | 前へ→

【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
2 hits

【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 回答

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