Kode Makro untuk Mengubah Huruf Besar Kecil di Excel

Contoh kode makro untuk mengubah huruf besar'kecil di Excel

Berlaku untuk: Microsoft Office Excel 2007Microsoft Office Excel 2003Excel 2010

Kami ingin menyediakan konten bantuan terbaru secepat mungkin kepada Anda, dalam bahasa Anda. Halaman ini telah diterjemahkan melalui automasi dan mungkin berisi kesalahan tata bahasa atau ketidakakuratan.

Tujuan kami menyediakan konten ini adalah agar dapat bermanfaat bagi Anda. Dapatkah Anda memberi tahu kami jika informasi yang disajikan dapat bermanfaat bagi Anda melalui bagian bawah halaman ini?

Lihat artikel asli dalam bahasa Inggris: 291323
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 makroUntuk menguji contoh makro, ikuti langkah-langkah berikut:

1. 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.

2. 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

https://support.microsoft.com/id-id/help/291323