excelVBAコードを教えていただけませんか

質問

excel2000です。

下記コードが簡単そうと思いつつ、いざやろうとすると自分では作ることができず投稿させていただきました。どうかご教授の程よろしくお願いいたします。

excel2000 VBAのコードを教えていただけませんか

・「差し込み表示.xls」から「実験データ」へ値を読みに行き、表示させようとしています。

一日だけの日付をする場合は、下記に記載しているようなコードで対応できるのですが、月を指定して、30(31)日分のデータを読みにいく場合、どういうコードに変更していいか分からず、投稿させていただきました。

■やりたいこと
・年月を「差し込み表示」のＥ１セルに記載して、データ読み込みを押すと、したのＮＯ１～３１(日付をあらわしています）にそれぞれ対応する値を表示させたい。

■現物ファイル
現物ファイルを、下記にＵＰさせて頂きました。差し支えなければ確認いただけると幸いです。よろしくお願いいたします。

■アップローダー 投稿NO4662
http://www.kent-web.com/pubc/book/test/uploader/uploader.cgi

■一日で読み込むときのプロシ－ジャー

Sub datatyuusyutu()

Const sashikomiDisplay As String = "差し込み表示.xls"
Const dataFile As String = "実験データ.xls"

Dim i As Long
Dim j As Long
Dim k As Long
Dim objectionrow As Long
Dim lastRow As Long
Dim targetDate As String
Dim targetTime As String
Dim data(1 To 43) As Double
Dim dataFindFlag As Boolean
Dim 対象フォルダ As String

'検索する年月日を取得
targetDate = Range("E5").Value
対象フォルダ = ThisWorkbook.Path & "\"
Workbooks.Open 対象フォルダ & dataFile
lastRow = Cells(Rows.Count, "B").End(xlUp).Row 'B列の最終行を得る
'年月日で検索
For i = 2 To lastRow
If Cells(i, 2) = targetDate Then
Cells(i, 2).Select
dataFindFlag = True
For k = 1 To 43
data(k) = Val(Cells(i, k))
Next k
Exit For
End If
Next i
Windows(sashikomiDisplay).Activate
With Workbooks(dataFile)
If dataFindFlag = True Then
Cells(1, 2) = data(1)
Cells(12, 3) = data(4)
Cells(14, 6) = data(5)
MsgBox "実行しました"
Else
MsgBox "データがありません"
End If
End With
Workbooks(dataFile).Close savechanges:=False
End Sub

回答No.3

keithin · ベストアンサー

解答したマクロの設計のコンセプト（着眼点）は，ご相談でヤリタイ事はわざわざマクロを使わなくても，関数式を埋めておくだけで実現できますよ，という事です。

その上で，それでもマクロを使うメリットとして挙げられるのは，結果抽出シートに重たい関数式（といってもマクロで書かせたのは少しでも軽く動作する式ですが）を抱えずに，データだけを転記（コピー）することで少しでもシートを軽くできるという点です。

そのため，解答したマクロは
１．関数式を記入し，計算させる
２．関数の計算結果を値化する
というステップを踏んでいます。

＞省略しても、同じ結果が出るように思えた

どうやらマクロで逐一コピーしてこなくても，関数を埋めておくだけで問題無さそうだと考えたのでしたら，解答したマクロがマクロの部分で行っている「小の月では３１日の行には計算結果を出さない」という部分も数式に組み込んで（若しくは条件付き書式などで代替する方法もあります），マクロはヤメにして数式だけで運用する方向に転換するのも良い方法だと思います。

あるいは実際にVLOOKUP等の数式を埋めて使ってみて，「やっぱり関数で計算させるのでは重たくてダメだ，値をコピーしてすっきり使いたい」という事が判ったなら，その時こそマクロの出番という事になります。

お礼

ご丁寧に回答くださいましてありがとうございます。

関数とマクロを最も最適なバランスで、融合した最も理想的なコードだと思います。こんなに素晴らしい回答に出会うことができて、私は本当についています。本当にありがとうございました。

さて、申し上げにくいことなのですが、
ご教授いただいたコードで該当する値がない場合のエラー表示「#N/A」をなくすために、値を読みにいくところを、下記コードに変更しようとしたのですが、どうしてもエラーとなってしまうため、再度質問をあげさせていただきました。
さらにご教授いただければ幸いです。

.Formula = "=IF(ISERROR(VLOOKUP($E$1-DAY($E$1)+$B5,[実験データ.xls]data!$B:$K,MATCH(C$4,[実験データ.xls]data!$B$1:$K$1,0))),"",VLOOKUP($E$1-DAY($E$1)+$B5,[実験データ.xls]data!$B:$K,MATCH(C$4,[実験データ.xls]data!$B$1:$K$1,0)))"

回答No.2

imogasi

既に回答も有るが、何度も質問しているようだが下記をお願いする。
（１）データ実例をテキストで質問に挙げる。
本件は画像で挙げているが拡大してもよく読めない。多数行・列データを盛り込むとぼやける。
（ＷＥＢにあるなら質問文に貼り付けては。）
多数行でなくても良いからテキストで質問文に入力してほしい。
（２）そしてデータの特徴は、文章で説明を添えること。
例　月を指定して　ということは(Ａ列で？）複数月のデータがあるのか
＞表示させようとしています
どのシートに書き出しのか？
データからＸＸつきのデータだけ抜き出して、別ブックのシートに書き出すのか。
インプットデータに当たるシートとアウトプットにアタラウシートは始のほうに、定義しておいたほうが
後のコード記述ではっきりさせることが出来て良いと思う。
例
Sub test02()
Set wb1 = Workbooks.Open("ＸＸＸ.xls")
Set Insh = wb1.Worksheets("Sheet2")
MsgBox Insh.Cells(3, "A")
End Sub
ーー
１行ずつ最終行まで読んでいるようだから、Ａ列でつきがＸＸ月でない行を読み飛ばしたら仕舞いではないのか。
参考
Sub test01()
For i = 1 To 3
MsgBox Month(Cells(i, "A"))
Next i
End Sub
去年の同月のデータもあれば年と同時に判断必要。
＝＝
疑問点、行き詰まった点に絞った質問にすること。（コードを貼り付けるのでなく、何を聞きたいのかしぼって書くこと）
ほとんど主旨は１行の文章で表現できる。

お礼

ご指摘ありがとうございます。
・画像の字の大きさの件了解いたしました。以後気をつけます。
・データの特徴について、具体的な動作事例を示すように致します。

自分でコードを作成しようとして、無駄に長い構文ができてしまい、動作せず、混乱してしまい投稿させていただきました。

私自身のレベルがもっと向上できれば質問の仕方も改善するとは思いますが、もう少しターゲットを明確にして質問するように気をつけます。

回答No.1

keithin

「（所定の日付の）データがない」という場合が実際にあり得る場合は，その旨機能を追加してください。

sub macro1()
　dim w as workbook
　dim mydate as date, mydays as long

　set w = workbooks.open(filename:=thisworkbook.path & "\実験データ.xls")

　mydate = thisworkbook.worksheets(1).range("E1")
　mydate = mydate - day(mydate) + 1　　’念のため。
　mydays = day(dateadd("M",1,mydate) - 1)
　thisworkbook.worksheets(1).range("C5:I35").clearcontents

　with thisworkbook.worksheets(1).range("C5").resize(mydays, 7)
　.formula = "=VLOOKUP($E$1-DAY($E$1)+$B5,[実験データ.xls]data!$B:$K,MATCH(C$4,[実験データ.xls]data!$B$1:$K$1,0))"
　.value = .value
　end with

　w.close savechanges:=false
end sub

お礼

keithin様
ありがとうございます。まさかここまで、すごく簡潔に短いコードでまとめ上げていただけるなんて、思いもよらなかったため、とても感動しました。

最後のほうの
.value = .value
の文は、省略しても、同じ結果が出るように思えたのですが、これはどういった意味があるのでしょうか、差し支えなければ、再度ご教授いただけると、ありがたいです。