てすと

説明

マクロ：非表示されているシートを全て表示する

非表示にしている複数のシートの内容を変更する場合、一つずつ表示していくのが手間な場合に使用します。

Sub シート再表示()

    Dim sh As Worksheet

    For Each sh In Worksheets

        sh.Visible = True

    Next

End Sub

和暦を表示する関数

和年　=TEXT(A1,"ggge") 

月　　=TEXT(A1,"m") 

日　　=TEXT(A1,"d") 

曜日　=TEXT(A1,"aaa") 

例えば・・・・ セルB24に着工日として、2016/5/16が セルB25に完成日として、2016/5/31が入力されいる。

他のセルに工期として　平成28月16日～平成28年5月31日と表示させたい場合は、 表示させたいセルに下記を入力

=TEXT(B24,"ggge")&"年"&TEXT(B24,"m")&"月"&TEXT(B24,"d")&"日～"&TEXT(B25,"ggge")&"年"&TEXT(B25,"m")&"月"&TEXT(B25,"d")&"日"

指定したセルの範囲内の図を削除

Sub 指定したセルの範囲内の図を削除()

         Dim lngLeft   As Long

        Dim lngTop    As Long

        Dim lngRight As Long

        Dim lngBottom As Long

        Dim objShape As Object

    ' セル範囲の座標取得

        pWS.Select

        With Range("A1:J3")

            lngTop = .Top

            lngLeft = .Left

            lngBottom = .Top + .Height

            lngRight = .Left + .Width

        End With

    ' アクティブシートの図形列挙

        For Each objShape In pWS.DrawingObjects

        ' 範囲内にあるかチェック

            With objShape

                If lngTop <= .Top And lngLeft <= .Left And _

                lngBottom >= .Top + .Height And lngRight >= .Left + .Width Then

                ' 範囲内にあれば削除

                .Delete

                End If

            End With

        Next

End Sub