bagaimana cara menggeser kolom kosong dengan VBA

  1. 2 tahun lalu

    salam kenal sebelumnya pak,
    mau tanya pak : bagaimana caranya menggeser (bergerak ke kiri ) kolom kosong melalui tombol klik yg di bikin dengan menggunakan macro VBA Excel ? untuk lebih jelasnya sy sertakan link videonya :

    pada video tersebut kasus yg saya tanyakan pada Tombol nilai siswa, pada sheet nilai siswa KOLOM KD yang kosong akan bergeser ke kiri seperti freeze panes excel tapi tidak melalui freeze panes melainkankan tombol klik kecil berwarna orange. ketika tombol klik kecil berwarna orange di klik maka akan akan bergeser dgn sendirinya. mhon penjelasannya please help me pak..

  2. pak please donk di jwb..

  3. Pak please sedikit bersabar ya pak.

    Berikut codingnya

    Untuk columnnya bisa sdikit dimodif jika hanya ada di row 2,maka bisa diganti jadi range("A2:XFA2") untuk mendapatkan column terakhir sbg trigger

    Sub HideMe()
    Application.ScreenUpdating = False
    lstcolumn = Range("A:XFA").Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    Xdefault = ActiveCell.Address
    Range("A1").Select
    Dim i
    For i = 1 To lstcolumn
    If ActiveCell.Value = "" Then
    Columns(ActiveCell.Column).Select
    Selection.EntireColumn.Hidden = True 'Selection.Delete Shift:=xlToLeft # if you want to delete the column
    ActiveCell.Offset(0, 1).Select
    Else
    ActiveCell.Offset(0, 1).Select
    End If
    Next i
    Range(Xdefault).Select
    Application.ScreenUpdating = True
    End Sub

    Sub ShowMe()
    Application.ScreenUpdating = False
    lstcolumn = Range("A:XFA").Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    Xdefault = ActiveCell.Address
    Range("A1").Select
    Dim i
    For i = 1 To lstcolumn
    If ActiveCell.Value = "" Then
    Columns(ActiveCell.Column).Select
    Selection.EntireColumn.Hidden = False 'Selection.Delete Shift:=xlToLeft # if you want to delete the column
    ActiveCell.Offset(0, 1).Select
    Else
    ActiveCell.Offset(0, 1).Select
    End If
    Next i
    Range(Xdefault).Select
    Application.ScreenUpdating = True
    End Sub

  4. thank so much mister..

 

atau Mendaftar untuk ikut berdiskusi!