Excel VBA質問箱 IV

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

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


51534 / 76732 ←次へ | 前へ→

【30063】Re:数字に対して色を塗る
発言  hine  - 05/10/18(火) 22:50 -

引用なし
パスワード
   ▼悠 さん:
>をシンプルにしたのが先ほどのプログラムですか?

そうです。
シート名が分らなかったので
Worksheets("Sheet1")としているだけです
シート名はそちらで変更して下さい。

Dim f As Long
With Worksheets("Sheet1")
  For f = 1 To 56
    .Range("A" & CStr(f)).Value = f
    .Range("B" & CStr(f)).Interior.ColorIndex = f
  Next
End With

1 hits

【30050】数字に対して色を塗る 05/10/18(火) 20:05 質問
【30053】Re:数字に対して色を塗る hine 05/10/18(火) 20:30 発言
【30055】Re:数字に対して色を塗る 05/10/18(火) 21:22 お礼
【30059】Re:数字に対して色を塗る 05/10/18(火) 22:05 質問
【30060】Re:数字に対して色を塗る hine 05/10/18(火) 22:21 発言
【30062】Re:数字に対して色を塗る 05/10/18(火) 22:37 質問
【30063】Re:数字に対して色を塗る hine 05/10/18(火) 22:50 発言
【30061】Re:数字に対して色を塗る 05/10/18(火) 22:35 質問
【30078】Re:数字に対して色を塗る かみちゃん 05/10/19(水) 7:33 発言
【30080】Re:数字に対して色を塗る 05/10/19(水) 8:49 質問

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