ステートメント制御文の使用例3


使用例3

可変のデータベースの範囲から、ある数値データを検索し、その抽出セルの
絶対参照を、別の縦1列に列記する。


  
Sub statmen3() Dim B, E, F, T As Range Dim r As Long Application.ScreenUpdating = False '画面のちらつきの抑止 Set F = Range("F2") '検索値 r = ActiveSheet.Rows.Count 'ワークシート最下セル列 Range("A4").CurrentRegion.Select 'データベース範囲 Set T = Selection.Offset(1, 1). _ Resize(Selection.Rows.Count - 1, _ Selection.Columns.Count - 1) 'データ検索範囲 For Each E In T 'F列入力セル選択 Set B = Cells(r, 6).End(xlUp).Offset(1) If F.Value = E.Value Then B.Value = E.Address() Next Range("F2").Select Application.ScreenUpdating = True '画面のちらつきの抑止解除 End Sub back top