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)
最近のコメント