Tuesday, April 20, 2021
spot_img

EXCEL TIPS जो समय बचाएगी

EXCEL TIPS जो समय बचाएगी |

जिहां दोस्तों जैसे मैंने टाइटल दिया है वैसे ही ये कोड आपकी समय बचाने की ग्यारंटी मै देता हूँ , अब पहल इस कोड से होगा क्या ये आपको थंबनेल में दिए गए इमेज से समझ में आया होगा की अगर आपके पास एम्प्लोयी का फुल नाम है और उसमेसे आप FIRST NAME,  MIDDLE NAME और LAST NAME को अलग अलग कॉलम में करना चाहते हो तो ये  EXCEL TIPS सही में आसान तरीके से आपके लिए काम करेगी |

excel formula to split names

अब आप में  बहोत सरे लोग बोलेंगे की भैय्या ये तो हम फ्लैश फील या टेक्स्ट टू  कॉलम से यूँ कर सकते है , या फिर हम इसके लिए लेफ्ट, राइट , मिड ये फार्मूला ला भी यूज़ कर सकते है , हाँ  एक्सेल में तरीके है पर इनमे कुछ लिमिटेशन और दिक्कते है जैसे की अगर FLASH FILL या TEXT TO COLUMN का इस्तेमाल करके इसका रिजल्ट लाते हो तो ये DYNAMIC नहीं होता है याने आप अगर फुल नाम में कुछ चेंज करते हो तो वो आगे नहीं दिखाई देता है , और रही बात LEFT, RIGHT, MID फार्मूला की तो इसमें फार्मूला बड़ा बन जाता है जिसे फ़ास्ट ऐड करना जरा मुश्किल होता है , फिर आपको ये TRY करना चाहिए |

तो अगर आप बनाना  चाहते है एक्सेल में खुदका फार्मूला ला तो निचे है स्टेप्स :

EXCEL TIPS TO CREATE FORMULA स्टेप्स :

१) सबसे पहले आपको ये निचे दिया गया कोड जैसे है वैसे कॉपी करना है |

- Advertisement -

यहांसे कोड सेलेस्क्ट करना शुरू करे। ..

‘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

- Advertisement -

‘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

- Advertisement -

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 के ऊपर डबल क्लिक करके आपको ऊपर वाला कोड पेस्ट करना है |

Excel vba tips

३) उसके बाद एक्सेल शीट में जाकर आप कोई भी एक सेल में फुल नेम  टाइप कीजिए और उसके आगे के कॉलम में =FIRSNAME() ये फार्मूला टाइप करके ब्रैकेट के अंदर उस सेल को सिलेक्ट कीजिये जिसमे फुल नेम लिखा है , ऐसे ही आप मिडिल नेम के लिए =MIDNAME() और LAST NAME के लिए =LASTNAME() कीजिये |

४) अब आपके इस फाइल में ये कोड हमेशा के लिए तभी रहेगा अगर आप सेव करते समय macro enabled सेव करते है फाइल को तो |

तो इस में बताई हुई ये EXCEL TIPS आपको पसंद  आयी होगी तो बस कमेंट करके बताईये। COMMENT करने के लिए इस WEBSITE को आप अपने मोबाइल में डेस्कटॉप मोड विजिट कीजियेगा आशा है आप कमेंट करेंगे |

और ब्लॉग पढ़ने के लिए निचे लिंक्स दिए है क्लिक करे |

कंप्यूटर टिप्स   ||  एक्सेल टिप्स   ||  टैली टिप्स  ||  ऑटोकैड टिप्स  || वर्ड टिप्स || एक्सेल एग्जाम  ||  टैली एग्जाम 

५) ये फार्मूला आपके एक्सेल में परमानट कैसे रहेगा इसके लिए आप निचे दिया गया वीडियो देख सकते है |

- Advertisement -
Avatar
Satish Dhawalehttp://learnmorepro.com
Satish Dhawale has 14 years experience as Computer Trainer. He is a Successful YouTuber having 7+ YouTube Channels. Recently He founded LEARN MORE PRO (Website) and MAZA COURSE (Android Application), Educational Platform for online computer courses with at fair and cheap price in regional Hindi And Marathi languages.

LEAVE A REPLY

Please enter your comment!
Please enter your name here

Must Read

जानिए MS Excel के Extensions बारे में

MS Excel Extension दोस्तों आज के समय में MS Excel का उपयोग हर कोई करता है चाहे वह Data Entry के लिए हो या Data...
- Advertisment -

Popular

टाइपिंग स्पीड बढ़ाने के लिए ये सात टिप्स

टाइपिंग स्पीड बढ़ाने के लिए ये सात टिप्स | Typing tips to increase speed  आजकल हर कोई कंप्यूटर में जॉब करना चाहता है ?, पर...

31 Excel Powerful Formulas

31 Excel Powerful Formulas Explain in Hindi इस ब्लॉग में वो ३१ फार्मूला है एक्सेल के जो हमे हर ऑफिस यूज़फुल होते है तो इन...

MSCIT Theory Questions Marathi – Part 3

प्रश्न १. मॉनिटरच्या स्क्रीनवरील एखाद्या प्रतिमेच्या आऊटपुटला नेहमी सॉफ्टकॉपी म्हटले जाते.       चूक       बरोबर उत्तर तपासा ! प्रश्न २. हेडफोन ही एक...

Hindi, Marathi typing ISM Software Free download

Hindi, Marathi typing ISM Software Free download अगर हिंदी  या मराठी टाइपिंग सीखना चाहते हो  इसके लिए आपको एक सॉफ्टवेयर आपने लैपटॉप या कंप्यूटर में...

Video Editing Tutorial Download Files

Video Editing Tutorial Download Files तो सभी फाइल्स डाउनलोड के लिए निचे दिए गए लिंक्स पे क्लिक कर सकते है और निचे टॉपिक्स भी दिए...
- Advertisment -

Technology

Personalize

Windows 10 के 12 Personalize Tips हिन्दी मे।

क्या आप भी अपने कंप्युटर मे विंडोज़ 10 का उपयोग करते है? जी हाँ बिल्कुल करते ही होंगे क्युकी आज के समय मे विंडोज़...
WhatsApp

बिना मोबाइल नंबर सेव किये WhatsApp पे मैसेज भेजे

दोस्तों WhatsApp आज के समय में एक ऐसा App है। जो हर कोई अपने मोबाइल में इस्तेमाल करता है। इसे चाहे दोस्तों को मैसेज...
What is Domain Name

Domain Name क्या होता है?

What is Domain Name explained in Hindi? नमस्कार दोस्तों आज के इस ब्लॉग में हम Domain क्या है और इसका उपयोग क्यों होता है? यह...
Whats-App Trick

WhatsApp Texting Tips and Tricks in Hindi

WhatsApp में किसी Text को bold कैसे करे? | How to make text bold in WhatsApp explained in Hindi? WhatsApp एक बिल्ट-इन फीचर के साथ...
Lost Mobile phone

मोबाइल खो जाने पर क्या करे?

How to find or lock lost Mobile Phone? अक्सर हमारे साथ ऐसा होता है, जब हमने अपना फोन किसी स्थान पर खो दिया है...
- Advertisment -