Contoh kode makro untuk mengubah huruf besar/kecil teks di Excel

Berlaku Untuk
Excel 2010

Untuk versi Microsoft Excel 2000 dari artikel ini, lihat 213649 .

Untuk Microsoft Excel 98 dan versi artikel sebelumnya, lihat 141094 .

Ringkasan

Meskipun Microsoft Excel memiliki fungsi yang mengubah huruf besar/kecil teks, ada kalanya Anda mungkin ingin mengubah huruf besar/kecil teks secara terprogram.

Artikel ini berisi tiga contoh makro Microsoft Visual Basic for Applications (Sub prosedur) yang dapat Anda gunakan untuk mengubah huruf dalam string teks menjadi huruf besar, huruf kecil, atau huruf judul (huruf pertama dalam setiap kata dikapitalisasi). Tindakan ini serupa dengan fungsi Excel, =UPPER(), =LOWER(), dan =PROPER().

Informasi Selengkapnya

Microsoft menyediakan contoh pemrograman hanya untuk ilustrasi, tanpa jaminan tersurat maupun tersirat. Hal ini termasuk, tetapi tidak terbatas pada, jaminan tersirat tentang kelayakan untuk diperdagangkan atau kesesuaian untuk tujuan tertentu. Artikel ini menganggap Anda terbiasa dengan bahasa pemrograman yang sedang didemonstrasikan dan dengan alat yang digunakan untuk membuat dan men-debug prosedur. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, tetapi mereka tidak akan mengubah contoh ini untuk menyediakan fungsionalitas tambahan atau membuat prosedur untuk memenuhi kebutuhan spesifik Anda.

Makro untuk mengubah semua teks dalam rentang menjadi huruf besar

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 dalam rentang menjadi 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 dalam rentang sel menjadi huruf kapital awal

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

Menguji makro sampel

Untuk menguji makro sampel, ikuti langkah-langkah berikut:

  1. Dalam buku kerja yang sama yang berisi makro, masukkan data sampel berikut ke dalam lembar kerja 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: Sampel data ini berisi teks yang diformat dalam berbagai kasus yang dapat Anda gunakan untuk memverifikasi cara kerja setiap makro.

  2. Jalankan setiap makro.

Teks dalam rentang yang ditentukan dalam makro (dalam baris yang berbunyi "Untuk setiap x dalam ...") akan diformat dalam huruf besar, huruf kecil, atau huruf kapital, sesuai kebutuhan.

Referensi

Untuk informasi selengkapnya tentang cara menggunakan fungsi lembar kerja untuk mengubah huruf besar/kecil teks, klik nomor artikel berikut untuk melihat artikel di Pangkalan Pengetahuan Microsoft:

263580 Cara mengubah huruf besar/kecil teks di Excel

Untuk informasi selengkapnya tentang cara mendapatkan bantuan dengan Visual Basic untuk Aplikasi, klik nomor artikel berikut untuk melihat artikel di Pangkalan Pengetahuan Microsoft:

305326 Daftar sumber daya pemrograman untuk Visual Basic untuk Applications