Hot Fox: Re: ]] XL-mania [[ Mencari kata

quinta-feira, 8 de outubro de 2009

Re: ]] XL-mania [[ Mencari kata

Om om ..... sebenarnya kalo sesuai dengan subyek EMIL adalah Split Kata...Bukan Mencari kata...

Kalo Mencari kata cukup dengan Ctrl + F pada Woorksheet dan masukan kata yang ingin dicari

.......... tapi kalo dari hasil attachment punyaanya si oom:

Teks

0.204um(10UPR),0.197um(11UPR),0.038um(12UPR),0.023um(9UPR),

0.023um(5UPR),0.013um(6UPR),0.011um(7UPR),0.006um(8UPR),

0.006um(1UPR),0.005um(3UPR),0.005um(4UPR),0.001um(2UPR),

Hasil yang di inginkan DARI KUMPULAN TEKS B5 SAMPAI B7
9UPR	0,023
10UPR	0,204
11UPR	0,197
12 UPR	0,038

Kalo mau bikin yang kayak gituan Kodingannya kayak gini ooom :
Sub SplitUPRdanUM()
    Dim InputSheet As Worksheet
    Dim SheetHasil As Worksheet
    Dim arrDihilangkan As Variant, x As Variant
    Dim i As Long, r As Long
    Dim txt As String
    Dim CountHasil As Long

    Application.ScreenUpdating = False
    Set InputSheet = ActiveSheet
    Set SheetHasil = Worksheets.Add(after:=Worksheets(Sheets.Count))
    SheetHasil.Range("A1") = "UPR"
    SheetHasil.Range("A1").Font.Bold = True
    SheetHasil.Range("B1") = "UM"
    SheetHasil.Range("B1").Font.Bold = True

    InputSheet.Activate
    CountHasil = 2
    ' Data yang ingin dihilangkan
    arrDihilangkan = Array("(", ")", "UM")

    r = 1

'   Looping ampe habis
    Do While Cells(r, 1) <> ""
'       covert to UPPERCASE
        txt = UCase(Cells(r, 1))
'       Hilangkan "(" " )" dan UM
        For i = 0 To UBound(arrDihilangkan)
            txt = Replace(txt, arrDihilangkan(i), "")
        Next i
'       Jabarkan Hasil
        x = Split(txt, ",")
        For i = 0 To UBound(x)
            ' Hasil pada kolom pertamaX
            SheetHasil.Cells(CountHasil, 1) = Mid(x(i), 6)
            ' Hasil pada kolom keduaX
            SheetHasil.Cells(CountHasil, 2) = Left(x(i), 5)
            CountHasil = CountHasil + 1
        Next i
    r = r + 1
    Loop


    SheetHasil.Activate
    ' Autofilter ON....pada Sheet Hasil
    If Not ActiveSheet.AutoFilterMode Then
        ActiveSheet.Range("A1").AutoFilter
    End If

End Sub

File terlampir oom..jangan lupa Makro Srikitinya oom.........

- ^ Puthut Wibowo ^ -

--- On Thu, 10/8/09, Budiyana <budiyana@amtek.com.sg> wrote:

From: Budiyana <budiyana@amtek.com.sg>
Subject: ]] XL-mania [[ Mencari kata
To: "XL-mania " <XL-mania@yahoogroups.com>
Date: Thursday, October 8, 2009, 4:41 PM

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.197um( 11UPR),0. 038um(12UPR) ,0.023um( 9UPR),

0.023um(5UPR) ,0.013um( 6UPR),0.011um( 7UPR),0.006um( 8UPR),

0.006um(1UPR) ,0.005um( 3UPR),0.005um( 4UPR),0.001um( 2UPR),

Kalau ketemu 10UPR maka datanya adalah 0.204 , lebih jelasnya ada di attach file

Tolong ya..please

Salam

Budiyana

__._,_.___

Messages in this topic (2) Reply (via web post) | Start a new topic

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Tolong cariin momods kerjaan jadi direktur dongggg... :D :D :D    |
| 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

Hot Fox

quinta-feira, 8 de outubro de 2009

Re: ]] XL-mania [[ Mencari kata

Nenhum comentário:

Arquivo do blog