Excel VBA質問箱 IV

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

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


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

39819 / 76738

←次へ　｜　前へ→


	【42025】Re:転記について勉強中です

ponpon - 06/8/29(火) 23:27 -


	引用なし

	パスワード

▼あみんさん：
>フォルダに10個ほどのファイルがあります。
>各ファイルのSheet1のA1：A10には日にち（例：16日）が入っており
>B1：B10には金額（例：\12000)が入っています。
>もし検索で16日があれば
>worksheets("宿泊")、のA列にファイル名を、金額をB列に書いていきたいのです。
ある場合は、16日の横（B列）の金額を書くの？
>なければworksheets("確認")のA列にファイル名を、金額をB列に書いていきたいのです。
の意味ならば、ない場合、何の金額を書けばよいのでしょうか？
それと"16日"は、文字列でしょうか？
それともシリアルの日だけを表示しているのでしょうか？

Sub 転記()
　　Dim thname As String
　　Dim theDir As String
　　Dim thebk As Workbook
　　Dim FR As Variant
　
　　Application.ScreenUpdating = False
　　theDir = "\\cara\コンビ\料金一覧"
　　thname = Dir(theDir & "\*.xls")
　
　　Do While thname <> ""
　　　　Set thebk = Workbooks.Open(theDir & "\" & thname)
　　　　FR = Application.Match("16日", thebk.Worksheets("Sheet1").Range("A1:A10"), 0)
　　　　If IsError(FR) Then
　　　　　 With ThisWorkbook.Sheets("確認").Range("A65536").End(xlUp).Offset(1)
　　　　　　.Value = thebk.Name
　　　　　 End With
　　　　Else
　　　　　 With ThisWorkbook.Sheets("宿泊").Range("A65536").End(xlUp).Offset(1)
　　　　　　.Value = thebk.Name
　　　　　　.Offset(, 1).Value = thebk.Worksheets("Sheet1").Cells(FR, 2).Value
　　　　　 End With
　　　　End If
　　　　thebk.Close savechanges:=False
　　　　thname = Dir()
　　Loop
　　Application.ScreenUpdating = True

End Sub

0 hits

▼

【42024】転記について勉強中です あみん 06/8/29(火) 22:42