mohon pencerahan dan bantuannya master bagaimana skrip vba di excel agar cell yang kita pilih tampil di sudut kiri atas atau tengah atas layar
mohon pencerahan dan bantuannya master bagaimana skrip vba di excel agar cell yang kita pilih tampil di sudut kiri atas atau tengah atas layar
Maksudnya seperti ini...
cellyang dipilih misalkan cell c30 maka cell c30 akan bergeser ke top layar
Konsep nya seperti ini. (File DPRRI-(B2.xlsm)
Kalau saya masukan kedalam programnya, seperti screenshoot.
Filenya seperti ini...
terima kasih banyak atas bantuannya besok aplikasi akan dipakai menghitung pemilu dari saran mas saya pasang skrip
ActiveWindow.ScrollRow = Sheet6.Range("b1").Value - 1
karena di b1 merupakan nilai row terpilih
sekali lagi saya ucapkan banyak terima kasih
Sama-sama..
Sebenarnya bisa dimasukan pernama calon, tapi butuh effort yang banyak, karena setiap scrip kita masuk satu persatu percalon, kalau calaonnya sedikit ngga maslah...
Klu di CustomUI nya onAction Untuk Button ID nama Calon Diseragamkan menjadi misalnya Calon, maka bisa dibikin menjadi 1 kode saja untuk menjalankan semua button yang onAction="Calon"/>
Public Sub Calon(Control As IRibbonControl)
Dim SW As Worksheet, A As Range, Rng As Range, myrange As Range, B As Variant, C As String, D As Variant
Set SW = Sheets("HITUNG SUARA")
Set DW = Sheets("DATA")
Set A = SW.Range("A6:FN210")
Set myrange = DW.Range("AP1:AQ163")
SW.Range(ActiveCell, ActiveCell.Offset(0, 17)).Interior.ColorIndex = 2 '==> Hapus Warna
With A
B = Control.ID '==> BUTTON ID di customUI.xml
C = Application.WorksheetFunction.VLookup(B, myrange, 2, False) '==> Cari Nama calon berdasarkan Button ID
Set Rng = .Find(What:=C, After:=.Cells(.Cells.Count), LookIn:=xlValues, LookAt:=xlWhole) '==> Cari Posisi Nama di Sheet Hitung Suara
D = Rng.Address
SW.Range(D).Select
ActiveWindow.ScrollColumn = ActiveCell.Column '==> Posisi Colomn aktif di kiri
ActiveWindow.ScrollRow = ActiveCell.Row '==> Posisi Baris aktif di atas
SW.Range(ActiveCell, ActiveCell.Offset(0, 17)).Interior.ColorIndex = 40 '==> mewarnai baris yang di isi
ActiveCell.Offset(0, 1) = ActiveCell.Offset(0, 1) + 1 '==> menambah suara di calon
End With
End Sub
kelihatannya butuh delay untuk angkanya berubah biar tahu perubahannya angkanya
ditambah kode Application.Wait (Now() + TimeValue("00:00:01")) nya sebelum kode perubahan angka nya. tinggal diatur timevaluenya mau berapa lama delaynya