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
Senin, 25 Oktober 2021
Baris Akhir dan Kolom Akhir
Langganan:
Posting Komentar (Atom)
Menghitung USIA Excel
=BYROW(D2:D100; LAMBDA(tanggal_lahir; IF(tanggal_lahir=""; ""; DATEDIF(tanggal_lahir; TODAY(); "y"...
-
Salin ke Clipboard Salin ke Clipboard Salin Tercopy! ...
-
=MOD(ROW();2)=1
-
Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) Select Case MsgBox("Apakah anda ingin menyimpan file ini?", v...
Tidak ada komentar:
Posting Komentar