Hot Fox: Re: ]] XL-mania [[ Perkalian dalam satu cell yg digabung dengan Text

segunda-feira, 14 de setembro de 2009

Re: ]] XL-mania [[ Perkalian dalam satu cell yg digabung dengan Text

OOmm......Format nya kayak gini kan oom ?

2 buah anggur x Rp. 500,-
10 Picis Laptop x Rp 50000,-
1000 buah pelet x RP 30000,-

dalam artian kuantitas * Harga = Total Harga

Langkah yang di lakukan cek dari cell bersangkutan kemudian setiap kalimat di pindahkan ke cell berikutnya......(memisahkan kuantitas dan harga), berikut makronya :

Dim PuncChars As Variant, y, z As Variant
Dim array1 As Variant
Dim counter As Integer
Sub LaksanakanOoom()

PuncChars = Array(",", "-", ",-")
For Each cell In Selection
    counter = (cell.Column + 1)
    array1 = Split(cell.Value, " ")

    For i = 0 To UBound(array1)
        If i > 2 And i < (UBound(array1) - 1) Then
                Cells(cell.Row, counter).Value = Cells(cell.Row, counter).Value & " " & array1(i)
                If i = UBound(array1) - 2 Then
                    counter = counter + 1
                End If
        Else
            For y = 0 To UBound(PuncChars)
            'Replace tanda ',' dan '-' yang melekat pada uang 500,-
                Cells(cell.Row, counter).Value = Replace(array1(i), PuncChars(y), "")
            Next y
            counter = counter + 1
            If counter >= 8 Then
                ' BRUTAL CODE...... ;P udah pagi ngantuk (Kenapa om momod mostingnya dini hari terus) jadi buru2x kembangin sendiri aja oom
                Cells(cell.Row, 8).Value = Val(Cells(cell.Row, 2).Value) * Cells(cell.Row, 7).Value
                ' Perhatikan :
                ' Kalo mau liat Stepnya di delete ada dari kolom B sampe G ----------------------
                    Columns("B:G").Select
                    Selection.Delete Shift:=xlToLeft
                ' --------------------------------------------------- untuk ngilangin jejak :)

            End If
        End If
    Next
Next
End Sub

File terlampir (Kodingannya agak BRUTAL oom.....

, udah ngantuk mau buru2x

.......)

...
Puthut Wibowo

--- On Mon, 9/14/09, jefri_suryatin <jefri_suryatin@yahoo.com> wrote:

From: jefri_suryatin <jefri_suryatin@yahoo.com>
Subject: ]] XL-mania [[ Perkalian dalam satu cell yg digabung dengan Text
To: XL-mania@yahoogroups.com
Date: Monday, September 14, 2009, 7:40 PM

mungkin gak perkalian dalam 1 cell yang tergabung dengan text dilakukan pada excel dengan menggunakan fungsi ato macro ?

contoh :

pada cell A1 terdapat data " 2 buah anggur x Rp. 500,- " maka di cell B1 secara otomatis terisi nilai " Rp. 1.000,-" yang dihasilkan dari " 2 x 500 " pada cell A1.

saya pernah menemukan metode ini pada progam foxpro, mungkin gak ya? trims atas bantuan para ahli Xl-Mania

__._,_.___

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

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Ada lowongan jadi direktur ga? Hubungi momods please... :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

Mom Power: Discover the community of moms doing more for their families, for the world and for each other