[VBA] Uppercase

[poipoi]

เรียนอาจารย์และผู้รู้ทุกท่าน

วันนี้ผมประสบอีก 1 ปัญหาหาคือ

การทำตัวหนังสือในช่องที่เลือกให้กลายเป้นตัวพิมพ์ใหญ่ทั้งหมด โดยที่ไม่เอา header ของแต่ละช่วง (Air, Sea, xx Handling Office 1
)

โดยจากโค้ดปกติผมจะ cell by cell คือการส่งให้ทำทีละ cell แต่คอนนี้ผมจะต้องบังคับให้มันเป้นตัวหนาร้อยกว่าบรรทัด

หากซึ่งผมนั่งทำทีละตัวแล้วจะเสียเวลาอย่างมาก จึงใหคร่อยากจะมาตั้งคำถามในพื้นที่แห่งนี้

ขอความกรุณาด้วยครับ

ปล. ผมได้แนบไฟล์และโค้ดที่อยู่ด้านในไว้แล้วครับ

ขอบคุณครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Private Sub Upper_Click()
    Dim r As Range
    Application.ScreenUpdating = False
    For Each r In Range("B3:D11,B13:D22,B24:D33")
        r = UCase(r)
    Next r
    Application.ScreenUpdating = True
End Sub

[poipoi]

ขอบคุณสำหรับคำแนะนำครับ

สามารถใช้การได้ดี

แต่ถ้าหากต้องการเว้นบางช่วงที่ไม่ต้องการให้ถูกเปลี่ยนค่า

จะต้องกำหนดช่วงเพิ่มเอาเองใช่ไหมครับ ?

[snasui]

ถ้าจะใช้ Code ในการ Loop จะต้องทราบว่าที่เว้นนั้น ดูจากเงื่อนไขใดจึงต้องเว้น หรือจะกำหนดช่วงเพิ่มเข้าไปเองก็ได้เช่นกันหากว่าสะดวกที่จะกำหนดช่วงเพิ่มเข้าไปครับ

[poipoi]

อยากจะกำหนดช่วงถ้าเจอคำนี้ "State / Province" ให้ข้ามมันไปครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Private Sub Upper_Click()
    'Other code
    For Each r In Range("B3:D33")
        If r <> "State / Province" then
            r = UCase(r)
        End If
    Next r
    'Other code
End Sub

การใช้ VBA จำเป็นต้องปรับเองได้บ้าง สำหรับกรณีนี้ผมถือว่าเป็นการปรับแค่เพียงเล็กน้อยเท่านั้น หากปรับเองไม่ได้เลย ยังไม่ควรใช้ VBA ครับ