Excel VBA質問箱 IV

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

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


29399 / 76732 ←次へ | 前へ→

【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 質問
【52616】Re:Rangeの使用方法 かみちゃん 07/11/21(水) 18:17 発言
【52634】Re:Rangeの使用方法 美貴 07/11/22(木) 13:11 質問
【52636】Re:Rangeの使用方法 かみちゃん 07/11/22(木) 21:34 発言
【52679】Re:Rangeの使用方法 美貴 07/11/26(月) 10:05 発言
【52707】Re:Rangeの使用方法 ハチ 07/11/27(火) 9:08 発言
【52708】Re:Rangeの使用方法 美貴 07/11/27(火) 10:35 発言
【52709】Re:Rangeの使用方法 ハチ 07/11/27(火) 11:14 回答
【52711】Re:Rangeの使用方法 美貴 07/11/27(火) 12:02 お礼

29399 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free