EXCEL TIPS जो समय बचाएगी |
जिहां दोस्तों जैसे मैंने टाइटल दिया है वैसे ही ये कोड आपकी समय बचाने की ग्यारंटी मै देता हूँ , अब पहल इस कोड से होगा क्या ये आपको थंबनेल में दिए गए इमेज से समझ में आया होगा की अगर आपके पास एम्प्लोयी का फुल नाम है और उसमेसे आप FIRST NAME, MIDDLE NAME और LAST NAME को अलग अलग कॉलम में करना चाहते हो तो ये EXCEL TIPS सही में आसान तरीके से आपके लिए काम करेगी |
अब आप में बहोत सरे लोग बोलेंगे की भैय्या ये तो हम फ्लैश फील या टेक्स्ट टू कॉलम से यूँ कर सकते है , या फिर हम इसके लिए लेफ्ट, राइट , मिड ये फार्मूला ला भी यूज़ कर सकते है , हाँ एक्सेल में तरीके है पर इनमे कुछ लिमिटेशन और दिक्कते है जैसे की अगर FLASH FILL या TEXT TO COLUMN का इस्तेमाल करके इसका रिजल्ट लाते हो तो ये DYNAMIC नहीं होता है याने आप अगर फुल नाम में कुछ चेंज करते हो तो वो आगे नहीं दिखाई देता है , और रही बात LEFT, RIGHT, MID फार्मूला की तो इसमें फार्मूला बड़ा बन जाता है जिसे फ़ास्ट ऐड करना जरा मुश्किल होता है , फिर आपको ये TRY करना चाहिए |
तो अगर आप बनाना चाहते है एक्सेल में खुदका फार्मूला ला तो निचे है स्टेप्स :
EXCEL TIPS TO CREATE FORMULA स्टेप्स :
१) सबसे पहले आपको ये निचे दिया गया कोड जैसे है वैसे कॉपी करना है |
यहांसे कोड सेलेस्क्ट करना शुरू करे। ..
‘Created by Learn More Youtube Channel (Satish Dhawale)
‘Function for First Name
Function firstname(allc As String)
Dim i As Integer
For i = 1 To Len(allc)
c_char = Mid(allc, i, 1)
If Asc(c_char) = 32 Then
GoTo ENDLOOP
Else
NEWTEXT = NEWTEXT & Mid(allc, i, 1)
End If
Next i
ENDLOOP:
firstname = NEWTEXT
End Function
‘Function for MIDDLE NAME Created by Learn More
Function midname(allc As String)
Dim i As Integer
For i = 1 To Len(allc)
c_char = Mid(allc, i, 1)
If Asc(c_char) = 32 Then
SP_POS = Application.WorksheetFunction.Find(” “, allc, 1)
GoTo ENDLOOP
Else
End If
Next i
ENDLOOP:
For i = SP_POS + 1 To Len(allc)
c_char = Mid(allc, i, 1)
If Asc(c_char) = 32 Then
GoTo ENDLOOP1
Else
NEWTEXT = NEWTEXT & Mid(allc, i, 1)
End If
Next i
ENDLOOP1:
midname = NEWTEXT
End Function
‘Funciton for LAST NAME Created by Learn More
Function lastname(allc As String)
Dim i As Integer
For i = 1 To Len(allc)
c_char = Mid(allc, i, 1)
If Asc(c_char) = 32 Then
SP_POS = Application.WorksheetFunction.Find(” “, allc, 1)
GoTo ENDLOOP
Else
End If
Next i
ENDLOOP:
For i = SP_POS + 1 To Len(allc)
c_char = Mid(allc, i, 1)
If Asc(c_char) = 32 Then
sp_pos2 = Application.WorksheetFunction.Find(” “, allc, SP_POS + 1)
GoTo ENDLOOP1
Else
End If
Next i
ENDLOOP1:
For i = sp_pos2 + 1 To Len(allc)
NEWTEXT = NEWTEXT & Mid(allc, i, 1)
Next i
lastname = NEWTEXT
End Function
यहाँ तक का पूरा कोड सेलेक्ट करे। .
२) और अब इसे आपको एक्सेल के VBA MODULE में पेस्ट करना है, इसके लिए आपको एक ब्लेंक एक्सेल फाइल ओपन करनी है उसमे आपको ALT + F11 ये शॉर्टकट प्रेस करनी है , और बस अब आपको ये इमेज दिख रहे उस आइकॉन से MODULE इन्सर्ट करना है और इस MODULE के ऊपर डबल क्लिक करके आपको ऊपर वाला कोड पेस्ट करना है |
३) उसके बाद एक्सेल शीट में जाकर आप कोई भी एक सेल में फुल नेम टाइप कीजिए और उसके आगे के कॉलम में =FIRSNAME() ये फार्मूला टाइप करके ब्रैकेट के अंदर उस सेल को सिलेक्ट कीजिये जिसमे फुल नेम लिखा है , ऐसे ही आप मिडिल नेम के लिए =MIDNAME() और LAST NAME के लिए =LASTNAME() कीजिये |
४) अब आपके इस फाइल में ये कोड हमेशा के लिए तभी रहेगा अगर आप सेव करते समय macro enabled सेव करते है फाइल को तो |
तो इस में बताई हुई ये EXCEL TIPS आपको पसंद आयी होगी तो बस कमेंट करके बताईये। COMMENT करने के लिए इस WEBSITE को आप अपने मोबाइल में डेस्कटॉप मोड विजिट कीजियेगा आशा है आप कमेंट करेंगे |
और ब्लॉग पढ़ने के लिए निचे लिंक्स दिए है क्लिक करे |
कंप्यूटर टिप्स || एक्सेल टिप्स || टैली टिप्स || ऑटोकैड टिप्स || वर्ड टिप्स || एक्सेल एग्जाम || टैली एग्जाम
५) ये फार्मूला आपके एक्सेल में परमानट कैसे रहेगा इसके लिए आप निचे दिया गया वीडियो देख सकते है |
