| |
超初心者です。基本知識が全くなく、本片手にコード丸写し状態
というレベルです。
多分検索値が日付なのが関係してる？
というとこまでは考えて、本を行きつ戻りつ
読んでみましたが、さっぱり。。。
どう質問していいのかも、よくわかってません。。
こんなんですみませんが‥教えてください。
"C4"のセルに日付を入れ、データテーブルから該当の日付のデータを
検出したいですが。
Sub 検索()
Dim tmpInt As Integer, motoHani(), myRng As Range, i As Integer
tmpInt = Worksheets("変動費入力シート").Range("C4").Value
motoHani = Array("C7", "D7", "E7", "F7", "G7", "H7", "C11", " D11", "E11", "F11", "G11", "H11")
Set myRng = Range("変動費データテーブル").Columns(1).Find(tmpInt, LookAt:=xlWhole)
If myRng Is Noshing Then
MsgBox "入力されていません。入力してください。"
Exit Sub
End If
For i = 0 To UBound(motoHani)
Range(motoHani(1)).Value = myRng.Offset(0, i + 1)
Next
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
