Excel VBA質問箱 IV

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

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


81 / 75375 ←次へ | 前へ→

【80944】Re:指定のシートがあれば処理を行い、無ければ次のフォルダを開く時
発言  Jaka  - 19/6/24(月) 10:41 -

引用なし
パスワード
   >  With Workbooks.Open(f)
>   For Each ws In Worksheets
          ↑
        .がない。
     Openしたばかりのアクティブブック対象となるので
     同じようのは動くけど。

この辺↓、なんかフラグつかったりごちゃごちゃしすぎに感じません?

>  For Each ws In Worksheets
>   If ws.Name = "A" Then flag = True
>  Next ws
>  If flag = False Then Close
>  If flag = True Then
   
>    With .Worksheets("A")

こんな感じで良いと思うけど?

  For Each ws In Worksheets
   If ws.Name = "A" Then
    With ws
       i = 2
      Do While .Cells(i, 1).Value <> ""
        Sheet1.Cells(j, 1).Value = .Cells(i, 1).Value
        Sheet1.Cells(j, 2).Value = .Cells(i, 2).Value
        Sheet1.Cells(j, 3).Value = .Cells(i, 3).Value
        Sheet1.Cells(j, 4).Value = .Cells(i, 4).Value
        Sheet1.Cells(j, 5).Value = .Cells(i, 5).Value
        Sheet1.Cells(j, 6).Value = .Cells(i, 6).Value
        Sheet1.Cells(j, 7).Value = .Cells(i, 7).Value
        Sheet1.Cells(j, 8).Value = .Cells(i, 8).Value
        Sheet1.Cells(j, 9).Value = .Cells(i, 9).Value
        Sheet1.Cells(j, 9).Value = .Cells(i, 10).Value
        i = i + 1
        j = j + 1
      Loop
     end with
   end if
  next

因みに
フラグを立てる flag = True
フラグを降ろす flag = False
   (下すって変換されちゃってたけど)

26 hits

【80926】指定のシートがあれば処理を行い、無ければ次のフォルダを開く時 fika 19/6/21(金) 14:06 質問[未読]
【80927】Re:指定のシートがあれば処理を行い、無け... Jaka 19/6/21(金) 14:54 発言[未読]
【80928】Re:指定のシートがあれば処理を行い、無け... Jaka 19/6/21(金) 15:04 発言[未読]
【80943】Re:指定のシートがあれば処理を行い、無け... fika 19/6/24(月) 8:24 発言[未読]
【80944】Re:指定のシートがあれば処理を行い、無け... Jaka 19/6/24(月) 10:41 発言[未読]
【80945】Re:指定のシートがあれば処理を行い、無け... fika 19/6/24(月) 12:44 お礼[未読]
【80946】あ・・・・。 Jaka 19/6/24(月) 18:02 発言[未読]
【80947】等幅忘れた。 Jaka 19/6/24(月) 18:05 発言[未読]

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