|
こんにちはー
いつもお世話になっております。ペコリ
lookupウイザードを自前で作ろうとしたのですが、
Rangeの使い方が悪くって、先へ進めません (>_<)
オブジェクトを指定下さい。とかのエラーが
出てしまいます。
もう、何がなんだか分かりません!!
ご教示お願い致しますぅ〜
Sub lookupウイザード()
'
'
検索行 = ""
検索行 = Application.InputBox("検索行の先頭セルを入力して下さい。", _
タイトル, ActiveCell.Offset(0, -1).Address(False, True, xlA1, False), _
offset値x, offset値y, , , 8) _
.Address(False, False, xlA1, True)
If 検索行 = "" Then
Exit Sub
End If
検索列 = ""
検索列 = Application.InputBox("検索列の先頭セルを入力して下さい。", タイトル, _
ActiveCell.Offset(1, -1).Address(False, True, xlA1, False), offset値x, offset値y, , , 8) _
.Address(False, False, xlA1, True)
If 検索列 = "" Then
Exit Sub
End If
'ここでエラー!!
検索対象 = Range(Cells(検索行.Row, 検索列.Column), Cells(検索行.Row + 1000, 検索列.Column + 200))
対象行ベクトル = Range(Cells(検索行.Row, 検索行.Column), Cells(検索行.Row + 1000, 検索行.Column))
対象列ベクトル = Range(Cells(検索列.Row, 検索列.Column), Cells(検索列.Row, 検索列.Column + 200))
数式 = "=INDEX(" & 検索対象.Address(True, True, xlA1, True) & ",MATCH($A4," _
& 対象行ベクトル.Address(True, True, xlA1, True) & ",0),MATCH(E$2," _
& 対象列ベクトル.Address(True, True, xlA1, True) & ",0))"
MsgBox 数式
ActiveCell.Formula = 数式
End Sub
|
|