Excel97 VBA セルに付けた名前一覧を作成する

====*====*====*====*====*====*====*====*====*====*====*====*====*====*====*=
[ 三流ＰＧ 番外編 今日の一品 No.015 ] 　 2000/03/23 木曜日  発送予定
=*====*====*====*====*====*====*====*====*====*====*====*====*====*====*====
三流ＰＧ 番外編 今日の一品 は 隠し味として、
軽めのＶＢＡ関係のサブルーチンを載せていきたいと思います。
----------------------------------------------------------------------------
Excel97 VBA セルに付けた名前一覧を作成する

またまた、読んでいただいてすみません。
新人教育なってないのに、メルマガ発行中のＫｅｎ３です。

前回、セルに名前を付けると便利です、、、と書きました。
まぁ、よくある話で、名前と番地の一覧を作成して納品してほしい
と客先から要望があったので、作ってみました。
＊納品物を楽して作るのも大切です。。。

'---- Excel97 VBA でテストしました　-----
Const SX = 4    '書き込み開始座標 X
Const SY = 3    '書き込み開始座標 Y

Public Sub TESTMAIN()
    MAKE_NAMELIST ("D:\test.xls")  '調査したいファイル名を渡す
End Sub

'調査ファイル名を受け取り、名前リストデータを作成する
Public Sub MAKE_NAMELIST(fName As String)
                
    Dim i        As Long
    Dim nCnt     As Long
    Dim strSHEET As String
    Dim strNAME  As String
    Dim strRANGE As String
    Dim wksSET   As Worksheet  'ワークシート変数
    
    '書きこみ先のブックを作成し、シートを追加
    Workbooks.Add
    Sheets.Add
    '追加した新規のシートを変数に代入
    Set wksSET = ActiveWorkbook.ActiveSheet
    wksSET.Name = "NameList" 'シート名変更
    '列見出しを付ける
    wksSET.Cells(SY - 1, SX) = "Sheet"
    wksSET.Cells(SY - 1, SX + 1) = "Name"
    wksSET.Cells(SY - 1, SX + 2) = "Range"
    
    '調査ファイルを開く
    Workbooks.Open FileName:=fName, UpdateLinks:=0
            
    'Nameの数
    nCnt = ActiveWorkbook.Names.Count
    
    '名前、シート名、範囲を取得
    For i = 1 To nCnt
        strSHEET = "'" & ActiveWorkbook.Names(i).RefersToRange.Worksheet.Name
        strNAME = ActiveWorkbook.Names(i).Name
        strRANGE = ActiveWorkbook.Names(i).RefersToRange.Address
        
        If strSHEET & strNAME & strRANGE <> "" Then
            wksSET.Cells(SY + i - 1, SX).Value = strSHEET
            wksSET.Cells(SY + i - 1, SX + 1).Value = strNAME
            wksSET.Cells(SY + i - 1, SX + 2).Value = strRANGE
        End If
    Next
            
    'アクティブなブック、調査ファイル（当たり前だろ）を閉じる
    ActiveWorkbook.Close SaveChanges:=False
    
    '頭に戻す
    wksSET.Cells(SY, SX).Select

    Set wksSET = Nothing

End Sub
'---------------------------------

ポイントは、始めて使用したのですが、
Dim wksSET   As Worksheet  'ワークシート変数
で、ワークシート変数？が取れます。
Set wksSET = ActiveWorkbook.ActiveSheet
で、現在のシートを変数に代入しています。

あとは、
RefersToRange.Worksheet.Name
RefersToRange.Address
をヘルプで調べて、使用しただけです。

みなさんも、いろいろ、試してみてください。
＊面白い使用方法、など見つかったら、教えてください。

調子にのって、計算式の一覧表を作成してやろうなんて思ったけど、
挫折しました。

やっぱ、三流だなぁ、、と声が聞こえてきたところで、このへんで、、
今日も逃げ出す、、、悪人 Ｋｅｎ３ でした。。。

今日の一言、、
　もしかして、Ｅｘｃｅｌの機能で名前一覧を印刷するや作成ってあったりして、、
　　一覧表作りなど、楽しましょうよ、、、

VBA系の無料メルマガ書いてます
メルマガ『ＶＢＡで楽しくプログラミング』(無料) を購読しませんか？
	E-mail

ＶＢＡで楽しくプログラミング	最新情報	掲示板	バックナンバー	メルマガ登録と解除
コンビニのオモテとウラ話	最新情報	掲示板	バックナンバー	メルマガ登録と解除
ＡＳＰで遊ぶ、失敗する	最新情報	掲示板	バックナンバー	メルマガ登録と解除
AB型三流ＰＧ 業務のグチ	最新情報	掲示板	バックナンバー	メルマガ登録と解除
初心者にやさしいプログラム	最新情報	掲示板	バックナンバー	メルマガ登録と解除
ネットで稼ぐ本音と失敗談	最新情報	掲示板	バックナンバー
www.ken3.org(サイト内)から を利用して、 を