Excel VBA質問箱 IV

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

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


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

32665 / 76734

←次へ　｜　前へ→


	【49303】一部更新しないマクロをつくりたい

かつこ - 07/5/30(水) 20:29 -


	引用なし

	パスワード

こんばんは。

BOOK1.xls　　　　(シート名データ）　　　　　　　　
4月　　　　5月　　　　6月　　　　
100　　　　200　　　　300　　　　

BOOK２.xls　　　　　　　　　　　　
4月　　　　5月　　　　6月　　　　
300　　　　400　　　　500　　　　

転記.xls（シート名は一覧）
　　　　4月　　　　5月　　　　6月
BOOK1　　　　100　　　　200　　　　300
BOOK2　　　　300　　　　400　　　　500

ひとつのフォルダにBOOK1やBOOK2のような形式のファイルが
多くあります。
それを転記.xlsに転記しています。

もしBOOK1の4月が100→150にかわったら
私の書いたコードでは
転記.xlsのBOOK1の4月は150になります。

が、今現在(5月）以前のデータに
関しては数字を固定させたいのです。
150と変更しても変更しないようなマクロに
仕上げたいのですが
どのような方法がありますでしょうか？

現在(5月）以降は・・たとえば
BOOK1の6月が300→350に変われば
転記.xlsの6月は350にしたいです。

よろしくおねがいいたします。

Sub kousin()
　　Dim thename As String
　　Dim thedir As String
　　Dim thebook As Workbook
　　Dim AROW As Integer
　　Dim myarray As Variant
　　Dim i As Integer
　　
　　Application.ScreenUpdating = False
　　thedir = "C:\documents and settings\kousin"
　　thename = Dir(thedir & "\*.xls")
　　
　　Do While thename <> ""
　　　 Set thebook = Workbooks.Open(thedir & "\" & thename)
　　　 AROW = ThisWorkbook.Worksheets("一覧").Range("A65536").End(xlUp).Row
　　　 ThisWorkbook.Worksheets("一覧").Cells(AROW + 1, 1).Value = _
　　　　　　　　　　Left$(thename, len8thename - 4)
　　　　　　　　　　
　　　 With thebook.Worksheets("データ")
　　　　　　myarray = Array(.Range("B2"), .Range("C2"), .Range("D2"))
　　　　　　　For i = 1 To 3
　　　　　　　　　ThisWorkbook.Worksheets("一覧").Cells(AROW + 1, 1 + i) _
　　　　　　　　　　　　　　 .Value = myarray(i)
　　　　　　　Next i
　　　 End With
　　　
　　　 thebook.Close savechanges:=False
　　　 thename = Dir()
　　 Loop
　　
　　 Application.ScreenUpdating = True
　　
End Sub

2 hits

▼

【49303】一部更新しないマクロをつくりたい かつこ 07/5/30(水) 20:29

≪