Table of Contents
५ Excel VBA कोड एक्सेलमें स्मार्ट वर्ककरने के लिए|
अगर आपचाहते है एक्सेलमें स्मार्टली कामकरना तो बसये टिप्स फॉलोकीजिये, कुछ यूनिककोड आपके साथशेयर कर रहाहूँ जो आपकोजरूर TRY करनाचाहिए |
Excel VBA Magic Code :
1st कोड :
अगर आप चाहतेहै एक्सेल मेंजिस सेल मेंक्लिक करे वोसेल का बैकग्राउंडकलर चेंज होकेहाईलाइट होना चाहिएतो आपको निचेदिया गया कोडएक्सेल फाइल मेंALT + F11 प्रेस करके VBA स्क्रीन मेंआना है औरवहाँपे वर्कशीट(Right Click on Sheet 1) पे राइट क्लिकView Code करके पेस्ट कीजिये |
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheet1.Range(“A1:XFD1048576”).ClearFormats
Selection.Interior.Color = RGB(255, 0, 0)
End Sub
इसके बाद एक्सेलशीट में क्लिककरके आप चेककर सकते जिससेल पे आपक्लिक करोगे वोहाईलाइट हो जाएगी|
2nd कोड :
अगर आप चाहतेहै जो सेलको आप सेलेक्टकरे उसका पूराकॉलम हाईलाइट होतो बस निचेदिया गया कोडवर्कशीट / याने आपकीशीट्१ पे राइटक्लिक करके पेस्टकीजिये |
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheet1.Range(“A1:XFD1048576”).ClearFormats
Target.Cells.EntireColumn.Interior.Color = RGB(255, 0, 0)
End Sub
इसके बाद एक्सेलशीट में क्लिककरके आप चेककर सकते जिससेल पे आपक्लिक करोगे वोCOLUMN हाईलाइट हो जायेगा|
3rd कोड :
एक्सेल में वर्ककिसी में सेलमें टाइप कियाटेक्स्ट की साइजके हिसाब सेकॉलम की साइजआउटफिट होनी चाहिएतो को निचेदिया गया कोडआपके एक्सेल केVBA SCREEN में वर्कशीट/SHEET1 पे राइट क्लिककरके पेस्ट करनाहै |
Private Sub Worksheet_Change(ByVal Target As Range)
cells.entirecolumn.autofit
End Sub
इसके बाद किसीभी सेल मेंटेक्स्ट टाइप करकेदेखिये कॉलम कीसाइज उस टेक्स्टअकॉर्डिंग ADJUST हो जाएगी |
4th कोड :
एक्सेल में वर्कबुक क्लोज होतेही कोई मैसेजआने के लिएआपको निचे दियागया कोड आपकेएक्सेल के VBA SCREEN मेंवर्कबुक पे राइटक्लिक करके पेस्टकरना है |
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
MsgBox “You are closing Learn More Excel File”
End Sub
फिर वर्कबुक क्लोज करकेदेखिये आपने जोमैसेज रखा हैवो शो होगा|
5th कोड :
एक्सेल में वर्कबुक ओपन होतेही वेलकम मैसेजआने के लिएआपको निचे दियागया कोड आपकेएक्सेल के VBA SCREEN मेंवर्कबुक पे राइटक्लिक करके पेस्टकरना है |
Private Sub Workbook_Open()
MsgBox “Welcome to Learn More Excel File”
End Sub
इसके बाद वर्कबुकसेव कीजिये औरसेव करते समयSAVE AS TYPE में MACRO ENABLED रखिये| और सेव करकेक्लोज कीजिये जरूरदुबारा ओपन कीजिये|
Thanks You Sir This is Great Video. Sirji I have one problem. I am trying automatic save pdf vba code in office 2007. but not working. But when same vba code use in excel 2016 it is working fine. Please help me I want to use this code in office 2007. please help me. Thanks.
Thanks.
Very Nice Sir, Good Work keep it up.