« ScribeFireからのMetaGateway経由投稿テスト | トップページ | ファイルの操作[名前を指定してブックを開く] »

2009年12月16日 (水)

最終行、最終列の取得

Private Sub CommandButton2_Click()
    Dim y As Long
    Dim x As Integer
    
    y = ActiveSheet.UsedRange.Rows.Count
    x = ActiveSheet.UsedRange.Columns.Count
    MsgBox "最終行は" & y & "行、" & _
                            "最終列は" & x & "列です"
    ActiveSheet.Cells(1, 1).Value = "現在の最終行"
    ActiveSheet.Cells(2, 1).Value = "現在の最終列"
    ActiveSheet.Cells(1, 2).Value = y
    ActiveSheet.Cells(2, 2).Value = x
    ActiveSheet.Columns("A:B").AutoFit 'セル幅を自動で最適化
End Sub


|

« ScribeFireからのMetaGateway経由投稿テスト | トップページ | ファイルの操作[名前を指定してブックを開く] »

Excel」カテゴリの記事

VBA」カテゴリの記事

コメント

コメントを書く



(ウェブ上には掲載しません)




トラックバック

この記事のトラックバックURL:
http://app.f.cocolog-nifty.com/t/trackback/1177043/32625572

この記事へのトラックバック一覧です: 最終行、最終列の取得:

« ScribeFireからのMetaGateway経由投稿テスト | トップページ | ファイルの操作[名前を指定してブックを開く] »