การใช้ Ctrl+r เพื่อเรียก Module
Posted: Fri Sep 25, 2020 10:16 am
ใน Module1 เรามี Code
ความต้องการคือว่า เราเลือก sheet ใดหนึ่งแล้ว เมื่อกด Ctrl+r ให้ Code ดั่งก่าวทำงานใน sheet นั้น จะปรับ code อย่างไรครับ?
Code: Select all
Sub HideRows()
Application.Calculation = xlCalculationManual
ActiveSheet.Unprotect Password:="123456"
Dim r As Range
For Each r In Range("c14:c1513")
If r = 0 Then
r.EntireRow.Hidden = True
End If
Next r
ActiveSheet.Protect Password:="123456"
Application.Calculation = xlCalculationAutomatic
End Sub
กดแป้น Alt+F8 เพื่อเข้าไปยังหน้าต่าง Run Macro แล้วกำหนดตามภาพครับ