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

【100Pスタート】ExcelのVBAマクロ作成に関する質問です。セルの色を条件により変えたいと思っています。たぶん簡単だと思うのですが、なにせVBA作成がド素人なため、アドバイスいただければ幸いです。質問等はリンク先のファイルを参照いただけるとわかりやすいかと思います。対象となるセルはB13〜CW112の10000個のセルです。
http://www.geocities.jp/yukitsun001/kaisen.xls

モジュール内容を示してくれると嬉しいです。シンプルだといいなー。どうぞよろしくお願い致します☆

●質問者: yoshifuku
●カテゴリ:コンピュータ 科学・統計資料
✍キーワード:Excel VBA すいか アドバイス シンプル
○ 状態 :終了
└ 回答数 : 7/8件

▽最新の回答へ

1 ● utagawh
●1ポイント

http://www.yahoo.co.jp/

Yahoo! JAPAN

urlは無関係

素性のわからないマクロ付きexcelファイルなど開く気もないので詳細不明ですが、

条件付き書式では実現不可能?

◎質問者からの返答

ありがとうございます。「マクロを無効にする」で開かないでしょうか?


2 ● tarohbin
●1ポイント

http://www.hatena.ne.jp/awindow?qid=1087136621

はてな

メニューバーの書式というところを開いて

条件付き書式 というものを選択します。

条件に合わせて文字の色、セルの色をかえることが出来ます。

がんばってください。

◎質問者からの返答

ありがとうございます。「条件付き書式」は知っていますが、今回のようなケースではどうするのかな?


3 ● paffpaff
●1ポイント

http://www.eurus.dti.ne.jp/~yoneyama/Excel/jyo-sho/jyo-syna.htm#...

条件付書式を使うのでしたらこんな風に

http://www.tsucchy.com/Excel/auto1.html

自動記録2-1

自動記録でやってみたい操作をして

記録されたマクロの該当位置に条件をつける方法もあります

http://t_shun.at.infoseek.co.jp/My_Page/Excel-VBA/vba_page02.htm

VBAの基礎(1)

自動記録の詳細

マクロの場合はどういう場合に実行させるか決める必要があります

(ボタンを押したら色を変えるのか、どこかセルが変更されたら変えるのか・・など)

http://homepage2.nifty.com/kasayan/vba/excelj1.htm

セル関連マクロ例

セルの値を参照する方法です

◎質問者からの返答

「条件付き書式」は具体的に実現する手段が思いつかなく、「自動記録」では実現できないと思われ、「セル関連マクロ例」は今回は行削除とは違うので・・・。ありがとうございました。


4 ● こると
●1ポイント

http://www.atmarkit.co.jp/fwin2k/win2ktips/328cellstyle/cellstyl...

@IT:Windows TIPS -- Tips:n行おきにExcelのセル書式を変更する

モジュールじゃなくても、セルの色を条件で変えられます。

一応参考まで。

あと、マクロつきのファイルを参照するのはウイルス付きの可能性が0とはいえないので怖いです。VBAのソースを表示してくれたほうがよいかなと思います。では。

◎質問者からの返答

すいません、マクロ付ファイルは確かに不安ですよね。「マクロを実行しない」で開いてもだめかな?


5 ● garry
●34ポイント

http://www.atcaj.or.jp/

航空管制協会のWebPageへようこそ

とりあえず、一番目のを作りました。

55までと決まっているなら、for〜nextでもよいのですが、一応空白までとしました。

Sub macroX()

Dim i As Integer

Dim j As Integer

i = 2 ’(12,2)=B12から

j = 13 ’(1,13)=A13から

Sheets(”回線数算出”).Activate

Do Until Cells(12, i).Value = ””

Do Until Cells(j, 1).Value = ””

If Cells(12, i).Value = Cells(j, 1).Value Then

Cells(j, i).Select

With Selection.Interior

.ColorIndex = 1

End With

End If

j = j + 1

Loop

i = i + 1

j = 13

Loop

End Sub

◎質問者からの返答

ありがとう!!!!

セルの色を黒にするマクロは完璧にできました!

うれしいですっ!

後はピンクにするマクロだなー。


1-5件表示/7件
4.前の5件|次5件6.
関連質問


●質問をもっと探す●



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