Excel Rangeが行全体または列全体を表すかどうかをVBAでどのように確認できますか？

Question

与えられたRangeオブジェクトが完全に列全体であるか全行であるか、または2つのうちのどれでもないかどうかを判断する必要があります。

私が今行うことは、私のために働く次のコードに基づいています。

If Range.Rows.Count = Range.EntireColumn.Rows.Count Then 
... 
ElseIf Range.Columns.Count = Range.EntireRow.Columns.Count Then 
... 
End If 

もっと効率的かつ/またはエレガントなやり方があるかどうか知りたいですか？おそらく、私が見落としてきたいくつかの組み込みプロパティですか？

UPDは：

Worksheet.Range("NamedRange") 

ありがとう：私は範囲を取得します。

Answer 1

あなたはこのようなものを使用することができます

ので、あなただけの行をカウントする必要があります。Excelの定数（Excelのバージョンによって異なります）されている行と列の

Sub somethinglikethis() 

    Dim rRange As Range 

    Set rRange = Range("A:A") 

    With rRange 
     If .Rows.Count = 1048576 And .Columns.Count < 16384 Then 
      Debug.Print "Range represents Column(s)" 
     ElseIf .Rows.Count < 1048576 And .Columns.Count = 16384 Then 
      Debug.Print "Range represents row(s)" 
     ElseIf .Rows.Count = 1048576 And .Columns.Count = 16384 Then 
      Debug.Print "Range represents whole sheet" 
     Else 
      Debug.Print "Range represents none of row(s) or column(s)" 
     End If 
    End With 

End Sub 

量を範囲内の列とこれらの値を行と列の既定値と比較する

Answer 2

これはすべてのExcelバージョンで有効です。

Function cellsInRange(rng As Range) As Boolean 

    Dim cellsInCol As Long, cellsInRow As Long, cols As Long, count As Long, rws As Long 

    With ActiveSheet 
     cellsInCol = .Columns("A").Cells.count 
     cellsInRow = .Rows(1).Cells.count 
    End With 

    With rng 
     cols = .Columns.count 
     count = .Cells.count 
     rws = .Rows.count 
    End With 

    If cols = 1 And count = cellsInCol Then 
     cellsInRange = True 
    ElseIf rws = 1 And count = cellsInRow Then 
     cellsInRange = True 
    End If 

End Function 

編集

を、より具体的な詳細は、範囲のオブジェクトについて必要とされる場合は、以下の適応が有用であることを証明し得る：

Function cellsInRange(rng As Range) As String 

    Dim cellsInCol As Long, cellsInRow As Long, cols As Long, count As Long, rws As Long 

    With ActiveSheet 
     cellsInCol = .Columns("A").Cells.count 
     cellsInRow = Rows(1).Cells.count 
    End With 

    With rng 
     cols = .Columns.count 
     count = .Cells.count 
     rws = .Rows.count 
    End With 

    If cols = 1 And count = cellsInCol Then 
     cellsInRange = "Single column" 
    ElseIf rws = 1 And count = cellsInRow Then 
     cellsInRange = "Single row" 
    Else 
     cellsInRange = "Neither single column nor single row" 
    End If 

End Function 

Answer 3

あなたはrng.Address(0,0)を解析することができるかもしれ。（というよりもVBA）英語中：

s = rng.Address(0,0) 
If s contains no letters then rng contains only full rows 
If s contains no numbers then rng contains only full columns 

Answer 4

私の0,02セント

Select Case rng.Address 
    Case rng(1).EntireColumn.Address 
     MsgBox "column" 
    Case rng(1).EntireRow.Address 
     MsgBox "row" 
End Select 

rngは何をやっているRangeタイプ