All Topics of VBA programming ЁЯСЗ
All subjects of BCA ЁЯСЗ

Range Selection and Manipulation in VBA in Hindi

Buy all subjects pdf notes now [ examSpecial ]

Makhanlal Chaturvedi University / BCA / VBA programming

Range Selection and Manipulation in VBA in Hindi

Selecting Ranges Dynamically in VBA in Hindi

рдЬрдм рд╣рдо Excel VBA рдореЗрдВ рдХрд╛рдо рдХрд░рддреЗ рд╣реИрдВ, рддреЛ рд╕рдмрд╕реЗ рдЬрд░реВрд░реА рдЪреАрдЬрд╝реЛрдВ рдореЗрдВ рд╕реЗ рдПрдХ рд╣реИ тАФ **Range** рдХреЛ select рдХрд░рдирд╛ред Static рддрд░реАрдХреЗ рд╕реЗ cell рдХреЛ select рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рд╣рдо рдЬреИрд╕реЗ рд▓рд┐рдЦрддреЗ рд╣реИрдВ:

Range("A1").Select

рд▓реЗрдХрд┐рди рдЕрдЧрд░ рд╣рдореЗрдВ dynamic рддрд░реАрдХреЗ рд╕реЗ cells select рдХрд░рдиреЗ рд╣реИрдВ, рдЬреИрд╕реЗ рдХрд┐ рдХрд┐рд╕реА condition рдпрд╛ calculation рдХреЗ рдЕрдиреБрд╕рд╛рд░, рддреЛ рд╣рдореЗрдВ рдереЛрдбрд╝рд╛ advanced рддрд░реАрдХрд╛ рдЕрдкрдирд╛рдирд╛ рд╣реЛрддрд╛ рд╣реИред

рдЖрдЗрдП рдХреБрдЫ common рддрд░реАрдХреЗ рд╕рдордЭрддреЗ рд╣реИрдВ:

  • Using Variables: рдЕрдЧрд░ рдЖрдкрдХреЛ row рдпрд╛ column number рдХрд┐рд╕реА variable рд╕реЗ рдкрддрд╛ рд╣реЛ, рддреЛ:
Dim rowNum As Integer
rowNum = 5
Cells(rowNum, 1).Select 'рдпрд╣ A5 cell рдХреЛ select рдХрд░реЗрдЧрд╛
  • Using Named Ranges: Excel рдореЗрдВ рдЕрдЧрд░ рдЖрдкрдиреЗ рдХрд┐рд╕реА cell рдХреЛ рдирд╛рдо рджрд┐рдпрд╛ рд╣реИ (Named Range), рддреЛ:
Range("MyRange").Select
  • Using Offset Method: рдПрдХ cell рдХреЗ base рдкрд░ рдЕрдЧрд▓рд╛ рдпрд╛ рдХреЛрдИ рднреА cell select рдХрд░рдирд╛ рд╣реЛ:
Range("A1").Offset(2, 1).Select 'A1 рд╕реЗ 2 row рдиреАрдЪреЗ рдФрд░ 1 column рджрд╛рдПрдВ move рдХрд░рддрд╛ рд╣реИ рдпрд╛рдиреА B3 select рд╣реЛрдЧрд╛
  • Using End Method (Ctrl + Arrow рдЬреИрд╕рд╛):
Range("A1").End(xlDown).Select 'рдпрд╣ A1 рд╕реЗ рдиреАрдЪреЗ рдЖрдЦрд┐рд░реА filled cell рддрдХ рдЬрд╛рдПрдЧрд╛

Manipulating Range Properties and Values in VBA in Hindi

VBA рдореЗрдВ рд╕рд┐рд░реНрдл Range рдХреЛ select рдХрд░рдирд╛ рд╣реА рдХрд╛рдлреА рдирд╣реАрдВ рд╣реЛрддрд╛, рд╣рдореЗрдВ рдЙрдирдХреЗ рд╕рд╛рде рдХрд╛рдо рднреА рдХрд░рдирд╛ рд╣реЛрддрд╛ рд╣реИред рдпрд╛рдиреА value рдкрдврд╝рдирд╛, рд▓рд┐рдЦрдирд╛, рд░рдВрдЧ рдмрджрд▓рдирд╛, font рдмрджрд▓рдирд╛ рдЖрджрд┐ред

  • Range рдореЗрдВ value рдбрд╛рд▓рдирд╛:
Range("A1").Value = "Hello VBA"
  • Range рд╕реЗ value рдкрдврд╝рдирд╛:
Dim myVal As String
myVal = Range("A1").Value
  • Range рдХрд╛ рд░рдВрдЧ (Color) рдмрджрд▓рдирд╛:
Range("A1").Interior.Color = RGB(255, 255, 0) 'рдкреАрд▓рд╛ рд░рдВрдЧ
  • Font рдХреЛ Bold рдХрд░рдирд╛:
Range("A1").Font.Bold = True
  • Range рдХрд╛ Column Width рдмрджрд▓рдирд╛:
Range("A1").ColumnWidth = 20
  • Range рдХреЛ Clear рдХрд░рдирд╛:
Range("A1:A10").ClearContents

Practical Examples of Range Operations in VBA in Hindi

рдЕрдм рд╣рдо рдХреБрдЫ рдРрд╕реЗ practical examples рджреЗрдЦреЗрдВрдЧреЗ рдЬреЛ рдЖрдкрдХреЛ рд░реЛрдЬрдорд░реНрд░рд╛ рдХреЗ рдХрд╛рдо рдореЗрдВ рдХрд╛рдлреА рдХрд╛рдо рдЖрдПрдВрдЧреЗред

Example 1: рд╕рднреА Cells рдХреЛ Loop рдореЗрдВ Fill рдХрд░рдирд╛

Dim i As Integer
For i = 1 To 10
  Cells(i, 1).Value = "Row " & i
Next i

рдКрдкрд░ рдХрд╛ code A1 рд╕реЗ A10 рддрдХ рдХреЗ cells рдореЗрдВ Row 1, Row 2, ... рдбрд╛рд▓ рджреЗрдЧрд╛ред

Example 2: Empty Cells рдХреЛ Highlight рдХрд░рдирд╛

Dim cell As Range
For Each cell In Range("A1:A20")
  If IsEmpty(cell.Value) Then
    cell.Interior.Color = RGB(255, 0, 0)
  End If
Next cell

рдпрд╣ code A1 рд╕реЗ A20 рдХреЗ рдмреАрдЪ рдЬреЛ рднреА cell рдЦрд╛рд▓реА рд╣реИрдВ, рдЙрдиреНрд╣реЗрдВ рд▓рд╛рд▓ рд░рдВрдЧ рдореЗрдВ highlight рдХрд░ рджреЗрдЧрд╛ред

Example 3: Range рд╕реЗ Sum рдирд┐рдХрд╛рд▓рдирд╛

Dim total As Double
total = WorksheetFunction.Sum(Range("B1:B10"))
MsgBox "Total is: " & total

рдпрд╣ code B1 рд╕реЗ B10 рдХрд╛ рдЬреЛрдбрд╝ рдирд┐рдХрд╛рд▓рдХрд░ message box рдореЗрдВ рджрд┐рдЦрд╛рдПрдЧрд╛ред

Example 4: Last Used Cell рддрдХ Range рдХреЛ Select рдХрд░рдирд╛

Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("A1:A" & lastRow).Select

рдпрд╣ code A column рдореЗрдВ рдиреАрдЪреЗ рддрдХ data рдвреВрдВрдвреЗрдЧрд╛ рдФрд░ A1 рд╕реЗ рдЖрдЦрд┐рд░реА row рддрдХ select рдХрд░реЗрдЧрд╛ред

Extra Tips for Beginners

  • Range рдХреЛ Set рдХрд░рдирд╛: рдЬрдм рднреА рдмрд╛рд░-рдмрд╛рд░ рдХрд┐рд╕реА range рдХреЛ use рдХрд░рдирд╛ рд╣реЛ:
Dim myRange As Range
Set myRange = Range("A1:A5")
myRange.Font.Bold = True
  • Multiple Cell Range: рдПрдХ рд╕реЗ рдЬреНрдпрд╛рджрд╛ cells рдХреЛ select рдХрд░рдирд╛:
Range("A1, B1, C1").Select
  • Union рдХрд╛ рдЗрд╕реНрддреЗрдорд╛рд▓: рдЕрдЧрд░ multiple disconnected ranges рд╣реЛрдВ:
Union(Range("A1:A3"), Range("C1:C3")).Select

Important VBA Range Properties Summary Table

Property/Method Description
.Value Cell рдХреА value рдХреЛ get/set рдХрд░рддрд╛ рд╣реИ
.Select Cell рдпрд╛ range рдХреЛ select рдХрд░рддрд╛ рд╣реИ
.Interior.Color Background color рд╕реЗрдЯ рдХрд░рддрд╛ рд╣реИ
.Font.Bold Font рдХреЛ bold рдмрдирд╛рддрд╛ рд╣реИ
.ClearContents рд╕рд┐рд░реНрдл values clear рдХрд░рддрд╛ рд╣реИ, formatting рдирд╣реАрдВ
.ColumnWidth Column рдХреА рдЪреМрдбрд╝рд╛рдИ рд╕реЗрдЯ рдХрд░рддрд╛ рд╣реИ
Cells(row, column) Row рдФрд░ Column рдХреЗ рджреНрд╡рд╛рд░рд╛ рдХрд┐рд╕реА cell рдХреЛ reference рдХрд░рддрд╛ рд╣реИ
.Offset(rows, cols) Relative position рдХреЗ рдЕрдиреБрд╕рд╛рд░ рджреВрд╕рд░рд╛ cell reference рджреЗрддрд╛ рд╣реИ

Student рдХреЗ рд▓рд┐рдП рд╕реБрдЭрд╛рд╡

  • рд╣рдореЗрд╢рд╛ рдкрд╣рд▓реЗ manually Excel рдореЗрдВ рдХрд╛рдо рдХрд░реЗрдВ, рдлрд┐рд░ рдЙрд╕реА task рдХреЛ VBA рдореЗрдВ automate рдХрд░рдиреЗ рдХреА рдХреЛрд╢рд┐рд╢ рдХрд░реЗрдВред
  • Debug.Print рдХрд╛ use рдХрд░реЗрдВ рддрд╛рдХрд┐ рдЖрдк рджреЗрдЦ рд╕рдХреЗрдВ рдХрд┐ рдХреМрди рд╕реА value рдХрд┐рд╕ рд╕рдордп рдЖ рд░рд╣реА рд╣реИред
  • Macro Recorder рд╕реЗ рд╕реАрдЦрдирд╛ рд╢реБрд░реВ рдХрд░реЗрдВ рдФрд░ рдлрд┐рд░ рдЙрд╕реЗ customize рдХрд░рдирд╛ рд╕реАрдЦреЗрдВред

FAQs

VBA рдореЗрдВ Range Excel рдХреЗ рдХрд┐рд╕реА cell рдпрд╛ cells рдХреЗ group рдХреЛ рджрд░реНрд╢рд╛рддрд╛ рд╣реИред рдЗрд╕рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рд╕реА рднреА cell рдХреА value рдХреЛ рдкрдврд╝рдиреЗ, рд▓рд┐рдЦрдиреЗ рдпрд╛ formatting рдХреЗ рд▓рд┐рдП рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред рдЬреИрд╕реЗ Range("A1") рдПрдХ cell рдХреЛ reference рдХрд░рддрд╛ рд╣реИред
Dynamic Range select рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рд╣рдо variables рдпрд╛ functions рдЬреИрд╕реЗ Cells(), Offset(), End() рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рддреЗ рд╣реИрдВред рдЬреИрд╕реЗ:
Range("A1", Range("A1").End(xlDown)).Select рдпрд╣ A1 рд╕реЗ рдиреАрдЪреЗ рдХреЗ рд╕рднреА non-empty cells select рдХрд░рддрд╛ рд╣реИред
рдХрд┐рд╕реА cell рдХреА value рдХреЛ рдмрджрд▓рдиреЗ рдХреЗ рд▓рд┐рдП .Value property рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░реЗрдВред рдЬреИрд╕реЗ:
Range("B2").Value = "Hello" рдпрд╣ B2 cell рдореЗрдВ "Hello" рд▓рд┐рдЦ рджреЗрдЧрд╛ред
рдЖрдк Range рдкрд░ formatting рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП properties рдЬреИрд╕реЗ .Font.Bold, .Interior.Color, .Font.Size рдЖрджрд┐ рдХрд╛ use рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред
Example:
Range("A1").Font.Bold = True
Range("A1").Interior.Color = RGB(255,255,0)
рдЖрдк Cells(Rows.Count, 1).End(xlUp).Row рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рдХрд┐рд╕реА column рдХреА рдЖрдЦрд┐рд░реА filled row рдирд┐рдХрд╛рд▓ рд╕рдХрддреЗ рд╣реИрдВред Example:
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
рдЖрдк For Each loop рдХрд╛ use рдХрд░рдХреЗ рдХрд┐рд╕реА Range рдХреЗ рд╣рд░ cell рдкрд░ operation рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ:
Dim cell As Range
For Each cell In Range("A1:A10")
  cell.Value = "Test"
Next cell

Please Give Us Feedback