2

セルの範囲をループして、セルが数値かどうかを確認する方法を探しています。日付は実際には数字であることを認識しており、日付の数を検索します。たとえば、範囲 ("A2:A10") を確認し、セルが数値の場合は、datecount 変数に 1 を追加するとします。ISNUMBER() 関数は、特定の数値を探している場合にのみ役立つようです。しかし、私は任意の番号を探しています。

Sub Main()

Dim Datecount As Integer
Datecount = 0

Range("A2").Select
For Each c In Range("2:2")
    If c.Value.IsNumber() Then
        Datecount = Datecount + 1

Next

End Sub

上記は、私が助けを必要としている最も重要なことです。あなたがそれを手伝うことができれば、素晴らしいです！この次の部分を手伝っていただければ、それも素晴らしいことです。基本的に、セルが上記のような数値かどうかを確認したいと思います。でも今回は、数字でなければループを抜けたい。

Dim Datecount As Integer
Datecount = 0

Range("A2").Select
For Each c In Range("2:2")
    If c.Value.IsNumber() Then
        Datecount = Datecount + 1
    ElseIf
        Exit For
    End If
Next

End Sub
4

3 に答える 3

0

これを試して：

Sub flexRange()

'range は拡張可能 Range("b2").Select i = 0

Do Until ActiveCell = ""
    If IsNumeric(ActiveCell.Value) Then i = i + 1
    ActiveCell.Offset(1, 0).Select
Loop
MsgBox "I found_" & i & "_Numeric element"

End Sub
于 2013-06-24T21:03:38.393 に答える