snasui.com ยินดีต้อนรับ ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
ตอนนี้ เขียน code พอได้แล้ว แต่ติดปัญหาคือ มันไม่ทำงานอัตโนมัติอะครับ ต้องไปนั่งกด play ต้องปรับตรงไหน หรือทำยังไงให้ทำงานตลอดโดยเราไม่ต้องไปกด play เองอะครับ
Sub hide2_row()
Dim lastrow As Integer, i As Integer, i_row As Integer, i_col As Integer
i_row = 5
i_col = 2
ActiveWorkbook.Activate
lastrow = 30
Cells(i_row, i_col).Select
For i = i_row To lastrow
If Cells(i, i_col).Value = "" Then
Range(Rows(i), Rows(i)).EntireRow.Hidden = True
Else: Range(Rows(i), Rows(i)).EntireRow.Hidden = False
End If
Next i
End Sub