Tuesday, April 20, 2021
spot_img

एक्सेल के ५ मैजिक प्रोग्राम्स || Excel Magic Programs

एक्सेल के ५ मैजिक प्रोग्राम्स

अगर आप एक्सेल यूज़र तो एक्सेल में कुछ नया करने की हमेशा आपकी सोच रही होगी और यही सोच मेरी भी है तो फिर मैंने बहोत सारे नए प्रोग्राम इसमें बनाये, और उनमेसे ये ५ प्रोग्राम जो एक्सेल कुछ मैजिकल वर्क करते है | जलिये जानते है इनके बारे में |

EXCEL VBA CODE

पहला प्रोग्राम : एक्सेल सॉफ्टवेयर चालू करने के लिए पासवर्ड

तो इस प्रोग्राम में ऐसा कोड है जिसके जरिये आप सेट कर सकते है आपके एक्सेल के लिए पासवर्ड जिहां कोई आप एक्सेल सॉफ्टवेयर स्टार्ट नहीं कर पायेगा इसका मतलब आपको अभी हर एक्सेल फाइल को पासवर्ड देने की जरुरत नहीं है | जिहां बिलकुल सही पढ़ा आपने एक्सेल के सॉफ्टवेयर को ही पासवर्ड देदो फिर आपका समय बचेगा |

आपको करना ये है की निचे दिया गया CODE कॉपी करना है और अपने एक्सेल फाइल में जाकर उसे VBA स्क्रीन में WORKBOOK पे राइट क्लिक करके VIEW CODE करने के बाद उसमे इसे पेस्ट कर देना है , ज्यादा जानकारी के लिए आप निचे दिया गया वीडियो देख सकते है |

*1st Excel Code – Excel Software Opening Password

excel tips in hindi
- Advertisement -

(यहांसे कॉपी करे )

‘Created by Learn More Youtube Channel (Satish Dhawale)
Dim password as string
password= inputbox(“Enter password to start excel”)
if password = “learnmore” then
Else
msgbox “Incorrect Password Excel Application will not open”
Application.quit
end if

(यहाँ तक कॉपी करे )

दूसरा प्रोग्राम : EXCEL के डाटा में REMOVE डुप्लीकेट करे वो भी आटोमेटिक

अब  इस कोड के जरिये आप आपके EXCEL SHEET में लिखे गए किसी भी कॉलम डुप्लीकेट वैल्यू आती है याने टाइप करते समय तो वो आटोमेटिक रिमूव हो जाएगी |

- Advertisement -

आपको करना ये है की निचे दिया गया CODE कॉपी करना है और अपने एक्सेल फाइल में जाकर उसे VBA स्क्रीन में शीट पे राइट क्लिक करके (वो शीट पे राइट क्लिक कीजिये जिसमे आप ये कोड ऐड करना चाहते है ) VIEW CODE करने के बाद उसमे इसे पेस्ट कर देना है , ज्यादा जानकारी के लिए आप निचे दिया गया वीडियो देख सकते है |

*2nd Excel Code : Remove Duplicates Automatic

(यहांसे कॉपी करे )

‘Created by Learn More Youtube Channel (Satish Dhawale)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
ActiveSheet.Range(“A:E”).RemoveDuplicates Columns:=5, Header:=xlYes
End If
End Sub

- Advertisement -

(यहाँ तक कॉपी करे )

तिसरा प्रोग्राम : EXCEL में सभी शीट को एक ही PDF  में कन्वर्ट करे |

अब  इस कोड के जरिये आप आपके EXCEL SHEET में जितने भी शीट्स उन सभी को एक ही पीडीऍफ़ फाइल में कन्वर्ट कर सकते है और वो भी बस एक क्लिक से |

करना ये है की निचे दिया गया CODE कॉपी करना है और अपने एक्सेल फाइल में जाकर उसे VBA स्क्रीन में नया MODULE इन्सर्ट करना है उसपे राइट क्लिक करके VIEW CODE करने के बाद उसमे इसे पेस्ट कर देना है , ज्यादा जानकारी के लिए आप निचे दिया गया वीडियो देख सकते है |

insert module in vba

*3rd Excel Code : Convert all sheets to 1 PDF

(यहांसे कॉपी करे )
‘Created by Learn More Youtube Channel (Satish Dhawale)

Sub Convert_to_1PDF
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=”C:UsersSatishDesktopAllsheets.pdf”, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End if
(यहाँ तक कॉपी करे )

चौथा  प्रोग्राम : एक्सेल में एक नया फार्मूला स्पेशल करैक्टर और नंबर रिमूव करना

अब  इस कोड से आप एक्सेल में RMMOVE SPECIAL CHARACTER का एक फार्मूला ऐड कर सकते है |  साथ में इससे नंबर भी रिमूव हो जायेगा बस टेक्स्ट ही रहेगा |

करना ये है की निचे दिया गया CODE कॉपी करना है और अपने एक्सेल फाइल में जाकर उसे VBA स्क्रीन में नया MODULE इन्सर्ट करना है उसपे राइट क्लिक करके VIEW CODE करने के बाद उसमे इसे पेस्ट कर देना है , ज्यादा जानकारी के लिए आप निचे दिया गया वीडियो देख सकते है |

*Excel 4 th Code : Remove Special Character

(यहांसे कॉपी करे )
‘Created by Learn More Youtube Channel (Satish Dhawale)

Function RemoveSPChar(allc as string)
dim i as integer
for i=1 to len(allc)
CurChar = Asc(Mid(allc,i,1))
Numeric =Mid(allc,1,1)
If CurChar>=65 And CurChar<=90 or CurChar >=97 And CurChar <=122 Or Numeric >=0 And Numeric <=9 Then
NewName = NewName + Mid(allc,i,1)
End If
Next
RemoveSpChar=NewName
End Function
(यहाँ तक कॉपी करे )

पाँचवा  प्रोग्राम : एक्सेल में ऐसे तीन फार्मूला जिससे फुल नाम को स्पिल्ट कर सकते है |

अब  इस कोड से आप एक्सेल में फुल नाम को तीन अलग अलग कॉलम में स्प्लिट कर  का एक फार्मूला ऐड कर सकते है |  साथ में इससे नंबर भी रिमूव हो जायेगा बस टेक्स्ट ही रहेगा |

करना ये है की निचे दिया गया CODE कॉपी करना है और अपने एक्सेल फाइल में जाकर उसे VBA स्क्रीन में नया MODULE इन्सर्ट करना है उसपे राइट क्लिक करके VIEW CODE करने के बाद उसमे इसे पेस्ट कर देना है , ज्यादा जानकारी के लिए आप निचे दिया गया वीडियो देख सकते है |

*5th Code – Split Names using formula.

(यहांसे कॉपी करे )

‘Created by Learn More YouTube Channel (Satish Dhawale)

‘Function for FirstName

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

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

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
(यहाँ तक कॉपी करे )

तो इस में बताई हुई ये 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.

1 COMMENT

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 -