Excel VBA質問箱 IV

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

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


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

32647 / 76734

←次へ　｜　前へ→


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

Jaka - 07/5/31(木) 11:22 -


	引用なし

	パスワード

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

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

すみません。
この辺の意味合いがよく解りません。
BOOK2の４月は書き換えてますけど...。

単にＢＯＯＫ１、ＢＯＯＫ２のデータを転記.xls（シート名は一覧）に追加していくだけじゃないんですか？
のつもりでいじってみたけれど、意味合いがわかってないので、外れていると思います。

Sub kousin()
　　Dim thename As String
　　Dim thedir As String
　　Dim thebook As Workbook
　　Dim AROW As Long　　'シートの行に対しては、Longが安全。
　　Dim myarray As Variant
　　Dim i As Integer

　　Dim EROW As Long
　
　　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, Len(thename) - 4)

　　　 With thebook.Worksheets("データ")
　　　　　　For i = 1 To 3
　　　　　　　　If Val(.Cells(1, i).Value) > 4 Then
　　　　　　　　　 ThisWorkbook.Worksheets("一覧").Cells(AROW + 1, 1 + i).Value = .Cells(1, i).Value
　　　　　　　　End If
　　　　　　Next i
　　　 End With

　　　 thebook.Close savechanges:=False
　　　 thename = Dir()
　　 Loop

　　 Application.ScreenUpdating = True
End Sub

3 hits

▼

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