vba - Excel / VBA：引数として単一のセルを渡す

Question

カスタムVBA関数が単一セルの引数のみを受け入れるようにしたい。それを行う正しい方法は何ですか：

• パスmyCell as Cell

また：

• myRange as Rangeデフォルトで左上のセルを渡して（どのように？）取得しますか？

Answer 1

複数のセルを選択すると、関数は終了します。

Function AcceptOneCell(rng As Range)

If (rng.Cells.Count > 1) Then
    AcceptOneCell = "Only allow 1 cell"
    Exit Function
End If

    ' your code here

End Function

Answer 2

ユーザーが複数の列と行を持つ範囲を入力すると仮定すると、次のチェックを実行して、質問で意図したとおりに関数を終了できます...

Function myFunction(ByRef myCell as Range) as SomeDataType_of_your_choice
Dim numRow as Long, numCol as Long

numRow = myCell.Columns.Count 
numCol = myCell.Rows.Count 

If numRow > 1 or numCol > 1 Then
   MsgBox "Only one cell is accepted"
   Exit Function    
Else
   '-- do other stuff you want to do here
End If
End Function

Answer 3

topLeftValue = myRange.Cells(1, 1).Value

Answer 4

1セルを超える範囲に合格した場合でも続行できるように、自分の関数/サブ内に以下の範囲チェックを追加しました。これにより、複数のセルを持つ範囲が関数に渡される場合に、左上のセルが強制的に選択されます。これは他の回答への代替パスであり、代わりに現在の関数を終了します。

Sub DoSomethingWithCells(StartCell As Range)
'Ensure that only the first cell of range is selected

If (StartCell.Cells.Count > 1) Then
    'Select only the first cell
    StartCell = StartCell.Cells(1, 1).Address
End If

'Do whatever you need to do here

End Sub

Answer 5

numRow = myCell.Columns.Count 

numCol = myCell.Rows.Count 

する必要があります

numColum = myCell.Columns.Count 

numRow = myCell.Rows.Count