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

Abu Dujana

Thread Starter
⭐⭐⭐⭐⭐⭐
Charismatic
Expert
Popular
Helping Hands
Joined
Apr 25, 2018
Local time
5:17 PM
Threads
81
Messages
968
Reaction score
1,366
Points
452
Location
Karachi, Pakistan
Gold Coins
516.01
السلام علیکم۔۔۔
پچھلی کلاس میں ہم نے ایک "چیلنج " دیا تھا۔۔۔ اس کا حل ہم خود ہی ۔۔پیش کردیتے ہیں۔۔۔ (مسکرا کے)۔۔۔
چیلنج کا لنک ملاحظہ ہو۔۔۔
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

⭐⭐⭐⭐⭐⭐
Charismatic
Designer
Expert
Writer
Popular
King of Alkamunia
Proud Pakistani
🏆 ZH Top Poster in a Month Award 🕖
الکمونیا میں تو ایسا نہیں ہوتا
Top Poster
ITD Developer
Joined
Apr 25, 2018
Local time
5:17 PM
Threads
904
Messages
14,013
Reaction score
15,255
Points
1,977
Age
47
Location
Rawalpindi
Gold Coins
4,133.01
Get Unlimited Tags / Banners
Permanently Change Username Color & Style.
Get Unlimited Tags / Banners
Get Unlimited Tags / Banners
Thread Highlight Unlimited
Change Username Style.
Top
AdBlock Detected

We get it, advertisements are annoying!

Sure, ad-blocking software does a great job at blocking ads, but it also blocks useful features of our website. For the best site experience please disable your AdBlocker.

I've Disabled AdBlock    No Thanks