Sunday, April 27, 2014

16 Fungsi VBA Untuk Mengolah Text

www.AstroDigi.com AstroDigi.com | Rabu, 23 Apr 2014 | Dalam memprogram pernahkah anda butuh konversi dari character ASCII menjadi bilangan (numerik) yang menunjukkan nomor ASCII-nya? Atau mungkin juga sebaliknya dari bilangan (numerik) menjadi character ACII?

Atau pernahkah anda ingin merubah tulisan supaya otomatis berubah menjadi huruf besar semua, biasanya huruf besar semua dibutuhkan saat anda harus mengisi form (misalnya form pajak atau SPT).

Pada VBA ada banyak fungsi yang memang dibuat untuk mengolah text. Perintah perintah yang sering digunakan adalah sebagai berikut:



1. Asc («karakter»)
Menampilkan nomor urut ASCII dari suatu karakter.

Contoh:
x = Asc("A")

hasilnya > x = 65

2. Chr («angka»)
Merupakan kebalikan dari Asc, Chr menampilkan karakter ASCII sesuai dengan nomor urut yang disebutkan.

Contoh:
x = Asc(65)

hasilnya > x = "A"

3. Format («ekspresi», «format»)
Menampilkan ekspresi teks dalam format yang disesuaikan. Misalnya mengatur format tanggal, mengatur format kata/kalimat, dan lain sebagainya.

Contoh:
x = Format(Date, "yyyymmdd")
'misal tanggal adalah 22 Januari 2012

hasilnya > x = 20120122

4. InStr («start»; «text1», «text2»)
Mencatat posisi karakter pertama yang ditemukan pada "text1" sesuai dengan kriteria yang disebutkan pada "text2", dimulai dari "start".


Contoh:
x = InStr(3,"Hari ini cuaca cerah sekali", "a")
y = InStr(1,"Hari ini cuaca cerah sekali", "a")

hasilnya > x = 12 & y = 2

5. LCase («text»)
Mengubah text/kata/kalimat menjadi huruf kecil semua

Contoh:
x = LCase("Hari ini cuaca cerah sekali")

hasilnya > x = "hari ini cuaca cerah sekali"

6. Left («text»; «angka»)
Mengambil huruf sebanyak "angka" yang disebutkan dari posisi kiri

Contoh:
x = Left("Hari ini cuaca cerah sekali", 4)
y = Left("Hari ini cuaca cerah sekali", 11)

hasilnya > x = "Hari" & y = "Hari ini cu"

7. Len («text»)
Menghitung jumlah karakter dalam deretan text/kata/kalimat

Contoh:
x = Len("Hari ini cuaca cerah sekali")

hasilnya > x = 27

8. LTrim («text»)
Membuang "space" (spasi) disebelah kiri text/kata/kalimat

Contoh:
x = LTrim("    Hari ini cuaca cerah sekali")

hasilnya > x = "Hari ini cuaca cerah sekali"

9. Mid («text», «start», «panjang text»)
Mengambil karakter "text" sebanyak "panjang text", dimulai dari posisi "start"

Contoh:
x = Mid("Hari ini cuaca cerah sekali", 5, 7)
y = Mid("Hari ini cuaca cerah sekali", 2, 3)

hasilnya > x = " ini cu" & y = "ari"

10. Replace («text»; «text yang dicari», «text pengganti», «start»)
Mengganti text/kata/kalimat sesuai dengan "text yang dicari", diganti dengan "text pengganti" dan diambil dari posisi "start" sampai habis.

Contoh:
x = Replace("Hari ini cuaca cerah sekali", "ari", "xxx", 1)
y = Replace("Hari ini cuaca cerah sekali", "cer", "8888888", 5)

hasilnya > x = "Hxxx ini cuaca cerah sekali" & y = " ini cuaca 8888888ah sekali"

11. Right («text», «angka»)
Mengambil huruf sebanyak "angka" yang disebutkan dari posisi kanan

Contoh:
x = Right("Hari ini cuaca cerah sekali", 4)
y = Right("Hari ini cuaca cerah sekali", 11)

hasilnya > x = "kali" & y = "erah sekali"

12. RTrim («text»)
Membuang "space" (spasi) disebelah kanan text/kata/kalimat

Contoh:
x = RTrim("Hari ini cuaca cerah sekali       ")

hasilnya > x = "Hari ini cuaca cerah sekali"

13. StrComp («text1/angka1»; «text2/angka2»)
Membandingkan "text1/angka1" dengan "text2/angka2" bila hasilnya sama akan menghasilkan 0, bila berbeda akan menghasilkan -1 atau 1.
Bila "text1/angka1" lebih besar maka hasil = 1
Bila "text2/angka2" lebih besar maka hasil = -1

Contoh:
x = StrComp("sing", "song")

hasilnya > x = -1

14. StrConv («text»; «konversi»)
Mengubah/mengkonversi text menjadi text baru dengan huruf kecil semua, atau huruf besar semua, atau huruf besar disemua awal kata.

Daftar konversi:
vbProperCase = Huruf pertama diawal kata besar
vbUpperCase = Huruf besar semua
vbLowerCase = Huruf kecil semua

Contoh:
x = StrConv("Hari ini cuaca cerah sekali", vbProperCase)

hasilnya > x = "Hari Ini Cuaca Cerah Sekali"

15. Trim («text»)
Membuang "space" (spasi) disebelah kiri dan kanan text/kata/kalimat

Contoh:
x = Trim("    Hari ini cuaca cerah sekali       ")

hasilnya > x = "Hari ini cuaca cerah sekali"

Contoh:

16. UCase («stringexpr»)
Mengubah text/kata/kalimat menjadi huruf besar semua

Contoh:
x = UCase("Hari ini cuaca cerah sekali")

hasilnya > x = "HARI INI CUACA CERAH SEKALI"

Selamat mencoba . . . have a nice day :-)


 www.AstroDigi.com (Nino Guevara Ruwano)

Comments :

7 comments to “16 Fungsi VBA Untuk Mengolah Text”

ninest123 07.31
true religion jeans, oakley sunglasses, louboutin, michael kors outlet, michael kors outlet, coach outlet, longchamp outlet, tiffany jewelry, christian louboutin outlet, michael kors, kate spade outlet, prada handbags, ray ban sunglasses, gucci outlet, tiffany and co, replica watches, michael kors outlet, coach outlet, nike air max, polo ralph lauren outlet, louboutin shoes, ray ban sunglasses, tory burch outlet, michael kors outlet, jordan shoes, nike air max, oakley sunglasses, chanel handbags, coach purses, kate spade handbags, nike free, coach factory outlet, burberry, longchamp outlet, burberry outlet online, nike outlet, prada outlet, oakley sunglasses, polo ralph lauren outlet, longchamp, michael kors outlet, louboutin outlet

Unknown said...
on 

true religion outlet, mulberry, lacoste pas cher, true religion jeans, nike air max, new balance pas cher, abercrombie and fitch, lululemon, hermes, nike blazer, longchamp pas cher, air force, vans pas cher, michael kors, nike free run uk, north face, sac guess, nike air max, air jordan pas cher, burberry, converse pas cher, north face, louboutin pas cher, nike air max, nike free, vanessa bruno, ralph lauren pas cher, sac longchamp, michael kors, ralph lauren uk, ray ban uk, air max, hollister, oakley pas cher, michael kors, hogan, tn pas cher, hollister pas cher, ray ban pas cher, nike roshe run, true religion jeans, timberland

Unknown said...
on 

wedding dresses, soccer jerseys, nike roshe, abercrombie and fitch, iphone 6 cases, ferragamo shoes, reebok shoes, soccer shoes, ghd, asics running shoes, nike huarache, lululemon, vans shoes, instyler, nike roshe, oakley, insanity workout, p90x workout, mcm handbags, north face outlet, beats by dre, celine handbags, bottega veneta, baseball bats, north face outlet, longchamp, giuseppe zanotti, hollister, valentino shoes, new balance, nfl jerseys, hollister, jimmy choo shoes, babyliss, herve leger, mac cosmetics, birkin bag, timberland boots, chi flat iron, nike trainers, mont blanc, nike air max

Unknown said...
on 

swarovski, replica watches, toms shoes, ugg boots, supra shoes, marc jacobs, montre pas cher, links of london, thomas sabo, vans, hollister, ugg pas cher, ugg,ugg australia,ugg italia, nike air max, ray ban, ugg boots uk, ugg boots, ugg,uggs,uggs canada, karen millen, gucci, bottes ugg, lancel, uggs on sale, ralph lauren, hollister, converse, wedding dresses, pandora charms, louboutin, juicy couture outlet, converse outlet, juicy couture outlet, pandora charms, swarovski crystal, ugg boots, coach outlet, pandora jewelry, ugg boots
ninest123 07.31

Unknown said...
on 

obat kencing darah

Unknown said...
on 

Diasis Care Capsule Green World | khasiat rumput laut untuk melangsingkan tubuh

Unknown said...
on 

agen vimax bandung
vimax bandung
vimax asli bandung
jual vimax bandung
cod vimax bandung
pembesar penis bandung

Unknown said...
on 

Post a Comment