Very useful VBA codes

Very Useful VBA codes

Workbook

  • Save workbook or save workbook in shared mode - यह macro Excel workbook को एक specified folder और नाम के साथ save करता है, और यदि folder या नाम खाली या गलत हो तो default option उपयोग करता है।
  • Open File Dialog Box - यह code एक file dialog box खोलता है, चुनी गई file को खोलता है, data merge करने की प्रक्रिया चलाता है, और फिर file बंद कर देता है।
  • Number format for Europe - यह code chart में data labels को thousands (K), millions (M) format में या general number format में दिखाने के लिए format बदलता है।
  • Display name turns into an email address - यह function Outlook का उपयोग करके किसी व्यक्ति के Display Name को resolve कर के उसका सही नाम या e-mail address प्राप्त करता है।
  • Check AutoSave of workbook - यह macro Excel में AutoSave की स्थिति जांचता है और यदि AutoSave on हो तो उसे off करके message दिखाता है।
  • Get File name from path - यह macro दिए गए file path से केवल file का नाम निकालकर उसे Debug window में दिखाता है।
  • Reverse String - यह macro दिए गए वाक्य में शब्दों के क्रम को उल्टा करके नई string बनाता है।
  • Calculate Total Run Time - यह macro code के शुरू और अंत के समय के आधार पर उसकी कुल run-time अवधि (मिनट/समय) की गणना करके संदेश दिखाता है।
  • Paste value as value and formula as formula - यह macro column A की प्रत्येक row को जाँचकर formula या value के अनुसार उसे column B में paste करता है।
  • Filter list with multiple criteria in same column - यह macro एक array में कई values लेकर sheet पर auto-filter लागू करता है।
  • Replace Cell Formula - यह selected cells के formula को `ROUND( ,0)` में बदलकर उन्हें integer value में convert करता है।
  • Number to Text - यह function किसी numeric amount को रुपये और पैसे सहित उसके अंग्रेज़ी शब्दों में बदल देता है।
  • Compile Workbooks with Filter - यह macro एक folder में मौजूद सभी Excel files को खोलकर Key Date के आधार पर data filter करता है और चुना हुआ data एक master sheet में एकत्रित करता है।
  • Change shape color - यह macro sheet में मौजूद oval shape का fill और border color बदल देता है।
  • Print All queries/connections - यह macro workbook में मौजूद सभी data connections के नाम Debug window में दिखाता है।
  • Refresh Query - यह macro एक specified  Power Query को refresh करता है।
  • Display Active Workbook Path - यह macro active workbook का पूरा file path (नाम सहित) एक message box में दिखाता है।
  • Refresh All Data Connections - यह workbook में मौजूद सभी data connections और queries को एक साथ refresh करता है।
  • Save Excel Backup Automatically - यह वर्तमान समय-तिथि के साथ active workbook की एक backup copy निर्धारित folder में save करता है।

Pivot

  • Refresh specific pivot table - यह macro pivot table को refresh करता है और input sheet से लिए गए criteria के आधार पर data fields को pivot में जोड़ता है।
  • Add measures into pivot table - यह macro pivot table को refresh करता है और criteria के आधार पर measures को pivot में जोड़ता है।
  • Filter multiple items in Pivot - यह pivot table के एक field में केवल specified values (जैसे 101, 105, 107) को दिखाकर बाकी सभी items को छुपा देता है।
  • Add custom sort list and apply on pivot - यह एक custom sort list बनाकर pivot table में Currency field को उसी क्रम में sort करता है।
  • Add fields into pivot table - यह pivot table में row, column और value fields जोड़कर उनकी स्थिति और layout set  करता है।
  • Add or remove pivot calculated field without loop - यह pivot table से पुराने data fields हटाकर वर्ष और forecast के आधार पर नए fields जोड़ता है और उनकी position set करता है।
  • Add or remove pivot calculated field with loop - यह macro loop का उपयोग करके pivot table से पुराने calculated fields हटाता है और वर्ष/महीने के आधार पर नए fields क्रमशः जोड़ता है।
  • List all the pivot tables in a workbook - यह workbook की सभी pivot tables की जानकारी (नाम, source, refresh details और location) एक नई sheet में list करता है।
  • Change pivot value field based on another cell value - यह code किसी cell के value बदलने पर pivot table के value field को उसी selected महीने के अनुसार automatic रूप से update करता है।
  • Remove filters from Pivot and range together - यह macro sheet से सभी filter हटाकर छुपी हुई rows को दिखाता है और auto-filter को reset करता है।

Chart

  • Change Chart Max Axis - यह macro तीन अलग-अलग sheets में मौजूद chart के Value Axis (Y-Axis) का Maximum Scale एक तय value (जैसे 2000) पर set करने के लिए उपयोग किया जाता है।
  • Create a Chart from Data - यह macro Sheet1 के data (A1:B10) से एक नया Column Chart बनाकर उसे उसी sheet पर निर्धारित आकार और स्थान में दिखाने के लिए उपयोग किया जाता है।
  • Change Chart Type - यह macro ActiveChart के chart type को बदलकर उसे Line Chart में परिवर्तित करता है।
  • Add Chart Title - यह macro ActiveChart में chart title जोड़कर उसका text “Monthly Sales Performance” set करता है।
  • Add Axis Titles - यह macro ActiveChart में Category Axis (X-axis) और Value Axis (Y-axis) के लिए क्रमशः “Month” और “Revenue ($)” title जोड़ता है।
  • Change Chart Colors - यह macro ActiveChart की सभी Series का रंग बदलकर उसे नीला (RGB: 0,128,255) set करता है।
  • Add Data Labels - यह  ActiveChart की सभी Series पर Data Labels जोड़ने के लिए उपयोग किया जाता है।
  • Create a Pie Chart - यह macro ActiveSheet के data (A1:B5) से एक नया Pie Chart बनाकर उसी sheet पर दिखाने के लिए उपयोग किया जाता है।
  • Move Chart to New Sheet - यह macro ActiveChart को एक नई sheet में “Sales Chart” नाम के साथ transfer करता है।
  • Update Chart Data Dynamically - यह Sheet1 में मौजूद “Chart 1” के data source को बदलकर उसे A1:B20 range से update करता है।
  • Loop All Charts and Refresh - यह macro workbook की सभी sheets में मौजूद सभी charts को Refresh करने के लिए उपयोग किया जाता है।
  • Add a Secondary Axis - यह ActiveChart में एक नई Series (Profit) जोड़कर उसे Secondary Axis पर दिखाने के लिए उपयोग किया जाता है।
  • Export Chart as an Image - यह ActiveChart को PNG image file के रूप में दिए गए path पर Export करने के लिए उपयोग किया जाता है।
  • Resize and Move Chart - यह ActiveSheet में मौजूद “Chart 1” का स्थान और आकार बदलकर उसे तय किए गए Left, Top, Width और Height के अनुसार set करता है।
  • Change Chart Style - यह ActiveChart की Chart Style को बदलकर दिए गए number (1–48 में से, जैसे 4) के अनुसार set करता है।
  • Add Trendline - यह macro ActiveChart की पहली Series में एक Linear Trendline जोड़ने के लिए उपयोग किया जाता है।
  • Add Chart Legend - यह ActiveChart में Legend को दिखाकर उसकी position Bottom पर set करता है।
  • Create a Line Chart - यह macro ActiveSheet के data (A1:B12) से Markers के साथ Line Chart बनाता है।
  • Delete All Charts - यह workbook की सभी sheets से सभी charts को delete करने के लिए उपयोग किया जाता है।
  • Copy Chart to Another Sheet - यह  Sheet1 के “Chart 1” को copy करके Sheet2 में paste करने के लिए उपयोग किया जाता है।
  • Automatically Create Charts for Each Column - यह macro ActiveSheet में प्रत्येक data column के लिए अलग-अलग Column Chart बनाकर उनके header को chart title के रूप में set करता है।

BO (Business Object)

  • Check SAP add-in - यह code Excel में SAP BW Add-In (SapExcelAddIn) की availability और connection status check करता है।
  • Activate SAP add-in - यह Excel में SAP BW Add-In (SapExcelAddIn) को check करके, यदि वह disconnect हो तो उसे Activate / Connect करने के लिए उपयोग किया जाता है।
  • Deactivate SAP add-in - यह Excel में SAP BW Add-In (SapExcelAddIn) को check करके, यदि वह connect हो तो उसे Deactivate / Disconnect करने के लिए उपयोग किया जाता है।
  • Refreshing BO queries for entire workbook - यह macro पूरे workbook के लिए SAP BO Queries को refresh करता है।
  • Apply background filter in BO - यह पूरे workbook के लिए SAP BO Queries को refresh करता है, आवश्यक SAP Add-In को activate करता है, input variable set करता है, filter लागू करता है और data update करने के बाद workbook को save करता है।

SAP

  • Get ID & Text of each control in SAP window - यह macro SAP GUI Scripting का उपयोग करके SAP screen पर मौजूद सभी controls के IDs और Texts को list करता है।
  • Other very useful codes for SAP - यह code SAP में command field में "/n" enter करके एक नई window (नई session) खोलने के लिए उपयोग किया जाता है।
  • Click on Generate/Replace file button - यह code check करता है कि यदि “Closing balance.xlsx” file मौजूद नहीं है तो SAP में Save/Yes button दबाए, अन्यथा Overwrite/No button दबाए।
  • By-pass Information windows - यह code SAP में खुलने वाले सभी Information windows को तब तक बंद करता है जब तक कोई ऐसी window active रहती है।
  • Get SAP date format - यह macro SAP GUI से SAP date format के अनुसार dates set करता है।
  • Close Excel instances of SAP - यह code SAP से download किए गए Excel file को बंद करने और संबंधित Excel application instance को सही तरीके से quite करने के लिए उपयोग किया जाता है।
  • Close pop up if title is Information - यह code SAP में अगर Active Window का नाम “Information” है तो उस window का OK button दबाकर उसे off करने के लिए उपयोग किया जाता है।
  • Save SAP screenshot to folder - यह code SAP screen का Hard Copy (Screenshot) लेकर उसे specified folder में save करता है।

PDF

  • Export as PDF - यह macro Active Sheet को automatic PDF में export करके वर्तमान workbook folder में timestamp के साथ save करता है।
  • Export Excel Sheet to PDF - यह macro Active Sheet को PDF के रूप में export करके workbook folder में “MySheet.pdf” नाम से save और खोलता है।
  • Save Specific Range as PDF - यह macro A1:D20 range को PDF के रूप में export करके workbook folder में “RangeExport.pdf” नाम से save करता है।
  • Export Multiple Sheets as One PDF - यह macro Sheet1 और Sheet2 को एक साथ PDF में export करके workbook folder में “MultiSheets.pdf” नाम से save करता है।
  • Convert Word Document to PDF (From Word) - यह macro Active Word Document को PDF में convert करके उसी folder में document का नाम बदलकर PDF के रूप में save करता है।
  • Attach Generated PDF to Outlook Email - यह macro Active Sheet को PDF में export करके उसे Outlook email में attach कर देता है और भेजने के लिए email window खोलता है।
  • Print PDF Automatically (Using Shell) - यह specified PDF file को Adobe Acrobat Reader के माध्यम से silent print करता है।

PowerPoint

  • Create a New Slide - यह macro Active PowerPoint Presentation में पहली position पर एक नई slide Title Layout के साथ जोड़ता है।
  • Insert Current Date & Time on Slide - यह macro Active PowerPoint Slide में एक Textbox जोड़कर उसमें वर्तमान तारीख और समय (Now) डालता है।
  • Copy charts from Excel file to PowerPoint file - यह macro विभिन्न Excel files को खोलकर उनके data को PowerPoint presentation में जोड़ता है, और प्रत्येक क्षेत्र (Region) के लिए अलग-अलग folder में TGP.pptx के रूप में save करता है।

Web

  • Excel Table to HTML Table - यह macro Excel की Sheet1 के data को पढ़कर उसे HTML table के रूप में convert करता है और user द्वारा चुने गए स्थान पर .txt file के रूप में save करता है।
  • Open browser in background - यह macro Internet Explorer का उपयोग करके दिए गए SharePoint URL को open करता है और संबंधित folder को Windows Explorer में background में खोलता है।
  • Words count on a web page - यह दिए गए website page का HTML content पढ़कर उसमें मौजूद शब्दों की कुल संख्या गिनता है।
  • SharePoint File Download - यह code SharePoint से दिए गए URL पर file download करके उसे specified local folder में save करता है और सफल होने पर message box दिखाता है।
  • Open Share Point Folder - यह macro Internet Explorer खोलकर दिए गए SharePoint folder URL पर navigate करता है, VBA से connect करता है, load होने तक इंतजार करता है और फिर IE को बंद कर देता है।
  • Sync Files - यह macro Laptop folder में मौजूद सभी files को check करके, अगर वे SharePoint Server folder में नहीं हैं तो वहां copy करता है।
  • Close Internet Explorer - यह Internet Explorer खोलकर दिए गए SharePoint site URL पर navigate करता है, 5 second इंतजार करता है और फिर IE को बंद कर देता है।
  • Open Edge browser with predefined url - यह macro Microsoft Edge खोलकर दिए गए SharePoint site URL पर navigate करता है और 10 second तक प्रतीक्षा करता है।
  • Open SharePoint using Shell - यह macro Command Prompt का उपयोग करके Microsoft Edge में दिए गए SharePoint URL को background में खोलता है।

Outlook

  • Open message file - यह code Outlook खोलकर specified .msg file को load करता है और उसे display करता है।
  • Save Email Attachments - यह macro Outlook Inbox में मौजूद सभी emails के Attachments को specified folder में save करता है।
  • Send Mail Notification - यह macro Outlook के माध्यम से तैयार report की जानकारी और link सहित email notification भेजता है।
  • Send an Email from Excel/Word/PowerPoint - यह macro Outlook के माध्यम से automatic emails भेजता है।

Word

  • Add Text to the Document - यह macro selected position पर text "Hello from the System" डालता है।
  • Create a New Document and Add Text - यह macro एक नया Word document बनाता है और उसमें text "This is a new document created through VBA!" डालता है।
  • Save Document Automatically - यह macro active Word document को specified path पर save करता है।
  • Find and Replace Text - यह code Word document में "OldText" को "NewText" से बदलता है।
  • Apply Bold & Font Size - यह macro selected text को bold करता है और font size 14 set करता है।
  • Add Page Numbers - यह code document के footer में page number जोड़कर उसे center में align करता है।
  • Insert Header & Footer - यह macro document में header और footer जोड़ता है।
  • Insert Table - यह macro active document में 3x3 table जोड़ता है।
  • Protect Document (Password) - यह active document को केवल पढ़ने के लिए password "1234" के साथ सुरक्षित करता है।
  • Loop Through Document Paragraphs - यह active document के प्रत्येक paragraph का text Immediate Window में दिखाता है।
  • Show MsgBox with Document Word Count - यह macro active document में कुल शब्दों की संख्या प्रदर्शित करता है।
  • Convert Word to PDF - यह macro active document को PDF format में "C:\Test\Export.pdf" path पर save करता है।
  • Export Current Document as PDF - यह macro active Word document को PDF format में उसी folder में save करता है और सफलतापूर्वक export होने पर संदेश दिखाता है।
  • Close Document Without Save Prompt - यह active Word document को बिना save किए बंद करता है।
  • Remove Extra Spaces from Entire Document - यह macro active Word document में अतिरिक्त space को हटाकर एक space में बदलता है।
  • Convert All Text to Uppercase - यह macro selected text को Word document में बड़े अक्षरों (Uppercase) में बदलता है।
  • Highlight All Occurrences of a Word - यह macro document में "Word" शब्द को खोजकर उसे highlight करता है।
  • Autofit Table to Window - यह macro selected table को window के अनुसार auto-fit करता है।
  • Add Colored Row to Table - यह macro Word document की पहली table में एक नई row जोड़कर उसे पीले रंग से highlight करता है।
  • Apply Title Style to First Paragraph - यह macro Word document के पहले paragraph पर title style लागू करता है।
  • Insert Page Break Every 2 Paragraphs - यह macro हर दूसरे paragraph के बाद page break डालता है।
  • Add Bookmark to Selected Text - यह macro selected text पर "MyBookmark" नाम का bookmark जोड़ता है।
  • Jump to a Bookmark - यह macro document में "MyBookmark" नामक bookmark पर जाता है और उसे select करता है।
  • Run Mail Merge to New Document - यह macro mail merge data को एक नए document में भेजकर नया document बनाता है।
  • Insert Image into Word - यह macro चुनी हुई जगह में चित्र (Image.jpg) सम्मिलित करता है।
  • Create Table of Contents Automatically - यह चुनी हुई जगह पर document की table (Table of Contents) सम्मिलित करता है।

System

  • 32 to 64 bit conversion - यह code Windows के 32-bit या 64-bit version के अनुसार किसी process को खोलने और उसके exit code को प्राप्त करने के लिए आवश्यक function declare करता है।
  • Get System User Details - यह macro current users और computer का नाम message box में दिखाता है।
  • System Date & Time - यह macro current तिथि और समय message box में दिखाता है।
  • Check If Folder Exists - यह macro जाँच करता है कि "C:\TestFolder" folder मौजूद है या नहीं और result दिखाता है।
  • Create Folder Programmatically - यह macro "C:\TestFolder" नाम का नया folder बनाता है।
  • Open Any Website From VBA - यह macro web browser में "https://www.google.com" website खोलता है।
  • Detect Office Version Installed - यह macro users के Microsoft Office का version दिखाता है।
  • Run External EXE from VBA - यह code Notepad application खोलता है।
  • Get Screen Resolution - यह macro screen की width और height दिखाता है।
  • Check If User Is Admin (Windows Group) - यह macro जांचता है कि user admin है या सामान्य user।
  • Play Windows Beep Sound - यह macro computer से एक beep आवाज़ निकालता है।
  • SystemInfo Command Dump - यह macro पूरी system जानकारी लेकर C:\SysInfo.txt file में save करता है।
  • System Monitor Trick - यह macro सभी चल रहे process की list लेकर C:\Processes.txt file में save करता है।

Others

  • Remove lines from VBA procedure - यह macro "WaterFall_Graph" module की सभी lines को एक-एक करके हटाता है।
  • Create Windows Task Scheduler entry using VBA - यह macro अगले दिन के लिए Windows Task Scheduler में एक नई task entry बनाता है और Excel file को निर्धारित समय पर खोलता है।
  • VBA Functions - यह code string को तारीख में बदलता है, किसी array से duplicate हटाता है और users का ID और नाम प्राप्त करता है।
  • Get user ID - यह function वर्तमान computer user का userID लौटाता है।
  • Get user Name - यह function वर्तमान computer user का username लौटाता है।
  • Get Outlook properties like mobile number, email etc. - यह function Outlook में दिए गए display नाम को संबंधित email address या नाम में बदलता है।
  • Add month to dictionary - यह subroutine एक Dictionary में महीनों को number के साथ जोड़ता है और दिए गए number के आधार पर महीना चुनता है।
  • VBA Free - यह code VBA project की सुरक्षा को bypass कर करके protection हटाने और restore करने का काम करता है।
  • Insert Code/Sub Procedure at runtime - यह function VBA editor में दिए गए module में programmatic तरीके से एक नया Sub procedure जोड़ने का काम करता है।
  • Delete VBA Procedure - यह macro किसी workbook के VBA project से module या component को हटाने का काम करता है।

एक टिप्पणी भेजें

Please do not enter any spam link in the comment box.

और नया पुराने