Excel

2009年12月18日 (金)

VBA基本(配列変数の利用)

VBA基本(配列変数の利用)



| | コメント (0) | トラックバック (0)

2009年12月16日 (水)

ファイルの操作[名前を指定してブックを開く]

Office TANAKA - Excel VBA講座:ファイルの操作[名前を指定してブックを開く]



| | コメント (0) | トラックバック (0)

最終行、最終列の取得

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


| | コメント (0) | トラックバック (0)