ให้ตัวอักษรใน MSGBOX โตขึ้น
Posted: Sat Sep 28, 2013 10:54 pm
ต้องการให้ตัวอักษรใน msgbox โตขึ้นครับ ซึ่งได้เขียนCode ดังนี้
แต่ผลตัวอักษรเท่าเดิมครับ ขอคำแนะนำในการปรับปรุงหรือเปลี่ยนCode ครับ
Code: Select all
Sub fontsiZe()
If Range("b2") = 3 Then
MsgBox "ถูกต้อง"
'Selection.Font.Size = 16
ElseIf "MsgBox ถูกต้อง" Then
Selection.Font.Size = 20
Else
MsgBox "ไม่ถูกต้อง"
End If
End Sub
ถ้าหมายถึง Message Box ที่แสดงคำว่า ถูกต้อง หรือ ไม่ถูกต้อง นั้น เราไม่สามารถไปกำหนดขนาดตัวอักษรได้ครับ