Excel VBA Hindi – Seat Booking Code by Learn More

Excel VBA Hindi – Seat Booking Code by Learn More

इस कोड की मदत से आप कर सकते है एक्सेल में  सेमिनार सीट बुकिंग्स का शीट….इसके लिए आपको निचे दिए गए स्टेप्स फॉलो करने होंगे |

१) सबसे पहला शीट १ में आपको C2 से Z17 वाली रेंज को आल बॉर्डर्स करना है |
२) और फिर ALT + F11  VBA स्क्रीन ओपन कीजिये |
३) अब आपको VBA स्क्रीन में शीट १  राइट क्लिक करना है और VIEW CODE करना है |
४) और निचे दिया गया कोड उसमे कॉपी पेस्ट कीजिये  बस हो गया |

‘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