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
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)NextEnd 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)NextEnd 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)NextEnd 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: toMA2: sUe B2: sUe C2: sUeA3: joe SMITH B3: joe SMITH C3: joe SMITHA4: mary B4: mary C4: maryA5: 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 ExcelUntuk 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
Tidak ada komentar:
Posting Komentar
Catatan: Hanya anggota dari blog ini yang dapat mengirim komentar.