Anda dapat menggunakan sintaks dasar berikut untuk menghitung jumlah baris dalam suatu rentang di Excel menggunakan VBA: SubCountRows () Range(" E2 ") = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count End Sub Contoh khusus ini menghitung jumlah baris di kolom A, lalu menetapkan hasilnya ke...
Anda dapat menggunakan sintaks dasar berikut untuk menghitung jumlah kemunculan karakter dalam string menggunakan VBA: Sub CountOccurrences() Dim i As Integer 'Specify character to look for my_char = "/" 'Count occurrences in each string in B2:B12 and display results in C2:C12...
Anda dapat menggunakan sintaks dasar berikut untuk melakukan INDEX MATCH di VBA: SubIndexMatch () Dim i As Integer ' Perform index match For i = 2 To 11 Cells(i, 5).Value = WorksheetFunction.Index(Range(" A2:A11 "), _ WorksheetFunction.Match(Cells(i, 4).Value, Range(" B2:B11 "), 0))...
Anda dapat menggunakan sintaks dasar berikut untuk melakukan INDEX MATCH dengan beberapa kriteria di VBA: SubIndexMatchMultiple () Range(" F3 ").Value = WorksheetFunction.Index(Range(" C2:C10 "), _ WorksheetFunction.Match(Range(" F1 "), Range(" A2:A10 "), 0) + _ WorksheetFunction.Match(Range(" F2 "), Range(" B2:B10 "), 0)...
Anda dapat menggunakan sintaks dasar berikut untuk mengurutkan lembar Excel berdasarkan beberapa kolom menggunakan VBA: Sub SortMultipleColumns() Range(" A1:B11 ").Sort Key1:=Range(" A1 "), Order1:=xlAscending, _ Key2:=Range(" B1 "), Order2:=xlDescending, _ Header:=xlYes End Sub Contoh khusus ini mengurutkan sel dalam rentang A1:B11...
Anda dapat menggunakan sintaks dasar berikut untuk melakukan VLOOKUP menggunakan VBA: Sub Vlookup() Range(" F2 ").Value = WorksheetFunction.Vlookup(Range(" E2 "), Range(" A2:C11 "),3,False) End Sub Contoh khusus ini mencari nilai di sel E2 dalam rentang A2:C11 dan menemukan nilai yang cocok...
Anda dapat menggunakan sintaks dasar berikut untuk melakukan VLOOKUP dari sheet lain menggunakan VBA: Sub Vlookup() Range(" B2 ").Value = WorksheetFunction.Vlookup(Range(" A2 "), Sheets(" Sheet2 ").Range(" A2:C11 "),3,False) End Sub Contoh khusus ini mencari nilai di sel A2 pada lembar saat...
Anda dapat menggunakan sintaks dasar berikut di VBA dengan IF dan AND untuk menguji apakah beberapa kondisi terpenuhi: SubIfAnd () If Range(" A2 ") = "Warriors" And Range(" B2 ") > 100 Then Range(" C2 ").Value = " Yes! " Else...
Anda dapat menggunakan sintaks dasar berikut untuk melakukan XLOOKUP menggunakan VBA: Sub Xlookup() Range(" F2 ").Value = WorksheetFunction.Xlookup(Range(" E2 "), Range(" A2:A11 "), Range(" C2:C11 ")) End Sub Contoh khusus ini mencari nilai dalam sel E2 dalam rentang A2:A11 dan menemukan...
Anda dapat menggunakan sintaks dasar berikut di VBA dengan IF dan OR untuk menguji apakah beberapa kondisi terpenuhi: Sub IfOrTest() If Range(" A2 ") = "Warriors" Or Range(" B2 ") > 100 Then Range(" C2 ").Value = " Yes! " Else...