Macro Part-2

कल हमने मैक्रो मैं सेल रिफरेन्स के बारे मैं जानकारी ली। आज हम इसपर और थोड़ी  जानकारी प्राप्त करेंगे। हम आपको पहले मैक्रो कैसे रेकॉर्ड करते हैं ये जानकारी दे चुके हैं। हम यहाँ पर आपको ये जानकारी देने की कोशिश कर रहें हैं की मैक्रो कैसे अपना प्रोग्राम टाइप करता हैं।

यहाँ पर हम समझेंगे की मैक्रो कॉपी पेस्ट प्रोग्राम को कैसे टाइप करता हैं।

Program 3 Copy_Paste

Sub Copy_Paste()
Range("a1:a10")="GlobeNet"
'1st Method
Range("B1:B10")= Range("a1:a10").value
'2nd method
Range(:a1:a10").copy
Range("d1:d10").PasteSpecialApplication.cutcopyMode = false 
End Sub

इस प्रोग्राम मैं हम सेल a1: a10 मैं ग्लोबेनेट टाइप करना हैं b1:b2 मैं कॉपी करके पेस्ट करना हैं। और d1:d10 मैं कट कॉपी मोड मैं लाना हैं। 

इस प्रोग्राम मैं हम समझेंगे की फॉण्ट पर मैक्रो किसतरह काम करता हैं।  जैसे फॉण्ट स्टाइल चेंज करना ,बोल्ड ,इटालिक, अंडरलाइन ,फॉण्ट का साइज बढ़ाना , फॉण्ट का कलर चेंज करना , srikethrough  इत्यादि। 

Program4 Font

Sub Font()
Range("a1:a10")="GlobeNet"
Range("a1:a10").font.Name="Times New Roman"
Range("a1:a10").font.Bold=True
Range("a1:a10").font.Size=20
Range("a1:a10").font.Italic=True
Range("a1:a10").font.Italic=False
Range("a1:a10").font.Underline=True
Range("a1:a10").font.Underline=False
Range("a1:a10").font.Color="785865"
Range("a1:a10").font.Strikethrough=True
Range("a1:a10").font.Strikethrough=False
End Sub

प्रोग्राम ५ मैं हम फॉण्ट स्टाइल को थोड़ा और अच्छे से समझेंगे। 

Program 5 withBLOCK

Sub with_Block()

Range("a1:a10")="GlobeNet" 

With Range(Range("a1:a10").font

.Name="ArialBlock"

.Bold=True

.Bold=False

.Underline=True

.Underline=False

.Italic=True

.Italic=False

End With End Sub

प्रोग्राम ६ मैं हम सीखेंगे की सेल बॉर्डर्स को कैसे चेंज किया जाता हैं। मैक्रो मैं। वैसे तो आपको एक्सेल मैं बॉर्डर्स चेंज करना आता हैं। 

Program 6 Borders Changing 

Sub BORDERS ()

Range("a1:a10")="GLOBENET"

Range("a1:a10").BORDERS.LineStyle=xlDot

Range("a1:a10").BORDERS.Color=vbBlue

Range("a1:a10").BORDERS.Weight=3

Range("a1:a10").BORDERS.LineStyle=xlDot

Range("a1:a10").BORDERS.LineStyle=xlDash

Range("a1:a10").BORDERS.LineStyle=xlContinuous

Range("a1:a10").BORDERS.LineStyle=xlDouble

Range("a1:a10").BORDERS.LineStyle=xlNone

End Sub

प्रोग्राम ७ मैं हम सीखेंगे की मैक्रो मैं एलाइनमेंट कैसे करते हैं , लेफ्ट ,राइट ,सेण्टर, हॉरिजॉन्टल एलाइनमेंट और वर्टिकल एलाइनमेंट। आइये इस प्रोग्राम को समझते हैं। इस प्रोग्राम को हम विसुअल बेसिक मैं कॉपी पेस्ट करलेंगे और इसे वीडियो के माध्यम से समझेंगे। 

Program 7. Alignment Changing

Sub Alignment()
Range("a1:c5")="AJAY"
Range("a1:c5").HorizontalAlignment =xlleft
'Horizontal Alignment

Range("a1:c5").HorizontalAlignment =xlleft
Range("a1:c5").HorizontalAlignment =xlRight
Range("a1:c5").HorizontalAlignment =xlCenter
'Vertical Alignement
Range("a1:c5").HorizontalAlignment =xlTop
Range("a1:c5").HorizontalAlignment =xlBottom
Range("a1:c5").HorizontalAlignment =xlCenter
End Sub

प्रोग्राम ८ मैं हम सीखेंगे फॉण्ट कलर करना। फॉण्ट कलर  करने के लिए आप कलर कर नाम भी टाइप कर सकते हो।  या कलर कोड भी ये कलर कोड 0 से 56 के बीच  मैं होते हैं। 

Program 8. Font Color

Sub font_color()

Range("a1:c5")="GlobeNet Computer Education"

Range("a1:a5").font.Color=vbBlue

Range("a1:a5").font.Color=vbGreen

Range("a1:a5").font.Color=vbRed

Range("a1:a5").font.Color=vbYellow

Range("a1:a5").font.Color=vbBlack

Range("a1:a5").font.Color=vbmegenda

Range("a1:a5").font.Color=vbCyan

Range("a1:a5").font.Color=vbWhite

'color index

Range("a1:a5").font.ColorIndex =1

Range("a1:a5").font.ColorIndex =10

Range("a1:a5").font.ColorIndex =15

Range("a1:a5").font.ColorIndex =56

Range("a1:a5").font.ColorIndex =20

Range("a1:a5").font.ColorIndex =30

End Sub

प्रोग्राम ९ मैं हम सीखेंगे मैक्रो मैं  बैकग्राउंड कलर कैसे चेंज करते है। ये बिलकुल फॉण्ट कलर की तरह  काम करता हैं। बस यहाँ पर फॉण्ट की जगह पर आपको इंटीरियर ,कलर टाइप करना हैं। 

Program 9. Background Color

Sub Background_Color()

'First Method

Range("a1:a5")="GlobeNet Computer Education"

Range("a1:a5").Interior.Color=vbRed

Range("a1:a5").Interior.Color=vbBlue

Range("a1:a5").Interior.Color=vbGreen

Range("a1:a5").Interior.Color=vbYellow

Range("a1:a5").Interior.Color=vbWhite

Range("a1:a5").Interior.Color=vbBlack

Range("a1:a5").Interior.Color=vbCyan

Range("a1:a5").Interior.Color=vbMagneta

'Second Method

Range("a1:a5").Interior.ColorIndex=1

Range("a1:a5").Interior.ColorIndex=10

Range("a1:a5").Interior.ColorIndex=15

Range("a1:a5").Interior.ColorIndex=20

Range("a1:a5").Interior.ColorIndex=50

Range("a1:a5").Interior.ColorIndex=56

End Sub

प्रोग्राम 10 मैं हम जानेगे की कॉपी पेस्ट फंक्शन ,टेबल क्रिएट करना और फॉर्मेटिंग ओशन  कैसे काम करता हैं .

Sub Paste_Special()

Range("C1:C5") "GlobeNet Computer Education"

Range("C1:C5") .Interior.color =VbGreen

Range("C1:C5") .copy

Range("D1:D5") .PasteSpecial xlPasteFormats

Range("D1:D5") .PasteSpecial xlPastecolumnWidths

Range("e1:e5") .PasteSpecial xlPasteValues

Application.cutcopyMode =false

End Sub

                                                     

प्रोग्राम 11. मैं हम सीखेंगे की रौ और कॉलम को मैक्रो की हेल्प से कैसे इन्सर्ट करते हैं . 

Insert Row and Column

Sub Insert()

Range("b:b").Insert 

Range("2:3").Insert

Range("b:d").Insert

Range("1:4").Insert

Range("b5").EntireRow.Insert

Range("B6").EntireColumn. Insert

End Sub

प्रोग्राम 12 मैं हम सीखेंगे रौ और कॉलम को डेलीट करना.

Sub Delet()

Range("a1").EntireRow.Delete

Range("a1:a10").EntireRow.Delete

Range("D5").EntireColumn.Delete

Range("a1:a10").EntireColumn.Delete 

End Sub

                                           

दोस्तों आशा करता हूँ की आपको आज का ये सेशन जरूर पसंद आया होगा। अगर आपको ये ब्लॉग अच्छा लगा तो प्लीज इसे जरूर शेयर  करे