एक उपाय है! इस VBA कोड को अपने वर्कशीट मॉड्यूल में रखें, अर्थात:
- Visual Basic Editor खोलें ( Alt- F11)
- शीर्ष बाएं ट्रीव्यू में, उस शीट पर डबल क्लिक करें जिसे आप अपना समय दर्ज करना चाहते हैं
- केंद्रीय कोड पैनल में, नीचे दिए गए कोड को रखें।
- VBE को बंद करें
इस कोड का उपयोग करें:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value < 0 Or Target.Value > 1 And Target.NumberFormat <> "h:mm" Then Exit Sub
Application.EnableEvents = False
Target.Value = Target.Value / 60
Target.NumberFormat = "mm:ss"
Application.EnableEvents = True
End Sub
यदि आपने पहले ही डेटा में दर्ज की गई सीमा का प्रारूप तैयार कर लिया है, तो पहली पंक्ति के बजाय इस लाइन का उपयोग करें:
If Target.Value < 0 Or Target.Value > 1 Then Exit Sub
ध्यान दें कि इससे मूल्य और प्रारूप बदल जाएगा - हर बार जब आप या तो एक समय में प्रवेश करते हैं - या ऐसा कुछ जो 0 और 1 के बीच होता है! यदि आप इसे एक निश्चित कॉलम तक सीमित करना चाहते हैं, तो इस पंक्ति को जोड़ें:
If Target.Column <> 3 Then Exit Sub
या यह लाइन इसे एक निश्चित सीमा तक सीमित रखने के लिए
If Intersect(Target, Range("A2:A100") Is Nothing Then Exit Sub
59
, सेल को इस रूप में प्रारूपित करें[MM]:SS
। जैसे:02:10:45
इसके बाद प्रदर्शित होगा130:45
। लेकिन जाहिरा तौर पर यह इनपुट के लिए काम नहीं करता है।