Introduction to Object Assignment in Excel VBA in Hindi
Makhanlal Chaturvedi University / BCA / VBA programming
Object Assignment in Excel VBA in Hindi
Introduction to Object Assignment in Excel VBA in Hindi
What is Object in Excel VBA
Excel VBA рдореЗрдВ "Object" рдХрд┐рд╕реА рднреА рдРрд╕реА рдЪреАрдЬрд╝ рдХреЛ рдХрд╣рд╛ рдЬрд╛рддрд╛ рд╣реИ рдЬрд┐рд╕реЗ рд╣рдо Excel рдореЗрдВ Control рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ, рдЬреИрд╕реЗ рдХрд┐ Workbook, Worksheet, Range, Chart, рдЖрджрд┐ред рдпреЗ рд╕рднреА рдЪреАрдЬреЗрдВ Excel рдХреЗ рдЕрдВрджрд░ рдХрд╛рдо рдХрд░рдиреЗ рд╡рд╛рд▓реЗ рдЕрд▓рдЧ-рдЕрд▓рдЧ рд╣рд┐рд╕реНрд╕реЗ рд╣реЛрддреЗ рд╣реИрдВ рдЬрд┐рдиреНрд╣реЗрдВ рд╣рдо VBA рдХреЛрдб рд╕реЗ рдХрдВрдЯреНрд░реЛрд▓ рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред
рдЬреИрд╕реЗ рдХрд┐рд╕реА рдЗрдВрд╕рд╛рди рдХрд╛ рдирд╛рдо, рдкрддрд╛ рдФрд░ рдореЛрдмрд╛рдЗрд▓ рдирдВрдмрд░ рд╣реЛрддрд╛ рд╣реИ, рд╡реИрд╕реЗ рд╣реА рдПрдХ Object рдХреЗ рднреА Properties рдФрд░ Methods рд╣реЛрддреЗ рд╣реИрдВред рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП, Worksheet рдПрдХ Object рд╣реИ рдФрд░ рдЙрд╕рдХрд╛ Name рдПрдХ Property рд╣реИ, рд╡рд╣реАрдВ Activate рдПрдХ Method рд╣реИред
Why Object Assignment is Needed
- Object рдХреЛ рдмрд╛рд░-рдмрд╛рд░ рдПрдХреНрд╕реЗрд╕ рдХрд░рдиреЗ рдХреА рдЬрд░реВрд░рдд рд╣реЛрддреА рд╣реИ
- Code рдХреЛ Simple рдФрд░ Short рдмрдирд╛рдирд╛
- Execution Speed рдмрдврд╝рд╛рдирд╛
- Maintainability рдЖрд╕рд╛рди рдмрдирд╛рдирд╛
рдЕрдЧрд░ рдЖрдк рд╣рд░ рдмрд╛рд░ Worksheets("Sheet1").Range("A1")
рдЬреИрд╕реЗ рд▓рдВрдмрд╛ рдХреЛрдб рд▓рд┐рдЦрддреЗ рд╣реИрдВ рддреЛ рдХреЛрдб Complex рд╣реЛ рдЬрд╛рддрд╛ рд╣реИред рдЗрд╕рд▓рд┐рдП рд╣рдо рдЙрд╕реЗ рдПрдХ Variable рдореЗрдВ Assign рдХрд░рдХреЗ Use рдХрд░рддреЗ рд╣реИрдВред
How to Use 'Set' Keyword for Assigning Objects in Hindi
Use of Set Keyword
VBA рдореЗрдВ рдЬрдм рдЖрдк рдХрд┐рд╕реА Object (рдЬреИрд╕реЗ Worksheet, Workbook, Range) рдХреЛ рдХрд┐рд╕реА Variable рдореЗрдВ Store рдХрд░рддреЗ рд╣реИрдВ, рддреЛ рдЖрдкрдХреЛ Set
Keyword рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдирд╛ рдкрдбрд╝рддрд╛ рд╣реИред
Variable рдПрдХ Container рдХреА рддрд░рд╣ рд╣реЛрддрд╛ рд╣реИ рдЬрд┐рд╕рдореЗрдВ рдЖрдк рдХреЛрдИ Object temporarily Store рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред рдкрд░ рдзреНрдпрд╛рди рд░рд╣реЗ, рдЬрдм рднреА рдЖрдк рдХрд┐рд╕реА Object рдХреЛ Assign рдХрд░реЗрдВ рддреЛ Set
рд▓рдЧрд╛рдирд╛ рдЬрд╝рд░реВрд░реА рд╣реИред
Syntax of Set Keyword
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
Without Set Error рдЖрддрд╛ рд╣реИ
рдЕрдЧрд░ рдЖрдк Set
Keyword рдХреЛ рдЫреЛрдбрд╝ рджреЗрдВрдЧреЗ рддреЛ рдЖрдкрдХреЛ "Object Required" рдЬреИрд╕рд╛ Error рдорд┐рд▓реЗрдЧрд╛, рдХреНрдпреЛрдВрдХрд┐ Excel рд╕рдордЭреЗрдЧрд╛ рдХрд┐ рдЖрдк Value assign рдХрд░ рд░рд╣реЗ рд╣реИрдВ рди рдХрд┐ Objectред
Simple Example
Sub ExampleSet()
Dim mySheet As Worksheet
Set mySheet = ThisWorkbook.Sheets("Data")
mySheet.Range("A1").Value = "Hello"
End Sub
Assigning Workbook, Worksheet, and Range Objects in Hindi
1. Workbook Object Assignment
рдЬрдм рдЖрдк Excel рдореЗрдВ рдХрд┐рд╕реА Workbook рдХреЛ рдмрд╛рд░-рдмрд╛рд░ Access рдХрд░рдирд╛ рдЪрд╛рд╣рддреЗ рд╣реИрдВ рддреЛ рдЖрдк рдЙрд╕реЗ рдПрдХ Variable рдореЗрдВ Assign рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ:
Dim wb As Workbook
Set wb = Workbooks("SalesData.xlsx")
2. Worksheet Object Assignment
Worksheet рдХреЛ Assign рдХрд░рдиреЗ рд╕реЗ рдЖрдкрдХрд╛ рдХреЛрдб рдЬрд╝реНрдпрд╛рджрд╛ readable рдФрд░ рдЫреЛрдЯрд╛ рд╣реЛ рдЬрд╛рддрд╛ рд╣реИ:
Dim ws As Worksheet
Set ws = wb.Sheets("Report")
3. Range Object Assignment
Range рдХреЛ Object Variable рдореЗрдВ Assign рдХрд░рдиреЗ рд╕реЗ рдЖрдк рдмрд╣реБрдд рдЖрд╕рд╛рдиреА рд╕реЗ Cell рдХреЛ Access рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ:
Dim rg As Range
Set rg = ws.Range("A1:B10")
rg.Font.Bold = True
4. Multiple Assignments in One Program
Sub AssignObjects()
Dim wb As Workbook
Dim ws As Worksheet
Dim rg As Range
Set wb = ThisWorkbook
Set ws = wb.Sheets("Sheet1")
Set rg = ws.Range("A1:A5")
rg.Value = "Assigned"
End Sub
5. Table for Object Examples
Object Type | Declaration | Assignment Example |
---|---|---|
Workbook | Dim wb As Workbook | Set wb = Workbooks("MyFile.xlsx") |
Worksheet | Dim ws As Worksheet | Set ws = wb.Sheets("Sheet1") |
Range | Dim rng As Range | Set rng = ws.Range("A1:A10") |
Benefits of Assigning Objects for Performance in Hindi
1. Code Readability рдореЗрдВ рд╕реБрдзрд╛рд░
- рдЬрдм рдЖрдк Object рдХреЛ Assign рдХрд░рддреЗ рд╣реИрдВ, рддреЛ рдХреЛрдб рдЖрд╕рд╛рди рдФрд░ рд╕рд╛рдл рджрд┐рдЦрддрд╛ рд╣реИред
- рдХреЛрдИ рдирдпрд╛ рд╡реНрдпрдХреНрддрд┐ рднреА рдХреЛрдб рдХреЛ рдкрдврд╝рдХрд░ рд╕рдордЭ рд╕рдХрддрд╛ рд╣реИред
2. Execution Fast рд╣реЛрддрд╛ рд╣реИ
- рд╣рд░ рдмрд╛рд░ Excel рдХреЛ Worksheet рдпрд╛ Range рдвреВрдВрдврд╝рдиреЗ рдХреА рдЬрд░реВрд░рдд рдирд╣реАрдВ рд╣реЛрддреА
- рдХреНрдпреЛрдВрдХрд┐ Variable рдореЗрдВ рдкрд╣рд▓реЗ рд╕реЗ рд╡реЛ Object Store рд╣реЛрддрд╛ рд╣реИ
3. рдХрдо Errors рд╣реЛрддреЗ рд╣реИрдВ
- рдЕрдЧрд░ рдЖрдк рдмрд╛рд░-рдмрд╛рд░ Worksheet рдХрд╛ рдирд╛рдо рд▓рд┐рдЦрддреЗ рд╣реИрдВ, рддреЛ Typing Mistake рд╕реЗ Error рд╣реЛ рд╕рдХрддрд╛ рд╣реИ
- Object Assign рдХрд░рдХреЗ рдпреЗ Problem Solve рд╣реЛрддреА рд╣реИ
4. Maintainability рдЖрд╕рд╛рди
- рдорд╛рди рд▓реАрдЬрд┐рдП Sheet рдХрд╛ рдирд╛рдо рдмрджрд▓рдирд╛ рд╣реИ, рддреЛ рд╕рд┐рд░реНрдл рдПрдХ рдЬрдЧрд╣ рдмрджрд▓рдирд╛ рдкрдбрд╝реЗрдЧрд╛
- Varible Use рдХрд░рдиреЗ рд╕реЗ Future рдореЗрдВ рдмрджрд▓рд╛рд╡ рдЖрд╕рд╛рди рд╣реЛ рдЬрд╛рддреЗ рд╣реИрдВ
5. Memory Efficient
Excel рдореЗрдВ рд╣рд░ рдмрд╛рд░ рдирдпрд╛ Object Access рдХрд░рдиреЗ рд╕реЗ Resources Use рд╣реЛрддреЗ рд╣реИрдВред рд▓реЗрдХрд┐рди Variable рдореЗрдВ Store рдХрд░рдХреЗ рдЖрдк рдЙрд╕реА Object рдХреЛ Reuse рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ рдЬрд┐рд╕рд╕реЗ Memory Usage рдХрдо рд╣реЛрддреА рд╣реИред
6. Debugging рдореЗрдВ Help рдорд┐рд▓рддреА рд╣реИ
- рдЕрдЧрд░ рдЖрдк Code рдореЗрдВ Breakpoint рд▓рдЧрд╛рддреЗ рд╣реИрдВ, рддреЛ Object Variables рдХреЛ Immediate Window рдореЗрдВ рджреЗрдЦрдХрд░ рдЙрдирдХрд╛ Status рдЬрд╛рди рд╕рдХрддреЗ рд╣реИрдВ
7. Looping рдореЗрдВ Fast Processing
Sub FastLoop()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Data")
Dim i As Integer
For i = 1 To 100
ws.Cells(i, 1).Value = i
Next i
End Sub
рдЕрдЧрд░ рд╣рд░ рдмрд╛рд░ ThisWorkbook.Sheets("Data")
рд▓рд┐рдЦрддреЗ рддреЛ Code Slow рд╣реЛрддрд╛, рд▓реЗрдХрд┐рди рдПрдХ рдмрд╛рд░ Assign рдХрд░рдиреЗ рд╕реЗ Process рдмрд╣реБрдд Fast рд╣реЛ рдЬрд╛рддрд╛ рд╣реИред
Summary Table of Advantages
Advantage | Description |
---|---|
Readable Code | Code рд╕рдордЭрдирд╛ рдФрд░ рдкрдврд╝рдирд╛ рдЖрд╕рд╛рди рд╣реЛрддрд╛ рд╣реИ |
Less Error | рдмрд╛рд░-рдмрд╛рд░ рдЯрд╛рдЗрдк рдХрд░рдиреЗ рд╕реЗ рдмрдЪрд╛рд╡ рд╣реЛрддрд╛ рд╣реИ |
Better Performance | Execution Time рдХрдо рд╣реЛрддрд╛ рд╣реИ |
Easy Debugging | Variables рдХреА Value рджреЗрдЦрдХрд░ рдЬрд╛рдВрдЪ рдЖрд╕рд╛рди рд╣реЛрддреА рд╣реИ |
Easy Maintenance | Sheet рдпрд╛ Range рдирд╛рдо рдмрджрд▓рдиреЗ рдкрд░ рд╕рд┐рд░реНрдл рдПрдХ рдмрд╛рд░ рдмрджрд▓рд╛рд╡ рдХрд░рдирд╛ рдкрдбрд╝рддрд╛ рд╣реИ |
FAQs
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")