แป้นพิมพ์ลัดเพื่อเปลี่ยนตัวพิมพ์เล็กของข้อความในเซลล์ใน Excel 2010


11

มีแป้นพิมพ์ลัดใน Excel สำหรับเปลี่ยนกรณีของเซลล์ที่เลือก (เป็นต่ำหรือสูงหรือสูงกว่า) การค้นหาทั้งหมดของฉันนำฉันไปที่ฟังก์ชันเพื่อทำสิ่งนี้เท่านั้น แต่นั่นไม่ใช่สิ่งที่ฉันต้องการ


นี่คือการเพิ่มในการดำเนินการเปลี่ยนแปลงกรณีaneejian.github.io/Change-Case-Excel-Add-In
เอียน

คำตอบ:


8

คำแนะนำของ Paul นั้นดีหรือคุณสามารถเขียนมาโครของคุณเองและกำหนดปุ่มลัดได้

 Sub makeUPPER()
  ActiveCell = UCase(ActiveCell)
 End Sub

 Sub makeLOWER()
  ActiveCell = LCase(ActiveCell)
 End Sub

4

ฉันใช้เทคนิคต่อไปนี้เพื่อแปลงคอลัมน์ของข้อความเป็นตัวพิมพ์ใหญ่

  1. เลื่อนเคอร์เซอร์ไปที่คอลัมน์ว่าง
  2. ในเซลล์ว่างในแถวเดียวกับเซลล์แรกที่คุณต้องการแปลงให้พิมพ์=upper(A3)ถ้า A3 เป็นเซลล์แรกที่คุณต้องการแปลง
  3. เซลล์ว่างก่อนหน้านี้ควรแสดงตัวพิมพ์ใหญ่เทียบเท่ากับเซลล์ข้อความแรกของคุณ
  4. คัดลอกเซลล์นี้ลงในคอลัมน์ให้มีความสูงเท่ากับข้อความทั้งหมดของคุณ
  5. ตอนนี้คุณควรมีคอลัมน์เทียบเท่ากับข้อความของคุณ แต่ทั้งหมดเป็นตัวพิมพ์ใหญ่
  6. ไฮไลต์เซลล์ทั้งหมดของข้อความตัวพิมพ์ใหญ่และเลือกคัดลอก
  7. คลิกซ้ายที่เซลล์แรกของข้อความต้นฉบับ (ซึ่งไม่ได้เป็นตัวพิมพ์ใหญ่) ซึ่งจะเลือกเซลล์
  8. คลิกขวา.
  9. เลือกวางแบบพิเศษ
  10. ในกล่องรายการเลือกปุ่มตัวเลือก "ค่า" แล้วคลิกตกลง
  11. ตอนนี้คุณจะมี 2 คอลัมน์ของข้อความตัวพิมพ์ใหญ่
  12. ลบคอลัมน์ที่มี=upper()สูตร

หลักการเดียวกันนี้ใช้งานได้สำหรับฟังก์ชั่นการจัดการข้อความและอื่น ๆ


1

หากคุณติดตั้งโปรแกรมเสริม ASAP Utilities Excel ที่ยอดเยี่ยม (ฟรีสำหรับใช้ส่วนตัว) ...

http://www.asap-utilities.com/download-asap-utilities.php

สิ่งนี้มีกรณีบนในตัวและตัวเลือกตัวพิมพ์เล็ก (รวมถึงตัวเลือกอื่น ๆ อีกกว่า zillion) ซึ่งคุณสามารถกำหนดปุ่มทางลัดให้ (ดูเว็บไซต์ของพวกเขาสำหรับข้อมูลเพิ่มเติม)


0

คัดลอกข้อความที่คุณต้องการเปลี่ยนเคสเพื่อวางลงในคำที่ไฮไลต์แล้วกด Shift + f3 จนถึงทั้งหมดในกรณีที่คุณต้องการแล้วตัดและวางกลับ


ดูเหมือนจะไม่เป็นประโยชน์สำหรับหลาย ๆ เซลล์
David Richerby

0

วิธีนี้ใช้ได้ผลดีที่สุดสำหรับฉันเนื่องจากสามารถใช้งานได้กับการเลือกหลายเซลล์:

Sub Uppercase()
    For Each Cell In Selection
        If Not Cell.HasFormula Then
            Cell.Value = UCase(Cell.Value)
        End If
    Next Cell
End Sub
โดยการใช้ไซต์ของเรา หมายความว่าคุณได้อ่านและทำความเข้าใจนโยบายคุกกี้และนโยบายความเป็นส่วนตัวของเราแล้ว
Licensed under cc by-sa 3.0 with attribution required.