即効テクニック |
サンプルマクロは、ブック内に定義されているセル範囲の名前とその参照範囲を表示します。 Excel97とExcel2000では、若干コードが違います。
Sub Sample() Dim myName As Name Dim strName As String For Each myName In Names strName = strName & vbCrLf & myName.Name & myName Next 'Excel2000の場合 If InStr(3, strName, vbCrLf) <> 0 Then strName = Mid(strName, InStr(3, strName, vbCrLf) + 2) MsgBox strName Else MsgBox "名前は定義されていません。" End If 'Excel97の場合 'If strName <> vbNullString Then 'strName = Mid(strName, 2) 'MsgBox strName 'Else 'MsgBox "名前は定義されていません。" 'End If End Sub