Messages In This Digest (17 Messages)
- 1a.
- Create Number bersyarat From: Citra Anggraini
- 1b.
- Re: Create Number bersyarat From: siti Vi
- 1c.
- Re: Create Number bersyarat From: siti Vi
- 2a.
- ambil data From: Dr.Yongky Bramuli
- 2b.
- Re: ambil data From: i Haps
- 3a.
- Re: Mebuat log berdasarkan tanggal From: i Haps
- 4a.
- Re: menambah dan mengambil data dari file lain From: Hilman
- 5a.
- Membuat Progress Bar Yang Run Time Error Terus From: PT. ADHI KARYA (PERSERO) Tbk
- 5b.
- Re: Membuat Progress Bar Yang Run Time Error Terus From: Hilman
- 5c.
- Re: Membuat Progress Bar Yang Run Time Error Terus From: i Haps
- 6a.
- OOT : Usul Group BBM From: ivanstats@yahoo.com
- 6b.
- Re: OOT : Usul Group BBM From: mail4muja@yahoo.co.id
- 7a.
- Re: Bls: Memfilter Data - Dengan Asumsi 'Tambahan' From: i Haps
- 7b.
- Bls: Memfilter Data - Dengan Asumsi 'Tambahan' From: Prodev SIMPLE PB
- 8a.
- Tulisan tidak terlihat di formula bar From: Riska Wahyu Nirmalasari
- 8b.
- Re: Tulisan tidak terlihat di formula bar From: Hilman
- 8c.
- Re: Tulisan tidak terlihat di formula bar From: o' Seno
Messages
- 1a.
-
Create Number bersyarat
Posted by: "Citra Anggraini" anggraini.citra78@yahoo.com anggraini.citra78
Thu Dec 29, 2011 7:49 am (PST)
kepada para senior Excel,
saya mengalami kendala yang sulit, apakah ada dari para master yang mempunyai solusi ?
permasalahannya adalah untuk membangun sebuah nomor berurut yang bersyarat, yakni kolom A dan kolom B harus berurut kemudian berdasarkan kolom
A create number tapi number yang muncul bersyarat terhadap tanggal yg berurut.
saya newbi, mohon maaf kalau ada kata -kata yang kurang tepat.
terima kasih
- 1b.
-
Re: Create Number bersyarat
Posted by: "siti Vi" setiyowati.devi@gmail.com siti_vi
Thu Dec 29, 2011 2:09 pm (PST)
Kalau boleh disort secara manual (Fitur DATA > SORT)
Setelah tabel dlm keadaan SORTED (bukan SHORTED), pemberian nomor
seperti itu dapat dilakukan dengan FORMULA *COUNTIF BERGESER* *(Slading
COUNTIF)*,
yg sudah agak sering juga muncul dimakro walapun untuk keperluan lain
Yg dimaksud Slaing CountifCountif, kira-kira, rumus yg mengandung fungsi
COUNTIF di tulis
bekali kali sejajar dengan tiap baris data yg ada pada TabelReferensi
Misal
biasanya
*=COUNTF($B$6:$B$123, B6)*
Perhatikan $B$23 = Absolut Reference
Slading Countif hanya mengubah rujukan ujung akhir range menjadi RELATIF
REFERENCE
=COUNTF($B$6:$B6, B6)
jika dicopy ke bawah rumus tsb akan berubah menjadi
=COUNTF($B$6:$B6, B6)
=COUNTF($B$6:$B7, B7)
=COUNTF($B$6:$B8, B8)
dst
Excel user yg belum pemakaian excel-hariannya ke arah ini, akan terkejut
melihat hasilnya....
Teapi bila dikehendaki penyelesaian "FULL OTOMATIK" (tinggal ceklik tombol
semua beres...)
maka : Action /Tindakan² : Sorting, pemindahan kolom kemudian pemberian
Nomor spt itu
dapat *di CODE kan,* salah satu jalan ceritaknya (dari banyak jalan ceritak
/ algor yg ada),
kira-kira spt ini :
Sub Sort_And_Count()
'-------------------- --------- --------- ---
' indri Hapsari & siti Vi / 29 Dec 2011
' answering: Be Excel Case 14887
'-------------------- --------- --------- ---
' declare beberapa pe-ubah (variables)
Dim CurrName As String, Num As Long, i As Long
Dim TbSource As Range, TbHasil As Range
Dim ColName As Range, ColDate As Range
On Error Resume Next
' init beberapa variables dan sedikit urusan Kopi-MengKopi...
Set TbHasil = Sheets("SolusiMakro").Cells( 2, 1)
Set TbSource = Sheets("SumberDat").Cells(6, 2).CurrentRegion
TbSource.Copy TbHasil ' << tabel dicop ke sheet lain
TbHasil.Parent.Activate ' << sheet tempat range hasil berada;
diaktipkan
Set TbHasil = TbHasil.CurrentRegion
TbSource.Cells(-1, 1).Resize(1, TbSource.Columns. Count). _
Copy TbHasil(0, 1) ' << Heading Kolom dicopy juga, tetapi
' peletakannyadi tabel Hasil tanpa diberi antar
baris kosong
' safety belt dipasang, agar anda bisa ngebuttt..
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
' Kolom Nama dan Kolom Tgl di-defined dulu
Set ColName = TbHasil.Resize(TbHasil.Rows. Count, 1)
Set ColDate = ColName.Offset(0, 1)
' Urutkan tbHASIL byName_then_ByDate, ascending!!
TbHasil.Parent.Sort.SortFields. Clear
TbHasil.Parent.Sort.SortFields. Add _
Key:=ColName, SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
TbHasil.Parent.Sort.SortFields. Add _
Key:=ColDate, SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
With TbHasil.Parent.Sort
.SetRange TbHasil
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'Rokade: Kolom_Shift -vs- Kolom_Level
Columns("C:C").Cut Destination: =Columns( "F:F")
Columns("C:C").Delete Shift:=xlToLeft
* '==== sebar NomorUrut_byName & ByDate =====*
' *detil proses pada BLOK ini, akan dicoba jelaskan*
*
*
' Heading Kolom ke 4 (yg blum ada judulnya) ditulis = "No"
TbHasil(0, 4) = "No."
'-- variable CurrentName diisi NAMA Teratas
CurrName = TbHasil(1, 1).Text
' Loop mengunjungi semua Baris data di tabelHasil
*For i* = 1 To TbHasil.Rows.Count
' Jika NAMA di baris yg sedang dikunjungi
' adalah *SAMA_DGN CurrentName..., maka..*
If TbHasil(i, 1) = CurrName Then
' variable Num ditambah 1
Num = Num + 1
Else *' (jika TIDAK SAMA..!)*
' Variable Num diganti dengan NAMA ex baris
' yg sedang dikunjungi itu
CurrName = TbHasil(i, 1)
' variable Num di reset bernilai 1
' (that is : nilai awal untuk si NAMABaru tsb)
Num = 1
End If
' pada kolom yg tepat (kolom "No" & Kolom "Shift"
' dituliskan Num hasil kalkulasi Blok IF tsb di atas
TbHasil(i, 4) = Num
TbHasil(i, 5) = Num & TbHasil(i, 5)
' akhir step perulangan
' Jika baris masih ada yg belum dikunjungi (i < jumlah records)
' step akan diulang lagi mulai dari *For i*
Next i
' (-- yaa.. cuma gitu, 'kirain seru ?!---)
' Anda sudah sampai ke KotaTujuan
' SavetyBelt boleh dilepas kembali
' ( =reset environtment yg tadi sempat diobok-obok..)
' "acara ngebutt (dengan bajay) sudah selesai!!
Application.Calculation = xlCalculationAutoma tic
Application.ScreenUpdating = True
End Sub
Dear Mbak Eni,
Haps suka cara mbak bertanya: ringkas, jelas, maksud/tujuan mudah ditangkap.
setiap Nama akan diberi nomor urut secara individual
tetapi keurutannya harus menurut urutan tanggal, misal
si A tgl 2 no = 1 tgl 4 = 2, tgl 9 = 3 dst..)
Mohon maaf solusinya makro, sambil menunggu solusi Formula dari temans
lain...
zalam zuper
- i -
*
*
*2011/12/29 Citra Anggraini <anggraini.citra78@yahoo.com >
*
>
> * *
> *kepada para senior Excel,
> *
> *saya mengalami kendala yang sulit, apakah ada dari para master yang
> mempunyai solusi ?*
> *permasalahannya adalah untuk membangun sebuah nomor berurut yang
> bersyarat,*
>
*yakni kolom A dan kolom B harus berurut kemudian berdasarkan kolom **A*
>
*create number tapi number yang muncul bersyarat terhadap tanggal yg
> berurut.*
> *saya newbi, mohon maaf kalau ada kata -kata yang kurang tepat.*
> *terima kasih*
>
>
>
- 1c.
-
Re: Create Number bersyarat
Posted by: "siti Vi" setiyowati.devi@gmail.com siti_vi
Thu Dec 29, 2011 2:20 pm (PST)
Ralat & koreksi baris ke 4
seharusnya:
"yg sudah agak sering juga muncul *di MILIS* walaupun untuk keperluan lain"
terima kasih....
2011/12/30 siti Vi <setiyowati.devi@gmail.com >
> Kalau boleh disort secara manual (Fitur DATA > SORT)
> Setelah tabel dlm keadaan SORTED (bukan SHORTED), pemberian nomor
> seperti itu dapat dilakukan dengan FORMULA *COUNTIF BERGESER* *(Slading
> COUNTIF)*,
> yg sudah agak sering juga muncul *dimakro* walapun untuk keperluan lain
> Yg dimaksud Slaing CountifCountif, kira-kira, rumus yg ------ dst -----
>
- 2a.
-
ambil data
Posted by: "Dr.Yongky Bramuli" dr.yongkybramuli@yahoo.co.id dr.yongkybramuli
Thu Dec 29, 2011 7:50 am (PST)
Para Exceler,
Apakah ada coding untuk mengambil data dari workbook lain yang sedang terbuka atau tertutup ??
- 2b.
-
Re: ambil data
Posted by: "i Haps" hapsari.stlizbeth@gmail.com liz_indri_haps
Thu Dec 29, 2011 4:18 pm (PST)
*Mengambil data di workbook lain*
( WORKBOOK = file excel yg *sudah* terbuka)
Contoh berikut ini contoh code VBA memasukkan data
ex workbook SUMBER, NamaSheet Sheet5, cell F16
ke worokbook TUJUAN, NamaSheet: Sheet3, cell B2
Worbooks("Tujuan.xlsm").Sheets( "Sheet3") .Range("B2" ).Value = _
Worbooks("Sumber.xlsx").Sheets( "Sheet5") .Range("F16" ).Value
*Mengambil data ex file excel yg belum dibuka:*
lihat diskusi kemarin ThreadsMaker = Irwan Didi
http://tech.groups.yahoo. com/group/ belajar-excel/ message/14872
sampai saat ini mendapat 3 tanggapan.
- i -
*2011/12/29 Dr.Yongky Bramuli <dr.yongkybramuli@yahoo.co. >id
*
>
> * *
> *Para Exceler,
> *
> *Apakah ada coding untuk mengambil data dari workbook lain yang sedang
> terbuka atau tertutup ??*
>
- 3a.
-
Re: Mebuat log berdasarkan tanggal
Posted by: "i Haps" hapsari.stlizbeth@gmail.com liz_indri_haps
Thu Dec 29, 2011 2:50 pm (PST)
Bisa pak
hanya perlu meng-Ubah (bukan re-Rubah) *Referensi cell* nya
*Merujuk Cell/Range di sheet yg sama*
Cell F3 akan merujuk Cell A7 tinggal menulis *=A7*
*Merujuk Cell/Range di sheet yg berlainan (dlm book yg sama)*
Cell F3 (yang akan merujuk) itu ada di Sheet1000 dan
Cell A7 (cell yg akan dirujuk) berada di Sheet21
maka di sheet1000 cell F3 ditulisnya
*=Sheet21!A7 *
Cara yg lebih gampang tidak perlu menulis alamat rujukan
* aktifkan sheet1000, Klik Cell F3
* tuliskan "=" (tanpa tanda kutip)
* aktifkan Sheet21 >> *Klik Cell A7* >> Enter
* lihat di Sheet1000 cell F3
excel sudah menuliskan *rujukan dengan BENAR* untuk anda .
=SMALL(IF((M3:M38=C20)* (Q3:Q38<> 0),ROW(1: 36)),ROW( 1:36))
bisa menjadi
=SMALL(IF((MyData!M3:M38=C20) *(MyData! Q3:Q38<>0) ,ROW(1:36) ),ROW(1:36) )
dengan *MyData* adalah nama sheet tempat beradanya tabel yg dirujuk
Nama sheet yg mengandung Spasi akan menambah pekerjaan, yaitu harus di apit
dengan
karakter aphostroph : * 'nama sheet'*
Latihan bisa ditingkatkan merujuk *Cell/Range di WORKBOOK LAIN* (yg sudah
terbuka)
Jangan lupa juga baca-baca
** Rujukan Relatif, Rujukan Absolut, Rujukan Relatif&Absolut, RUjukan
Absolut/Relatif
** Rujukan 3D = (3 dimensi)
*2011/12/29 Guritno Blothonk <guritnov@gmail.com >
> Melanjutkan pertanyaan sebelumnya, apakah bisa jika penormalan table
tersebut *
*> di lakukan di worksheet lain, tidak dalam satu worksheet ?
> thanks
>
> Pada 29 Desember 2011 15:14, Guritno Blothonk <guritnov@gmail.com >
menulis:
>> Terima kasih terima kasih langsung di coba
>> Pada 29 Desember 2011 14:35, i Haps <hapsari.stlizbeth@gmail.com >
menulis:
>>> Tanpa disadari bahwa keinginan ini bernama "ingin Memfilter"
>>> Dari 6 atau 7 grup formula yg ada, kami kutipkan 1 formula favorit
>>> =SMALL(IF((M3:M38=C20)* (Q3:Q38<> 0),ROW(1: 36)),ROW( 1:36))*
- 4a.
-
Re: menambah dan mengambil data dari file lain
Posted by: "Hilman" hilman_email@yahoo.com hilman_email
Thu Dec 29, 2011 5:22 pm (PST)
Kalo benar-benar ingin mengambil data tanpa membuka file nya, coba dilihat di link berikut
http://www.beyondtechnology. com/geeks023. shtml
_____________________ _________ __
From: jkssxls Sudarsono <jkssxls@hotmail.com >
To: Belajar-Excel Yahoo Groups <belajar-excel@yahoogroups. >com
Sent: Thursday, December 29, 2011 4:45 PM
Subject: RE: [belajar-excel] menambah dan mengambil data dari file lain
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, IgnoreReadOnlyRecom mended:=True, editable:=False, notify:=False)
If Err.Number > 0 Then
MsgBox Err.Number
GoTo Lab_Error
End If
Set wnd = wbk.Windows.Item(1)
wnd.Visible = False
Dim wsh As Worksheet
Set wsh = wbk.Sheets(1)
' lakukan apa saja deh , misal
ActiveCell = wsh.Range("d3")
Lab_Error:
wbk.Close savechanges:=False
'===
catatan : file excel yang dibuka , worksheet akan muncul sekejab saja tapi tak dapat di aktifkan ( karena sembunyi )
_____________________ _________ __
To: belajar-excel@yahoogroups. com
From: hapsari.stlizbeth@gmail.com
Date: Thu, 29 Dec 2011 15:34:10 +0700
Subject: Re: [belajar-excel] menambah dan mengambil data dari file lain
sementara belum ada pakar database & pakar data connection: turun tangan,
kita coba melihat lihat Ribbon > Tab Data..
Ribbon > Tab Data > (Group: Connections) > Add > Brows for more..
(akan muncul dialog Select Data Source) >> cari foldernya dan tunjuk filenya > OK
Sekarang anda sudah punya data source dari workbook lain
walaupun sebenarnya terjadi peristiwa BUKA workbook, namun hanya sesaat dan
EXCEL GUI nya tidak diperlihatkan.
Jadi kita secara awam tahunya tidak pernah membuka file yg dijadikan DataSource tadi.
Di workbook Pengolah (yg saat ini sudah anda buka: pilih salah satu sheet kosong
Kembali ke Ribbon > Tab Data > (Group: Get External Data) > Existing Connection
>> (tunjuk nama koneksi yg tadi sudah dibuat) > Import data > Tabel
Harusnya saat ini tabel yg ada yg ada di file "PEMASKAN?" sudah terkoneksi dan
tampak di salah satu sheet Workbook "Pengolah", siap untuk diRUJUK-RUJUK
Itu kalau data akan di RUJUK saja
Kalau source data akan di UPDATE, jika tanpa harus membuka file nya dulu, saya
tidak tahu caranya.
Kalau boleh tahu, mengapa file tidak boleh dibuka dulu untuk di akses (read + write)
secara gampang??
2011/12/28 Irwan didi <irwan_didi@yahoo.com >
>... apakah bisa excel melakukan penambahan data dan pengambilan data dari file lain dengan catatan file tsb tidak perlu di buka.
>
>misal :
>ada 2 workbook dalam 1 folder yang pertama pemasukan dan yang kedua pengeluaran (format database sama misal kolom a tanggal kolom b kode_konsumen dan kolom c jumlah masuk/keluar)
>misal saya buat lagi 1 workbook dengan nama rekonsiliasi (dengan kolom a kode_konsumen, kolom b jumlah masuk, kolom c jumlah keluar dan kolom d saldo) bagaimana cara mengambil data dari 2 file lain tanpa harus membuka file tsb? kalau pake formula mungkin bisa pake vlookup
>
>kalau pakai macro bgmn ya masters?
>
>tq
>one
>
>
>
>
- 5a.
-
Membuat Progress Bar Yang Run Time Error Terus
Posted by: "PT. ADHI KARYA (PERSERO) Tbk" adhi_tax_dk3@yahoo.com adhi_tax_dk3
Thu Dec 29, 2011 7:09 pm (PST)
Para pakar XL, kasih adonan utnuk bikin progressbar dong, karena yang saya bikin nih error terus (file terlampir)..
Mohon korksi resepnya dari para senior...
Terima kasih sebelumnya...
HASANNUDINTax Officer - Riau - Kepri - Sumbar Area - 5b.
-
Re: Membuat Progress Bar Yang Run Time Error Terus
Posted by: "Hilman" hilman_email@yahoo.com hilman_email
Thu Dec 29, 2011 8:08 pm (PST)
1. Penyebab error nya karena ProgressBar1.Max = 10000 yang anda simpan pada prosedur UserForm_Load tidak pernah dieksekusi, karena pada VBA tidak mengenal Event UserForm_Load, melainkan UserForm_Initialize
Private Sub UserForm_Load()
Dim i As Integer
ProgressBar1.Max = 10000
ProgressBar1.Min = 1
End Sub
Diganti dengan,
Private Sub UserForm_Initialize()
ProgressBar1.Max = 10000
ProgressBar1.Min = 1
End Sub
2. Kalau dilihat, ini mah bukan progress bar, tapi animation bar karena fungsinya hanya untuk menimbulkan efek animasi pada saat proses penyimpanan (memindahkan data dari user form ke area excel.
3. Sedikit koreksi pada bagian
For i = 1 To 10000
i = i + 1
ProgressBar1.Value = i
Next i
sepertinya pada line i = i + 1 tsb tidak perlu, karena jika menggunakan loop For...Next maka secara otomatis nilai i akan bertambah 1. Jadi dengan adanya i = i + 1 nilai i nya akan bertambah 2 setiap loop nya.
_____________________ _________ __
From: PT. ADHI KARYA (PERSERO) Tbk <adhi_tax_dk3@yahoo.com >
To: belajar xl <belajar-excel@yahoogroups. >com
Sent: Friday, December 30, 2011 7:51 AM
Subject: [belajar-excel] Membuat Progress Bar Yang Run Time Error Terus
Para pakar XL, kasih adonan utnuk bikin progressbar dong, karena yang saya bikin nih error terus (file terlampir)..
Mohon korksi resepnya dari para senior...
Terima kasih sebelumnya...
HASANNUDIN
Tax Officer - Riau - Kepri - Sumbar Area
- 5c.
-
Re: Membuat Progress Bar Yang Run Time Error Terus
Posted by: "i Haps" hapsari.stlizbeth@gmail.com liz_indri_haps
Thu Dec 29, 2011 10:12 pm (PST)
nambo ciek...
Mas Hilman sudah menurunkan ilmu teknisnya.
Sekarang, kita bicarakan maksud dan tujuan digambarnya ProgressBar
Biasanya yg perlu diberi ProgressBar adalah proses yg memerlukan banyak step
atau juga proses yg diulang (dengan looping) dimana jumlah step nya dapat
dihitung
didekati / diperkirakan.
contoh yg mudah
Membaca data tabel cell by cell dengan diketahui dimensi tabelnya
( = banyaknya baris X banyaknya kolom)
katakan misalnya 2000 baris x 50 kolom; 2000 x 50 = 100.000 cells
Jika semua cell ingin di akses, ( barangkali dibaca untuk di copy atau
diproses dan
hasil prosesnya ingin ditulis di range lain); maka akan terjadi 100 000
step
ProgessBar dapat kita beri nilai min = 0, dan nilail max = 100 000
Nantinya, setiap 1 (satu) step proses, nilai ProgressBar (yg semula = 0)
kita naikkan 1
For R = 1 ro 2000
For C = 1 to 50
* Sheet5.Cellss(R, C) = Sheet1.Cells( R, C) & " telah diproses"*
* N = N + 1*
* ProgressBar = N*
Next C
Next R
Dengan cara seperti itu, progress bar akan tampak "melaporkan" PROGRESS
(perkembangan
/ lajunya ) proses dari 0 sampai 100 000
Kalau peru di dalam progress bar bisa di tampakkan nilai percentege-nya
Saat Proses dimulai Progressbar = Kosong, dan Ketika proses selesai,
ProgressBar pas
menunjukkan PENUH. Itulah INTI maksud sebuah ProgressBar !
Selama proses berjalan, user yg melihat ProgressBar dapat mengetahui
gambaran kasar
*sudah sampai seberapa Progress-nya dan masih seberapa LAGI proses yg
harus ditunggu.*
(kalau masih lama kita kan bisa tidur dulu, ya 'kan (ya iyya lah!)... he
he!)
Begitulah ProgressBar digambar dan disuruh JALAN, selain membebani excel &
processor,
tapi ada manfaatnya
Progress bar buatan pak AdhiKarya Hasan, bagus buat latihan, tetapi untuk
proses menulis 3 cell
yg hanya memerlukan waktu sepersekian detik, progressbar sebenarnya belum
diperlukan.
Progressbar yang ada, bukan merupakan laporan kemajuan / lajunya proses,
tetapi seperti kata
mas Hilman hanyalah animasi bar
Proses terjadinya Entri Data vs proses terjadinya Animasi Bar tidak
sinkron; tetapi bergantian,
dan durasi / lamanya tidak sama (proses entri data hanya sepersekian dari
proses penampakan
pergerakan ISI progressbar.
Penggambaran AnimasiBar tetap membebani kerja excel dan prosessor tetapi
kurang manfaatnya
Sekali lagi untuk belajar, semangat dan codingya sudah bagus
Kami yakin pada saat lain / untk proses pekerjaan lain, pak Adhikarya Hasan
akan bisa membuat
*progressbar **yg memberi "laporan progress" atas *suatu proses yg sedang
dijalankan.
Salam kompaks beExcellers
- i -
*
*
* ~belajar excel ? ...gak bakal nyesel !*
2011/12/30 Hilman <hilman_email@yahoo.com >
> **
>
> 1. Penyebab error nya karena ProgressBar1.Max = 10000 yang anda simpan
> pada prosedur UserForm_Load tidak pernah dieksekusi, karena pada VBA tidak
> mengenal Event UserForm_Load, melainkan UserForm_Initialize
>
> Private Sub UserForm_Load()
> Dim i As Integer
> ProgressBar1.Max = 10000
> ProgressBar1.Min = 1
> End Sub
>
> Diganti dengan,
> Private Sub UserForm_Initialize()
> ProgressBar1.Max = 10000
> ProgressBar1.Min = 1
> End Sub
>
> 2. Kalau dilihat, ini mah bukan progress bar, tapi animation bar karena
> fungsinya hanya untuk menimbulkan efek animasi pada saat proses
> penyimpanan (memindahkan data dari user form ke area excel.
>
> 3. Sedikit koreksi pada bagian
>
> For i = 1 To 10000
> i = i + 1
> ProgressBar1.Value = i
> Next i
>
> sepertinya pada line i = i + 1 tsb tidak perlu, karena jika
> menggunakan loop For...Next maka secara otomatis nilai i akan bertambah 1.
> Jadi dengan adanya i = i + 1 nilai i nya akan bertambah 2 setiap loop nya.
>
>
>
> --------------------- ---------
> *From:* PT. ADHI KARYA (PERSERO) Tbk <adhi_tax_dk3@yahoo.com >
> *Sent:* Friday, December 30, 2011 7:51 AM
>
> Para pakar XL, kasih adonan utnuk bikin progressbar dong, karena yang saya
> bikin nih error terus (file terlampir)..
> Mohon korksi resepnya dari para senior...
> Terima kasih sebelumnya...
>
> *HASANNUDIN*
> *Tax Officer - Riau - Kepri - Sumbar Are*a**
>
- 6a.
-
OOT : Usul Group BBM
Posted by: "ivanstats@yahoo.com" ivanstats@yahoo.com ivanstats
Thu Dec 29, 2011 7:47 pm (PST)
Selamat siang.
Sekedear usul,, utk lebih saling kenal 1 sama lain, dan mungkin lebih bisa terbuka OOT nya, mungkin juga ada wacana2 kopdar dll, yang kebetulan ada ™,, bisa dibuatkan grup di bbm.. Just usul..
Mudah2an gak di marahin momod.. Hehehe..
Salam hangat,
Ivan
Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...! - 6b.
-
Re: OOT : Usul Group BBM
Posted by: "mail4muja@yahoo.co.id" mail4muja@yahoo.co.id mail4muja
Thu Dec 29, 2011 8:15 pm (PST)
Member group bb cm di batasi 30 orang, dan tidak semua member pake bb.....
===================== ========= ========= ========= ========= ==
ModsNote:
Usul bagus..
Baik saja, monggo dibuat dan dikelola oleh para pakar BBM.
Sementara ini terpikir...
Group BBM (atau media lain) yg akan diadakan, tidak harus
menjadi bagian-resmi dari BeExcel. Demikian juga dengan
keanggotaannya...
Jika materi berita yg berlalulintas di dalamnya ternyata
banyak kandungan "perExcel-annya", saya kira nantinya secara
berkala boleh di"siarkan" di milis ini (misalnya kesimpulannya
atau ringkasannya, atau titik-bagian-terpenting- nya.
Tentunya dengan tetap mengikuti rules yg sudah ada....
'Gitu kalee yee...
- mods -
===================== ========= ========= ========= ========= =====
-----Original Message-----
From: ivanstats@yahoo.com
Date: Fri, 30 Dec 2011 03:43:42
Selamat siang.
Sekedear usul,, utk lebih saling kenal 1 sama lain, dan mungkin lebih bisa terbuka OOT nya, mungkin juga ada wacana2 kopdar dll, yang kebetulan ada ™,, bisa dibuatkan grup di bbm.. Just usul..
Mudah2an gak di marahin momod.. Hehehe..
Salam hangat,
Ivan
- 7a.
-
Re: Bls: Memfilter Data - Dengan Asumsi 'Tambahan'
Posted by: "i Haps" hapsari.stlizbeth@gmail.com liz_indri_haps
Thu Dec 29, 2011 10:56 pm (PST)
halo pak Prodev,--
waduh sudah 36 jam lebih berlum ada yg tertarik menyumbang rumus..
kita coba seperti ini
=IF(SUM(F13:I13)=0,"" ,REPLACE(
IF(((F13=MAX(F13:I13)) +(F13=MAX( F13:I13)- 1))**(F13* *>0**)*," - "&F$11,"")&
IF(((G13=MAX(F13:I13)) +(G13=MAX( F13:I13)- 1))**(G13* *>0**)*," - "&G$11,"")&
IF(((H13=MAX(F13:I13)) +(H13=MAX( F13:I13)- 1))**(H13* *>0**)*," - "&H$11,"")&
IF(((I13=MAX(F13:I13)) +(I13=MAX( F13:I13)- 1))**(I13* *>0**)*," -
"&I$11,""),1,3,""))
jika input *nilai negatip *diperkenankan, maka
operator *>0* (lebih besar daripada eNOL) diganti dengan *<>0* (tidak sama
dengan eNOL)
Semoga tidak terlalu jauh dari yg diinginkan
" Ayu Ting Ting dikejar mikroba
nyang penting dah 'belajar dan mencoba..."
kindest regards
- i -
2011/12/28 i Haps <hapsari.stlizbeth@gmail.com >
> oops... iyya ya
> tetapi itu sebenarnya *masih mengikuti syarat* dari pak prodev, yaitu
> jika max = 1 maka* 0 adalah nilai yg punya nilai SELISIH SATU dari data
> MAX*
> makanya ditampilkan kesimpulannya
>
> jika dikehendaki : nilai 0 (blank) walaupun memenuhi sebagai *bilangan yg
> punya *
> *nilai **SELISIH 1 dari MAX nya* >> tidak diperhitngkan (tidak
> menyebabkan
> munculnya kesimpulan); tentu rumusnya masih bisa diperbaiki.. (menambah
> logikal test lagi)
>
> tetapi begini...,
> kita memberi kesempatan kepada members lain untuk memperbaiki rumus tsb.
> (termasuk pak prodev) Etung-Etung seperti Challenge kecil-kecilan...
> Jika dlm 36 jam (dari pukul 15:00 tgl 28 dec 2011) belum ada memebr yg
> tertarik
> mengirm rumus, kita akan coba mengirimkannya, insya-Allah..
>
> -i-
>
> ayu ting-ting makan kuaci
> yang penting ... apa ya... beli semangka dulu kalee.. (lho? gak nyambung)
>
>
>
>
> *2011/12/28 Prodev SIMPLE PB <prodev_simple@yahoo.com >
> *
>
>> * *
>> *Matur thankyu atas pencerahannya.*
>> *:) cuma klo datanya dibuat 1 - 0 - 0 - 0 maka kesimpulannya SK-SA-RA-RK
>> :)*
>> *just kidding...wlw realnya gk akan spt itu datanya.*
>> *
>> *
>> *Ayu Ting Ting naik Taksi*
>> *Dandanan-nya bak selebriti*
>> *Nyang penting berterima kasih
>> Besok nanya, dijawab lagi
>> :)
>>
>> *
>> - prodev simple -
>>
>>
- 7b.
-
Bls: Memfilter Data - Dengan Asumsi 'Tambahan'
Posted by: "Prodev SIMPLE PB" prodev_simple@yahoo.com prodev_simple
Fri Dec 30, 2011 12:16 am (PST)
Alhmdulillah....
Akhirnya dijawab juga :)
Setelah ditunggu-tunggu...ternyata Para Suhu...sedang sibuk jelang Tahun Baru
Untung dr. Haps msh mau berbaik hati untuk mencoba menghitung waktu (nungguin member lain urun rembug) :) - menelaah dan berpikir mendalam - sampai akhirnya berhasil 'menelurkan' formulasi rumus yang 'tokcer' :)
Sekali lagi Matur Suwun.
Ayu Ting Ting pergi ke Bali,
Wah, tega bener gk ngajak-ngajak.... :)
- prodev simple -
_____________________ _________ __
Dari: i Haps <hapsari.stlizbeth@gmail.com >
Kepada: belajar-excel@yahoogroups. com
Dikirim: Jumat, 30 Desember 2011 13:56
Judul: Re: [belajar-excel] Bls: Memfilter Data - Dengan Asumsi 'Tambahan'
halo pak Prodev,--
waduh sudah 36 jam lebih berlum ada yg tertarik menyumbang rumus..
kita coba seperti ini
=IF(SUM(F13:I13)=0,"" ,REPLACE(
IF(((F13=MAX(F13:I13)) +(F13=MAX( F13:I13)- 1))*(F13> 0)," - "&F$11,"")&
IF(((G13=MAX(F13:I13)) +(G13=MAX( F13:I13)- 1))*(G13> 0)," - "&G$11,"")&
IF(((H13=MAX(F13:I13)) +(H13=MAX( F13:I13)- 1))*(H13> 0)," - "&H$11,"")&
IF(((I13=MAX(F13:I13)) +(I13=MAX( F13:I13)- 1))*(I13> 0)," - "&I$11,""),1, 3,""))
jika input nilai negatip diperkenankan, maka
operator >0(lebih besar daripada eNOL) diganti dengan <>0(tidak sama dengan eNOL)
Semoga tidak terlalu jauh dari yg diinginkan
" Ayu Ting Ting dikejar mikroba
nyang penting dah 'belajar dan mencoba..."
kindest regards
- i -
2011/12/28 i Haps <hapsari.stlizbeth@gmail.com >
oops... iyya ya
>tetapi itu sebenarnya masih mengikuti syarat dari pak prodev, yaitu
>jika max = 1 maka0 adalah nilai yg punya nilai SELISIH SATU dari data MAX
>makanya ditampilkan kesimpulannya
>
>
>jika dikehendaki : nilai 0 (blank) walaupun memenuhi sebagai bilangan yg punya
>nilai SELISIH 1 dari MAX nya >> tidak diperhitngkan (tidak menyebabkan
>munculnya kesimpulan); tentu rumusnya masih bisa diperbaiki.. (menambah
>logikal test lagi)
>
>
>tetapi begini...,
>kita memberi kesempatan kepada members lain untuk memperbaiki rumus tsb.
>(termasuk pak prodev) Etung-Etung seperti Challenge kecil-kecilan...
>Jika dlm 36 jam (dari pukul 15:00 tgl 28 dec 2011) belum ada memebr yg tertarik
>mengirm rumus, kita akan coba mengirimkannya, insya-Allah..
>
>
>-i-
>
>
>ayu ting-ting makan kuaci
>yang penting ... apa ya... beli semangka dulu kalee.. (lho? gak nyambung)
>
>
>
>
>
>
>
>
>2011/12/28 Prodev SIMPLE PB <prodev_simple@yahoo.com >
>
>
>>Matur thankyu atas pencerahannya.
>>:) cuma klo datanya dibuat 1 - 0 - 0 - 0 maka kesimpulannya SK-SA-RA-RK :)
>>just kidding...wlw realnya gk akan spt itu datanya.
>>
>>
>>Ayu Ting Ting naik Taksi
>>Dandanan-nya bak selebriti
>>Nyang penting berterima kasih
>>Besok nanya, dijawab lagi
>>:)
>>
>>
>>- prodev simple -
>>
>>
- 8a.
-
Tulisan tidak terlihat di formula bar
Posted by: "Riska Wahyu Nirmalasari" Riska.Nirmalasari@danone.com
Fri Dec 30, 2011 1:42 am (PST)
Dear master Excel, Mohon bantuannya, bagaimana cara
menyembunyikan rumus yg ada pd 1 cell. Sehingga tulisan maupun
rumus tidak terlihat di formula bar. Terimakasih,Riska
Ce message x000E9;lectronique et tous les fichiers attachx000E9;s
qu'il contient sont confidentiels et destinx000E9;s exclusivement
x000E0; l'usage de la personne x000E0; laquelle ils sont
adressx000E9;s. Si vous avez rex000E7;u ce message par erreur,
merci de le retourner x000E0; son x000E9;metteur. Les idx000E9;es
et opinions prx000E9;sentx000E9;es dans ce message sont celles de
son auteur, et ne reprx000E9;sentent pas nx000E9;cessairement
celles de DANONE ou d'une quelconque de ses filiales. La
publication, l'usage, la distribution, l'impression ou la copie
non autorisx000E9;e de ce message et des attachements qu'il
contient sont strictement interdits.
This e-mail and any files transmitted with it are confidential
and intended solely for the use of the individual to whom it is
addressed. If you have received this email in error please send
it back to the person that sent it to you. Any views or opinions
presented are solely those of its author and do not necessarily
represent those of DANONE or any of its subsidiary companies.
Unauthorized publication, use, dissemination, forwarding,
printing or copying of this email and its associated attachments
is strictly prohibited.
- 8b.
-
Re: Tulisan tidak terlihat di formula bar
Posted by: "Hilman" hilman_email@yahoo.com hilman_email
Fri Dec 30, 2011 2:27 am (PST)
Untuk excel 2003
Cara 1 : Pada menu Tools >> Options, pada tab View, uncheck (jangan di centang) "Formula Bar", tapi dengan cara ini formula bar nya yang disembunyikan, karena formula bar nya tidak kelihatan dengan otomatis formulanya juga tidak kelihatan... he..he...
Cara 2 : arahkan pointer pada cell yg ingin formulanya disembunyikan, kemudian tekan ctrl+1 atau klik kanan, terus pilih Format Cell. Pada Tab "Protection", Unchecked "Locked" dan Checked "Hidden". Setelah itu melalui menu Tools, pilih Protection dan pilih lagi sub menu Protect Sheet. Tekan OK. Jika ingin pakai password silahkan diisi. Dengan cara ini formula bar akan tetap kelihatan dan formulanya sudah disembunyikan.
Demikian, semoga membantu.
Silahakan temans lain untuk menambahkan atau mengoreksi...
_____________________ _________ __
From: Riska Wahyu Nirmalasari <Riska.Nirmalasari@danone.com >
To: belajar-excel@yahoogroups. com
Sent: Friday, December 30, 2011 4:43 PM
Subject: [belajar-excel] Tulisan tidak terlihat di formula bar
Dear master Excel,
Mohon bantuannya, bagaimana cara menyembunyikan rumus yg ada pd 1 cell. Sehingga tulisan maupun rumus tidak terlihat di formula bar.
Terimakasih,
Riska
Ce message x000E9;lectronique et tous les fichiers attachx000E9;s qu'il contient sont confidentiels et destinx000E9; s exclusivement x000E0; l'usage de la personne x000E0; laquelle ils sont adressx000E9; s. Si vous avez rex000E7;u ce message par erreur, merci de le retourner x000E0; son x000E9;metteur. Les idx000E9;es et opinions prx000E9;sentx000E9 ;es dans ce message sont celles de son auteur, et ne reprx000E9;sentent pas nx000E9;cessairemen t celles de DANONE ou d'une quelconque de ses filiales. La publication, l'usage, la distribution, l'impression ou la copie non autorisx000E9; e de ce message et des attachements qu'il contient sont strictement interdits.
This e-mail and any files transmitted with it are confidential and intended solely for the use of the individual to whom it is addressed. If you have received this email in error please send it back to the person that sent it to you. Any views or opinions presented are solely those of its author and do not necessarily represent those of DANONE or any of its subsidiary companies. Unauthorized publication, use, dissemination, forwarding, printing or copying of this email and its associated attachments is strictly prohibited.
- 8c.
-
Re: Tulisan tidak terlihat di formula bar
Posted by: "o' Seno" ontoseno84@gmail.com ontoseno84@ymail.com
Fri Dec 30, 2011 2:46 am (PST)
Lebih dulu pilih/ select / blok lah RANGE yg akan diperlakukan seperti itu
( range yg diinginkan agar formula tidak tampak di formula bar)
*Ribbon > Tab HOME > Group: Cell > Format > Format Cell > Protection*
ada dua ceck bok pilih dabn* berikan contrengan pada checkBox "HIDDEN"*
[image: menu format cell.PNG]
[image: Cell Protection Hidden.PNG]
Setelah itu pengaturan HIDDEN terhadap cell (maksudnya formulanya = HIDDEN)
baru akan berlaku* jika sheetnya di Proteksi*
*Ribbon > Tab HOME Group Cell > Protect Sheet ...*
?
o'Seno
*
*
*On Fri, Dec 30, 2011 at 4:43 PM, Riska Wahyu Nirmalasari <
Riska.Nirmalasari@danone.com > wrote:
*
>
> * *
> *Dear master Excel,*
> *Mohon bantuannya, bagaimana cara menyembunyikan rumus yg ada pd 1 cell.*
>
*Sehingga tulisan maupun rumus tidak terlihat di formula bar.*
> *Terimakasih,*
> *Riska*
>
Need to Reply?
Click one of the "Reply" links to respond to a specific message in the Daily Digest.
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
MARKETPLACE
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Tidak ada komentar:
Posting Komentar