Ok mas.
Maturnuwun
-zainul-
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Kid Mr.
Sent: Sunday, June 24, 2012 11:55 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Dynamic Range Accumaltive Summary
Karena Sum adalah fungsi ag
Karena Sum adalah fungsi agregat saja. Jadi hasilnya pasti hanya 1 item
SubTotal adalah fungsi agregat dalam sebuah grup. Jadi hasilnya bisa
tergantung grup.
Fungsi Offset dalam fungsi SubTotal tadi, berfungsi untk membentuk grupnya.
Jadi, akan tercipta grup 1 berisi 1 cell, grup 2 berisi 2 cell,
Maturnuwun mas.
Suda berhasil.
Kenapa kalo pakai fungsi
=SUM(OFFSET(_PlanTRANSPOSE(ROW(INDIRECT("1:"&_nData)
Tidak bisa ya.?
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Kid Mr.
Sent: Sunday, June 24, 2012 11:37 AM
To: belajar-excel@yahoo
Coba nama range untuk running total plan merujuk ke formula :
=SUBTOTAL(109,OFFSET($A$2,0,1,1,COLUMN($B$2:$J$2)-COLUMN($A$2)))
Kemudian pada chart, klik series jika sudah ada. Pada formula bar ada
fungsi seriesnya yang kira-kira bunyinya :
=Series( "nama seriesnya" ,, [nama filenya]!nama_rangenya,
Teman-teman be-excelers
Saya sedang membuat grafik yang menunjukkan accumulative plan vs
accumulative actual.
Biasanya untuk series accumulative saya membuat cell bantu.
Rencananya akan dibuat tanpa cell bantu dengan menggunakan dynamic range.
Range dynamic sudah dibuat, kenapa masih error?
Baga
Maaf baru terbaca Minggu pagi ini...
Mohon di buka module *"FrmLogin"*
di sana ada prosedur sbb, di situlah (dengan IF) diatur berdasarkan status
(hak Sheet):
(1) apakah harus membuka satu sheet khusus
(2) atau kah membuka semua sheet yg ada (kecuali sheet USER & FACE)
data di sheet user ada yg d
Disana ada fungsi Krip.
Coba gunakan di worksheet layaknya menyusun formula.
=Krip( teks , true ) untuk enkripsi
ganti true jadi false untuk dekripsi.
Kid.
2012/6/24 Flow Nanank
> **
>
>
> Thank'z Om Kid,
> iya disana emang ada daftar user beserta hak aksesnya,,
> tp di enkrip smua Om,,,
> saya
Thank'z Om Kid,
iya disana emang ada daftar user beserta hak aksesnya,,
tp di enkrip smua Om,,,
saya coba membuat User baru dg Hak Akses All tp malah user baru itu dibuatkan
Sheets baru dg nama ALL,,,
yg saya maksud codingnya om,,
Dari: Kid Mr.
Kepada: belajar
Coba lihat di sheet User. Disana ada daftar user beserta hak aksesnya. Ada
user bernama boss disana.
Kid.
2012/6/24 Flow Nanank
> **
>
>
> Trimakasih mbak Rara,,,
> maksud saya code yg berada didalam form login yg di buat mbak Siti,,,
> code yg menentukan user boss bisa melihat semua Sheets, sa
Trimakasih mbak Rara,,,
maksud saya code yg berada didalam form login yg di buat mbak Siti,,,
code yg menentukan user boss bisa melihat semua Sheets, saya coba cari2 kog
tidak ketemu,,
saya mencoba menulis kembali code tsb karna ada penambahan2 lagi,,,
Dari: Ra
Gunakan Event WorkSheet_Change pada kolom kedua.
Tulis Code ini pada VBA Project Sheet1(Akun) pada bagian (tempat) menulis Code
Macro
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
If Target.Column = 2 And Target.Count = 1 Then
Set Rng = Range("A1").CurrentR
Sambil menunngu Mr. Kid, barangkali code ini bisa membantu:Sub tesSimpan()
On Error GoTo Pesan
DirSimpan = InputBox("Masukkan Dir\SubDir\ Anda", "DIREKTORI - AKHIRI
dengan TANDA \")
If Right(DirSimpan, 1) <> "\" Then GoTo Pesan
ActiveWorkbook.SaveAs DirSimpan & ActiveWorkbook.Name
Yang ini dongeng tengah malam supaya mimpi indah...
Hati-hati dalam menghayati isi ceritanya, kalau salah tangkap, cerita indah
ini bisa jadi cerita yang menyeramkan... h ngeri...
Public Sub BeberapaCaraSavePilihLokasi()
Dim bSaveAs As Boolean
Dim sFile As String
*'untuk mencoba p
Wow, excelence Mr. Kid,
Thank you very much,
But I have one more question Mr.Kid..
Saya membuat coding macro utk menyimpan seperti berikut :
Activeworkbook.Save
Dan dengan coding seperti ini macro akan langsung save di mydocument. Kondisi
yang diinginkan adalah seperti halnya ketika kita men-
maaf, ada kekeliruan teknis (warna merah)
- Forwarded Message -
From: hendrik karnadi
To: "belajar-excel@yahoogroups.com"
Sent: Saturday, 23 June 2012, 22:32
Subject: Re: [belajar-excel] Mari berlatih membuat Macro
Perhitungan manualnya + seperti ini :
j (jarak)= 100
a (kecepatan A)
Perhitungan manualnya + seperti ini :
j (jarak)= 100
a (kecepatan A) = 80
b (kecepatan B) = 40
m adalah menit saat A dan B bertemu, yaitu jarak dibagi kecepatan (total),
sehingga m = j/(a+b)
Pada saat bertemu,
Jarak yang telah ditempuh oleh A (ja) pada saat bertemu B, ja = m/60 * 80
Jarak yan
Coba simak dongeng dalam prosedur berikut :
Public Sub CobaSusunArrayNamaSheet()
Dim sht As Worksheet
Dim sShtName() As String
Dim lShtIdx As Long
Dim lCalc As Long
lCalc = Application.Calculation 'simpan setting
kalkulasi excel yang sedang digunakan
Appl
Dari arti kata dalam bahasa inggeris, calculate adalah kata kerja. Di VBA,
calculate adalah sebuah method (fungsi) untuk melakukan sesuai yaotu
melakukan kalkulasi. Icon dalam intellisense yang muncul ketika mengetik
karakter titik setelah application.
Andai yang dimaksud adalah menge-set suatu ke
Dear All Pakar Excel,
Saya sedang membuat coding macro dan saya menggunakan event workbook_open dan
event workbook_beforeclose
Saya ingin ketika workbook di buka calculationnya jadi manual sehingga saya
menggunakan coding berikut :
Application.calculate = xlmanual
Dan ketika tertutup menjadi
Dear All Pakar Excel,
Saya sedang membuat coding macro, akan tetapi saya menemukan kesulitan ketika
harus meng copy lebih dari 1 sheet secara bersamaan. Ketika saya rekam macro
hasilnya keluar seperti berikut :
Sheets(array("Sheet1","Sheet2","Sheet3")).copy
Masalahnya adalah jumlah sheets yg i
mbak siti lagi bobok manis, proses recovery, semoga lekas sehat kembali...
Kita usahakan menjawab:
Prinsipnya karena boss punya *status ALL*
Kemudian ada pencabangan (dengan IF)
*IF Status = "ALL" Then*
* '--- unhide semua sheets*
*ELSE*
*'--- unhide sheet khusus si Loger*
*END IF*
begitulah ki
sebetulnya kalau gak males lihat-lihat posting lama (mengenai entri
data); contoh seperti yg ditanyakan sudah banyak.
Private Sub cmdSaveDatabase_Click()
'--
' ModifiedBy: Markonah, Jun 23 2012
' ModifiedBy: ~Rara, Jun 23 2012
'--
ralat :
harusnya :
'dan dilanjutkan dengan proses lompat (offset) sebanyak 0 baris dan 0
kolom *(bagian merah sepertinya harus 1 baris dan bukan 0 baris)*
Target.EntireRow.Copy Destination:=Sheets(2).Cells(Rows.Count,
1).End(xlUp).Offset(0, *0*)
dan bukan
'dan dilanjutkan den
Berhubung mbak Connie sedang tidak online, saya ingin mewakilinya
Alkisah dlm cerita makro "AMBIL_DATA", bu Harumi menyiapkan
(mendeklarasikan) 3 variable: *NAMA, NIS, KELAS*
Dengan perjuangan suci, gigih dan tak kenal menyerah, 3 variable itu diisi
dengan data hasil dari dioperasikannya *struktu
Isi script dalam sheet sheet1 Anda adalah :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Cells.Count = 1 Then
Target.EntireRow.Copy Destination:=Sheets(2).Cells(Rows.Count,
1).End(xlUp).Offset(0, 0)
End If
End Sub
Kira-kira Anda paham gak deng
Dibawah adalah tombol untuk menyimpan data ke database. Saya ingin buat tombol
tambahan semacam notifikasi/peringatan dimana setelah klik cmdSaveDatabase
muncul peringatan "Apakah anda yakin untuk menyimpan data ini?" OK untuk
melanjutkan, Cancel untuk membatalkan.
Kira2 begitu, tolong bantuan p
Dear Para Pakar Bexceller,
Mohon bantuannya saat ini saya sedang ingin membuat suatu form dengan tiga
tombol bantu yaitu SAVE,TRACE & EDIT. Dimana data di sheet form akan terinput
ke sheet database namun datanya tidak hanya horizontal,namun juga vertikal
sehingga akan membentuk suatu range ter
VBA Code yang ada saat ini dapat mengkopi
secara otomatis dari isi dari baris /row
1 di Sheet1 ke cell baris 1 di Sheet2, setelah menekan tombol
enter/tab/penunjuk panah pada keyboard. Bahkan di sepanjang kolom A di Sheet1,
apabila kita memasukkan/mengetikkan huruf/angka maka akan masuk ke ce
Nuhun suwun mbak markonah, berhasil :*
nge termasuk awalan, awalan gaul tapi ga masuk dalam kamus :D
From: Markonah
To: belajar-excel@yahoogroups.com
Sent: Saturday, June 23, 2012 12:46 AM
Subject: Re: [belajar-excel] Belajar buat history waktu
Private
Pengen banget Pak Hendrik, tapi blank gak tau sama sekalihiks hiks
On 20/06/2012 13:22, hendrik karnadi wrote:
Setelah sekian lama kita cukup disibukkan dengan formula, marilah kita
coba berlatih Macro, dengan sedikit meluangkan waktu untuk menjawab
pertanyaan ini :
Jarak dari Timur ke Ba
30 matches
Mail list logo