Contact Us
8 Comments8 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...
-
18 September 2015 pukul 21.01
-
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. -
24 November 2015 pukul 07.12
-
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
-
13 Desember 2016 pukul 03.25
-
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
-
17 Oktober 2017 pukul 05.37
-
Tricahyo Abadi mengatakan...
-
Abu Faruq lihat di http://tutorialexcelonline.blogspot.com/2015/12/memperbaiki-angka-yang-berubah-otomatis.html
-
19 Oktober 2017 pukul 22.42
-
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?
-
12 Juli 2020 pukul 11.35
-
Unknown mengatakan...
-
Mas, ketika saya merubah format angka di excel 2019, misal angka 1000000 dirubah menjadi format acounting tulisannya menjadi 10,00,000
-
13 November 2021 pukul 03.15
-
Arkan 12 mengatakan...
-
bisa bagi template tema blog ini tidak?
-
22 Agustus 2024 pukul 05.02
