EXCEL VBA シートの記載がある行に処理を書くテンプレート

' シートの記載がある行に処理を書くテンプレート
'
'　ByRef wksTarger As Worksheet　対象のワークシートオブジェクト
'　ByVal pintSerchCol As Integer 最終行を確認するための列（intStartRowで指定した行から進めていき、この列が空白の時点で終了）
'　ByVal intStartRow As Integer　処理を開始する行
'
'記載URL　https://pgbigoroku.hatenablog.com/entry/2022/08/05/173846
'バージョン　2022/8/13
Private Sub ntpsubRowFor_psubシート情報追記(ByRef pwksTarget As Worksheet, ByVal pintSearchCol As Integer, ByVal pintStartRow As Integer)
    Dim intRow As Integer
    With pwksTarget
    intRow = pintStartRow
    Do Until .Cells(intRow, pintSearchCol) = ""
        '-----------ここに処理を書く-----------
        ' intRow が処理を行う行番号です。
        '

        '-----------処理を書のここまで-----------
        intRow = intRow + 1
    Loop
    End With
End Sub


Private Sub ntpsubシート情報追記(ByRef wksTarget As Worksheet, ByVal intRow As Integer)
    Dim objSheet As Worksheet
    Dim strBookName As String
    Dim strSheetName As String
    strBookName = wksTarget.Cells(3, 3)
    If intRow = 0 Then
        wksTarget.Cells(10, 4) = ".ProtectContents"
    Else
        strSheetName = wksTarget.Cells(intRow, 2)
        Set objSheet = Workbooks(strBookName).Worksheets(strSheetName)
        wksTarget.Cells(intRow, genmシート一覧列情報.intProtectContents) = objSheet.ProtectContents
        wksTarget.Cells(intRow, genmシート一覧列情報.intVisible) = objSheet.Visible
    End If
    
End Sub