Enable Klik Kanan dan Menghilangkan Spasi di Excel

Aktivitas di Excel kadang-kadang harus menggunakan Klik Kanan. Bila Klik Kanan Tidak Bisa Berfungsi bisa di aktifkan dengan kode berikut :

Sub Enable_All_Right_Click_Menus()
'Semua Command Bar di Aktifkan
Dim Cbar As CommandBar
For Each Cbar In Application.CommandBars
Cbar.Enabled = True
Next
End Sub

Sumber : Asli Dari Sini

Bila Ada kendala dengan spasi di angka Excel Menggunakan kode di bawah ini :

1. Menggunakan fungsi TRIM. Contoh penggunaanya : =TRIM(A2)
2. Menggunakan fungsi SUBSTITUTE. Contoh penggunaannya : =SUBSTITUTE(A2, " ", "")
3. Replace.
4. Atau =MID(A2,1, LEN(A2)-1).

Sumber : Aslinya dari sini

Langkah Nomor 2 yang saya pakai. Dan berhasil

Iklan

Program Mesin Antrian Excel Gratis

Silakan di DOWNLOAD untuk menguji kehandalan program mesin antrian yang kami buat.

DOWNLOAD DI SINI

Cara menggunakan:

  1. Aktifkan Macro Excel 2010 (caranya ketikan di google: cara mengaktifkan macro excel di excel 2010)
  2. Setelah aktif, buka aplikasi Program Antrian
  3. Seting runing text dan posisi lainnya dengan cara menggeser2 scrollbar yang tampil pertama kali program dibuka
  4. Klik tombol warna hijau, merah, dan kuning untuk mencetak struk antrian
  5. Ketika tidak ada nomor antrian (sisa = 0) maka tombol panggil tidak akan mengeluarkan suara
  6. Untuk memanggil gunakan Keyboard di PC/Laptop Anda:

Tekan 1 untuk memanggil BPJS di Loket 2
Tekan 0 untuk mengulang panggilan BPJS di Loket 2

Tekan 5 untuk memanggil BPJS di Loket 3
Tekan 2 untuk mengulang panggilan BPJS di Loket 3

Tekan 7 untuk memanggil Umum di Loket 1
Tekan 4 untuk mengulang panggilan Umum di Loket 1

Tekan tombol “-“ untuk memanggil Adm BPJS di loket 4
Tekan tombol “+” untuk mengulang panggilan Adm BPJS di loket 4

Kontak Person / WA : 081273259932

Tampilan Program Mesin Antrian Excel.png

Paket Mesin Antrian Murah

Mesin antrian harga murah. Dikirim dari kota Palembang

Apabila dana terbatas bisa disesuaikan dengan kebutuhan instansi/perusahaan Anda. Paket 1 dengan spesifikasi sebagai berikut:

Paket Tombol 1.png

Dengan dana Lima Juta Enam Ratus Enam Puluh Lima Ribu Rupiah, maka anda sudah dapat menggunakan mesin antrian sederhana sistem tombol.

Sistem ini cocok untuk bank unit-unit kecil yang hanya memiliki loket Customer Service dan Teller (3 pintu ruko) atau rumah sakit, puskesmas, pengurusan SIM, dan klinik.

(lebih…)

Software Antrian Asli, Murah & Customize

Dengan pengalaman yang ada saya membuat sendiri aplikasi software antrian untuk kebutuhan :

  1. Semua Bank
  2. Puskesmas
  3. Klinik
  4. Rumah Sakit
  5. Pengurusan SIM
  6. BPJS
  7. Pengadilan
  8. DLL

Spesifikasi Software Antrian :

  • Pemanggil menggunakan Keypad Tanpa Kabel (Bluetooth) cocok untuk kantor dengan posisi server berada di radius +/- 10 m
  • Ramah terhadap LANSIA dan DISABILITAS (Pelanggan yang memenuhi syarat diberi nomor khusus, sehingga bisa dipanggil lebih dahulu oleh sekuriti)
  • Sesuai untuk Layar Sentuh dan Tombol
  • Hemat biaya dan waktu pemasangan
  • Bisa disetting sendiri tanpa bantuan orang lain
  • Mudah melakukan perubahan data
  • Jumlah loket bisa disesuaikan
  • Suara bisa menggunakan suara sendiri (edit sendiri bila mau)
  • Memiliki pemanggilan ulang ketika pemanggilan pertama belum datang
  • Setiap loket bisa memanggil
  • Instalasi hanya menggunakan program Office biasa, tidak menyulitkan pengguna (bisa dipandu melalui Video Call WhatsApp)
  • Runing Text tidak terbatas
  • Bisa dirubah tampilan display sesuai dengan warna perusahaan / instansi
  • Tiket bisa dirubah Logonya sesuai kebutuhan
  • Video bisa dirubah satu klik
  • Jumlah layanan maksimal 10 Loket (layanan)
  • Struk antrian menggunakan printer Thermal / kartu juga bisa (biar hemat)
  • Dapat ditambah dengan photo instansi bila dibutuhkan

Kebutuhan Hardware Minimum :

  • 1 Unit PC minimum ram 2GB dan Processor Core 2 Duo atau Lebih Tinggi
  • 1 Unit Printer thermal + kertas
  • 5 Unit keypad numeric (bila loket ada 4 + 1 untuk sekuriti)
  • 1 Unit Monitor Layar Sentuh (Kalau Butuh yg Layar Sentuh)
  • 1 Unit TV (Kalau perlu untuk display)
  • 1 Unit Speaker (kalau menggunakan TV dengan HDMI speaker tidak butuh lagi)
  • 1 Unit Mouse dan Keyboard bluetooth (Untuk seting pertama kali)
  • 1 Unit KiosK (bila dibutuhkan layar sentuh)

Tampilan Display Bisa Di Sesuaikan Dengan Kebutuhan, Contohnya seperti di bawah ini :

tampilan display (lebih…)

Memfilter Data Berdasar Tanggal dengan VBA Excel

Ada masanya kita ingin memfilter data di Excel dengan kriteria berdasarkan tanggal dimulai dan tanggal berakhir.
Tujuannya agar hasil filter tersebut bisa di cetak sesuai dengan tanggal yang sudah kita tentukan tersebut.
Untuk memfasillitasi kebutuhan ini, maka yang perlu dilakukan adalah:

  1. Membuat sebuah tabel yang akan di filter data tanggalnya
  2. Membuat range dinamis agar bisa diinput dalam ComboBox Userform
  3. Membuat Userform, 2 Combobox, 1 Command Button agar pencarian tanggal dilakukan dengan mudah

Setelah disiapkan kebutuhan di atas, maka hal selanjutnya adalah membuat kode seperti di bawah ini:

'Option Explicit

Private Sub CommandButton1_Click()
Dim wsDtbsPjln As Worksheet
Set wsDtbsPjln = Sheets("Sheet3")
Set rngTanggal = wsDtbsPjln.Range("Tabel1")

Worksheets("Sheet3").ListObjects("Table13").Range.AutoFilter _
Field:=1, Criteria1:=">=" & UserForm1.ComboBox1.Value _
, Operator:=xlAnd, Criteria2:="<=" & UserForm1.ComboBox2.Value

wsDtbsPjln.PrintOut Copies:=1, Collate:=True
ActiveSheet.Range("Tabel1").AutoFilter Field:=1
End Sub

Private Sub UserForm_Initialize()
Dim wsDtbsPjln As Worksheet
Dim rngTanggal As Range
Set wsDtbsPjln = Sheets("Sheet3")
Set rngTanggal = wsDtbsPjln.Range("Tabel1")

Sheets("Sheet3").Activate
For Each rngTanggal In wsDtbsPjln.Range("Tabel1")
 With Me.ComboBox1
 .AddItem rngTanggal.Value
 End With
Next rngTanggal

For Each rngTanggal In wsDtbsPjln.Range("Tabel1")
 With Me.ComboBox2
 .AddItem rngTanggal.Value
 End With
Next rngTanggal
End Sub

Setelah dimasukkan kodenya, maka hasilnya akan tampak seperti gambar berikut ini:

Image 8

Agar lebih mudah memahami, silakan coba Filenya di : Download