|
▼ハチ さん:
>▼よしの さん:
>>'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
よろしくおねがいたします。
|
|