Cara Menciptakan Upercase (Huruf Besar Semua) Otomatis Dengan Vba - Gasskeun Cara Menciptakan Upercase (Huruf Besar Semua) Otomatis Dengan Vba | Gasskeun

Cara Menciptakan Upercase (Huruf Besar Semua) Otomatis Dengan Vba

Hi Excel-ID, bagaimana mencar ilmu VBA nya semoga lancar dan tidak ada kendala, namun jikalau kalian ada persoalan silakan tuliskan komentar sesuai dengan artikel yang berkaitan.

Memaksa Huruf Kapital pada Textbox UserForm

Pada kesempatan kali ini saya akan membahas bagaimana caranya menciptakan abjad besar semua pada beberapa kolom atau lebih dikenal dengan UPERCASE dengan memakai VBA (Macro Excel). yang biasa dilakukan oleh kalian yakni mengetikan terlebih dahulu lalu jikalau ingin abjad dibesarkan maka kalian memakai rumus dan ini sudah saya bahas pada artikel yang telah saya posting di blog ini namun jikalau 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 yakni 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 saat ada perubahan pada worksheet yang aktif maka coding dijalankan. Kemudian targetnya yakni pada kolom A sehingga saya tuliskan di coding diatas yakni If Target.Column=1 jikalau 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 jikalau berhasil maka jikalau kalian meuliskan secara acak artinya baik hurufnya kecil maupun besar atau besar awal kata nya saja maka akan secara otomatis saat berpindah cell akan menjadi abjad 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 jikalau goresan pena ini bermanfaat semoga temen-temen juga dapat mencicipi manfaat dan terimakasih.

Baca:
Cara Merubah Huruf Besar Menjadi Kecil

Oke, itu saja artikel kali ini semoga bermanfaat dan jangan lupa untuk share jikalau goresan pena ini bermanfaat semoga temen-temen juga dapat mencicipi manfaat dan terimakasih.

Baca:
Cara Merubah Huruf Besar Menjadi Kecil

Related Posts

Matikan AdBlock

Agar blog Ini tetap berjalan, matikan AdBlock atau masukkan blog ini ke dalam whitelist.
Terima kasih.