Solution of Challange - VBA Class 5.1: Understanding Variables Part-1

Abu Dujana

Thread Starter
★★☆☆☆
Dynamic Brigade
Expert
Joined
Apr 25, 2018
Messages
758
Reaction score
830
Points
259
Location
Karachi, Pakistan
السلام علیکم۔۔۔
پچھلی کلاس میں ہم نے ایک "چیلنج " دیا تھا۔۔۔ اس کا حل ہم خود ہی ۔۔پیش کردیتے ہیں۔۔۔ (مسکرا کے)۔۔۔
چیلنج کا لنک ملاحظہ ہو۔۔۔
VBA Class 5.1: Understanding Variables Part-1

اور اب اس کا حل بھی ملاحظہ ہو۔۔
:)

  1. سب سے پہلے ویری ایبلز کو ڈیکلیئر کرتے ہیں۔۔۔
    Code:
    Sub variables()
    
    Dim last_name As String, first_name As String, age As Integer, row_number As Integer
    
    End Sub
  2. ویری ایبل Row_number سیل ایف 5 کی ویلیو لے گا۔ یعنی سیل ایف 5 میں جو بھی ویلیو ہوگی وہی ویلیو اسی ویری ایبل کی ہوگی۔ اس کے ساتھ ہم ایک جمع کریں گے کیوں کہ پہلے رو میں ٹائٹلز ہیں اور ریکارڈ دوسرے رو سے شروع ہوتا ہے۔ تو آسانی کے لئے ہم یوں کوڈنگ کریں گے۔۔​
  3. Code:
    row_number = Range("F5") + 1
  4. باقی ویری ایبلز کو ہم Cell کمانڈ کا استعما ل کرتے ہوئے ویلیوز اسائن کریں گے۔۔ جیسے۔۔
    Code:
    last_name = Cells(row_number, 1)
    first_name = Cells(row_number, 2)
    age = Cells(row_number, 3)
  5. آخر میں ڈائلاگ باکس کا استعمال کریں گے۔۔ سای کوڈنگ کچھ یوں ہوں گی۔۔
    Code:
    Sub variables()
    'Declaring variables
    Dim last_name As String, first_name As String, age As Integer, row_number As Integer
    
    'Variable values
    row_number = Range("F5") + 1
    last_name = Cells(row_number, 1)
    first_name = Cells(row_number, 2)
    age = Cells(row_number, 3)
    
    'Dialog box
    MsgBox last_name & " " & first_name & ", " & age & " years old"
    End Sub

    رزلٹ کچھ یوں ہوگا۔۔۔​
1548648981761.png

ان کوڈز کو مختصر کرکے بھی رزلٹ لیا جاسکتا ہے۔ جیسے۔۔۔

Code:
Sub variables()
MsgBox Cells(Range("F5")+1,1) & " " & Cells(Range("F5")+1,2) & ", " & Cells(Range("F5")+1,3) & " years old"
End Sub
اس کے ساتھ ہمیں اجازت دیجیے۔۔اگلی کلاس تک ۔۔۔اور۔۔۔ اگلے چیلنج تک۔۔۔۔
:)
 

Doctor

★★★★★
Most Valuable
Most Popular
Top Poster
Dynamic Brigade
Developer
Expert
Writer
Joined
Apr 25, 2018
Messages
3,314
Reaction score
4,028
Points
932
Location
Rawalpindi
Top