ワークシートの名前(Name プロパティ)の使用方法について説明します。
HOME | 更新履歴 | ご利用上の注意事項 | FAQ | プライバシーポリシー | サイトマップ | Excel VBA 質問掲示板
日付
累計
本日
累計
本日
:
:
:
:
:
アクセス上位ページ
- コンボボックス
- テキストファイル読込
- セルの書式(背景色・パターン)
- AutoFilter メソッド
- Dir関数
- テキストファイル新規書込
- InStr関数
- InputBoxメソッド
- Sort メソッド
- マクロ有効ブックの保存と設定
- 比較演算子 ( Like も含む)
- テキストボックス
- FileDialogオブジェクト@
- ワークシートの数
- FileDialogオブジェクトA
- セルの書式(保護)
- Hidden プロパティ
- ワークシート関数によるカウント処理
- Split関数
- オブジェクト変数と Set
- オプションボタン
- OpenTextFile メソッド
- セルの書式(表示形式)
- チェックボックス
- LBound、UBound関数
- ラベル
- リストボックス
- FSOによるファイルコピー
- プロシージャの呼び出し
- ステップ実行
最近の更新内容
- 2016/5/7 ページ追加 1.(7)-n.PrintPreview メソッド
- 2015/12/13 ページ追加 5.(2)-i.トグルボタン
- 2015/10/18 『比較演算子 ( Like も含む)』内容修正
1.(7)-o.PrintOut メソッド
1.(7)-p.印刷ヘッダー、フッターの設定
5.(2)-j.スクロールバー
5.(2)-k.スピンボタン
5.(2)-l.イメージ
(7)-d.ワークシートオブジェクトの指定方法 ⇐ [PREV]
[NEXT] ⇒ (7)-f.ワークシートのインデックス
Excel VBA ≫ 1.基礎編 - ワークシート ≫ (7)-e.ワークシートの名前
【ページ内リンク】
ワークシートの名前 - Name プロパティ
ワークシートの名前は Name プロパティを使用することで値の取得・設定が可能です。
-
【構文】
object.Name
※objectはworksheetオブジェクトを表す変数
- Name プロパティの使用例 追加するシート名をInputBoxで受け付け、シート名のチェック(文字数、使用不可能文字の有無)をしてから追加する例です。
Sub sample_eb075_01() Dim strShtName As String Dim mySheet As Worksheet Dim flg_err As Boolean Dim aryErrChar As Variant Dim i As Integer 'シート名に使用できない文字の設定 aryErrChar = Array(":", "\", "/", "?", "*", "[", "]") 'シート名の入力受け付け strShtName = InputBox("追加するシート名を入力してください。") If strShtName = "" Then '「キャンセル」か「×」ボタンが押下された場合 'またはシート名が未入力だった場合 MsgBox "処理をキャンセルしました。", vbExclamation End '処理終了 End If 'シート名の文字数チェック If Len(strShtName) > 31 Then MsgBox "シート名は31文字以内で入力してください。", vbCritical End End If 'シート名に使用できない文字のチェック flg_err = False For i = 0 To UBound(aryErrChar) If InStr(1, strShtName, CStr(aryErrChar(i))) > 0 Then flg_err = True Exit For End If Next i If flg_err Then 'シート名に使用不可能文字が含まれている場合 MsgBox "シート名に使用不可能文字が含まれています。" & vbLf & _ "【使用不可能文字】" & vbLf & _ """" & Join(aryErrChar, """ """) & """", vbCritical End End If '入力されたシート名の存在チェック flg_err = False For Each mySheet In Worksheets If mySheet.Name = strShtName Then flg_err = True 'シートがすでに存在している Exit For End If Next If flg_err Then 'シートが存在している場合 MsgBox "入力されたシート名『" & strShtName & _ "』がすでに存在しています。", vbCritical End End If 'シートの追加および名前の変更 With Worksheets.Add(After:=Worksheets(Worksheets.Count)) .Name = strShtName End With MsgBox "シート『" & strShtName & _ "』を追加しました。", vbInformation End Sub
⇒ Array関数
⇒ InputBox関数
⇒ MsgBox関数
⇒ 組み込み定数(vbLf)
⇒ End ステートメント
⇒ Len、LenB関数
⇒ LBound、UBound関数
⇒ InStr関数
⇒ Exit ステートメント
⇒ 繰り返し処理 For Each … Next
⇒ With ステートメント
⇒ ワークシートの追加
⇒ InputBox関数
⇒ MsgBox関数
⇒ 組み込み定数(vbLf)
⇒ End ステートメント
⇒ Len、LenB関数
⇒ LBound、UBound関数
⇒ InStr関数
⇒ Exit ステートメント
⇒ 繰り返し処理 For Each … Next
⇒ With ステートメント
⇒ ワークシートの追加
- サンプルマクロ実行前の状態
- [ キャンセル ] ボタンを押下した場合
- シート名に32文字入力した場合
- シート名で使用不可能な文字(アスタリスク)を入力した場合
- 既に存在しているシート名を入力した場合
- シート名を正しく入力した場合
- 参考(シート名のエラー情報) シート名にエラーがあると以下のメッセージが表示されます。

![[キャンセル]ボタンを押下した場合](img7/img_b075_02.png)











カテゴリ内ページ
Excel VBA 〜 総目次 〜
- 1.基礎編
- 1.基礎編
-- (7).ワークシート
--- (7)-a.SheetsとWorksheets
--- (7)-b.ワークシートの数
--- (7)-c.ワークシートの追加
--- (7)-d.ワークシートオブジェクトの指定方法
--- (7)-e.ワークシートの名前
--- (7)-f.ワークシートのインデックス
--- (7)-g.ワークシートの表示
--- (7)-h.オートフィルターモード
--- (7)-i.ワークシート内の使用済みセル
--- (7)-j.ワークシート内のコメント
--- (7)-k.Activate メソッド
--- (7)-l.Copy、Move メソッド
--- (7)-m.Delete メソッド
--- (7)-n.PrintPreview メソッド
--- (7)-o.PrintOut メソッド
--- (7)-p.印刷ヘッダー、フッターの設定
--- (7)-b.ワークシートの数
--- (7)-c.ワークシートの追加
--- (7)-d.ワークシートオブジェクトの指定方法
--- (7)-e.ワークシートの名前
--- (7)-f.ワークシートのインデックス
--- (7)-g.ワークシートの表示
--- (7)-h.オートフィルターモード
--- (7)-i.ワークシート内の使用済みセル
--- (7)-j.ワークシート内のコメント
--- (7)-k.Activate メソッド
--- (7)-l.Copy、Move メソッド
--- (7)-m.Delete メソッド
--- (7)-n.PrintPreview メソッド
--- (7)-o.PrintOut メソッド
--- (7)-p.印刷ヘッダー、フッターの設定