Contact Us

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

3 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.

Michael 1 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

Posting Komentar