Re: ]] XL-mania [[ Membandingkan deretan angka pada 2 sel yang berbeda

 

Dear Badrus,

Asumsi :
item ber-datatype numerik pada sebuah teks yang memiliki karakter delimiter tetapper teks.

Kasus 1 :
Array formula yang agak panjang dapat membantu. Dengan sedikit udf, array formula bisa menjadi lebih pendek.

Public Function SplitText(sTeks As String, _
                          Optional sDelimiter As String = ",") As Variant
    Dim sRes() As String
    sRes = Split(sTeks, sDelimiter)
    SplitText = sRes
End Function


Kasus 2 :
Maaf, bisanya array formula dengan dibantu beberapa udf. Mengurutkan menggunakan fungsi Small (ascending) atau Large (descending).
Array formula untuk memproses cell B3
=jointext(SMALL(--splittext(TRIM(B3)," "),ROW(INDIRECT("1:" & LEN(TRIM(B3)) - LEN(SUBSTITUTE(B3," ",""))+1)))," ")

Public Function JoinText(vData As Variant, Optional sDelimiter As String = ",") As String
    Dim vTemp As Variant
    Dim vLoop As Variant
    Dim sRes As String
    vTemp = vData
    If IsArray(vTemp) Then
        sRes = vbNullString
        For Each vLoop In vTemp
            sRes = sRes & vLoop & sDelimiter
        Next
        JoinText = Left$(sRes, Len(sRes) - Len(sDelimiter))
    Else
        JoinText = vTemp
    End If
    vTemp = Empty
    vLoop = Empty
    vData = Empty
End Function

Thank You and Regards.
Kid.

2010/10/29 Badrus Zaman <badrusmilis@gmail.com>

 

dears XL Mania

Mohon bantuan dari rekan-rekan semua.

Kasus 1: 

Saya ada deretan data seperti contoh berikut:

sel A3 : 0 1 3 26 28 15

sel B3 : 0 16 3 29 26

pergantian tiap angka pada sel tersebut dipisahkan dengan tanda spasi.

permasalahannya, jika ingin mencari jumlah angka yang sama dengan membandingkan pada 2 sel tersebut bagaimana??

pada contoh tersebut jawabannya 3 karena pada sel A3 dan B3 terdapat nilai yang sama yaitu 0, 3 dan 26

Kasus 2:

Jika akan mengurutkan data pada sel B3 menjadi 0 3 16 26 29 bagaimana???

saya sertakan file excelnya, barangkali bisa memperjelas permasalahannya

demikian permasalahannya.

atas bantuan dari rekans akan sangat membantu saya. terimakasih banyak

badrus

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (3)

Recent Activity:

• New Members 105

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| ada yang mau nyobain ice cream bikinan momods?                    |
| 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              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___