|
▼よしの さん:
>'Do セルが空セルだ
> 'If セル結合されてる
> '○ひとつしたのセルへ
> 'ElseIf セル結合されていない
> 'Selection.Offset(1, 0).Select
> 'End If
>'ElseIf セルが空セルでない
> 'IF 検索してセルと同じ名前のフォルダがある
> 'If 検索してセルと同じ名前のファイルがある
> '○ファイル元からコピーして所定の場所に保存
> 'ElseIf 検索してセルと同じ名前のファイルがない
> '○セルにいろをつける
> '○次のセルに移動
> 'End if
> 'ElseIF 検索してセルと同じ名前のフォルダがない
> '○フォルダの作成
> '○ファイル元からコピーして所定の場所に保存
> 'End If
>
>この一連の処理を、選択したセルの下に
>何もない(間に何個か空セルを入れて、値があったら駄目)
>セルまで繰り返したいのですが、どうしても分かりません・・・
もう少し条件を整理したほうがコメントが付き易いと思いますよ。
1.結合セルと空白セルは無視する。 ってことですか?
2.ファイルとフォルダの関係がよくわかりません。
3."検索して"は、別ファイル名(フォルダ名)を検索するのですか?
4.ファイル元から「何を」コピーしてどこが「所定の場所」なのでしょうか?
|
|