Wednesday, March 3, 2021

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

- Advertisement -

Related Articles

3 COMMENTS

  1. 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

Please enter your comment!
Please enter your name here

Stay Connected

7,690FansLike
3,476FollowersFollow
853,982SubscribersSubscribe
- Advertisement -

Latest Articles