Hot Fox

quarta-feira, 31 de agosto de 2011

Re: ]] XL-mania [[ Fungsi Macro Penjumlah

Menurut pendapat saya, di VBA, secara murni tidak ada fungsi SUM, SUMIF,

SUMPRODUCT maupun "bangsa SUM" lainnya..

Jadi biasanya untuk mempercepat program, pemakai VBA Excel meminjam

fungsi milik workshseet (WorksheetFunction); Misalnya

Cell(16,4) = WorksheetFunction.SUMIF(RangeYgDiSum,Kriteria,RangeKriteria)

Tanpa meminjam fungsi milik Excel; jangan lantas dikira bawa VBA tidak dapat

menjumlah (SUM, SUMIF, SUMPRODUCT dan bangsa SUM lainnya, jika ada),

karena VBA punya struktur LOOP di mana setiap step kita dapat menumpuk tambah

sekumpulan nilai yg merujuk ke cell yg berurut-urutan ke sebuah variable.

Misal, terhadap RANGE dari cell A1 sampai cell A1000 (berisi bilangan);

di worksheet kita dapat menjumlah dengan SUM(A1:A1000)

di VBA kita menjumlah dng WorksheetFunction.SUM(Range("A1:A1000")),

Bisa juga dengan menuliskan Text Formula ke cell, atau dengan menumpuk_tambah

dengan Loop seperti disebutkan di atas.

for R = 1 to 1000

HasilSum = HasilSum + Range("A" & i).Value

next R

Range("A1001").value = HasilSum

Pertanyaan yg diajukan oleh pak Loheng bukan hanya sekedar Menjumlah, tetapi

MENJUMLAH BERSYARAT.

Syarat bukan sesuatu yg mengerikan, karena, di VBA, tidak lebih dari sesuatu yg

dengan mudah dapat diexpresikan dengan struktur If - Then

Langsung saja.. makronya (tanpa meminjam Fungsi milik worksheet dan

tanpa membuat TEXT matematik / ataupun text fungsi worksheet yg kemudian

di "Evaluate"); kita kira sbb

'-----------------------------------

Sub MenjumlahBersyarat()

'== 1 sep 2011 / Hapsari ==

'== courtesy of mbak siti==

----------------------------

Dim dTabel As Range

Dim dHasil As Range

Dim dSumIf As Double ' Ingat bahwa nama Variable adalah sekedar NAMA

Dim i As Long, n As Long

Set dTabel = Range("G3").CurrentRegion

Set dHasil = Range("B15").CurrentRegion

' Loop Luar

For i = 2 To dHasil.Rows.Count

dSumIf = 0

' Loop Dalam

For n = 2 To dTabel.Rows.Count

If dTabel(n, 2) = dHasil(i, 2) Then '<<-- bersyarat

dSumIf = dSumIf + dTabel(n, 3) ' <<- tumpukan jumlah

End If

Next n

' --menulis hasil ke cell setiap selesai 1 X Loop-Dalam --

If Not dSumIf = 0 Then dHasil(i, 3) = dSumIf

Next i

End Sub

'-----------------------------------

Di workbook contoh terlampir, makro sudah direpresentasikan oleh TOMBOL

Mohon maaf jika ternyata bukan itu yg dimaksudkan

2011/8/29 Loheng Stone <lohengstone@yahoo.com>

Apa fungsi macro yang dipakai untuk menjumlahkan Qty berdasarkan part.id
Contoh terlampir

Terima kasih..

__._,_.___

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

Messages in this topic (2)

Recent Activity:

New Members 31

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| selamat idul fitri, mohon maaf lahir dan batin...                 |
| www.linkedin.com/company/xl-mania                                 |
| ayo pesan buku "mengapa boss benci chart anda" :D :D :D          |
+-------------------------------------------------------------------+
| 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

A bad score is 598. A bad idea is not checking yours, at freecreditscore.com.

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

__,_._,___

]] XL-mania [[ Pengolahan Data berdasarkan lookup/ search kriteria tertentu.

Dear para master EXCEL,

Mohon bantuannya untuk beberapa permasalahan saya dalam pengolahan data berdasarkan formula utk search/ lookup kriteria tertentu.

Contoh kasus terlampir.

Mohon maaf bila kasus berikut sudah sering dibahas, tetapi mudah2an permasalahan saya agak sedikit berbeda dengan yang sudah pernah dibahas sebelumnya.

Terima Kasih.

Salam hangat,

Andi Triwijaya.

__._,_.___

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

Messages in this topic (1)

Recent Activity:

New Members 31

Visit Your Group

MARKETPLACE

A bad score is 579. A good idea is checking yours at freecreditscore.com.

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

__,_._,___

terça-feira, 30 de agosto de 2011

]] XL-mania [[ Insert row diantara data tanggal & secara otomatis menambah data tanggal

Dear Para Master XL,

Mohon bantuannya. Bagaimanakah caranya menyisipkan baris diantara 2 tanggal dan otomatis mengisi baris yg kosong dengan tanggal selanjutnya?

Contoh terlampir.

Regards,

Iwan

__._,_.___

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

Messages in this topic (1)

Recent Activity:

New Members 37

Visit Your Group

MARKETPLACE

A bad score is 579. A good idea is checking yours at freecreditscore.com.

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

__,_._,___

segunda-feira, 29 de agosto de 2011

]] XL-mania [[ Memindahkan karakter tertentu dari bbrp txt file ke excel format

Data pembayaran Juni 2010

1 Ref 123 Ita Mustafa 300,000
2 Ref 236 Handina 2,345,000
3 Ref 456 Mariah 125,000
4 Ref 789 Kiki 1,567,000

Data pembayaran July 2010

1 Ref 777 Mila 300,000
2 Ref 238 Sita 7,333,560

Data pembayaran Aug 2010

1 Ref 877 Mila 500,000
2 Ref 338 Sita 7,333,500
3 Ref 777 Tina 5,666,000
4 Ref 999 Mimi 3,000,000
5 Ref 777 Munah 2,555,800

Salam kenal,

Mohon bantuan para suhu untuk case di bawah ini:

Saya punya 3 file txt (data terlampir). Mohon pencerahan bagaimana agar data di txt file bisa diconvert menjadi data yang terdapat pada file excel.

Data sebenarnya bisa ada 90 txt file per hari.

terima kasih atas bantuannya

regards
irma

__._,_.___

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

Messages in this topic (1)

Recent Activity:

New Members 37

Visit Your Group

MARKETPLACE

A bad score is 579. A good idea is checking yours at freecreditscore.com.

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

__,_._,___

]] XL-mania [[ rekap data karyawan

saya orang baru dalam dunia excel, dan harus merekap data..
ada 28 file excel, disetiap file ada 2500 row berisikan data pegawai.
di masing-masing file terdiri dari data yang sama tetapi, di file 1 dan 2 isinya tidak sama
contoh :
file 1 di colom acc number ada isinya
lalu di
file 2 di colom acc number tidak ada isinya,,,

karena proses pendataan sebelumnya dilakukan oleh 4 orang,,,,

nah saya bingung untuk merekap dan menjadikan 1 data itu semua..

apakah bisa dengan vlookup ? contoh nya ?

terimakasih
Rizal

__._,_.___

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

Messages in this topic (1)

Recent Activity:

New Members 37

Visit Your Group

MARKETPLACE

A bad score is 579. A good idea is checking yours at freecreditscore.com.

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

__,_._,___

Re: ]] XL-mania [[ insert beberapa row dalam data

Hai Mr o'Seno,

Kalau tidak heboh & lucu, bukan mbak siti namanya;

Jaman di asrama dulu kalau dia pulang, asramanya sepppiiiii !!

berikut ini modifikasi makronya; maaf kalau masih ada kekurangan

(misal warna header masih dibiarkan menular ke sisipan paling aas..)

Sub ctv_InsertRowsBeruntun()

' coded by siti Vi / 28 Agu 2011

'-------------------------------

Dim Rng As Range, N As Integer, R As Long

On Error GoTo Ngisorr

Set Rng = Application.InputBox("Select Range yg akan diproses.", _

"Input Range Selection", Selection.Address, , , , , 8)

N = CInt(InputBox("Jumlah Baris Per-sekali Insert: ", _

"JumlahRow yg Di-Insertkan", 1))

Set Rng = Rng.CurrentRegion '<<-- modifikasi /Haps

For R = Rng.Rows.Count To 2 Step -1

'--- modifikasi /Haps 29 aug 2011 ---

Rng(R, 1).Resize(N, Rng.Columns.Count).Insert Shift:=xlDown

'--- akhir modifikasi -------------

Next R

Ngisorr:

End Sub

menjalankan makro masih dipermudah dengan KlikKanan Cell A1 (lihat PopUp Menu nya)

2011/8/28 OntoSeno <ontoseno84@ymail.com>

:D.. :D.. :D.., mbak siti... mbak siti.
orang nulis macro biasanya kan 'seriosa'...
tapi di tangan-letik mbak siti bahasa VBA malah bisa dibuat dagelan.
baru kali ini aku melihat macro bisa super lucu...

saya sudah coba-coba, & hasilnya "nyiip" (sipp) mbak, tetapi
keperluanku agak lain.
data: ada 7 kolom (mulai kolom A) dengan Header ada di baris 3.
Di sebelah kanan tabel selang beberapa kolom ada tabel lagi.

Bgmana modifikasinya agar penyisipan baris baru di kolom A:G
tidak menyisipi baris baru di kolom setelah AG.

Mbak LadyMacro, jawabannya tidak tergesa-gesa, nanti habis lebaran
juga "nyip" lah..

matur nuwun,
selamat idul fitri, mohon maaf lahir batin

o'Seno
maaf belum dapat melampirkan workbook, karena masih ikut milis
via web... segera disusulkan.

> Sub ctv_InsertRowsBeruntun()
> ' coded by siti Vi / 28 Agu 2011
> '-------------------------------
> ' Dim Jamal As Decimal, Yulian As Boolean
> ' Dim King As String, Kong as Long
> ' Dim Jomblo as Single, Jomblowati As Single
> ' Dim Pasutri As Double, Trouble As Double
> ' Dim Tali As String
> ' Dim LampuDepan
> On *Error* GoTo *Ngisorr*
>---------------------------------------------------

__._,_.___

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

Messages in this topic (6)

Recent Activity:

New Members 37

Visit Your Group

MARKETPLACE

A bad score is 598. A bad idea is not checking yours, at freecreditscore.com.

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

__,_._,___

domingo, 28 de agosto de 2011

]] XL-mania [[ Fungsi Macro Penjumlah

Mohon bantuan para pakar XL ...

Apa fungsi macro yang dipakai untuk menjumlahkan Qty berdasarkan part.id

Contoh terlampir

Terima kasih..

__._,_.___

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

Messages in this topic (1)

Recent Activity:

New Members 37

Visit Your Group

MARKETPLACE

A bad score is 579. A good idea is checking yours at freecreditscore.com.

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

__,_._,___

Re: ]] XL-mania [[ insert beberapa row dalam data

tambahan opsi formula non array dan bebas start dari baris mana saja
=IF(MOD(ROWS($1:1)-1;5)=0;INDEX($A$2:$A$6;TRUNC((ROWS($1:1)-1)/5)+1);"")

wassalam

Ghozi Alkatiri

--- Pada Ming, 28/8/11, STDEV(i) <setiyowati.devi@gmail.com> menulis:

Dari: STDEV(i) <setiyowati.devi@gmail.com>
Judul: Re: ]] XL-mania [[ insert beberapa row dalam data
Kepada: XL-mania@yahoogroups.com
Tanggal: Minggu, 28 Agustus, 2011, 2:12 PM

Formula di bawah ini, bukan array formula dan tidak ada syarat
harus ditulis mulai di ROW mana tabel rujukan berada..

=IF(MOD(ROW(1:1)-1,5)=0,OFFSET($A$1,CEILING(ROW(1:1),5)/5,0),"")

Row(1:1)
membuat nomor urut sekuensial 1,2,3,4 dst sesuai di row mana dituliskannya.

(nilai (1:1) akan berubah menjadi 2:2, 3:3 dst )
MOD(Row(1:1)=0 mendetaksi apakah nomor urut = 0

hasilnya (true/false) akan dijadikan logikal test bagi fungsi IF)

Jika hasil MOD(Row(1:1)=0 >> tuliskan hasil OFFSET, (jika tidak) tuliskan BLANK

OFFSET($A$1,CEILING(ROW(1:1),5)/5,0)

OFFSET sendiri menghasilkan data seperti di tabel rujukan, bedanya setiap

baris ditulis 5 kali (tapi hanya ditampakkan sekali), yaitu ketika logikal test dlm IF
menghasilkan TRUE).

2011/8/28 ghozi alkatiri <ghozialkatiri@yahoo.co.id>

>
> untuk solusi kasus ini setidak tidaknya harus ada baris di atas formula awal minimal sejumlah baris yang diinginkan untuk diinsert di sela data. dalam hal ini karena yang diinginkan adalah 5 baris ,maka paling tidak formula awal baru bisa dibuat pada baris ke 6 .
>
> karena dibutuhkan 5 baris sebelumnya untuk referensi formula.
>
> formulanya (formula array ) : formula awal di F6
>
> {=IF(COUNTIF(F$5:F5;INDEX($A$6:$A$10;MATCH(;COUNTIF(F$1:F1;$A$6:$A$10);0)))=1;"";
> INDEX($A$6:$A$10;MATCH(;COUNTIF(F$1:F1;$A$6:$A$10);0)))}
>
> formula ini sebetulnya adalah modifikasi dari formula
> {=INDEX($A$6:$A$10;MATCH(;COUNTIF(F$1:F1;$A$6:$A$10);0))}
>
> yang hasilnya mengulang setiap data 5 kali (5 baris). selanjutnya ditambah dengan formula yang

> memerintahkan untuk hanya mengeluarkan data pada baris pertama saja.
>
> wassalam
> Ghozi Alkatiri
>

--- Pada Sab, 27/8/11, Yan Novianto <da_yan.novianto@yahoo.co.id> menulis:
tolong di bantu bagaimana cara nya untuk menambahkan row misal dengan 5 row di setiap data,
contoh terlampir,
terimakasih
Yan Novianto

__._,_.___

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

Messages in this topic (5)

Recent Activity:

New Members 47

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| jangan lupa sebelum libur:                                        |
| - add XL-mania di linkedin www.linkedin.com/company/xl-mania      |
| - pesan buku "mengapa boss benci chart anda" :D :D :D            |
+-------------------------------------------------------------------+
| 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

A bad score is 598. A bad idea is not checking yours, at freecreditscore.com.

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

__,_._,___

quarta-feira, 31 de agosto de 2011

terça-feira, 30 de agosto de 2011

segunda-feira, 29 de agosto de 2011

domingo, 28 de agosto de 2011

Arquivo do blog