Snasui Excel Forum

Posted: **Wed May 15, 2013 5:24 pm**

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

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

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

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

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

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

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

ขอบคุณครับ

Posted: **Wed May 15, 2013 6:17 pm**

ตัวอย่างการปรับ 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

Posted: **Thu May 16, 2013 11:52 am**

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

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

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

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

Posted: **Thu May 16, 2013 12:12 pm**

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

Posted: **Thu May 16, 2013 5:48 pm**

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

Posted: **Thu May 16, 2013 6:34 pm**

ตัวอย่างการปรับ 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 ครับ

Snasui Excel Forum

[VBA] Uppercase

[VBA] Uppercase

Re: [VBA] Uppercase

Re: [VBA] Uppercase

Re: [VBA] Uppercase

Re: [VBA] Uppercase

Re: [VBA] Uppercase