'自作VLOOKUP関数。完全一致専用
Function myLookUp(検索値これは検索範囲の一番左列, 検索範囲 As Range, 列番号 As Long)
Dim ar()
ar = 検索範囲
Dim i As Integer '行だけ
For i = 1 To UBound(ar, 1) '行の処理
If 検索値これは検索範囲の一番左列 = ar(i, 1) Then
myLookUp = ar(i, 列番号)
Exit Function
End If
Next
End Function
'?myLookUp("ken", Range("e4:h12"), 2)
ややこしい関数も自作でいこう！。これは自作でないとできない。それにとっても自由。
'自作VLOOKUP関数
Function myLookUp2(検索値, 検索列番号, 全範囲 As Range)
Dim ar()
ar = 全範囲
Dim i As Integer, j As Integer
ReDim arr(1 To 100, 1 To 100)'10000とかすると飛びます
Dim ii As Integer 'arrの行番号用、列はjを使う
For i = 1 To UBound(ar, 1)
j = 1
If VBA.CStr(ar(i, 検索列番号)) Like 検索値 Then
ii = ii + 1
For j = 1 To UBound(ar, 2)
arr(ii, j) = ar(i, j)
Next
End If
Next
myLookUp2 = arr
End Function
'?myLookUp2("*k*", 3,Range("e4:h12"))(0,0)
Function myAddress()
myAddress = Excel.Application.ThisCell.Address(0, 0) '0はFalseでも同じ。0が無いと絶対表示$A$1になる
End Function
Function myCells()
myCells = "Cells(" & Excel.Application.ThisCell.Row & "," & Excel.Application.ThisCell.Column & ")"
End Function
