名前の定義の参照範囲の変更、追加

名前の定義の参照範囲の変更、追加

サンプルではデータ入力範囲にある名前が既に定義されている場合にはRefersToプロパティーを用いて参照...概要を表示 サンプルではデータ入力範囲にある名前が既に定義されている場合にはRefersToプロパティーを用いて参照範囲を再定義し、まだ定義されていない場合にはAddメソッドを用いて名前を定義しています。 Sub RedifineNameRef() Dim Rng As Range Dim Nam As Name With ActiveWorkbook Set Rng = .Sheets("Sheet1").Cells(1, 1).CurrentRegion On Error Resume Next 'エラー時には次の処理へ Set Nam = .Names("Nam1") If Nam Is Nothing Then 'If Err <> 0 Then ・・・でも同じ .Names.Add Name:="Nam1", RefersTo:="=Sheet1!" & Rng.Address, _ Vis

• VBA
• Excel