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

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



COMMENTS

BLOGGER: 3
  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.

    ReplyDelete
  2. Very Nice Sir, Good Work keep it up.

    ReplyDelete

Name

Auto-CAD Tips,7,Computer Tips,74,Coreldraw Tips,1,Excel tips in hindi,47,Mobile Tips,11,Ms-Word Tips in Hindi,6,MSCIT Exam Tips,11,Photoshop Tips,6,Tally ERP 9 Tips,10,Tech,26,
ltr
item
Learn More: ५ Excel VBA कोड एक्सेल में स्मार्ट वर्क करने के लिए |
५ Excel VBA कोड एक्सेल में स्मार्ट वर्क करने के लिए |
https://i.ytimg.com/vi/K2fpMNHW_VU/hqdefault.jpg
https://i.ytimg.com/vi/K2fpMNHW_VU/default.jpg
Learn More
https://www.learnmoreindia.in/2019/08/Excel-VBA-Magic-Code.html
https://www.learnmoreindia.in/
https://www.learnmoreindia.in/
https://www.learnmoreindia.in/2019/08/Excel-VBA-Magic-Code.html
true
2228148344026858503
UTF-8
Loaded All Posts Not found any posts VIEW ALL Readmore Reply Cancel reply Delete By Home PAGES POSTS View All RECOMMENDED FOR YOU LABEL ARCHIVE SEARCH ALL POSTS Not found any post match with your request Back Home Sunday Monday Tuesday Wednesday Thursday Friday Saturday Sun Mon Tue Wed Thu Fri Sat January February March April May June July August September October November December Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec just now 1 minute ago $$1$$ minutes ago 1 hour ago $$1$$ hours ago Yesterday $$1$$ days ago $$1$$ weeks ago more than 5 weeks ago Followers Follow THIS PREMIUM CONTENT IS LOCKED STEP 1: Share to a social network STEP 2: Click the link on your social network Copy All Code Select All Code All codes were copied to your clipboard Can not copy the codes / texts, please press [CTRL]+[C] (or CMD+C with Mac) to copy