Cara memberi tanda petik di excel

” Cara Menambahkan Tanda Kutip ( ‘ ) Untuk Angka Pada Excel “

1. Buka dokumen microsoft.excel dengan menambahkan cell-cell atau kolom yang berisikan angka-angka, yang akan kita sisipkan tanda kutipnya

2. Langkah Selanjutnya pada halaman microsoft excelnya tekkan pada keyboard anda (alt +F11).maka akan muncul tampilan berikut ini.Lihat Gambar.

3. Selanjutnya Pada Tampilan yang muncul tadi,Klik 2 kali pada Sheet1(Sheet1)(Halaman yang terdapat angka-angka tadi).

4. Pada Book1-Sheet1(Code) Isikan/Copy kan skrip berikut ini ?

Option Explicit

Sub addapostrophe()

        Dim cell As Range

        For Each cell In Range(“A1:A” & Range(“A65536”).End(xlUp).Row)

        cell.Select

If cell.Value <> “” Then

       cell.Value = “‘” & cell.Value

       End If

    Next

End Sub

5. Perhatikan pada scripnya pada A1:A (Tempat angka yang diletakkan),Jika anda meletakkan di D1 maka harus diganti D1:D.

dan pada Range “A65536” .Huruf angkanya juga diganti dengan Huruf D. ?

6. Langkah Selanjutnya jalankan Scriptnya tadi dengan menekan tombol F5.

7. Selanjutnya tutup Halaman tadi ,dengan menekan tombol alt + q.

8. Selanjutnya lihat perubahan yang terjadi pada halaman microsoft excelnya.

9. Selesai.

Tags: Cara Menambahkan Tanda Kutip ( ' ) Untuk Angka Pada Excel, ipos 5

17 Thursday Sep 2020

Jika anda menemukan tulisan ini diantara sekian banyak tulisan tentang tutorial yang sama maka itu namanya takdir.

Setidaknya ada 2 cara yang pernah saya lakukan untuk menambahkan tanda petik [ ‘ ] pada awal cell yang berisi angka di excel, yaitu

1. Menggunaan menu bar “data” sebagaimana gambar terlampir:

Sebelum anda klik “text to Columns” pilih dahulu sel yang akan dieksekusi ya!

Kemudian pilih menu tombol “fixed width” next terus sampai mucul pilihan seperti gambar ke dua di bawah ini dan FINISH.

Saya menggunakan M.s Excel 2007. Untuk yang lebih baru juga tidak terlalu berbeda caranya.

Cara yang ke-2 adalah dengan memasukan rumus atau code berikut:

Sub addapostrophe()
Dim cell As Range
For Each cell In Range(“A1:A” & Range(“A65536”).End(xlUp).Row)
cell.Select
If cell.Value <> “” Then
cell.Value = “‘” & cell.Value
End If
Next
End Sub

Pertama, tentukan cell yang akan diberi tanda petik misalkan H3 sampai H 120, maka silakan ganti rumus di atas (“A1:A” & Range(“A65536”) menjadi (“L3:L” & Range(“L120”)

Pada sheet yang dimaksud, silakan tekan ALT+F11, maka akan mucul seperti berikut:

Setelah selesai memasukan rumusnya, silakan tekan tombol F5 (biasanya loading agak lama sesuai jumlah sell yang diberi tanda petik, semakin banyak semakin lama. lalu tekan ALT+Q

Selesai

Semoga bermanfaat.

Abu Arseel