Excel VBA質問箱 IV

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

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


19492 / 76732 ←次へ | 前へ→

【62671】Re:空白セルの有無を調べるには
発言  kanabun  - 09/8/20(木) 19:15 -

引用なし
パスワード
   ▼にしもり さん:
こんにちは。

>  Range("A3").Select
>  r = .Row.Count
>  '↑ここでエラーがでます。

う〜ん、、ドットの前のオブジェクトが指定されてないから、
Excelは何の.Row.Count か分からないからです。
また、
Rangeオブジェクトの.Rowプロパティは行番号を返すもので、
そこには .Countというプロパティもありませんから、2重の構文
エラーとなってます。


> 範囲に空白セルが少なくとも1個あるか無いかを

  Dim myRange As Range
  Dim n As Long

  With ActiveSheet
    Set myRange = Intersect(.UsedRange, _
           .UsedRange.Offset(2), .Columns("R:S"))
    MsgBox myRange.Address(0, 0)
    n = WorksheetFunction.CountBlank(myRange)
    If n > 0 Then
      MsgBox "空白セルが " & n & "個あります"
    Else

    End If
  End With

のように書いたらどうでしょう?

1 hits

【62670】空白セルの有無を調べるには にしもり 09/8/20(木) 18:52 質問
【62671】Re:空白セルの有無を調べるには kanabun 09/8/20(木) 19:15 発言
【62672】Re:空白セルの有無を調べるには kanabun 09/8/20(木) 19:17 発言
【62673】Re:空白セルの有無を調べるには にしもり 09/8/21(金) 9:59 お礼

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