อยากทราบวิธีแปลงเป็นตัวอักษรใหญ่อัตโนมัติทุกครั้งที่เราพิมพ์

[superbill]

อยากทราบวิธีแปลงเป็นตัวอักษรใหญ่อัตโนมัติทุกครั้งที่เราพิมพ์ข้อมูล เช่น

ต้องการทำที่เซล A1 เมื่อพิมพ์ตัวอักษร Cat หรือ cat พอเคาะ enter แล้ว ให้มันแปลงเป็น CAT อัตโนมัติ

[snasui]

การทำเช่นนั้นต้องใช้ VBA เข้ามาช่วยซึ่งต้องเขียนมาก่อนตามกฎการใช้บอร์ดข้อ 5 ด้านบน ครับ หากกำหนดด้วยวิธี Auto Correct จะยุ่งยากในภายหลัง

[ysamroeng]

หรือลองปรับตารางงานที่ทำสักเล็กน้อย เช่น คีย์ในเซลนึง (A1) แล้วให้แสดงผลในอีกเซลนึง (B1) โดยในเซล B1 พิมพ์สูตร =UPPER(A1)

[superbill]

หรือลองปรับตารางงานที่ทำสักเล็กน้อย เช่น คีย์ในเซลนึง (A1) แล้วให้แสดงผลในอีกเซลนึง (B1) โดยในเซล B1 พิมพ์สูตร =UPPER(A1)

ขอบคุณมากครับ เดี๋ยวจะลองนำไปใช้ดูครับ

[superbill]

ล่าสุดตอนนี้ผมเจอ code vba ที่สามารถเปลี่ยนอักษรให้เป็นตัวพิมพ์ใหญ่ทั้งไฟล์ได้ แต่ถ้าต้องการเปลี่ยนแค่เซลเดียวที่ A1 แบบอัตโนมัติยังหาไม่ได้

Sub ChagetoUpper()
Dim r As Range
Dim i As Integer
For i = 1 To Worksheets.Count
For Each r In Worksheets(i).UsedRange
r = UCase(r)
Next r
Next i
End Sub

[snasui]

Code นั้นผมเขียนขึ้นมาเอง สามารถดูได้ที่

http://snasui.wordpress.com/category/lower/
http://snasui.blogspot.com/2009/12/vba_09.html
wordpress/?p=379

หากต้องการเปลี่ยนที่ A1 เป็นตัวใหญ่อัตโนมัติไม่ต้องเขียนหลายบรรทัดขนาดนั้น เขียนบรรทัดเดียวก็พอแล้วครับ เพียงแต่ต้องทราบว่าการอ้างอิงถึงเซลล์ A1 เขียนว่าอย่างไร

นอกจากนี้หากต้องการทำให้เป็นอัตโนมัติทำอย่างไรโดยไม่ต้องมา Run ทีหลัง สำหรับ Code ต้องเขียนมาเอง หรือนำที่ผู้อื่นเขียนมาปรับ ติดตรงไหนแล้วค่อยนำมาถามกัน ถ้านำ Code ต้นฉบับมาถามกันตรง ๆ ว่าปรับอย่างไรจะไม่ได้คำตอบครับ

ในการวาง Code ให้แสดงเป็น Code ดูจากที่นี่ viewtopic.php?f=2&t=1187 ทั้งนี้เพื่อความสะดวกในการอ่านและการ Copy ไปทดสอบครับ

[ichinisan]

แล้วถ้าอยากเลือกเปลี่ยนเฉพาะบาง cell ต้องใช้คำสั่งไหนค่ะอาจารย์

[snasui]

สำหรับ VBA ต้องเขียนมาเองก่อนตามกฎการใช้บอร์ดข้อ 5 ด้านบนครับ

[lotto009]

เรียนอาจาร์ยครับ
ผมใช้codeด้านล่างของอาจาร์ย รันทั้งwooksheetsครับ
-หากเราต้องการแค่ worksheets"sheet1" ต้องเขียนแบบใหนครับ
-ตามด้านล่างผมใช้ select แต่ไม่ทำงานครับ

Code: Select all

Dim r As Range
Dim i As Integer
For i = 1 To Worksheets("Sheets1").Count
    For Each r In Worksheets(i).UsedRange
      r = UCase(r)
    Next r
  Next i
ENd Sub

[snasui]

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

Code: Select all

Dim r As Range
For Each r In Worksheets("Sheet1").UsedRange
  r = UCase(r)
Next r

[lotto009]

ขอบพระคุณมากครับผม