Progress Bar Di Worksheet

Membuat Progress bar di sebuah cell active sheet cukup mudah
Pastekan kode berikut pada sebuah modul


Sub tes()
Dim i As Integer, j As Integer
For i = 4 To 12
    For j = 1 To 100
  Cells(i, 2).Value = j
Next j
  Next i
ActiveSheet.Range("B4:B12").Value = ""
Call tes2
End Sub

Sub tes2()
Dim i As Integer, j As Integer
For i = 4 To 20
    For j = 1 To 100
  Cells(i, 5).Value = j
Next j
  Next i
ActiveSheet.Range("e4:e20").Value = ""
End Sub

Nilai yang dihasilkan dari kode tersebut akan menjadi acuan cell progress bar denga rumus  = a4 Kemudian kolom progressbar  diatur conditional formatting

Download contoh sampelnya file xlsm pada tautan berikut dibawah ini !

Silahkan dikembangkan dan Semoga bermanfaat !

proggres bar


  

Convert Zero to Chart

          Conver Zero to chart

Materi kali ini adalah bagaimana mengubah nilai 0 Atau kosong Menjadi karakter
Misalnya menjadi stip, garis atau lainnya
Caranya buatlah table seperti gambar diatas
Pastekan kode berikut pada sebuagh modul:
Yang sebelumnya kita sudah membuat nama range misalnya myTabel
Yang akan menyesuaikan dengan kode macro yg ada di modul

Sub ResetValuesToZero()
    For Each n In Worksheets("Sheet2").Range("myTabel")
        If n.Value < 1 Then
            n.Value = "-"
        End If
    Next n
End Sub

Keterangan :
Karakter dapat diganti sesuai keperluan nya pada kode valuenya
Yakni :

            n.Value = "-"
            n.Value = "@"
            n.Value = "-,-"
            n.Value = "…"
            n.Value = "…?"

Selesai
Semoga bermanfaat
Dapatkan Tutorial dan Paket Belajar full VBA melalui kontak langsung WA 082 396 256 577

File sampel dapatkan melalui link dibawah ini




 Conver Zero to Chart 

Uniquie List

              Unique List

Materi kali ini adalah bagaimana membuat list unik dengan menampilkan satu data dari  daftar data yang sama atau ganda
Caranya buatlah table seperti gambar diatas
Kemudian kita biasa menggunakan beberapa cara pertama dengan fasilitas vba, seperti biasa kita akan menempatkan kode dibawah ini pada sebuah modul yang akan kita panggil dengan sebuah tombol

Option Explicit
Sub buatList()
Dim lastrow As Long
lastrow = Cells(Rows.Count, "B").End(xlUp).Row
      ActiveSheet.Range("B2:B" & lastrow).AdvancedFilter _
    Action:=xlFilterCopy, _
    CopyToRange:=ActiveSheet.Range("D2"), _
    UNIQUE:=True
     End Sub

Cara lain yakni menempatkan rumus atau formula berikut :
Formula1 :

'=IFERROR(INDEX($B$3:$B$15, MATCH(0,COUNTIF($D$2:D2, $B$3:$B$15), 0)),"")

Formula2 :


'=IFERROR(INDEX($B$3:$B$15, MATCH(0,IF(ISBLANK($B$3:$B$15),1,COUNTIF($D$2:D2, $B$3:$B$15)), 0)),"")

Cara alternative yakni dengan fasiltas VBA dengan menempatkan kode remote Duplicate Atau hapus data ganda

Kode lengkapnya

Sub RemoveDuplicates ()
Set Rng = ThisWorkbook.Sheets(“Sheet1”).Range("B6:B300")
Rng.RemoveDuplicates Columns:=Array(1), Header:=xlYes
End Sub

Selesai
Semoga bermanfaat
Dapatkan Tutorial dan Paket Belajar full VBA melalui kontak langsung WA 082 396 256 577

Berikut sampelnya dapat diunduh dilink berikut

Counter

                     Counter

Count  adalah  menghitung sebuah obyek
Obyek yang dimaksud disini adalah berupa baris , kolom ,kolom , sheets, atau rentan nilai dalam sebuah obyek

Misalnya kita akan menghitung jumlah baris yang terisi data tentukan kita akan menggunakan fasilitas VBA

Menghitung jumlah baris yang berisi data di pada sebuah worksheets tertentu Misalnya kita akan menghitung jumlah data lembar kerja aktif.
Ini kode nya :

Sub test()
    Dim myRange As Range
    Dim NumRows As Integer
    Set myRange = Range("A:A")
    NumRows = Application.WorksheetFunction.CountA(myRange)
    MsgBox NumRows
End Sub

Kita mencoba menghitung jumlah baris dalam rentang dalam lembar kerja yang berbeda dari lembar kerja aktif. Ini kode nya :

Sub data()
Dim jumlahdata As Long
With Sheets("data")
jumlahdata = .Range("A" & .Rows.Count).End(xlUp).Row
End With
MsgBox (jumlahdata)
End Sub

Menghitung jumlah sheet yang ada di workbook

Sub Count_sheet()
myCount = Application.Sheets.Count
    MsgBox myCount
    End Sub
   
Menghitung jumlah baris selection

Sub Count_Rows()
    myCount = Selection.Rows.Count
  MsgBox myCount
    End Sub

Menghitung jumlah kolom selection

Sub Count_Coulumn()
    myCount = Selection.Columns.Count
    MsgBox myCount
    End Sub

         
Sub Count_nilai()
  menambah nilai di cell A1 Setiap kali macro running
          mycount = Range("a1") + 1
            Range("a1") = mycount
            End Sub

Selesai
silahkan dikembangkan selanjutnya
Semoga bermanfaat

Formating Cell VBA

                  Format Cell

Format Cell pada pasiliatas VBA dapat anda gunakan dalam penulisan di sebuah Modul yang menjadikan alamat cell di lembar excel sebagai target acuan
Berikut Macam – macam  format yang perlu di ketahui antara lain :

1.General

Range("A3 : A10").NumberFormat = "General"

2.NumberFormat           : Format Angka

Range("A3 : A10").NumberFormat = "0000000000"  

3.Currency Mata Uang

Range("A3 : A10").NumberFormat = "$#,##0.00"

4.Accounting

Range("A3 : A10").NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"

5.Date atau Tanggal

Range("A3 : A10").NumberFormat = "yyyy-mm-dd;@"
Range("A3 : A10").NumberFormat = "dd/mm/yyyy"                                                        
Range("A3 : A10").NumberFormat = "[$-421]dd mmmm yyyy"   

6.Time atau menit

Range("A3 : A10").NumberFormat = "h:mm:ss AM/PM;@"

7.Percentase %

Range("A3 : A10").NumberFormat = "0.00%"

8.Fraction

Range("A3 : A10").NumberFormat = "# ?/?"

9.Scientific

Range("A3 : A10").NumberFormat = "0.00E+00"

10.Text atau Hurup

Range("A3 : A10").NumberFormat = "@"

11.Special

Range("A3 : A10").NumberFormat = "00000"

12.Custom

Range("A3 : A10").NumberFormat ="$#,##0.00_);[Red]($#,##0.00)"

Contoh Penulisan1

Sub pengatuaranCell ()
Sheets("Sheet1"). Range("A3 : A10").NumberFormat = "00000"
End Sub
Contoh Penulisan2

Sub Atur_format()
With Sheets("Sheet1")
.Range("A3 : A10").NumberFormat = "000"
.Range("B3 : B10").NumberFormat = "yyyy-mm-dd;@"
.Range("C3 : C10").NumberFormat = "dd/mm/yyyy"
.Range("D3 : D10").NumberFormat = "[$-421]dd mmmm yyyy"
.Range("E3 : E10").NumberFormat = "$#,##0.00"
End With
End Sub

Selesai
Silahkan dicoba atau dipraktekkan langsung dilembar kerja excel
Semoga bermanfaat

Selection Cell

Selection Select 

Bergeser satu cell ke kanan
ActiveCell.Offset(0, 1).Select    ’

Menuju ke cell paling bawah yang terahir di Isi
ActiveCell.End(xlDown).Select‘

Pindah ke cell yang di bawahnya satu baris
ActiveCell.Offset(1, 0).Select  ’

mengisi cell A1 dengan konten “Hello”
Worksheets(“Sheet1”).Range(“A1”).Value = “Hello”

Mengisi cell yang aktif sesuai dengan kata yang di ketik di
textbox1ActiveCell.Value= TextBox1.Text  ’

Mengisi cell tertentu via input box shg user diminta isi user box dulu kemudian otomatis cell tertentu akan terisi sesuai isian input box
Range (“a1”).value = Inputbox (“pertanyaan”)

Memanggil sheet sesuai dengan urutannya
sheet2.select

Memanggil sheet sesuai dengan nama sheet nya
sheet(“databased”).select

Menuju baris terakhir
BarisTerakhir = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Value

cari baris kosong pertama di database
iRow =ws.Cells(Rows.Count, 1)  _
.End(xlUp).Offset(1, 0).Row

Menuju ke alamat cell spesial paling awal/atas dan ujung bawah/terakhir sheet
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

Menuju ke alamat cell paling ujung bawah/terakhir
sheetActiveCell.SpecialCells(xlLastCell).Select

Menuju ke alamat cell paling atas, bawah, kiri, kanan
Selection.End(xlUp).Select      ‘atas
Selection.End(xlDown).Select     ‘bawah
Selection.End(xlToLeft).Select      ‘kiri
Selection.End(xlToRight).Select     ‘kanan

Dari tempat cell berada sekarang diblok sampai ke alamat cell paling atas, bawah, kiri, kanan

Range(Selection,Selection.End(xlUp)).Select
Range(Selection,Selection.End(xlDown)).Select
Range(Selection,Selection.End(xlToLeft)).Select
Range(Selection,Selection.End(xlToRight)).Select

menuju ke cell turun 5 baris dan kekiri 3 kolom, dari tempat cell berada sekarang
ActiveCell.Offset(5, -3).Select

menuju ke cell naik 3 baris dan kekanan 4 kolom, dari tempat cell berada sekarang
ActiveCell.Offset(-3, 4).Select

memilih range / blok tertentu dan melanjutkan atau menambah range / blok dari blok yang sudah ada
Range(“Database”).Select
Selection.Resize(Selection.Rows.Count+ 5, _
Selection.Columns.Count).Select

memilih range / blok tertentu kemudian melompat ke cell tertentu dan melanjutkan atau menambah range / blok yang sudah ada
Range(“Database”).Select
Selection.Offset(4, 3).Resize(Selection.Rows.Count+ 2, _
Selection.Columns.Count+ 1).Select

Border Otomatis

                 Pembahasan kali ini adalah cara membuat Border Otomatis sesuai data cell  dengan demikian  border akan menambah otomatis bila data cell ditambah

Cara cukup Mudah Pastekan kode berikut pada sheet yang akan menjadi target  sebagai Private Sub Worksheet_Change
Kode lengkapnya :

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim LastRow As Long, LastCol As Long
  Cells.Borders.LineStyle = xlNone
  LastRow = Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row
  LastCol = Cells.Find("*", , xlValues, , xlByColumns, xlPrevious).Column
  With Range("A5", Cells(LastRow, LastCol))
    .BorderAround xlDouble
    .Rows.Borders(xlInsideHorizontal).LineStyle = xlDash
    .Rows.Borders(xlInsideVertical).LineStyle = xlContinuous
  End With
End Sub

Selesai

Semoga bermanfaat
Silahkan klik halaman Download dibawah ini

 Border Otomatis