Excel VBA質問箱 IV

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

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


39813 / 76732 ←次へ | 前へ→

【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 質問
【42025】Re:転記について勉強中です ponpon 06/8/29(火) 23:27 発言
【42026】Re:転記について勉強中です あみん 06/8/29(火) 23:46 お礼
【42029】Re:転記について勉強中です ponpon 06/8/30(水) 0:07 発言

39813 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free