VBa Freezepanes

  1. 5 tahun lalu

    assalamualaikum, wr.wb
    master @Caton saya mau tanya, dengan kode vba bisa nggak fungsi freezepanes kita buat tidak hanya baris saja atau kolom saja tetapi penggabungan keduanya , terimakasih banyak mas@Caton, semoga allah memperlancarkan rezekinya ...

  2. Caton

    9 Okt 2018 Terverifikasi Indonesia + 20.101 Poin

    @DERY FEBRIAN ... assalamualaikum, wr.wb ... dengan kode vba bisa nggak fungsi freezepanes kita buat tidak hanya baris saja atau kolom saja tetapi penggabungan keduanya ...

    Wa'alaikumsalam. Freezepanes dapat dibuat menggunakan VBA:

    ...
    '+-- Freeze baris.
    Sheet1.Range("5:5").Select
    ThisWorkbook.Windows(1).FreezePanes = True
    
    '+-- Freeze kolom.
    Sheet1.Range("E:E").Select
    Sheet1.Parent.Windows(1).FreezePanes = True
    
    '+-- Freeze baris + kolom.
    Sheet3.Range("E5").Select
    ActiveWindow.FreezePanes = True

    Apabila pada Worksheet yang aktif Freezepanes sudah aktif, maka sebelum menentukan Freezepanes yang baru, Freezepanes yang aktif harus dihapus dahulu:

    ...
    '+-- Bisa seperti ini.
    ThisWorkbook.Windows(1).FreezePanes = False
    
    '+-- Bisa juga seperti ini.
    Sheet1.Parent.Windows(1).FreezePanes = False
    
    '+-- Atau seperti ini.
    ActiveWindow.FreezePanes = False
    ...

    Catatan: Gunakan salah satu script saja ...

    @DERY FEBRIAN ... terimakasih banyak mas@Caton, semoga allah memperlancarkan rezekinya ...

    Sama-sama mas @DERY FEBRIAN ... Semoga Allah Ta'ala melimpahkan kebaikan serupa.

  3. terimakasih master @caton, menyangkut persoalan yang sama, mau tanya umumnya kalau freezepanes itu kan dari sisi kanan tarik/geser kekiri untuk kolom, atau dari bawah/tarik keatas untuk baris, kebalikan dari itu bisa nggak, terimakasih ...

  4. Di sunting 5 tahun lalu oleh DERY FEBRIAN

    o .. maaf master @Caton sedikit ralat permasalahan, ini file saya sertakan, saya ingin menggeser cell namun cel yang berwarna tidak ikut tergeser dan jika posisi kolom kita rubah kesebelah kanan juga apa yang harus kita edit dari kode vba tersebut , terimakasih

  5. Caton

    10 Okt 2018 Terverifikasi Indonesia + 20.101 Poin

    @DERY FEBRIAN ... umumnya kalau freezepanes itu kan dari sisi kanan tarik/geser kekiri untuk kolom, atau dari bawah/tarik keatas untuk baris, kebalikan dari itu bisa nggak ...

    Tidak bisa, demikian yang saya tahu.

    @DERY FEBRIAN ... saya ingin menggeser cell namun cel yang berwarna tidak ikut tergeser dan jika posisi kolom kita rubah kesebelah kanan juga ...

    [1]. Jika maksudnya ingin agar area yang terlihat dilayar tidak dapat digulir atau digeser, misalkan seperti gambar berikut:

    scroll-area.png

    bisa saja menggunakan script yang ± seperti berikut:

    Sub AturScrollArea()
        Dim lRows As Long, lCols As Long
        Dim sAddr As String
        
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        
        With Sheet1
            sAddr = .Parent.Windows(1).VisibleRange.Address
            sAddr = .Range(sAddr).SpecialCells(xlCellTypeBlanks).Address
            lRows = .Range(sAddr).Rows.Count - 1
            lCols = .Range(sAddr).Columns.Count - 1
            .ScrollArea = .Range(sAddr).Resize(lRows, lCols).Address
        End With
    
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    
    End Sub

    [2]. Jika maksudnya baris dan kolom yang berwarna tetap tidak bergerak (statis) sementara area edit dapat melampaui baris ke-21 dan atau melampaui kolom P (lihat contoh area pada gambar di atas), maka hal tersebut tidak bisa dilakukan, meskipun menggunakan Freezepanes. Apabila Scroll Area dari jendela Worksheet:

    tidak didefinisikan, maka Excel menetapkan yang dapat digulir adalah batas baris dan kolom maksimum.

    didefinisikan pada range tertentu, namun range tersebut melebihi batas tampak (Viewable Area) dari jendela Worksheet, maka area tersebut masih dapat digulir sampai batas baris dan kolom yang ditentukan.

    didefinisikan pada range tertentu, namun range tersebut lebih kecil dari batas tampak (Viewable Area) dari jendela Worksheet, maka area tersebut tidak dapat digulir melebihi batas tampak jendela.

    Demikian yang saya ketahui dan yang dapat saya jelaskan.

  6. terimakasih master @Caton ...

 

atau Mendaftar untuk ikut berdiskusi!