Tecnologia, programação e muito Visual FoxPro.

domingo, 15 de agosto de 2010

Re: ]] XL-mania [[ Memisahkan angka, huruf, dan angka

 

UDF berikut adalah dasar regular expression dengan VB.
Silakan dikembangkan untuk menjadi sebuah fungsi yang sesuai kebutuhan.
Bagian yang tebalkan bisa dihilangkan dengan meng-set references untuk mengaktikan library MS VBScript Regular Expression x.y
Pilih versi yang paling baru yang dimiliki. Umumnya 5.5


Public Function PisahAngka(sTeks As String, Optional sDelimiter As String = "-") As String
    Dim oRegExp As Object
    Dim oRegMatch As Object
    Dim sTemp As String
    Dim sPattern() As String
    Dim vPattern As Variant
   
    sPattern = Split("[0-9][a-z]|[a-z][0-9]", "|")
    Set oRegExp = CreateObject("vbscript.regexp")
   
    For Each vPattern In sPattern
        With oRegExp
            .Global = False
            .MultiLine = True
            .ignorecase = True
            .Pattern = vPattern
        End With
       
        Do
            Set oRegMatch = oRegExp.Execute(sTeks)
            If oRegMatch.Count > 0 Then
                sTemp = Left$(oRegMatch(0), 1) & _
                        Chr$(160) & sDelimiter & Chr$(160) & _
                        Right$(oRegMatch(0), 1)
                sTeks = Replace$(sTeks, oRegMatch(0), sTemp)
            Else
                Exit Do
            End If
        Loop
    Next
    PisahAngka = Replace$(sTeks, Chr$(160), vbNullString)
End Function

Cara pakai :
=PisahAngka( cell_teks, "teks pemisahnya" )

Regards.
Kid.


2010/8/13 Barry <barry.allen@ymail.com>
 

Dear Master XL,

mau tanya soalnya ada kasus di kantor dengan contoh data

100SEV50
10SEV5
SEV5
8TL100
6TL5
dst..
Agar menjadi
100SEV50 menjadi 100 - SEV - 50
6TL5 menjadi 6 - TL - 5
dst..
nach bagaimana caranya supaya memisahkan angka huruf kemudian angka langi pada kolom sebelahnya?? mohon bantuan para Master. Dan saya ucapkan terima kasih sebelumnya.


__._,_.___
Recent Activity:
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| selamat menunaikan ibadah puasa... walau perut lapar, tanya excel |
| jalan terus... malu bertanya telat pulang kantor :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              |
+-------------------------------------------------------------------+
MARKETPLACE

Hobbies & Activities Zone: Find others who share your passions! Explore new interests.


Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.


Get great advice about dogs and cats. Visit the Dog & Cat Answers Center.

.

__,_._,___

Nenhum comentário:

Arquivo do blog