Senin, 25 Oktober 2021

Baris Akhir dan Kolom Akhir

Sub test()
Dim jumlahbaris As Long
Dim jumlahkolom As Long

jumlahbaris = Cells(Rows.Count, 2).End(xlUp).Row
jumlahkolom = Cells(2, Columns.Count).End(xlToLeft).Column

MsgBox "jumlah baris adalah : " & jumlahbaris & vbCrLf & "Jumlah kolom : " & jumlahkolom, vbokonlny + vbInformation, _
"Info"


End Sub

Tidak ada komentar:

Posting Komentar

Menghitung USIA Excel

=BYROW(D2:D100; LAMBDA(tanggal_lahir;     IF(tanggal_lahir=""; "";         DATEDIF(tanggal_lahir; TODAY(); "y"...