Hot Fox: Re: ]] XL-mania [[ Mencari Tanda + dalam suatu Rumus

segunda-feira, 26 de outubro de 2009

Re: ]] XL-mania [[ Mencari Tanda + dalam suatu Rumus

di balik pertanyaan yg terlalu sederhana (menghitung banyaknya tanda "+")
sebetulnya tersirat maksud mencari banyaknya transaksi yg dituis dlm formula.
( pada postng lain, saya katakan sbg "banyaknya Operand" )

Operand / transaksi yg ditanyakan kebetulan hanya selalu menambah
=1000+3000+2000 (3 transaksi)

sedangkan naturalnya; transaksi bisa menambah dan bisa mengurangi
seperti anda bertransaksi dgn bank dlm hubungannya dengan tabungan
bisa deposit, bisa withdrawal...
=5000+4000-1000-500 (4 transaksi)

trus... transaksi bisa juga hanya satu transaksi
=6000
atau hanya ditulis sebagai konstanta
6000
( pasti tidak ditulis sebagai teks "+6000"

supaya makro pak puthut menghasilkan = 1)

belum lagi di cell bisa terutulis teks
"sudah dicatat 1000 + 2000 - 500"
( string, tidak bernilai bilangan yg dapat di aritmatikkan)

haruskan dianggap transaksi ?

Menghadapi data seperti itu, yaitu
=5000+4000-1000-500

=6000
6000
"sudah dicatat 1000 + 2000 - 500"

makro pak puthut yang menurutnya berpredikat PERTAMAX, ternyata tidak

menunjukkan ke-pertamax-annya sebagai pertamax (kalau lah pertamax dikira /

dianggap harus sebagai terbaik)

saya semakin ragu bahwa saat pengeposan tanggapan ( pertamax, keduax dst )

ada hubungannya dengan mutu ...

IMHO, "saat pengeposan jawaban" lebih besar hubungannya dengan 'kesempatan'

yg dimiliki oleh seseorang;

sedangkan "mutu tanggapan" hubungannya dengan kedalaman solusi yg diberikan,

dan kegunaannya bagi yg memerlukan, serta apakah dlm kasus sejenis si penanya

dapat belajar (dan membangun solusi sendiri) dari sulusi sebelumnya..

saya kira: tidak semua milis-members seperti anak kecil yg mendapat mainan baru,
yang berhari hari sanggup tidak tidur hanya demi untuk dapat bermain mainan-barunya,

dan bisa melupakan kewajiban harian lainnya..
(sehingga 'orang biasa' tentu postingnya tidak sempat berpredikat pertamax, (walau pun masih

mungkin bisa menjadi yang ter"jitu")

btw, kami semua sangat berterima kasih kepada "si Omm" (dengan double "M") satu ini;
yg telah selalu berusaha segera menjawab pertanyaan² yg muncul di milis...
mudah mudahan selain selalu predikat "pertamax", juga "kodingan"nya (?) bisa

mendapat predikat the best-answer / solution...
Pemilik kasusnya (dan pemerhati lain) lah yg kiranya dapat memberi predikat tsb,
bukan diri kita sendiri.

Oiya, sebelum lupa...

bahwa penyelesaian problem di Excel dengan VBA programming; tidak selalu / tidak harus

selalu mempunyai nilai yg lebih baik daripada solusi dengan cara natural.

karena banyak faktor untuk menilainya.

Misal ada kasus: bgmana cara memasukkan nilai 100 ke 20 cell ( A1:D5) sekaligus

Dengan cara natural kita select A1:D5; masukkan 100 ke formula bar; tekan Ctrl + Enter !.

Jika member lain menjawab dengan makro hasilnya mungkin sama.

Tetapi pada saat makro difikir dan akan ditulis, penyelesaian natural telah selesai dikerjakan.

Seseorang yg punya pemahaman yg baik mengenai excel dan makronya, tidak menjadi seperti

anak kecil yg mendapat PALU BARU, lalu semua benda di sekitarnya dianggap sebagai PAKU

(oleh karena itu mau diPALU-nya)

maaf agak kepanjangan,

siti hanya ingin "mendudukkan" sesuatu pada porsi-wajar-nya masing masing..

Pendapat siti pun belum tentu benar, oleh karena itu ... CMIIW (colek me if i am Wrong)

----- Original Message -----
From: Puthut Wibowo
To: XL-mania@yahoogroups.com
Sent: Sunday, October 25, 2009 04:51AM
Subject: Re: ]] XL-mania [[ Mencari Tanda + dalam suatu Rumus

Om om Kodingannya sbb :
' --------------------------------------------------------------------
' Nama Modul :mODSolusi.mod
' Kegunaan : Menjumlah Banyaknya Transaksi Berdasarkan Tanda '+'
' Created By : puthut_vai@yahoo.com @ 25 Okt 2009
' --------------------------------------------------------------------

Option Explicit

Sub JumlahkanTanda()
    Dim InputSheet As Worksheet
    Dim i As Long, r As Long
    Dim x As Variant
    Dim txt As String
    Dim CountHasil As Long

    Application.ScreenUpdating = False
    Set InputSheet = ActiveSheet
    r = 3
    InputSheet.Activate

'   Looping ampe habis
    Do While Cells(r, 2) <> ""
'       Value = Formula dalam Cell
        txt = Cells(r, 2).Formula
        CountHasil = 1

'       Jabarkan Hasil
        x = Split(txt, "+")
        For i = 1 To UBound(x)
            CountHasil = CountHasil + 1
            InputSheet.Cells(r, 3) = CountHasil
        Next i
    r = r + 1
    Loop
End Sub

File Terlampir oomm.....

- ^ Puthut Wibowo ^ - || puthut_vai@yahoo.com

__._,_.___

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

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| 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

Hot Fox

segunda-feira, 26 de outubro de 2009

Re: ]] XL-mania [[ Mencari Tanda + dalam suatu Rumus

Nenhum comentário:

Arquivo do blog