Untuk versi Microsoft Excel 2000 dari artikel ini, lihat 213649.
Untuk Microsoft Excel 98 dan versi yang lebih lawas dari artikel ini, lihat 141094.
Ringkasan
Meskipun Microsoft Excel memiliki fungsi yang mengubah huruf besar/kecil, ada waktu ketika Anda mungkin ingin mengubah huruf besar / kecil secara programatik.
Artikel ini berisi tiga contoh Microsoft Visual Basic untuk aplikasi makro (Sub prosedur) yang dapat Anda gunakan untuk mengubah huruf-huruf dalam string teks ke semua huruf besar, Semua huruf kecil atau huruf judul (huruf pertama dalam setiap kata kapital). Tindakan ini akan mirip dengan fungsi Excel, = UPPER(), = LOWER() dan = PROPER().
Informasi lebih lanjut
Microsoft menyediakan contoh pemrogaman hanya untuk ilustrasi, tanpa garansi baik tersurat maupun tersirat. Ini mencakup, namun tidak terbatas pada, garansi yang tersirat dapat diperjualbelikan atau kesesuaian untuk tujuan tertentu. Artikel ini menganggap bahwa Anda sudah terbiasa dengan bahasa pemrograman yang ditunjukkan dan terbiasa dengan alat-alat yang digunakan untuk membuat dan prosedur debug. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan mengubah contoh tersebut untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda.
Makro untuk mengubah semua teks di kisaran ke huruf besar huruf
Sub Uppercase()
' Loop to cycle through each cell in the specified range.
For Each x In Range("A1:A5")
' Change the text in the range to uppercase letters.
x.Value = UCase(x.value)
Next
End Sub
Makro untuk mengubah semua teks di kisaran ke huruf kecil
Sub Lowercase()
' Loop to cycle through each cell in the specified range.
For Each x In Range("B1:B5")
x.Value = LCase(x.Value)
Next
End Sub
Makro untuk mengubah semua teks di kisaran sel awal huruf kapital
Sub Proper_Case()
' Loop to cycle through each cell in the specified range.
For Each x In Range("C1:C5")
' There is not a Proper function in Visual Basic for Applications.
' So, you must use the worksheet function in the following form:
x.Value = Application.Proper(x.Value)
Next
End Sub
Pengujian contoh makro
Untuk menguji contoh makro, ikuti langkah-langkah berikut:
-
Di buku kerja yang sama yang berisi makro, masukkan data contoh berikut ke lembar kerja yang baru:
A1: toM B1: toM C1: toM
A2: sUe B2: sUe C2: sUe
A3: joe SMITH B3: joe SMITH C3: joe SMITH
A4: mary B4: mary C4: mary
A5: LORI B5: LORI C5: LORI
Catatan: data sampel ini berisi teks yang diformat dalam berbagai hal yang dapat Anda gunakan untuk memverifikasi bagaimana makro setiap bekerja. -
Menjalankan makro masing-masing.
Teks dalam kisaran yang ditentukan dalam makro (pada baris yang membaca "Untuk setiap x dalam...") akan diformat dengan huruf besar, huruf kecil atau awal modal, yang sesuai.
Referensi
Untuk informasi selengkapnya tentang cara menggunakan fungsi lembar kerja untuk mengubah huruf besar/kecil, klik nomor artikel berikut ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
263580 cara mengubah huruf besar'kecil di Excel
Untuk informasi lebih lanjut tentang mendapatkan bantuan dengan Visual Basic untuk aplikasi, klik nomor artikel berikut ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
Daftar 305326 pemrograman sumber daya untuk Visual Basic untuk aplikasi
