دوشنبه, 28 اکتبر 2019

معرفی و کاربرد Debug.print در ماکرونویسی اکسل

سلام عرض میکنم خدمت یکایک دنبال کنندگان محترم سایت آموزشی اکسل لرن، امروز برای شما سروران گرامی معرفی و کاربرد Debug.print در ماکرونویسی اکسل را آماده نمودم که جزو یکی از کاربردی ترین دستورات زبان وی بی ای محسوب خواهد شد.

بطور خلاصه با استفاده از Debug.print می توان نتایج ماکرو را قبل از اجرا در پنجره Immediate نمایش داد. قبل از اینکه بتوان از این دستور استفاده نمود نیاز به فعال سازی پنجره Immediate است لذا با زدن کلید میانبر Ctrl + G و یا طبق تصویر زیر اقدام به فعال سازی این پنجره خواهیم نمود:

پس از فعالسازی، این پنجره به محیط VBE شما اضافه خواهد شد:

به ماکروی زیر دقت کنید:

Sub Excellearn()
Debug.Print "This is how Debug Print words !!"
End Sub

Sub Excellearn()

Debug.Print "This is how Debug Print words !!"

End Sub

با اجرای ماکروی فوق، نتیجه را همانند تصویر زیر مشاهده خواهید نمود:

ماکروی دیگری را خواهیم داشت:

Sub Excellearn()
Dim A As Integer
Dim B As Integer
Dim C As Integer
A = 10
B = 20
C = A + B
Debug.Print C
End Sub

Sub Excellearn()

Dim A As Integer

Dim B As Integer

Dim C As Integer

A = 10

B = 20

C = A + B

Debug.Print C

End Sub

با اجرای ماکروی فوق، نتیجه نهایی در پنجره Immediate بصورت زیر خواهد بود:

در ادامه ماکروی زیر را خواهیم داشت:

Sub Excellearn()
Dim X As Integer
Dim Y As String
Dim Z As Double
X = 5
Y = "John"
Z = 105.632
Debug.Print X
Debug.Print Y
Debug.Print Z
End Sub

Sub Excellearn()

Dim X As Integer

Dim Y As String

Dim Z As Double

X = 5

Y = "John"

Z = 105.632

Debug.Print X

Debug.Print Y

Debug.Print Z

End Sub

حال با اجرای ماکروی فوق، دستور Debug.Pring نتیجه را در پنجره Immediate نمایش خواهد داد:

حال به ماکروی دیگری که در ادامه آورده شده است، دقت کنید:

Sub Excellearn()
Dim Count As Integer
Dim number As Integer
Dim Fact As Integer
number = 5
Fact = 1
For Count = 1 To number
Fact = Fact * Count
Next Count
Debug.Print Fact
End Sub

Sub Excellearn()

Dim Count As Integer

Dim number As Integer

Dim Fact As Integer

number = 5

Fact = 1

For Count = 1 To number

Fact = Fact * Count

Next Count

Debug.Print Fact

End Sub

با اجرای ماکروی فوق، نتیجه نهایی توسط Debug.Print در پنجره Immediate نمایش داده خواهد شد:

همانطور که در ماکروی های فوق مشاهده نمودید، ما با استفاده از دستور Debug.Print توانستیم خروجی نهایی ماکرو را قبل از اجرا در پنجره Immediate مشاهده کنیم.

درپایان امیدواریم پست آموزشی معرفی و کاربرد Debug.print در ماکرونویسی اکسل مورد استفاده و رضایت شما عزیزان و هموطنان گرامی قرار گرفته باشد لذا در صورت وجود هرگونه سوال می توانید آن را در قسمت نظرات برای ما ارسال نمایید.

معرفی و کاربرد Debug.print در ماکرونویسی اکسل

سایر مطالب مرتبط با ماکرونویسی اکسل