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 :

11 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

ninest123 Ninest 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

ninest123 Ninest 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

ninest123 Ninest 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

ninest123 Ninest said...
on 

abercrombie and fitch,abercrombie and,abercrombie,abercrombie kids,abercrombie fitch,abercrombie.com
nike air force 1, http://www.airforce1.us.com/
michael kors factory store,michael kors outlet online sale,michael kors,kors outlet,michael kors outlet,michael kors handbags,michael kors outlet online,michael kors handbags clearance,michael kors purses,michaelkors.com,michael kors bags,michael kors shoes,michaelkors,cheap michael kors
lebron james shoes, http://www.lebronjamesshoes.in.net/
ralph lauren polo shirts, http://www.poloralphlaurenshirts.us.com/
babyliss, http://www.babyliss.us.com/
timberland boots, http://www.timberlandboots.name/
ralph lauren shirts, http://www.poloralphlaurenshirts.us.com/
prada outlet, http://www.pradashoes.us/
karen millen dresses, http://www.karenmillendressesoutlets.co.uk/
seattle seahawks jerseys, http://www.seattleseahawksjersey.us/
miami heat jersey, http://www.miamiheatjerseys.net/
ray ban sunglasses, http://www.ray-bansunglassess.in.net/
michael kors outlet, http://www.michaelkorsoutletonlinstore.us.com/
coach outlet store, http://www.coachoutletstores.com.co/
mulberry outlet, http://www.mulberryoutlet.com.co/
tods shoes, http://www.todsshoes.us.com/
mac cosmetics,m a c cosmetics,mac makeup,maccosmetics.com,mac cosmetics outlet
nike foamposite, http://www.foampositeshoe.net/
kk0915

小 Gg said...
on 

Obat Stroke Iskemik Herbal Alami adalah sebuah solusi untuk anda yang bingung mencari obat untuk mengatasi penyakit stroke, selain itu ada juga Obat Untuk Mengobati Stroke Ringan Herbal yang memang banyak dicari karena sekarang ini banyak sekali penderita penyakit stroke ringan. Obat Stroke Tradisional Alami Ampuh, memang sangat ampuh karena terbuat dari bahan-bahan tradisional. Obat Untuk Stroke Ringan Yang Manjur juga sangat ampuh untuk mengatasi stroke ringan. Untuk itu Obat Penyakit Stroke Alami dan Tradisional sangat membantu sekali untuk pengobatan penyakit stroke. Obat Mujarab Untuk mengobati Penyakit Stroke merupakan sebuah obat mujarab yang banyak dijadikan alternatif oleh banyak orang, Obat Penyakit Stroke Alami dan Tradisional dan Obat Alami Untuk Mengobati Penyakit Stroke ini sudah banyak membantu orang-orang yang mengidap penyakit stroke dengan menggunakan Obat Untuk Penyakit Stroke Paling Ampuh. Obat Herbal Untuk Penderita Penyakit Stroke ini sangat aman, karena terbuat dari bahan alami yang 100% herbal. Obat Tradisional Untuk Penyakit Stroke Berat pun tersedia untuk anda yang memang mengalmai stroke berat. Untuk itu baik Obat Tradisional Untuk Menyembuhkan Penyakit Stroke, Obat Untuk Mengobati Stroke Ringan Maupun Berat, ataupun Obat Herbal Yang Mampu Untuk Mengobati Penyakit Stroke sangat baik dan berkhasiat sangat tinggi untuk mengobati penyakit stroke hingga tuntas.

Jaya Permana said...
on 

morning vig power capsule first one cara pemesanan vig power capsule position inisial mawar succes

inisial mawar said...
on 

obat kencing darah

Unknown said...
on 

cara mengurangi mata

minus yang sudah tinggi

cara mengurangi mata minus yang sudah tinggi said...
on 

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

Rangga Alexandra said...
on 

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

arief shop said...
on 

Post a Comment

Related Posts Plugin for WordPress, Blogger...