Contact Us

Jika Anda mempunyai permasalahan berkaitan dengan Excel, silahkan posting permasalahannya di komentar blog ini.
Comments
7 Comments

7 komentar:

odiet silung mengatakan...

salam kenal bpk/ibu sdr/i....saya punya kasus perangkingan di excel yg mana kasus ini sy anggap berat, apabila bpk/ibu sdr/i berkenan untuk membantu sy, mohon kontak email sy dan nanti akan sy kirim balik contoh kasusnya....sebelumnya sy ucapkan banyak terima kasih...

Mariano Nathanael mengatakan...

Hallo tutorialexcelonline..., salam kenal.
Nama saya Mariano Nathanael, tinggal di bandung.
Saya sedang belajar pemrograman VBA ..

Saya mau bertanya dan meminta pertolongannya nih..

Saya mau membuat kode macro untuk meng’hidden’ row, nah, kode yang sudah
saya pakai adalah sbb. :


Sheets("Identitas").Select

Dim Hdua As Byte

Hdua = Range("c14") + 8

‘ range(“c14”) adalah sebuah nilai yang diinput di worksheet Identitas

Sheets("Hasil 2").Select

Rows("10:59").Select

Selection.EntireRow.Hidden = False

‘perintah di atas adalah untuk meng’unhidden’ atau ‘show’ rows(10:59) yang
telah di hidden

Range("B2").Select

ActiveCell.Offset(Hdua, 0).Select

‘perintah di atas untuk menggeser sel aktif ke rows yang diinginkan (sejauh
Hdua ke bawah B2)

For y = Hdua To 57

Selection.EntireRow.Hidden = True

ActiveCell.Offset(1, 0).Select

Next y

‘Perintah For.. To.. Next adalah untuk meng’hidden’ rows satu demi satu
dari row (B2+Hdua) ampe row 57

Range("B1").Select



Kode tersebut berhasil berjalan dengan baik.

Yang menjadi masalah adalah saya ingin memperpendek kode tersebut, karena
perintah For..To..Next di atas memakan waktu juga karena meng’hidden’ row
satu demi satu.



Saya mencoba membuat kode berikut untuk memperpendeknya sehingga
meng’hidden’nya satu kali saja karena row (B2+Hdua) ampe row 57 sudah
di’select’ terlebih dahulu melalui kode VBA, hanya saja kode saya ini gagal
total, mohon koreksinya.


Sheets("Identitas").Select

Dim Hdua As Byte

Hdua = Range("c14") + 8

‘ range(“c14”) adalah sebuah nilai yang diinput di worksheet Identitas

Sheets("Hasil 2").Select

Rows("10:59").Select

Selection.EntireRow.Hidden = False

‘perintah di atas adalah untuk meng’unhidden’ atau ‘show’ rows(10:59) yang
telah di hidden

Rows("Hdua:59").Select

‘perintah di atas yang gagal total

Selection.EntireRow.Hidden = True

Range("B1").Select



Mohon koreksi dan solusinya untuk perintah Rows("Hdua:59").Select yang gagal total tersebut. Terimakasih.

Anonim mengatakan...

hai admin tutorial excel online, saya memiliki case mengenai investasi. apakah saya bisa mengirimkan case tersebut melalui email? dikarenakan case tersebut sangat panjang. terimakasih

Unknown mengatakan...

Assalamu Alaikum, Mas sy convert file kependudukan.PDF ke Excel convertnya berhasil yg menajdi masalah NIKnya menjadi E+15 jml penduduk ratusan ribu. mohon solusinya mas. terima kasih

Tricahyo Abadi mengatakan...

Abu Faruq lihat di http://tutorialexcelonline.blogspot.com/2015/12/memperbaiki-angka-yang-berubah-otomatis.html

icuk widiya saputra mengatakan...

saya punya pertanyaan mengenai penjumlahan. Sebagai contoh ada 1 kolom berisi 10 sel, bagaimana caranya menjumlahkan secara otomatis sel a1,a3,a5,a7,a9 tanpa memilih satu per satu?

Unknown mengatakan...

Mas, ketika saya merubah format angka di excel 2019, misal angka 1000000 dirubah menjadi format acounting tulisannya menjadi 10,00,000

Posting Komentar