行列カウント
｜列番号 ｜列数 ｜行番号 ｜行数｜
選択セル(空白でない)を基点にしてカウントします。　　 KCountRC が必要になります。
列番号▲ TOP
Sub KCountRC11()

    Dim myretno As Integer
    Dim myjob As Integer
    Dim mymsg As String
    
    myjob = 11                 '列番号  11:列番号 12:列数
    mymsg = "列番号は　"
    myretno = KCountRC(myjob, "", "", "")
    
    MsgBox mymsg & myretno

End Sub
列数▲ TOP
Sub KCountRC12()

    Dim myretno As Integer
    Dim myjob As Integer
    Dim mymsg As String
    
    myjob = 12                 '列番号  11:列番号 12:列数
    mymsg = "列数は　"
    myretno = KCountRC(myjob, "", "", "")
    
    MsgBox mymsg & myretno

End Sub
行番号▲ TOP
Sub KCountRC21()

    Dim myretno As Integer
    Dim myjob As Integer
    Dim mymsg As String
    
    myjob = 21                 '行番号  21:行番号 22:行数
    mymsg = "最下行は　"
    myretno = KCountRC(myjob, "", "", "")
    
    MsgBox mymsg & myretno

End Sub
行数▲ TOP
Sub KCountRC22()

    Dim myretno As Integer
    Dim myjob As Integer
    Dim mymsg As String
    
    myjob = 22                 '行番号  21:行番号 22:行数
    mymsg = "行数は　"
    myretno = KCountRC(myjob, "", "", "")
    
    MsgBox mymsg & myretno

End Sub
top