| |
▼ハチ さん：
>▼よしの さん：
>>'Do セルが空セルだ
>> 'If セル結合されてる
>> '○ひとつしたのセルへ
>> 'ElseIf セル結合されていない
>> 'Selection.Offset(1, 0).Select
>> 'End If
>>'ElseIf セルが空セルでない
>> 'IF 検索してセルと同じ名前のフォルダがある
>> 'If 検索してセルと同じ名前のファイルがある
>> '○ファイル元からコピーして所定の場所に保存
>> 'ElseIf 検索してセルと同じ名前のファイルがない
>> '○セルにいろをつける
>> '○次のセルに移動
>> 'End if
>> 'ElseIF 検索してセルと同じ名前のフォルダがない
>> '○フォルダの作成
>> '○ファイル元からコピーして所定の場所に保存
>> 'End If
>>
>>この一連の処理を、選択したセルの下に
>>何もない（間に何個か空セルを入れて、値があったら駄目）
>>セルまで繰り返したいのですが、どうしても分かりません・・・
>
>もう少し条件を整理したほうがコメントが付き易いと思いますよ。
>1.結合セルと空白セルは無視する。 ってことですか？
はい！そうです！
>2.ファイルとフォルダの関係がよくわかりません。
あるセルの値を参照して、それと同じ名前のファイルを
別のフォルダから探して、新たに作ったフォルダに名前を変えてコピー
したいです！
>3."検索して"は、別ファイル名（フォルダ名）を検索するのですか？
デスクトップにフォルダがすでにあるかないか。
それと、ある元のフォルダに、コピーするための
ファイルが存在するかどうかです！
>4.ファイル元から「何を」コピーしてどこが「所定の場所」なのでしょうか？
すみません・・・・全然知識がないですが、
明日までには仕上げないといけませんT T
よろしくおねがいたします。
|
|
よしの
- 06/4/20(木) 21:37 -
