Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

51112 / 76732

←次へ　｜　前へ→


	【30494】Re:最終行取得のところで

hine - 05/10/28(金) 17:38 -


	引用なし

	パスワード

りんご3 さん
Kein さん
こんにちは

kein さん
後ろから失礼します。お許し下さい。

範囲が狭いので総当りではどうでしょうか？
勘違いならすいません。

Sub Test()

Dim myR As Range
Dim myH As Boolean
Dim myS As Boolean
Dim i As Variant

myH = True
myS = True

With Worksheets("Sheet1")
　　Set myR = .Range("C13:C27")
　　For Each i In myR
　　　　If i.Value <> "" And i.Offset(0, 5).Value = "" Then
　　　　　　myH = False
　　　　End If
　　　　If i.Value = "" And i.Offset(0, 5).Value <> "" Then
　　　　　　myS = False
　　　　End If
　　Next
　　
　　If myS = False Then
　　　　MsgBox "C列未入力"
　　End If
　　If myH = False Then
　　　　MsgBox "H列未入力"
　　End If
　　If myS = True And myH = True Then
　　MsgBox "入力OK"
　　End If
End With

Set myR = Nothing
End Sub

keinさん失礼しました。

0 hits

▼

【30484】最終行取得のところで りんご3 05/10/28(金) 16:10