Maaf baru baca, saya sebagai anggota sungguh merasakan kehilangan sahabat
sekaligus seorang yang banyak memberikan solusi bagi anggota Be-Exceler.Semoga
Sahabat kita tercinta , berbahagia di sisiNya.
To: belajar-excel@yahoogroups.com
From: trustam...@yahoo.com
Date: Mon, 17 Sep 2012 15:28:06
isinya/tampilannya :
asli
diubah
aui
aUEi
ajui
ajUEi
aktual
aktUEal
akitukoip
akitUEkoip
rumusnya :
asli
diubah
aui
=MID(B3,1,FIND(u,B3,1)-1)UEMID(B3,FIND(u,B3,1)+1,LEN(B3)-E3)
koreksi dikit dari
:=MID(B3,1,FIND(u,B3,1)-1)UEMID(B3,FIND(u,B3,1)+1,LEN(B3)-E3) menjadi
:=MID(B3,1, FIND(u,B3,1) -1) UE MID(B3, FIND(u,B3,1)+1, LEN(B3)-
FIND(u,B3,1) )
To: belajar-excel@yahoogroups.com
From: jkss...@hotmail.com
Date: Fri, 30 Mar 2012 01:32:40 +
Subject: RE:
Seperti ini
DATA OUTPUT
DATA INPUT
AWAL
AKHIR
3001
4001
30011001
1001
1011
7
0
30011002
1
1002
1022
13
4
30011004
2
1
1004
1014
7
9
30011005
3
2
File yang berkaitan dgn Office SpreadSheet 11.0 : C:\Program Files\Common
Files\Microsoft Shared\Web Components\11\OWC11.DLL
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Fano
Maksudnya Formula Bar di hidden ? Di Excel 2007/2010 : View , Formula Bardi
Excel 2003 : View , Formula Bar hilangkan tanda centang.
To: belajar-excel@yahoogroups.com
From: alua...@rocketmail.com
Date: Fri, 16 Mar 2012 16:58:02 +0800
Subject: [belajar-excel] Re: Menghilangkan Rumus
isi CmdSave_Click dipindahkan ke module dan ganti namanya menjadi Savingdan
ubah menjadi :
Private Sub CmdSave_Click()
Call Saving
End Sub
pindahkan MainTblHeight ke module dimana sub rutin Saving beradaPindahkan
DefineSubTBL ke module dimana sub rutin Saving berada
Ubah kode dari
koreksi :
isi CmdSave_Click dicopy ke module dan ganti namanya menjadi Saving
dan kode aslinya ubah menjadi :
Private Sub CmdSave_Click()
Call Saving
End Sub
pindahkan MainTblHeight ke module dimana sub rutin Saving berada
gunakan rumus : =SUM( INDIRECT( ADDRESS(ROW(),1+H5) : ADDRESS(ROW(),1+I5)
) )
To: belajar-excel@yahoogroups.com
From: seism...@yahoo.com
Date: Wed, 14 Mar 2012 00:01:44 -0700
Subject: [belajar-excel] Formula SUM dengan range otomatis
Salam
2
5
9
3
2
3
0
4
6
9
0
3
0
0
0
25.932.3.046.903.000
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
00.000.0.000.000.000
0
Sub Mc_AdvFilter_2()
' UNTUK MENCEGAH WORKSHEET YG TIDAK SEHARUSNYA
If UCase(ActiveSheet.Name) JUMLAH Then Exit Sub
Dim posisiakhir As Range
Set posisiakhir = ActiveCell
Dim daerahfilter As Range
Sheets(Filternya).Activate
Range(B2).Select
Range(Selection,
Kalau ingin data yang terfilter di kopi di sheet lain , gunakan macro ini :
Sub Mc_AdvFilter_3()
' UNTUK MENCEGAH WORKSHEET YG TIDAK SEHARUSNYA
If UCase(ActiveSheet.Name) JUMLAH Then Exit Sub
ActiveCell.CurrentRegion.ClearContents
Dim posisiakhir As Range
Set
Koreksi dikit : Sub Mc_AdvFilter_3()
' UNTUK MENCEGAH WORKSHEET YG TIDAK SEHARUSNYA
Dim worksheetnya As Worksheet
Set worksheetnya = ActiveSheet
If UCase(worksheetnya.Name) JUMLAH Then Exit Sub
ActiveCell.CurrentRegion.ClearContents
Dim posisiakhir As Range
Set
Misal di worksheet , dimana ada data yang akan dihapus. mulai Sel A2 :
JENIS NAMA
HARGA
1
MINUMAN JUS JERUK
10,000
1
2
MINUMAN JUS JAMBU
12,000
2
3
MAKANAN SOTO AYAM
10,000
3
4
JENIS NAMA
HARGA
MINUMAN JUS JERUK
10,000
MINUMAN JUS JAMBU
12,000
MAKANAN SOTO AYAM
10,000
MINUMAN ES TEH
5,000
BUAH STRAWBERRY
25,000
Jika ingin lebih fleksibel , maka tambahkan sheet 'Filternya' di B2 :
JENIS NAMA
HARGA
*JUS*
1
yang memiliki maksud : temukan kata `JUS` di jenis menu , dengan harga
1 ( sepuluh ribu ) maka macronya : Sub Mc_AdvFilter()
Dim
Gunakan rumus : DATEDIF(E9,L9,m) tapi karena isi E10 sd E16 dan isi L10 s/d
L16, merupakan type text , maka fungsi DateDif akan menghasilkan No Value (
#VALUE! )
To: xl-ma...@yahoogroups.com
CC: belajar-excel@yahoogroups.com
From: dehen...@yahoo.com
Date: Thu, 8 Mar 2012 20:36:28 -0800
Sub BuatKondisiWarnaPerSel()
Cells.FormatConditions.Delete
Dim daerah As Range
Set daerah = Range($C:$C)' dimulai dari sel C3 sampai akhir baris
Set daerah = Range(C3).Resize(daerah.Rows.Count - 3, 1)
daerah.Select
' sel di Kolom D E, dan F kosong tanpa warna
Sub BuatKondisiWarna ()Cells.FormatConditions.Delete
Columns($A:$A).Select
' Kolom B dan C kosong tanpa warna
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
=AND(COUNTA($B:$B)=0,COUNTA($C:$C)=0)
With Selection.FormatConditions(1).Interior
, kirakira untuk formula tanpa macro bisa nggak ya ?
Terimakasih Afdhol From: belajar-excel@yahoogroups.com
[mailto:belajar-excel@yahoogroups.com] On Behalf Of jkssxls Sudarsono
Sent: 05 Maret 2012 15:57
To: Belajar-Excel Yahoo Groups
Subject: RE: [belajar-excel] menggabungkan 2 tabel Saya gunakan
Private Sub CommandButton1_Click()
Dim vArg1 As Variant
Dim rArg2 As Range
Dim nArg3 As Long
Dim bArg4 As Boolean
vArg1 = Sheets(Pencarian).Range(A3).Value
Set rArg2 = Sheets(Data).Range(A$1:D$9)
nArg3 = 2
bArg4 = False
Sheets(Pencarian).Range(B3) =
Sub sumcolor(daerah As Range)
Dim Selrow As Range
Dim sel As Range
Dim SelAkhir As Range
Dim SumKuning, SumBiru, SumHijau As Double
For Each Selrow In daerah.Rows
SumKuning = 0
SumBiru = 0
SumHijau = 0
For Each sel In Selrow.Cells
Saya gunakan macro sbb: Sub Gabung()
Dim barisawal, jumlahkolom As Integer
Dim tujuan As Range
Dim asal As Range
barisawal = 2
jumlahkolom = 4
Set tujuan = Sheets(Hasil).Range(A barisawal)
' jika sel A2 kosong , berarti tak ada data
If tujuan.Value Then
Lengkapnya :Application.DisplayFullScreen = True
Worksheets(sheet1).ScrollArea = $A$1:$I$77
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
.DisplayHeadings = True 'False
untuk zoom sesuai area : Range(A1:I1).Select
ActiveWindow.Zoom = True
To: belajar-excel@yahoogroups.com
From: jkss...@hotmail.com
Date: Mon, 27 Feb 2012 07:47:09 +
Subject: RE: [belajar-excel] Macro-lock zoom-out dan page width vie default
bulan serta tahun
itu masuk pak, keterangan lengkap dan file kasusnya saya lampirkan kembali.
Salam,Miftahuddin Ahimy
--
Dari: jkssxls Sudarsono jkss...@hotmail.com
Dikirim: Senin, 20 Februari 2012 13:08
untuk penerimaan :=SUMPRODUCT(('DATABASE
_(* #,##0,,_);_(* (#,##0);_(* -_);_(@_)
ganti dengan :
_(* #,##0.000,,_);_(* (#,##0.000,,);_(* -_);_(@_) To:
belajar-excel@yahoogroups.com
From: lilik.marhaen...@yahoo.com
Date: Thu, 23 Feb 2012 17:41:50 +0800
Subject: [belajar-excel] Kustomisasi format angka
bahwa SUDAH ada
jawaban dari pak jkssxls yg intinya sama.
Oleh sebab itu saya mencabut kembali jawaban saya tsb.
Sekali lagi mohon maaf atas kekurang telitian tsb..
Terima kasih...
-
bergabung
Penerimaan
Pengeluaran
SDG
US Dollar
KSA Riyal
Rupiah
SDG
US Dollar
KSA Riyal
Rupiah
0001
12323.76
1201
0006
50
0
untuk penerimaan :
=SUMPRODUCT(('DATABASE (INPUT DATA)'!$A$4:$A$279=Sheet1!$B5)*('DATABASE (INPUT
DATA)'!$D$3:$G$3=Sheet1!D$3),'DATABASE (INPUT DATA)'!$D$4:$G$279)
untuk pengeluaran :
=SUMPRODUCT(('DATABASE (INPUT DATA)'!$A$4:$A$279=Sheet1!$B5)*('DATABASE (INPUT
Pak Zainul memberikan trik yang ampuh untuk membuat grafik menjadi 2 group
series .
Group 1 :Ada 2 bar ( namanya Capacity ) . 1 berwarna dan satu lagi no Fill (
blank ). Sehingga Bar yang lebar , akhirnya dibuat lebih kecil ( sisi kiri ).
Sebenarnya yang satu lagi ( blank ) , ada di sisi
Jika ingin gunakan macro : Sub makrounhideCells()Sheets(Data).Rows.Hidden
= False
Sheets(Data).Columns.Hidden = False
End Sub
To: belajar-excel@yahoogroups.com
From: henrysitoh...@yahoo.com
Date: Fri, 17 Feb 2012 15:08:23 +0800
Subject: [belajar-excel] MEMBUKA DATA PADA SHEET
Antara Data ( sumber dari PivotTable ) dan file excel dimana PivotTable
berada , jika merupakan file yang sama akan timbul error : 'The Connection for
viewing your linked ... was lost' untuk itu sumber data pivottable sebaiknya
dibuat file tersendiri, misal DataPivot.xls Saya sudah beberapa
,
gak kelihatan
===
From: jkssxls Sudarsono jkss...@hotmail.com
Sent: Tuesday, 14 February 2012, 17:18
Antara Data ( sumber dari PivotTable ) dan file excel dimana PivotTable
berada , jika merupakan file yang sama akan
coba ganti :Set oQt = shtTarget.QueryTables(1) 'hanya boleh satu query dalam
satu sheet
If Err.Number = 0 Then 'query table sudah ada oQt.CommandText = ssql
oQt.Refresh
Else menjadi
If shtTarget.QueryTables.Count 0 ThenSet oQt =
shtTarget.QueryTables(1) 'hanya boleh
File Excel yang digunakan , mengacu pada Path yang lama , maka saat refresh
dapat menimbulkan error. Untuk itu sebaiknya dihapus.
Caranya :ketik di range Box ( Name Box ) : TblPlanVsActualmaka Tabel
TblPlanVsActual terpilih , lalu tekan [DEL] . akan muncul peringatan 'The range
you deleted is
Kalau sudah ada ( Err.number = 0 ) , maka yang dijalankan adalah yang Refresh
Set oQt = shtTarget.QueryTables(1) 'hanya boleh satu query dalam satu sheet
If Err.Number = 0 Then 'query table sudah ada
oQt.CommandText = ssql
oQt.Refreshjadi tergantung pada letak file (
gunakan rumus :=DATEDIF(C5,J5,y) tahun MOD(DATEDIF(C5,J5,m),12)
bulan
To: belajar-excel@yahoogroups.com
From: d_yuliya...@yahoo.com
Date: Wed, 1 Feb 2012 22:45:22 -0800
Subject: [belajar-excel] (unknown)
Dear all,,
maaf bapak saya mau
coba : Sub CopyPaste()
Dim dataTbl As Range, dataRekap As Range, Rng As Range
Dim Row As Integer, Col As Integer
Set dataTbl = Sheet1.Range(B1:D4).CurrentRegion.Offset(1, 0) ' Sheet
berubah sesuai dengan data tabel sumber
Set dataRekap = Sheet2.Cells(1).CurrentRegion.Offset(1,
Sub cui()
Dim daerah As Range
Set daerah = ThisWorkbook.ActiveSheet.Range(A1:L100)
daerah.CopyWorkbooks.Add
Dim tujuan As Range
Set tujuan = ActiveWorkbook.Sheets(1).Cells(1)
tujuan.Activate
ActiveSheet.Paste
End Sub
To: belajar-excel@yahoogroups.com
CC:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column = 4 Then
If Target.Row 1 Then' pada saat posisi kursor di kolom D
' agar nilai combobox1 sesuai dengan sel di kolom D 'tambahkan :
ComboBox1.Value
Seperti saran saya terdahulu pemakain combobox dari Controls Form , sebaiknya
di ganti dengan Controls ActiveX. Karena tampilan yang mengganggu, walaupun
sudah berada di sel lain , list dari item combobox tak menghilang di posisi
lamanya. Ada hal lain adalah Event Change biasanya menguras
Jika Shape yang berasal dari menu Insert Picture ( excel 2007/2010 ) atau
Insert , Picture, From File ( excel 2003 )tak dapat diubah dengan
metode : UserPicture. Bila Shape berasal dari menu insert , Shapes ( excel
2007/2010 ) atau Insert, Picture , AutoShapes ( excel 2003 )
karena sel J33:j1001 ada isinya dan bukan merupakan number sehingga :
=VALUE(J33) akan menghasilkan #Value!bila isi sel j33 dihapus , alias
dikosongkan : =VALUE(J33) akan menghasilkan 0
=SUMPRODUCT(($D$2:$D$1001=January)*($F$2:$F$1001=SHE) * $J$2:$J$1001) akan
menghasilkan #Value! bilai
misal J33 sampai J34 berisi nilai yang jika menggunakan Value() akan
menghasilkan #Value! , misal value(J33) dan value (j34 ). hal aneh :1.
=SUMPRODUCT(F33:F33,J33:J33) akan menghasilkan #Value! 2.
=SUMPRODUCT(F33:F34,J33:J34) akan menghasilkan 0jadi jika rangenya lebih dari
satu sel akan
Seperti Pak Hendrik , katakan saya juga masih jauh dikatakan sebagai master.
Tetapi seperti umumnya dalam hal mempelajari sesuatu :1. Pemahami sesuatu (
function, macro, property, method , dsb ) secara detail , dengan menguji coba
dengan beberapa kondisi dan kasus2. Penerapan apa yang
secara otomatis (maaf MOD filenya
sedikit lewat quota, namun demi kepentingan
umum mohon jangan dicekal)
Salam,Hendrik Karnadi
- Forwarded Message -
From: jkssxls Sudarsono jkss...@hotmail.com
To: hendrikkarn...@yahoo.com
Sent: Wednesday, 25 January 2012, 10:10
Subject: RE
revisi berikut pengambilan range secara otomatis (maaf MOD filenya
sedikit lewat quota, namun demi kepentingan
umum mohon jangan dicekal)
Salam,Hendrik Karnadi
- Forwarded Message -
From: jkssxls Sudarsono jkss...@hotmail.com
To: hendrikkarn...@yahoo.com
Sent: Wednesday, 25
Ada , 2 buku karangan Yudhi Wicaksono. Buku pertama membahas belajar VBA/MAcro
, dan kedua contoh2 Macro.
To: belajar-excel@yahoogroups.com
From: depi.hari_ya...@yahoo.co.id
Date: Tue, 10 Jan 2012 00:58:29 +0800
Subject: Bls: [belajar-excel] mohon bantuan (Koreksi Subject dari Mod: LOOKUP
Jawa
sulawesi
irian jaya
kalimantan
#N/A
=INDEX(A$2:A$31,MATCH(0,COUNTIF(I$1:I1,=A$2:A$31),0))
=INDEX(A$2:A$31,MATCH(0,COUNTIF(I$1:I2,=A$2:A$31),0))
Kalau begitu sekalian mengucapkan :
Selamat Natal 2011 dan Tahun Baru 2012Semoga Kebahagiaan dan Kesejahteraan
menyertai kita semua catatan :Tak perlu di reply lagi , anggap saja ini ucapan
dari moderator untuk semuaTo: belajar-excel@yahoogroups.com
From: setiyowati.d...@gmail.com
Date: Sun,
Misal tanggal = 1 s/d 7 Desember 2011 Code DT = TR-2004
lokasi = Bimoberapa nilai Volume nya ? hitungan secara manual bagaimana ? saran
saya sih buat user form yang berisi :1. list untuk menentukan Excavator mana
yang akfit ( jadi tak perlu komponen multipage )2. text box
Saran saya gunakan saja Access ( belajar-access di yahoo groups ).Tapi saya
bertanya sedikit ttg :1. Volume berasal dari sheet Vessel , tergantung isian
tanggal ( tanggal awal tiap minggu )
1-Dec-11
7-Dec-11
Lokasi
Code DT
11-2 de
9-R
Bimo
9-1
Application.wondowState = xlMinimized
jadi :Application.windowState = xlMinimized
apa form Welcome ada ? cek dgn ketik [Alt] bersama sama dgn [F11] . lalu
[Ctrl] bersama dgn [R] . ada object tree , dan perhatikan dibawah dari sub
induk Forms apa ada WelcomeTo: belajar-excel@yahoogroups.com
masukan 0,65 ; tidak keluar round
1,00.
Untuk penentuan bulan proratanya sudah berhasil.
Regards,
From: belajar-excel@yahoogroups.com On Behalf Of jkssxls Sudarsono
Sent: 15 Desember 2011 16:10
untuk roundup dgn ketentuan 0.5
menjadi 0 selain itu 0.5 ( untuk baris 4 ) :
=INT(F4)+IF(F4-INT
Bila punya keinginan bekerja dengan rumus di worksheet : L3
M3 N3O3 P3
SMU
SMU 1
JUMLAH GURU
JUMLAH GURU
1
JUMLAH SISWA LAKI
JUMLAH SISWA LAKI
1
JUMLAH SISWA
untuk roundup dgn ketentuan 0.5 menjadi 0 selain itu 0.5 ( untuk baris 4 ) :
=INT(F4)+IF(F4-INT(F4)0.5,0.5,0)
untuk penentuan bulan atau prorerata ( untuk baris 4 ) : =IF(B4=0,C4/12,1)
'== To: belajar-excel@yahoogroups.com
From: budhi.cahya...@suryajayaenergy.com
Date: Thu, 15
Mr kid dan pak sudarsono
terimakasih atas respon nya setelah saya
pakai workbook dari Mr kid masih terjadi error yang sama
kemudian saya
coba coding nya pak jkssxls Sudarsono juga sama, masih terjadi
error.
saya kira komputer/excel saya yang bermasalah, saya coba di
Private Sub Cmb_Generate_Click()
Dim Rng As Range, W As Long, w1 As Long, aw As Long, hal As Long
w1 = 1
aw = 0
hal = 1
Set WAdd = ActiveWorkbook
'Set Rng = WAdd.Sheets(1).Range(b2)
'Set Rng = WAdd.Sheets(1).Range(Rng, Rng.End(xlDown))
'diganti menjadi
Pak Sudarsono,
Kode macro yang kedua ada Compile error message Sub or function not define
Saya udah coba debug namun tidak berhasil.
Mohon sekali lag bantuan bapak.
Terima kasih
-Mansor
2011/12/2 jkssxls Sudarsono jkss...@hotmail.com
Option
untuk koding button comm : Private Sub Cmb_Start_Click()
'With WAdd.Sheets(1).Range(A2)
If WAdd Is Nothing Then Exit SubWith WAdd.Sheets(Sheet1).Range(A2)
.Cells(L, 1) = txt_scan.Text
.Cells(L, 2) = lbl_tgl.Caption
.Cells(L, 3) = Left(txt_jam.Text, 5)
: Re: [belajar-excel] Debug dan restart my workbook
Mr kid dan pak sudarsono
terimakasih atas respon nya setelah saya pakai workbook dari Mr kid masih
terjadi error yang sama
kemudian saya coba coding nya pak jkssxls Sudarsono juga sama, masih
kemudian saya coba coding nya pak jkssxls Sudarsono juga sama, masih terjadi
error.
saya kira komputer/excel saya yang bermasalah, saya coba di komputer lain
hasilnya juga error
berikut error nya
para pakar excel yang lain mohon bantuannya
Terimakasih
Best Regard
..
sidoel
)
para pakar excel yang lain mohon
bantuannya
Terimakasih
Best
Regard
..
Sidoel
- Original Message -
From:
jkssxls
Sudarsono
To: Belajar-Excel Yahoo Groups
Sent: Tuesday, December 06, 2011 9:24
AM
Subject: RE: [belajar-excel] Debug dan
restart my workbook
)
mohon pencerahan dari master dan temen-2 belajar
excel
Terimakasih
Best
Regard
..
sidoel
- Original Message -
From:
jkssxls
Sudarsono
To: Belajar-Excel Yahoo Groups
Sent: Friday, December 02, 2011 3:44
PM
Subject: RE: [belajar-excel] Debug dan
restart my
-excel@yahoogroups.com
From: ppc...@sami.co.id
Date: Mon, 5 Dec 2011 13:33:06 +0700
Subject: Re: [belajar-excel] Debug dan restart my workbook
terimakasih pak jkssxls data yang di ambil sangat
fleksibel, terkadang 100,40,15, dst
kira-2 bagai mana
Nah itu bisa dipelajari dulu , nanti jika ada kesempatan saya tambahkan
cuplikannya saja ...( yang diubah )
To: belajar-excel@yahoogroups.com
From: dbpermatas...@gmail.com
Date: Fri, 2 Dec 2011 16:32:07 +0800
Subject: Re: [belajar-excel] Masalah Lookup yang rumit
Pak Sudarsono,
Menurut
Option Base 1
Dim kdAccLedger As Long
Dim kdAccCustomer As Long
Dim urutTrans As Long
Sub testing()
'tambahkan no urut transaksi
urutTrans = 0
kdAccLedger = 871814
kdAccCustomer = 6932942
'
Call telusuriData(Worksheets(Sheet1).Range(A32:J42),
Worksheets(Sheet2).Range(a13))
==This message was identified as spam.==
Coba terangkan maksud dan tujuan kode vba apa ya ?Kalau di perhatikan :
1. Tambahkan sebuah sheet jika :
a. W Mod 30 = 0 -- jika nilai w adalah kelipatan 30 ( 30,60 , ) atau
b. w1 = 1 -- pd saat awal dijalankan ( nilai w1 = 1 ) berarti
jika ingin menghapus ( setelah mengisi nama ) : Private Sub
CommandDelete_Click()
Call SetingTextCommandAWal
' kalau belum ada isian nama , keluar
If BarisIsian = 0 Then Exit Sub
barisnya = BarisIsian : BarisIsian
Worksheets(Data Induk).Activate
koreksi :
jika ingin menghapus ( setelah mengisi nama ) :
Private Sub CommandDelete_Click()
' kalau belum ada isian nama , keluar
If BarisIsian = 0 Then Exit Sub
barisnya = BarisIsian : BarisIsian
Worksheets(Data
untuk penomoran yang dinamis , walaupun ada baris dihapus ,tetap urut . maka
ganti 1 baris koding saat penyimpanan data dari form ke worksheet : '
ws.Cells(iRow, 1).Value = iRow - 2
' ganti dengan
ws.Cells(iRow, 1).FormulaR1C1 = =ROW()-2
To: belajar-excel@yahoogroups.com
From:
transaksi withdrawal seperti pada tgl 20.
Debet Nilai Total 2718.00, PK 25.
Debit Nilai Withdrawal 500.00 PK 25
Kredit Nilai Deposit yang lain 2430.00 dan 788.00
Artinya 2718.00 adalah 2430.00 + 788.00 500.00.
Semoga semakin jelas.
Terima kasih atas response bapak.-Mansor
2011/12/1 jkssxls
response bapak.-Mansor
2011/12/1 jkssxls Sudarsono jkss...@hotmail.com
1. menurut pendapatnya saya posting-code perlu dijelaskan :
1. 25 --
2. 31 --
3. 50 --
2. Posisi nilai di Debet dan Credit dalam hal pengisian di kolom amount di
bedakan oleh apa
3. apa yang menentukan suatu transaksi
, syaratnya setiap item yang dilookup harus ada reference no,
kalau cellnya kosong tidak diambil.
--
2011/12/1 jkssxls Sudarsono jkss...@hotmail.com
Transaction Date DESCRIPTION Amount Dr Amount Cr
2018 FUND TRASNFER
2718.00 adalah 2430.00 + 788.00 500.00.
Semoga semakin jelas.
Terima kasih atas response bapak.-Mansor
2011/12/1 jkssxls Sudarsono jkss...@hotmail.com
1. menurut pendapatnya saya posting-code perlu dijelaskan :
1. 25 --
2. 31 --
3. 50 --
2. Posisi nilai di Debet dan Credit dalam hal
kLu sisiliah keluarga ada software untuk kebutuhan tsb. silakan cari melalui
bing.com atau yang ini nih :
http://www.ocidbrass.com/2008/09/gramps-program-untuk-menyusun-silsilah.html
To: belajar-excel@yahoogroups.com
From: agung_wid...@sanyo.com
Date: Fri, 2 Dec 2011 12:54:29 +0900
Subject:
1. menurut pendapatnya saya posting-code perlu dijelaskan :1. 25 --2. 31
--3. 50 --2. Posisi nilai di Debet dan Credit dalam hal pengisian di kolom
amount di bedakan oleh apa 3. apa yang menentukan suatu transaksi masuk MM dan
ZZ, misal jika transaksi bersifat Kredit ( pengeluaran tunai )
Bagi Be-exceller yang ingin mengikuti perkembangan Office secara Internet dapat
belajar mencoba office 365 ( mumpung ada versi trial 30 hari ) .silakan menuju
www.office365.co.id. Apa sudah mendukung pemrograman Script , seperti VBA .
Silakan gali info disana . Saya sih harapkan sudah
Dim StatusAksi As String
Dim BarisIsian As LongPrivate Sub UserForm_Initialize()' Susun Tab Stop
Call IsiTabIndex'Kosongkan semua TextBox
Call KosongkanText(True)'Tak Ada Aksi
StatusAksi = 'CommandButton Default
Me.cmdAdd.Caption = Add/EDit
Me.cmdClose.Caption = Close
File mdb - nya di blokir , jadi kirim ulang dgn sebelumnya di compress dgn tool
kompresi seperti WinZIP, Winrar, 7Zip .
To: belajar-excel@yahoogroups.com
From: ppc...@sami.co.id
Date: Mon, 28 Nov 2011 08:17:58 +0700
Subject: Re: [belajar-excel] Tambah kolom di database
kalau mau aman maka deklarasikan sbg string. ' semua kode ini berada pada level
workbook' caranya : ' 1. pada saat berada di sheet, tekan [ALT] , jangan
dilepas , lalu tekan [F11] . maka anda berada di VBA Editor' 2. saat berada
di VBA editor , tekan [Ctrl] , jangan dilepas, lalu
Sorot misal M21:P21 , buat rumus array formula (caranya , letakkan kursor di
formula bar, ketik rumus di bawah ini ,
lalu tekan [Ctrl] dan [Shift] bersamaan , jangan lepas , lalu tekan
[Enter] )
=INDEX( $D$7:$D$11 , MOD(SMALL(IF(( $C$7:$C$11=$G$7 ),
COUNTIF( $D$7:$D$11 ,
cara alternatif : ' Deklarasi Win API yg akan digunakan , istilah mudahnya
'Daftarkan'Private Declare Function GetKeyState Lib user32 (ByVal nVirtKey As
Long) As Integer' konstata untuk nilai balik saat penekanan [Ctrl]
Private Const VK_CONTROL As Long = H11
Private Sub
* supaya leih rapih saya ubah
cara alternatif : ' Deklarasi Win API yg akan digunakan , istilah
mudahnya 'Daftarkan' Private Declare Function GetKeyState Lib user32 (ByVal
nVirtKey As Long) As Integer' konstata untuk nilai balik saat
) | ) - 1 ) )
Asumsinya, karakter '|' tidak pernah digunakan. Jika pernah digunakan, coba
ganti dengan teks lain.
Wassalam.
Kid.
2011/11/22 jkssxls Sudarsono jkss...@hotmail.com
ini cara yang sederhana yaitu temukan sebanyak yang kita
Kalau gitu, bagaimana jika dibuat pasti ada saja ?
Find( -, Joko pergi ke pasar baru -)
atau
Find(-, teksnya -)
Wassalam,
Kid.
2011/11/23 jkssxls Sudarsono jkss...@hotmail.com
SUMBER
buah
anggur
hewan
kucing
buah
pepaya
buah
jeruk
hewan
ayam
Buat rumus array formula , misal di J7:J11 : =IF( ($C$7:$C$11=$G$7) ,COUNTIF(
$D$7:$D$11, =$D$7:$D$11 ) * 100+ROW(1:5) ) Buat rumus array formula ,
misal
* mohon koreksi ( kata buat rumus sharusnya buat rumus array formula )
SUMBER
buah
anggur
hewan
kucing
buah
pepaya
buah
jeruk
hewan
ayam
Buat rumus array formula , misal di J7:J11 :
=IF( ($C$7:$C$11=$G$7) ,COUNTIF(
ini cara yang sederhana yaitu temukan sebanyak yang kita inginkan :
=IF(ISNUMBER( FIND(-,B23, FIND(-,B23, FIND(-,B23,1)+1 ) +1 )
),LEFT(B23,FIND(-,B23,FIND(-,B23,FIND(-,B23,1)+1)+1)-1),B23)
To: belajar-excel@yahoogroups.com
From: bagusejo...@yahoo.com
Date: Tue, 22 Nov 2011 12:55:19 +0800
kalau boleh tahu apa password dari vba nya , karena saat memasuki vba editor di
haruskan isi password Trim's To: belajar-excel@yahoogroups.com
From: hartini...@yahoo.co.id
Date: Sun, 13 Nov 2011 00:41:27 +
Subject: [belajar-excel] Kombinasi excel dan Power Point dgn macro.
Tanggal
awal
Tanggal akhir
tahun
bulan
hari
4-Jun-2007
5-Nov-2011
4
5
1
1-Jan-2010
2-Feb-2011
1
1
1
5-Nov-2011
6-Nov-2011
0
0
1
11-Nov-2011
10-Dec-2011
0
0
0
11-Nov-2011
10-Nov-2012
0
data di A6:D18
untuk mengambil jenis mahluk , jenis buah , kondisi , misal pada sel A18 :
Buah|Duku|matang
Buah
Duku
matang
untuk memperoleh Buah di sel B18 :=MID(SUBSTITUTE(A18,|,REPT(
,(LEN(A18,1,LEN(A18)) untuk memperoleh Duku di sel C18 :=MID(A18,
FIND(|,A18)+1,
***-8* ada penjelasan tambahan untuk mengambil jenis mahluk , jenis
buah , kondisi , misal pada sel A18 :
Buah|Duku|matang
Buah
Duku
matang
untuk memperoleh Buah di sel B18 :
=MID(SUBSTITUTE(A18,|,REPT( ,(LEN(A18,1,LEN(A18))
coba gunakan :untuk 30 Tahun :=AVERAGEIF($A$2:$A$1346,=F2,$B$2:$B$1346)
untuk = 50 Tahun :=AVERAGEIF($A$2:$A$1346,=F3,$B$2:$B$1346)To:
belajar-excel@yahoogroups.com
From: 687...@gmail.com
Date: Fri, 4 Nov 2011 16:04:19 +0700
Subject: [belajar-excel] nanya menghitung average dari kondisi value
gunakan Array Formula :
{=SUM(IF($D$3:$D$22=Diantar,1,0)*IF($E$3:$E$22=H3,1,0)*($F$3:$F$22))}
caranya : pindahkan kursor di K3 ketik =SUM( ($D$3:$D$22=Diantar) *
($E$3:$E$22=H3) * ($F$3:$F$22) ) di Formula Bar , lalu tekan [Shift] dan
[Ctrl] bersamaan ( dan jangan dilepas ) , lalu tekan
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
TextBox1.Value = TextBox1.Value
End Sub
Textbox atas adalah TextBox1 dan bawah adalah TextBox2
-Original Message-
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On
then
.text=.text
endif
end with
Kid.
2011/11/3 jkssxls jkss...@hotmail.com
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
TextBox1.Value = TextBox1.Value End Sub Textbox atas adalah TextBox1
dan
.
Wassalamualaikum Wr. Wb.
Kid.
2011/10/31 Haps hapsari.stlizb...@gmail.com
[ Mohon maaf, O.O.T ]-
Dengan posting hanya sebaris (bahka se kata) itu,.. Mungkin maksud Pak
Amar : meng-iya-kan pelajaran dari pak jkssxls
1 - 100 dari 142 matches
Mail list logo