VBA ในการเปลี่ยนฟอรท์
Posted: Wed Jan 13, 2021 8:33 pm
เรียนท่านที่รู้ครับ
ผมลองทำ Code นี้ในการเปลี่ยน font ครับ ไม่รู้ว่าผมทำผิดตรงไหนอย่างไร เหมือนว่า Code ไม่ทำงานครับ
ความต้องการคือว่า ใน a1:a150 ถ้าเป็นตัวเลขให้เปลี่ยนเป็นฟอรท์ Arial Narrow ไม่นั้นก็อไม่เปลี่ยนครับ
ผมลองทำ Code นี้ในการเปลี่ยน font ครับ ไม่รู้ว่าผมทำผิดตรงไหนอย่างไร เหมือนว่า Code ไม่ทำงานครับ
ความต้องการคือว่า ใน a1:a150 ถ้าเป็นตัวเลขให้เปลี่ยนเป็นฟอรท์ Arial Narrow ไม่นั้นก็อไม่เปลี่ยนครับ
Code: Select all
Sub ChangeFont()
Dim r As Range
For Each r In Range("a1:a150")
If r = IsNumber Then
r.Font.Name = "Arial Narrow"
End If
Next r
End Sub
