Excel VBA(列全体のセルの処理)の質問です。

質問

Excel VBA(列全体のセルの処理)の質問です。
初心者です。
やりたいことは、一つの列(C列とします)の各セルに整数もしくは同一文字列がセットされています。行数は不定ですが、全行に渡って処理したい。
処理はセルが文字列なら何もしないで、次の行に移る。
数字なら、数字の大きさに従って背景色を変える(0,1-10,11-20とか)。
セルの書式は 標準 になっています。

行の選択は => Columns("C:C").Select

背景色指定はこんな感じかと思っています。
Dim delay As Long

if delay = 0 Then
ColorIndex = 10
Pattern = xlSolid
ElseIf delay ... Then
:
Else
:
End If

列全体に渡って実行する方法、各セル値を取り出してやる方法がわかりません。
宜しく、お願いします。

回答No.3

ichhabehunger · ベストアンサー

Excel には「マクロの記録」という便利な機能もあります。
それを使ってできたコードを十分ながめることは結構いい勉強になります。

また、Excel VBA の書籍も一冊購入すべきでしょう。
やはり一から基礎を勉強することが必要です。
急がば回れです。

あと、Excel には「インテリセンス」という機能があります。
そこで出てこないコードをいくら書いても動くはずがありません。
インテリセンスの候補として出てこないならば、それはすでに
間違ったコードです。

インテリセンスが機能するようにコーディングするには
「ActiveSheet」などという表現を避けることです。

Dim ws As Worksheet
Set ws = Worksheets(1)
ws.

のようにしていけば、ピリオドを打った瞬間にインテリセンスが働いて
入力候補が出てきます。
ということは、入力候補にならないようなコードはダメだということです。

回答No.2

ichhabehunger

こんばんは。

でたらめなコードを書いて「やりたいことは次のコードのようです。」
と言われてもさっぱりわからないので、動かないコードを見せられるよりも
やりたいことを日本語で説明してもらった方がこちらはわかりやすいです。

「整数もしくは同一文字列がセットされています」も非常に分かりにくいですね。
特に「同一文字列がセットされています」とはいったいどういうことですか？

できればExcelのシートを画像として貼りつけるとかしてください。

回答No.1

imogasi

＞ColorIndex = 10
（オブジェクト）.（プロパティ）＝定数
（オブジェクト）.（メソッド）　引数
などのオブジェクトの考えが判っていないようだ。
＞Columns("C:C").Select
ではデータのない多数の行も無駄な処理をしてしまう。
まだVBAの課題をやるには早すぎると思う。
例題集などを本で見習うべき段階と思う。
ーー
また質問の件は、質問者が気づいていないだろう、色々なVBAの必要な知識が必要だ。
質問の件は色々な方法があるが、
Sub test02()
Dim cl As Range
d = Range("C65536").End(xlUp).Row
MsgBox d
For Each cl In Range("c2:C" & d)
If IsNumeric(cl) Then
If cl > 10 Then cl.Interior.ColorIndex = 3
MsgBox cl
End If
Next
End Sub
はわざと１０を超える、だけの区画にしている。
上記のコードの意味を理解し、2区間、３区間にふやすコードを勉強してください。