' [289.xls]





' [Module1] のコード
'★★☆　選択したセル範囲にぴったりの図形を描画する　☆★★

Option Explicit

Sub start()
Dim 選択セル As String
Dim 範囲 As String
Dim 区切位置 As Integer

    '現在選択されているセルアドレスを変数に取り込む
    選択セル = ActiveWindow.Selection.Address
    
    Do
        On Error GoTo errhndl
        
        '選択範囲が一つの領域の場合次のコードで errhndl へ飛ぶ
        区切位置 = Application.Find(",", 選択セル)
        
        範囲 = Left(選択セル, 区切位置 - 1)
        選択セル = Mid(選択セル, 区切位置 + 1)
        
        '選択範囲が複数の領域に分かれている場合 ok に飛ぶ
        GoTo ok
        
errhndl:
        区切位置 = 1
        範囲 = 選択セル
ok:


        '選択されたセル範囲のサイズと位置を指定して図形の描画
        ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
            Range(範囲).Left, Range(範囲).Top, _
            Range(範囲).Width, Range(範囲).Height).Select

        '前景色を設定
        Selection.ShapeRange.Fill.ForeColor.SchemeColor = 15

    Loop While 区切位置 > 1

End Sub

Sub start_A()

    Sheets("作業シート").Visible = -1
    Sheets("Title").Visible = 2

End Sub

Sub start_B()

    Sheets("Title").Visible = -1
    Sheets("作業シート").Visible = 2
    
End Sub