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 +
Saya modif sedikit :
Sub CetakOto()Dim i As IntegerSheets("Lap_Hsl_Try").Select' Cek Pilihan
If Range("L7") = "" Then Exit Sub
If Range("N7") = "" Then Exit Sub
If Range("L7") > Range("N7") Then Exit SubFor i = Range("L7") To
Range("N7")
Range("A1") = i
If
koreksi dikit dari
:=MID(B3,1,FIND("u",B3,1)-1)&"UE"&MID(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 +000
isinya/tampilannya :
asli
diubah
aui
aUEi
ajui
ajUEi
aktual
aktUEal
akitukoip
akitUEkoip
rumusnya :
asli
diubah
aui
=MID(B3,1,FIND("u",B3,1)-1)&"UE"&MID(B3,FIND("u",B3,1)+1,LEN(B3
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
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 Exce
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
0
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
Sal
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
Pindahk
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 Sa
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
MINU
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
S
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 posis
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(Selec
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 daerahfil
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
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
Select
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
Subj
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
.Pa
)
pak bagaimana cara menjalankan source kode itu ke excel?, trima kasih
Dari: jkssxls Sudarsono
Dikirim: Rabu, 7 Maret 2012 14:10
Sub sumcolor(daerah As Range)
Dim Selrow As Range
Dim sel As Range
� Dim SelAkhir As Range
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
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").Rang
s
To: belajar-excel@yahoogroups.com
From: afdhol_marth...@yahoo.co.id
Date: Tue, 6 Mar 2012 07:47:45 +0700
Subject: RE: [belajar-excel] menggabungkan 2 tabel
Terimakasih bapak sudarsono, Saya masih newbie dalam excel, dan belum
bisa menggunakan
Jika macro sebelumnya pada sel B4 di Sheet Tabel1 kosong maka mengabaikan isi
tabel2 . Maka untuk macro berikut , pengecekan data di tabel2 dilakukan. Sub
Gabung_2()
Dim barisawal, jumlahkolom As Integer
Dim tujuan As Range
Dim asal As Range
barisawal = 4
jumlahkolom =
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
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
Lengkapnya :Application.DisplayFullScreen = True
Worksheets("sheet1").ScrollArea = "$A$1:$I$77"
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
.DisplayHeadings = True 'False
Ra
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False.DisplayHeadings = False
End With
To: belajar-excel@yahoogroups.com
From: ql...@inbox.com
Date: Sun, 26 Feb 2012 10:18:52 -0800
Subject: [bel
Tak perlu mencabut jawaban lah, khan ada keterangannya . itu menambah info .
Kalau mencabut nyaman, jangan la yao ( just kiding )
To: belajar-excel@yahoogroups.com
From: herr...@gmail.com
Date: Thu, 23 Feb 2012 22:20:29 +0700
Mohon maaf, ketika saya SEND jawaban, saya tidak mellihat bahwa
_(* #,##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
: [belajar-excel] Bisakah Fungsi Vlookup mencari pada banyak
Kolom Target ?
Terima kasih rumus canggihnya Pak Sudarsono, sudah dicoba dan alhamdulillah
keluar datanya, namun yang saya inginkan pak, dengan mengganti kolom bulan dan
tahun di sheet prit per bulan, maka data2 yang berkaitan di
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
DATA)'!$D$3:$G$3=Sheet1!D$3),'DAT
Penerimaan
Pengeluaran
SDG
US Dollar
KSA Riyal
Rupiah
SDG
US Dollar
KSA Riyal
Rupiah
0001
12323.76
1201
0006
50
0
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 ka
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
04:24:50 -0800
Subject: Re: [belajar-excel] Pivot Table hasil query dari beberap table dalam
satu workbook dengan VBA
Terimakasih mas Sudarsono,
berarti cara nomer 3 nggak bisa ya...
padahal inginnya memakai yang nomer 3 sesuai dengan judul
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 k
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 ( exce
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 a
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 s
Untuk menghilangkan pendefinisian Nama yang error secara macro : Sub
hapusNameYgError()
For Each nm In ActiveWorkbook.Names
If InStr(1, nm.Value, "#REF", vbTextCompare) = 0 Then' jika tak error
biarkan saja
Else
nm.Delete
End If
Next
MsgBox "Sudah
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 s
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: apassi
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,
adapun kode dari Subrutinnya : ' karena diluar Sub ... End maka timbul error
`Invalid Outside Procedure`
'Worksheets("Sheet1").Columns("A").Copy Worksheets("Sheet2").Columns("B")
Sub kopisheet()
Worksheets("Data").Columns("A:E").Copy Worksheets("Hasil").Columns("A")
End Sub
daripada mengetik
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 sumbe
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
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 )
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 dipelaj
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 meng
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! bila
Untuk rekan2 yang sudah menginstal Program tsb di atas, saya mohon maaf
karena ada sedikit kesalahan yang menggangu pada ComboBox_Change sesuai
penjelasan Pak Sudarsono.
Namun untuk WorkSheet_Change, hasil pengetesan atas program yang saya kirim
sebelumnya masih OK jadi belum saya ubah (maaf Pak Sud
tas, saya mohon maaf
karena ada sedikit kesalahan yang menggangu pada ComboBox_Change sesuai
penjelasan Pak Sudarsono.
Namun untuk WorkSheet_Change, hasil pengetesan atas program yang saya kirim
sebelumnya masih OK jadi belum saya ubah (maaf Pak Sudarsono, bukan saya nekat
menolak usulan Bapak).
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 &
R
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))
=INDEX(A$2:A$31,MATCH(0,COUNTIF(I$1:I
koding VBA , misal untuk Event Click pada Command-Button
Application.DisplayAlerts = False
On Error Resume Next
Dim wnd As Window
Dim wbks As Workbooks
Dim wbk As Workbook
Set wbk = Workbooks.Open(Filename:="d:\temp\fileku.xls", ReadOnly:=True,
IgnoreReadOnlyRecommended:
[*] Any
*
Any
[053] Ordinary
Share Capital
053
Ordinary Share Capital
[054]
Unappropriated Profit
054
Unappropriated Profit
[011] Cash on
Hand
011
Cash on Hand
[016]
Creditors & Provisions
016
Creditors & Provisions
[PnL]
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, 25
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 t
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
Fro
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
maaf yang benar adalah ( angka 0 diganti 1 ) :
=INT(F5)+IF(F5-INT(F5)<0.5,0.5,1)
From: budhi.cahya...@suryajayaenergy.com
Date: Thu, 15 Dec 2011 22:42:11 +0700
Terima kasih pak Sudarsono utk bantuannya.
Untuk roundup, range 0,00 0,49 & 1,01 1,49 bisa
keluar roundupnya. Namun ketika sa
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,
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
PEREMP
mode page break).
Sapa tahu ada efeknya. Hanya sapa tahu
loh.
Kid.
2011/12/6 ppc lambda
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
Sudah diperbaiki :
To: belajar-excel@yahoogroups.com
From: ppc...@sami.co.id
Date: Tue, 6 Dec 2011 10:05:32 +0700
Subject: Re: [belajar-excel] Debug dan restart my workbook
pak sudarsono
pada cmb_Generate terdapat code & nbsp; bila
).ClearContents 'Select
End If
With WAdd.Sheets(SAdd.Name).Range("A10")
.Cells(aw, 1) = W
.Cells(aw, 3) = Format(txt_scan.Value, "'00")
.Cells(aw, 6) = Left(txt_jam, 5)
.Cells(aw, 7) = Ri
eets(SAdd.Name).Range("A10")
.Cells(aw, 1) = W
.Cells(aw, 3) = Format(txt_scan.Value, "'00")
.Cells(aw, 6) = Left(txt_jam, 5)
.Cells(aw, 7) = Right(txt_jam, 5)
End With
' baris berikutnya
aw = aw + 1
N
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)
5 Dec 2011 09:45:36 +
Subject: RE: [belajar-excel] Masalah Lookup yang rumit
End SubSub TambahanZZ(MyArray, posisikey)
seharusnya di pisah jadi : End Sub Sub TambahanZZ(MyArray, posisikey)
To: belajar-excel@yahoogroups.com
From: dbper
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
Option
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
WAdd.Sh
s(1))
tak lama kemudian permintaan restart Excel
muncul
Terimakasih
Best
Regard
<>.<>.<>.<>.<>.<>.
sidoel
- Original Message -
From:
jkssxls
Sudarsono
To: Belajar-Excel Yahoo Groups
Sent: Monday, December 05, 2011 11:48
AM
S
SPKL tersebut menjadi SPKL1
(..2,3,4 dst)
mohon pencerahan dari master dan temen-2 belajar
excel
Terimakasih
Best
Regard
<>.<>.<>.<>.<>.<>.
sidoel
- Original Message -
From:
jkssxls
Sudarsono
To: Belajar-Excel Yahoo Groups
Sent:
Prosedur menambah ( Add ) , saat mengetik nama , jangan klik Add/Edit , tapi
tekan [Enter] dan saya ubah koding : Private Sub cmdAdd_Click()
'Kembalikan ke CommandButton Default
Me.cmdAdd.Caption = "Add/Edit"
Me.cmdClose.Caption = "Close"
' Agar dapat diisi
Me.txtnam.Locked = False
==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
juan.Offset(j - 1, 0).Value = urutTrans
End If
Tujuan.Offset(j - 1, 1).Value = MyArray(4, j)
Tujuan.Offset(j - 1, 2).Value = MyArray(3, j)
Tujuan.Offset(j - 1, 3).Value = MyArray(5, j)
Tujuan.Offset(j - 1, 4).Value = MyArray(1, j)
Tujuan.Offset(j - 1
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
>
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: RE:
: dbpermatas...@gmail.com
Date: Thu, 1 Dec 2011 15:54:00 +0800
Subject: Re: [belajar-excel] Masalah Lookup yang rumit
Dear Pak Sudarsono,
Aturannya setiap tanggal ada 2 bagian.
1)Bagian pertama adalah MM, kedua ZZ.
No 1 adalah item MM, no 2 adalah Z
> Ya benar Pak, syaratnya setiap item yang dilookup harus ada reference no,
> kalau cellnya kosong tidak diambil.
>
> --
> 2011/12/1 jkssxls Sudarsono
> > Transaction Date DESCRIPTION Amount Dr Amount Cr
> > 2018 FUN
Lookup yang rumit
Dear Pak Sudarsono,
Aturannya setiap tanggal ada 2 bagian.
1)Bagian pertama adalah MM, kedua ZZ.
No 1 adalah item MM, no 2 adalah ZZ.
Bagitulah seterusnya No 3 MM, No 4, ZZ.
Aturan Posting Key (PK)
Debet
Kredit
Dear Pak Sudarsono,
Aturannya setiap tanggal ada 2 bagian.
1)Bagian pertama adalah MM, kedua ZZ.
No 1 adalah item MM, no 2 adalah ZZ.
Bagitulah seterusnya No 3 MM, No 4, ZZ.
Aturan Posting Key (PK)
Debet
Kredit
Customer Account
25
31
Ledger
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: jkss..
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("Da
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
ActiveSheet.R
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"
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 menduk
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 )
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 tekan
* 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 pene
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 Worksheet_SelectionChan
mantap,
cik gu haps, terimakaseh
pakdhe sudarsono, matur tengkyu
om ghozi, kamsia
ada soalan lagi bagaimana kalo lookup-nya horizontal
sudah kucoba 'niru2' cara om ghozi gak bisa
pake cara cik gu haps mumetz, gak ngerti ;-)
dibantu ya
salam
YN
* 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( $D$
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 ,
misa
Kalau gitu, bagaimana jika dibuat pasti ada saja ?
Find( "-", "Joko pergi ke pasar baru" & "-")
atau
Find("-", teksnya & &quo
er.
=Trim( Left( b23 , Find( "|" , Substitute( b23 , "-" , "|" , 3 ) & "|" ) - 1 ) )
Asumsinya, karakter '|' tidak pernah digunakan. Jika pernah digunakan, coba
ganti dengan teks lain.
Wassalam.
Kid.
2011/11/22 jkssxls Sudarsono
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:5
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.
1 - 100 dari 234 matches
Mail list logo
