Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

29405 / 76738

←次へ　｜　前へ→


	【52615】Rangeの使用方法

美貴 - 07/11/21(水) 17:51 -


	引用なし

	パスワード

こんにちはー
いつもお世話になっております。ペコリ

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

0 hits

▼

【52615】Rangeの使用方法 美貴 07/11/21(水) 17:51

≪