आप एक्सेल में सीट बुकिंग शीट बनाना चाहते हो तो निचे दिए गए कोड को कॉपी करके आपके एक्सेल vba में यूज़ करे कैसे इस्तेमाल करना है वो निचे दिए गए वीडियो में बताया है
‘CODE 1 BY LEARN MORE
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range(“C2:Z17”)) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
Selection.Interior.Color = RGB(0, 255, 0)
Selection.Value = “B”
End Sub
”CODE 2 BY LEARN MORE
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range(“C2:Z17”)) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
Selection.Interior.Color = RGB(255, 255, 255)
Selection.Value = “”
End Sub