Cara Menciptakan Upercase (Huruf Besar Semua) Otomatis Dengan Vba
Hi Excel-ID, bagaimana mencar ilmu VBA nya semoga lancar dan tidak ada kendala, namun kalau kalian ada dilema silakan tuliskan komentar sesuai dengan artikel yang berkaitan.
Memaksa Huruf Kapital pada Textbox UserForm
Pada kesempatan kali ini saya akan membahas bagaimana caranya menciptakan karakter besar semua pada beberapa kolom atau lebih dikenal dengan UPERCASE dengan memakai VBA (Macro Excel). yang biasa dilakukan oleh kalian yaitu mengetikan terlebih dahulu lalu kalau ingin karakter dibesarkan maka kalian memakai rumus dan ini sudah saya bahas pada artikel yang telah saya posting di blog ini namun kalau kalian lupa maka silakan
Baca:
Cara Membuat Tulisan Besar Semua (UperCase) dengan rumus
Nah, pada kesempatan kali ini saya akan menciptakan hal yang sama namun dengan memakai coding VBA. Oke eksklusif saja berikut yaitu coding yang harus kalian tuliskan
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Not Target.Text = UCase(Target.Text) Then
If Target.HasFormula = True Then
Target.Formula = "=UPPER(" & Mid(Target.Formula, 2) & ")"
Else
Target = UCase(Target.Text)
End If
End If
End If
End Sub
Pada coding diatas kita memakai mekanisme Worksheet_Change jadi dikala ada perubahan pada worksheet yang aktif maka coding dijalankan. Kemudian targetnya yaitu pada kolom A sehingga saya tuliskan di coding diatas yaitu If Target.Column=1 kalau kalian akan mengganti di kolom C maka silakan ganti menjadi 3 dan begitu seterusnya.
Untuk object saya memakai worksheet dan mekanisme change Anda juga dapat memakai tombol tinggal ganti saja object nya menjadi CommandButton.
Oke, silakan coba coding yang telah kalian buat dan kalau berhasil maka kalau kalian meuliskan secara acak artinya baik hurufnya kecil maupun besar atau besar awal kata nya saja maka akan secara otomatis dikala berpindah cell akan menjadi karakter kapital semua dan ini berlaku hanya pada kolom A ibarat biasa kalian ganti yang tadinya target.column=1 menjadi target.column=2.
Oke, itu saja artikel kali ini semoga bermanfaat dan jangan lupa untuk share kalau goresan pena ini bermanfaat biar temen-temen juga dapat mencicipi manfaat dan terimakasih.
Baca:
Cara Merubah Huruf Besar Menjadi Kecil Sumber http://jago-office.blogspot.com
Memaksa Huruf Kapital pada Textbox UserForm
Pada kesempatan kali ini saya akan membahas bagaimana caranya menciptakan karakter besar semua pada beberapa kolom atau lebih dikenal dengan UPERCASE dengan memakai VBA (Macro Excel). yang biasa dilakukan oleh kalian yaitu mengetikan terlebih dahulu lalu kalau ingin karakter dibesarkan maka kalian memakai rumus dan ini sudah saya bahas pada artikel yang telah saya posting di blog ini namun kalau kalian lupa maka silakan
Baca:
Cara Membuat Tulisan Besar Semua (UperCase) dengan rumus
Nah, pada kesempatan kali ini saya akan menciptakan hal yang sama namun dengan memakai coding VBA. Oke eksklusif saja berikut yaitu coding yang harus kalian tuliskan
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Not Target.Text = UCase(Target.Text) Then
If Target.HasFormula = True Then
Target.Formula = "=UPPER(" & Mid(Target.Formula, 2) & ")"
Else
Target = UCase(Target.Text)
End If
End If
End If
End Sub
Pada coding diatas kita memakai mekanisme Worksheet_Change jadi dikala ada perubahan pada worksheet yang aktif maka coding dijalankan. Kemudian targetnya yaitu pada kolom A sehingga saya tuliskan di coding diatas yaitu If Target.Column=1 kalau kalian akan mengganti di kolom C maka silakan ganti menjadi 3 dan begitu seterusnya.
Untuk object saya memakai worksheet dan mekanisme change Anda juga dapat memakai tombol tinggal ganti saja object nya menjadi CommandButton.
Oke, silakan coba coding yang telah kalian buat dan kalau berhasil maka kalau kalian meuliskan secara acak artinya baik hurufnya kecil maupun besar atau besar awal kata nya saja maka akan secara otomatis dikala berpindah cell akan menjadi karakter kapital semua dan ini berlaku hanya pada kolom A ibarat biasa kalian ganti yang tadinya target.column=1 menjadi target.column=2.
Oke, itu saja artikel kali ini semoga bermanfaat dan jangan lupa untuk share kalau goresan pena ini bermanfaat biar temen-temen juga dapat mencicipi manfaat dan terimakasih.
Baca:
Cara Merubah Huruf Besar Menjadi Kecil Sumber http://jago-office.blogspot.com
0 Response to "Cara Menciptakan Upercase (Huruf Besar Semua) Otomatis Dengan Vba"
Posting Komentar