Excel VBA質問箱 IV

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

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


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

32769 / 76734

←次へ　｜　前へ→


	【49198】実行時エラー6　オーバーフローしました。。何故？

なつ - 07/5/27(日) 13:42 -


	引用なし

	パスワード

超初心者です。基本知識が全くなく、本片手にコード丸写し状態
というレベルです。
多分検索値が日付なのが関係してる？
というとこまでは考えて、本を行きつ戻りつ
読んでみましたが、さっぱり。。。

どう質問していいのかも、よくわかってません。。

こんなんですみませんが‥教えてください。

"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

1 hits

▼

【49198】実行時エラー6　オーバーフローしました。。何故？ なつ 07/5/27(日) 13:42

≪