ExcelVBAでシート名を求める

VB6,VBA,VBS,EXCEL,DOS,BAT,WSH,WORDの小技メモ

HTML/ CSS/ CGI-Perl/ JavaScript/ JavaApplet/ AccessUp/ Internet/ EnglishLearn/ ちゃいちゃん天使/ 天使メッセージ/ 飯田ワールド/ 結城ワールド/ プロフィール/ WEB相談室/ WEBアンテナ/ 燈明日記/ Perlノート/ 漢字起源/ yahoo

はじめに

本ページは、ウインドウズ系全般のティプスメモです。

そう、はじめはVB系のティプスメモだったのですが…いつの間にか、ウインドウズ系全般のティプスメモになってしまいました。

ちなみに、ティプス(Tips)とは、マニュアルに書かれていない技法や裏わざのことですが、本ページでは、私が経験してこれはと思ったノウハウのメモになっています。

尚、以下は本サイトの最新情報(ブログ)です。

それでは、本ページが何かのお役に立てれば幸いです。ごゆっくりご覧ください。

2009-03-02 ExcelVBAでシート名を求める

シート数は「Worksheets.Count」で、シート名は「Worksheets(インデクス番号).Name」です。

これを元にシート名を求める関数を組んでみました。

ちなみに、インデクス番号は1オリジン(1から始まる)です。

また、シートを削除してもインデクス番号が歯抜けになることはありません(必ず1から始まる連番)。


シート名取得関数
Function getSheetNames() As Variant
Dim vntSheetNames() As Variant
Dim int_i As Integer

    ReDim vntSheetNames(Worksheets.Count - 1)
    For int_i = 0 To Worksheets.Count - 1 Step 1
        vntSheetNames(int_i) = Worksheets(int_i + 1).Name
    Next
    getSheetNames = vntSheetNames
End Function

テストサブルーチン
Sub test()
Dim vntSheetNames As Variant
Dim vntSheetName As Variant
    
    vntSheetNames = getSheetNames()

    For Each vntSheetName In vntSheetNames
        MsgBox vntSheetName
    Next
End Sub

おわりに

以下のページには、すべてのTIPSがあります。もしよろしければ、どうぞ!

尚、ご感想、ご意見、誤字、脱字、間違い等がありましたら遠慮なくVB-TIPS掲示板へご指摘ください。