Excel VBA質問箱 IV

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

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


16480 / 76738 ←次へ | 前へ→

【65724】Re:セル内の一部のフォント色を変える
発言  まだ新人  - 10/6/24(木) 4:48 -

引用なし
パスワード
   コードは全く解読していませんが。

マクロの記録で色指定をすると、セルの内容は

  ActiveCell.FormulaR1C1 = "AAAAAA" & Chr(10) & "" & Chr(13) & "BBBBBB" & Chr(10) & "" & Chr(13) & "DDDDDD" & Chr(10) & "" & Chr(13) & "EEEEEE" & Chr(10) & "" & Chr(13) & "FFFFFF"

となっています。

不要な所を削除するとこうなりました。
位置情報をつかんでおき、一気に指定すればできます。

Sub Macro1()
  ActiveCell.Characters(Start:=1, Length:=7).Font.ColorIndex = 1
  ActiveCell.Characters(Start:=8, Length:=7).Font.ColorIndex = 5
  ActiveCell.Characters(Start:=15, Length:=18).Font.ColorIndex = 1
  ActiveCell.Characters(Start:=33, Length:=6).Font.ColorIndex = 5
End Sub

これを以下の2つに分けて実行すると最後の部分しか青にならないことから
セル内容の変更が入ると色指定が無効になるようです。

Sub Macro2()

  ActiveCell = "AAAAAA" & Chr(10) & "" & Chr(13) & "BBBBBB" & Chr(10) & "" & Chr(13)


  ActiveCell.Characters(Start:=1, Length:=7).Font.ColorIndex = 1
  ActiveCell.Characters(Start:=8, Length:=7).Font.ColorIndex = 5
End Sub

Sub Macro3()
  
  ActiveCell = ActiveCell & "DDDDDD" & Chr(10) & "" & Chr(13) & "EEEEEE" & Chr(10) & "" & Chr(13) & "FFFFFF"

  ActiveCell.Characters(Start:=15, Length:=18).Font.ColorIndex = 1
  ActiveCell.Characters(Start:=33, Length:=6).Font.ColorIndex = 5

End Sub
0 hits

【65682】セル内の一部のフォント色を変える かな 10/6/22(火) 12:53 質問
【65687】Re:セル内の一部のフォント色を変える Jaka 10/6/22(火) 14:49 発言
【65689】Re:セル内の一部のフォント色を変える かな 10/6/22(火) 15:04 質問
【65690】Re:セル内の一部のフォント色を変える Jaka 10/6/22(火) 15:09 発言
【65724】Re:セル内の一部のフォント色を変える まだ新人 10/6/24(木) 4:48 発言
【65725】Re:セル内の一部のフォント色を変える まだ新人 10/6/24(木) 5:02 発言

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