jika diinginkan penyelesaian dengan bantuan makro, ada dua hal yg siti usulkan:
mudah-mudahan bermanfaat..
1
kita dapat sekalian me-RE-ORGANISASI data text tsb menjadi tabel yg mudah
diolah kembali (misalnya dicari Nilai Tiap ItemNamenya)
Jadi makro akan mengkonversi data teks tsb menjadi tabel Re-Organized-
Sekaligus dituliskan di sheet.
Barulah berdasarkan tabel tsb, kita mencari hasil yg diinginkan; yg ternyata hanya
perlu fungsi VLOOKUP
(lihat workbook : CARI KATA(makro_1)
Codingnya tidak perlu di pajang di sini, karena hanya berupa coding 28 baris kelas
biasa-biasa saja..
2.
kita tidak perlu menuliskan Re-Org-Data tsb ke sheet, tetapi langsung
menghasilkan data tanpa pelu pencet tombol atau meRUN makro
karena makronya dijalankan jika NAMA-nya tertulis di cell sebagai bagian
dari FORMULA; misal =Nilai_UPR(D4;
dimana D4 berisi nama Item ( "9UPR" ); dan B4:B6 berisi data-text asli dari pak Bud.
Mungkin ini yg disebut udf / fungsi buatan sendiri.
Codenya pun tidak perlu yg muluk-muluk dan yg "ngeri-ngeri"; kita pilih yg
biasa-bisa saja, kira-kira spt ini
Function Nilai_UPR(Kriteria, LookUpRange As Range)
' ctv / 9 okt 2009
Dim DatRec, DatArr
Dim r As Long, n As Long, i As Long
For r = 1 To LookUpRange.
DatRec = Replace(LookUpRange
DatRec = Replace(DatRec, ")", "")
DatRec = Replace(DatRec, "um", "")
DatArr = DatArr & DatRec
Next r
DatArr = Left(DatArr, Len(DatArr) - 1)
DatArr = Split(DatArr, ",")
For n = 0 To UBound(DatArr)
If DatArr(n) = Kriteria Then
Nilai_UPR = Val(DatArr(n - 1))
Exit For
End If
Next n
End Function
'(lihat workbook "CARI KATA (makro_udf).
On 10/8/09, Budiyana <budiyana@amtek.
> Hi ..Excel Mania ,..
> Sebelumnya met kenal dgn saya Budiyana – Batam
> Iseng-iseng nyari rumus formula excel saya lihat excel-mania yang paling yahud .deh
> Bagi rekan-rekan semuanya ,saya minta tolong nih untuk mecahin formula di bawah
> Formula untuk mencari kata seperti dibawah :
> 0.204um(10UPR)
> 0.023um(5UPR)
> 0.006um(1UPR)
> Kalau ketemu 10UPR maka datanya adalah 0.204 , lebih jelasnya ada di attach file
> Tolong ya..please
> Salam
> Budiyana
| Moderasi akan lambat minggu ini, momods pergi ke tempat jauh |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Nenhum comentário:
Postar um comentário