vba mengeser cell yang dipilih ke kiri atas atau tengah atas

  1. 9 bulan yang lalu

    waluyo

    12 Feb 2024 Kubu Raya Kalbar + 236 Poin

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

  2. Eunike Abigail

    12 Feb 2024 Jawaban Terpilih Malang + 850 Poin

    Maksudnya seperti ini...

  3. waluyo

    13 Feb 2024 Kubu Raya Kalbar + 236 Poin

    cellyang dipilih misalkan cell c30 maka cell c30 akan bergeser ke top layar

  4. Konsep nya seperti ini. (File DPRRI-(B2.xlsm)

    Kalau saya masukan kedalam programnya, seperti screenshoot.

  5. Filenya seperti ini...

  6. waluyo

    13 Feb 2024 Kubu Raya Kalbar + 236 Poin

    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

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

  8. Di sunting 9 bulan yang lalu oleh Herry

    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

  9. Di sunting 9 bulan yang lalu oleh Herry

    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

 

atau Mendaftar untuk ikut berdiskusi!