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

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 स्टेप्स :


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

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

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

Excel vba tips


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

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

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

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

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

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



COMMENTS

Name

Auto-CAD Tips,7,Computer Tips,53,Coreldraw Tips,1,Excel tips in hindi,46,Ms-Word Tips in Hindi,6,MSCIT Exam Tips,11,Photoshop Tips,5,Tally ERP 9 Tips,8,Tech,4,
ltr
item
Learn More: EXCEL TIPS जो समय बचाएगी
EXCEL TIPS जो समय बचाएगी
https://1.bp.blogspot.com/-NotwHRWCBzI/XX8P-p21cNI/AAAAAAAADTw/loiB6aCh_YENC6pbq9lqNOmsicu5EJzagCLcBGAsYHQ/s320/Excel-formula-to-spilt-full-name.jpg
https://1.bp.blogspot.com/-NotwHRWCBzI/XX8P-p21cNI/AAAAAAAADTw/loiB6aCh_YENC6pbq9lqNOmsicu5EJzagCLcBGAsYHQ/s72-c/Excel-formula-to-spilt-full-name.jpg
Learn More
https://www.learnmoreindia.in/2019/09/excel-tips-in-hindi.html
https://www.learnmoreindia.in/
https://www.learnmoreindia.in/
https://www.learnmoreindia.in/2019/09/excel-tips-in-hindi.html
true
2228148344026858503
UTF-8
Loaded All Posts Not found any posts VIEW ALL Readmore Reply Cancel reply Delete By Home PAGES POSTS View All RECOMMENDED FOR YOU LABEL ARCHIVE SEARCH ALL POSTS Not found any post match with your request Back Home Sunday Monday Tuesday Wednesday Thursday Friday Saturday Sun Mon Tue Wed Thu Fri Sat January February March April May June July August September October November December Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec just now 1 minute ago $$1$$ minutes ago 1 hour ago $$1$$ hours ago Yesterday $$1$$ days ago $$1$$ weeks ago more than 5 weeks ago Followers Follow THIS PREMIUM CONTENT IS LOCKED STEP 1: Share to a social network STEP 2: Click the link on your social network Copy All Code Select All Code All codes were copied to your clipboard Can not copy the codes / texts, please press [CTRL]+[C] (or CMD+C with Mac) to copy