Excel VBA質問箱 IV

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

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


44691 / 76732 ←次へ | 前へ→

【37056】Re:この処理についてですが・・・・
発言  Jaka  - 06/4/20(木) 13:16 -

引用なし
パスワード
   全然解らないですけど...。
組み方が解らないって事だとして、大体こんな感じ。
まんまの説明でいいのか解らなかったんで、所々コードを入れました。

i = 1 '行カウンタに1
'セルA列i行目のセルが空白になるまで繰返し
Do Until Cells(i,1).Value = ""
  'セルA列i行目が結合セルでなかったら
  If Not Cells(i,1).MergeArea then
   'セルA列i行目に書いてあるフォルダ(フルパス)があれば
   If Dir(Cells(i,1).value,vbDirectory) <> "" then
     'セル???に書いてあるファイルがあれば
     IF Dir(Cells(i,1).value & "\" & Cells(?,??).value) <> "" then
      ○ファイル元からコピーして所定の場所に保存
     Else
      ○セルにいろをつける
     End If  
   Else 'フォルダがなければ、フォルダ作成
     MkDir (Cells(i,1).value)
     ○ファイル元からコピーして所定の場所に保存
   End if
  Endif
  i = i + 1 '行カウンタに+1
Loop

1 hits

【37029】この処理についてですが・・・・ よしの 06/4/20(木) 0:39 質問
【37050】Re:この処理についてですが・・・・ ハチ 06/4/20(木) 10:49 発言
【37078】Re:この処理についてですが・・・・ よしの 06/4/20(木) 21:37 発言
【37096】Re:この処理についてですが・・・・ ハチ 06/4/21(金) 9:33 質問
【37104】Re:この処理についてですが・・・・ ハチ 06/4/21(金) 15:03 回答
【37113】Re:この処理についてですが・・・・ よしの 06/4/22(土) 2:01 質問
【37056】Re:この処理についてですが・・・・ Jaka 06/4/20(木) 13:16 発言

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