Page 1 of 1
อยากทราบวิธีแปลงเป็นตัวอักษรใหญ่อัตโนมัติทุกครั้งที่เราพิมพ์
Posted: Sat Jul 20, 2013 7:46 am
by superbill
อยากทราบวิธีแปลงเป็นตัวอักษรใหญ่อัตโนมัติทุกครั้งที่เราพิมพ์ข้อมูล เช่น
ต้องการทำที่เซล A1 เมื่อพิมพ์ตัวอักษร Cat หรือ cat พอเคาะ enter แล้ว ให้มันแปลงเป็น CAT อัตโนมัติ
Re: อยากทราบวิธีแปลงเป็นตัวอักษรใหญ่อัตโนมัติทุกครั้งที่เราพ
Posted: Sat Jul 20, 2013 8:33 am
by snasui
การทำเช่นนั้นต้องใช้ VBA เข้ามาช่วยซึ่งต้องเขียนมาก่อนตามกฎการใช้บอร์ดข้อ 5 ด้านบน
ครับ หากกำหนดด้วยวิธี Auto Correct จะยุ่งยากในภายหลัง
Re: อยากทราบวิธีแปลงเป็นตัวอักษรใหญ่อัตโนมัติทุกครั้งที่เราพ
Posted: Sat Jul 20, 2013 10:00 am
by ysamroeng
หรือลองปรับตารางงานที่ทำสักเล็กน้อย เช่น คีย์ในเซลนึง (A1) แล้วให้แสดงผลในอีกเซลนึง (B1) โดยในเซล B1 พิมพ์สูตร =UPPER(A1)
Re: อยากทราบวิธีแปลงเป็นตัวอักษรใหญ่อัตโนมัติทุกครั้งที่เราพ
Posted: Sat Jul 20, 2013 5:03 pm
by superbill
ysamroeng wrote:หรือลองปรับตารางงานที่ทำสักเล็กน้อย เช่น คีย์ในเซลนึง (A1) แล้วให้แสดงผลในอีกเซลนึง (B1) โดยในเซล B1 พิมพ์สูตร =UPPER(A1)
ขอบคุณมากครับ เดี๋ยวจะลองนำไปใช้ดูครับ
Re: อยากทราบวิธีแปลงเป็นตัวอักษรใหญ่อัตโนมัติทุกครั้งที่เราพ
Posted: Sat Jul 20, 2013 5:26 pm
by 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
Re: อยากทราบวิธีแปลงเป็นตัวอักษรใหญ่อัตโนมัติทุกครั้งที่เราพ
Posted: Sat Jul 20, 2013 5:38 pm
by 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 ไปทดสอบครับ
Re: อยากทราบวิธีแปลงเป็นตัวอักษรใหญ่อัตโนมัติทุกครั้งที่เราพ
Posted: Wed Feb 26, 2014 10:56 am
by ichinisan
แล้วถ้าอยากเลือกเปลี่ยนเฉพาะบาง cell ต้องใช้คำสั่งไหนค่ะอาจารย์
Re: อยากทราบวิธีแปลงเป็นตัวอักษรใหญ่อัตโนมัติทุกครั้งที่เราพ
Posted: Wed Feb 26, 2014 4:43 pm
by snasui
สำหรับ VBA ต้องเขียนมาเองก่อนตามกฎการใช้บอร์ดข้อ 5 ด้านบนครับ
Re: อยากทราบวิธีแปลงเป็นตัวอักษรใหญ่อัตโนมัติทุกครั้งที่เราพิมพ์
Posted: Sat Jan 11, 2020 10:00 am
by 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
Re: อยากทราบวิธีแปลงเป็นตัวอักษรใหญ่อัตโนมัติทุกครั้งที่เราพิมพ์
Posted: Sat Jan 11, 2020 10:17 am
by snasui
ตัวอย่างการปรับ Code ครับ
Code: Select all
Dim r As Range
For Each r In Worksheets("Sheet1").UsedRange
r = UCase(r)
Next r
Re: อยากทราบวิธีแปลงเป็นตัวอักษรใหญ่อัตโนมัติทุกครั้งที่เราพิมพ์
Posted: Sat Jan 11, 2020 11:46 am
by lotto009
ขอบพระคุณมากครับผม