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

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

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

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

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

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

*1st Excel Code – Excel Software Opening Password

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

‘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 में लिखे गए किसी भी कॉलम डुप्लीकेट वैल्यू आती है याने टाइप करते समय तो वो आटोमेटिक रिमूव हो जाएगी |

आपको करना ये है की निचे दिया गया 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

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

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

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

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

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

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

*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 को आप अपने मोबाइल में डेस्कटॉप मोड विजिट कीजियेगा आशा है आप कमेंट करेंगे |

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

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

ऊपर के कोड कैसे प्लेस करने है नहीं समजा है तो निचे दिया गया वीडियो देख सकते है |