人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセル2007を使っています。予定表で日付と曜日の覧で曜日のセルに関数の
、=TEXT(WEEKDAY(A1),"aaa")を入れて自動的に曜日が出るようになったのですが
今度はマクロを使って日付と曜日の字を赤色に変えてやりたいのですがどうすれば良いでしょう

●質問者: chatora
●カテゴリ:コンピュータ
✍キーワード:A1 aaa エクセル セル マクロ
○ 状態 :終了
└ 回答数 : 5/5件

▽最新の回答へ

1 ● きゃづみぃ
●14ポイント

たとえば セルがA1だと

Range("A1").Font.ColorIndex = 3

とすればいいです。

それぞれのセルで実行させてやればいいです。


http://www.relief.jp/itnote/archives/000482.php

◎質問者からの返答

毎月表の日にちと曜日が変わっていくので "日" と言う文字を探してその文字と

日にちの色を赤に変えたいのですが


2 ● beatgoeson
●20ポイント

マクロを使わなくても、条件付書式を使えばセルや文字の色を変えることが出来ます。

http://atiboh.sub.jp/s05jyoukensyosiki.html

いかがでしょうか。


3 ● yamaneroom
●20ポイント

土日祝日に色をつけたExcel予定表を作ってみよう

http://pc.nikkeibp.co.jp/article/NPC/20070407/267694/


4 ● SALINGER
●30ポイント ベストアンサー

マクロは動的に処理するというよりは、その都度実行する使い方になります。

マクロでシート全体の"日"を赤字にするマクロは

Sub 特定の文字色の変更()
 Dim r As Range
 Dim firstAddress As String

 Set r = Cells.Find(What:="日", LookIn:=xlValues, LookAt:=xlWhole)

 If Not r Is Nothing Then
 firstAddress = r.Address
 Do
 r.Font.ColorIndex = 3
  'r.Offset(0, -1).Font.ColorIndex = 3 '例えば曜日の左が日付なら
 Set r = Cells.FindNext(r)
 Loop While Not r Is Nothing And r.Address <> firstAddress
 End If
End Sub

条件付書式はもっと簡単にできます。

Excel2007は条件付書式が機能強化されてわかりづらくなりましたが、

http://www.eurus.dti.ne.jp/~yoneyama/Excel2007/excel2007-jyosyo....


変えたい箇所を選択して、ホームタブ→条件付書式→セルの強調表示ルール→文字列を選び

日 書式: 赤の文字

とするだけです。


5 ● きゃづみぃ
●16ポイント

質問があいまいと判断されますので 以下の点を 確認させてください。

>今度はマクロを使って日付と曜日の字を赤色に変えてやりたいのですがどうすれば良いでしょう

変更するのは 日付と曜日の字の色のみでいいのか?

>毎月表の日にちと曜日が変わっていくので "日" と言う文字を探してその文字と日にちの色を赤に変えたいのですが

日という文字を探すならば、どのようにして表示されてるのかが わからないと難しいです。

たとえば

24日

6月1日

2010年01月01日

など その表示形式(日の場合は 桁数がかならず2桁なのか 1桁と2桁の混合なのか)を教えてください。

また 曜日は 単体のセルなので Range("A1").Font.ColorIndex = 3 でOKです。

あと、表示形式のみ変更している場合は、対応できません。

文字列になっていないとダメです。

つまり、そのセルを 選択したとき、fxと書かれた欄とセルの表示が一致している必要があります。


http://q.hatena.ne.jp/1277367890

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ