Excel2000VBA 選択範囲の空白セルに移動する。 実験

Excel2000VBA 選択範囲の空白セルに移動する。　実験

 

再生できない場合、ダウンロードは🎥こちら

 

Sub 選択範囲空白セルに移動()

'選択範囲の空白セル（数式が設定せれたない）を選択する

'For Each In（ステートメント） で選択範囲を順番に調べる

'HasFormula（プロパティ） で数式が設定せれているか調べる。返り値　True False　Null

'ActiveWindow.ScrollRow　でスクロール

 

    Dim myR As Range

 

    On Error GoTo owari

 

'For Each In で選択範囲を順番に調べ、空白で(and)数式の無いセルを選択し終了

    For Each myR In Selection

        If myR.Value = "" And myR.HasFormula = False Then myR.Select: ActiveWindow.ScrollRow = myR.Row - 15: Exit Sub

    Next myR

'空白セルがなかったら、メッセージ

    MsgBox "選択範囲に未記入セルは有りません。": Exit Sub

'スクロールエラー対策 ActiveWindow.ScrollRow = myR.Row - 15がマイナスになった時のエラー対策

owari:

    If Err.Number = 1004 Then myR.Select

End Sub