५ Excel VBA कोड एक्सेल में स्मार्ट वर्क करने के लिए |

५ Excel VBA कोड एक्सेल में स्मार्ट वर्क करने के लिए |

 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  रखिये| और सेव करकेक्लोज कीजिये जरूरदुबारा ओपन कीजिये|

Spread the love

Satish Dhawale

मुझे कंप्यूटर शिक्षण के क्षेत्र में 14 साल का अनुभव है, मैं NRIT संस्थान में ट्यूटर हूँ जहाँ मैंने 14 वर्षों के अंतराल में 40000 से अधिक छात्रों को कंप्यूटर शिक्षा दी। उसके बाद मैंने अपना YouTube चैनल Learn More शुरू किया, जहाँ लोगों ने मेरी शिक्षण शैली को पसंद किया और उनके प्यार से मैं सफल रहा हूँ। आज मेरे पास 7 यूट्यूब चैनल हैं। मैंने अपनी ब्लॉगिंग वेबसाइट भी शुरू की है जहाँ आप अभी हैं। यहाँ मैं कंप्यूटर, MS Office, Tally, MSCIT, Photoshop आदि के बारे में सभी महत्वपूर्ण और ज्ञानवर्धक जानकारी प्रदान करता हूँ। हमारे शैक्षिक मंच www.learnmorepro.com जहां हम सस्ते दर पर कंप्यूटर कोर्स प्रदान करते हैं।

This Post Has 3 Comments

  1. Innovate IT Firm

    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.

Leave a Reply