|
▼じん さん:
>こちらのマクロで動いたのは動いたのですが、
>L列に一つだけしか入ってない場合
>ReDim sa(1 To UBound(v), 0) As String
>の部分で型が一致しませんと出ます‥
>
>すいません、もう少しお付き合いください。
これまでに メインの処理(Select Case〜End Select)部分はほとんど同じで
実行方法が異なる 2つのコードをお見せしました。ひとつは、
>Sub 範囲セット()
で、実行したいときに手動で[マクロの実行]をするものです。
もうひとつは、そのあと提案した
> '// L列にデータが追加/更新/削除があったら自動実行する
> Private Sub Worksheet_Change(ByVal Target As Range)
のほうで、こちらはシートに書いておくと、L列にデータが入力されたり
セル消去があったりしたとき「自動で」処理がなされるものです。
こちらのほうは対象セルが1つでもエラーにはなりません。
もし
> Private Sub Worksheet_Change(ByVal Target As Range)
ではまずいということであれば、
> Sub 範囲セット()
のほうを手直ししますが、
> Private Sub Worksheet_Change(ByVal Target As Range)
をまだお試しになっていないのなら、一度これも試されてみて、それから
どちらの方式でいくか、判断されてはどうでしょう。
|
|