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..
-
7 tahun lalu
-
pak please donk di jwb..
-
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 SubSub 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 -
thank so much mister..