Selasa, 27 Agustus 2013

[belajar-excel] Digest Number 2498

15 New Messages

Digest #2498
3a
Re: Otomatisasi Format Object foto di MS Excel 2007 by "Mr. Kid" nmkid.family@ymail.com
4a
Re: penyebab terjadinya desimal????? by "Mr. Kid" nmkid.family@ymail.com
5a
Re: Memanfaatkan VLOOKUP by "Mr. Kid" nmkid.family@ymail.com

Messages

Tue Aug 27, 2013 6:48 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Ada apa dengan berubah menjadi interval tersebut.
Data di Call out -> kolom A (ID) bertype numerik, kolom B (time) bertype
datetime

Cell P8 : (P3 adalah teks interval berbunyi '12.00 - 15.00' dan B8 berisi
id bertype numerik bernilai 205)
=SUMPRODUCT(1*('CALL OUT'!$A$6:$A$6263='TOTAL CALL'!$B8)*('CALL
OUT'!$B$6:$B$6263>(--SUBSTITUTE(LEFT('TOTAL CALL'!P$3,5),".",":")))*('CALL
OUT'!$B$6:$B$6263<=(SUBSTITUTE(RIGHT('TOTAL CALL'!P$3,5),".",":"))**('CALL
OUT'!$D$6:$D$6263<>"")*('CALL OUT'!$D$6:$D$6263="Not Connected"))*)

Penyusun :
1 -> entah untuk apa

('CALL OUT'!$A$6:$A$6263='TOTAL CALL'!$B8) -> data id bertype numerik
dibandingkan harus sama dengan B8 bertype numerik, jadi statusnya sudah OK

('CALL OUT'!$B$6:$B$6263>(--SUBSTITUTE(*LEFT('TOTAL
CALL'!P$3,5)*,".",":")))-> data time bertype datetime yang sejatinya
berupa serial number tanggal
bertype numerik dibandingkan dengan *hasil *fungsi substitute (bertype
text) diubah menjadi bertype numerik oleh karakter --, jadi statusnya sudah
OK

*(*'CALL OUT'!$B$6:$B$6263<=*(*SUBSTITUTE(*RIGHT(&#39;TOTAL CALL'!P$3,5)*
,".",":")*)*
* *('CALL OUT'!$D$6:$D$6263<>"")
* ('CALL OUT'!$D$6:$D$6263="Not Connected"))*
-> ada ketidak telitian dalam menyusun formula, yaitu :
1. *(*SUBSTITUTE(*RIGHT(&#39;TOTAL CALL'!P$3,5)*,".",":")*)* bertype text harus
dibandingkan dengan yang bertype datetime atau serial number date bertype
numerik, maka hasilnya bisa jadi salah. Untungnya, untuk teks interval ini
masih menghasilkan yang benar. Harusnya bagian hasil bustitute diubah
typenya menjadi numerik dengan dikali 1 seperti ( 1*Substitute(blablabla) )

2. hasil perbandingan 'CALL OUT'!$B$6:$B$6263<=*(*SUBSTITUTE(*RIGHT(&#39;TOTAL
CALL'!P$3,5)*,".",":")*)* adalah TRUE (setara 1) atau FALSE (setara 0).
Karena tidak ditemukan kurung yang membentuk perbandingan terpisah, maka
hasil substitute akan dikalikan dengan * *('CALL OUT'!$D$6:$D$6263<>"")
* ('CALL OUT'!$D$6:$D$6263="Not Connected")*
yang artinya, bagian ini adalah perbandingan antara data time (kolom B)
dengan [hasil substitute yang sudah dikalikan dengan perbandingan teks data
kolom D bukan NULLSTRING dan teks data kolom D bertuliskan Not Connected.

Andai bersabar dalam menyusun formula dengan cara puaaannnnnjaaaaannggg dan
menjemukan berikut, biasanya akan cenderung pas dimanapun menyusun formula
dan untuk formula apapun :
1. jabarkan kriteria yang akan diproses.
>> kriteria 1 :
data kolom A harus sama dengan nilai di B8. *kolom berikutnya di tabel
hasil tetap merujuk ke kolom B pada baris yang sama. baris berikutnya tetap
merujuk ke kolom B tapi barisnya berubah sesuai baris tabel hasil*. *sheet
data di kolom A adalah berupa area yang tetap untuk digunakan oleh seluruh
formula di tabel hasil*.
** data kolom A -> 'CALL OUT'!$A$6:$A$6263
** harus sama dengan -> *=*
** nilai di B8 -> 'TOTAL CALL'!$B8
** membentuk sebagai sebuah perbandingan -> ( 'CALL OUT'!$A$6:$A$6263
*=* 'TOTAL CALL'!$B8 )

>> kriteria 2 :
data kolom B harus lebih dari nilai jam awal interval, yaitu potongan 5
karakter pertama dari teks interval di P3 yang diubah menjadi tulisan data
waktu (bertype text), kemudian diubah menjadi bertype numerik agar
membentuk data serial number date. Kolom berikutnya akan menggunakan kolom
yang sesuai lokasi cell hasil di tabel hasil. baris lainnya akan tetap
menggunakan baris 3. Data di sheet data akan merujuk ke area yang tetap.
** data kolom B -> 'CALL OUT'!$B$6:$B$6263
** harus lebih dari -> >
** potongan 5 karakter pertama dari teks interval di P3 -> *LEFT('TOTAL
CALL'!P*$*3,5)*
** yang diubah menjadi tulisan data waktu (bertype text) -> SUBSTITUTE(
*LEFT('TOTAL CALL'!P*$*3,5)*,".",":")
** diubah menjadi bertype numerik agar membentuk data serial number
date -> --SUBSTITUTE(*LEFT('TOTAL CALL'!P*$*3,5)*,".",":")
** membentuk sebagai sebuah perbandingan -> *(* 'CALL OUT'!$B$6:$B$6263
> --SUBSTITUTE(*LEFT('TOTAL CALL'!P*$*3,5)*,".",":") *)*

>> kriteria 3 :
data kolom B harus kurang dari atau sama dengan nilai jam awal interval,
yaitu potongan 5 karakter terakhir dari teks interval di P3 yang diubah
menjadi tulisan data waktu (bertype text), kemudian diubah menjadi bertype
numerik agar membentuk data serial number date. Kolom berikutnya akan
menggunakan kolom yang sesuai lokasi cell hasil di tabel hasil. baris
lainnya akan tetap menggunakan baris 3. Data di sheet data akan merujuk ke
area yang tetap.
** data kolom B -> 'CALL OUT'!$B$6:$B$6263
** harus dari atau sama dengan -> *<=*
** potongan 5 karakter terakhir dari teks interval di P3 ->
*RIGHT**('TOTAL
CALL'!P*$*3,5)*
** yang diubah menjadi tulisan data waktu (bertype text) -> SUBSTITUTE(
*RIGHT('TOTAL CALL'!P*$*3,5)*,".",":")
** diubah menjadi bertype numerik agar membentuk data serial number
date -> --SUBSTITUTE(*RIGHT(&#39;TOTAL CALL'!P*$*3,5)*,".",":")
** membentuk sebagai sebuah perbandingan -> *(* 'CALL OUT'!$B$6:$B$6263
*<=* --SUBSTITUTE(*RIGHT(&#39;TOTAL CALL'!P*$*3,5)*,".",":") *)*

>> kriteria 4 :
data kolom D harus sama dengan teks berbunyi 'Not Connected'. Data di sheet
data akan merujuk ke area yang tetap.
** data kolom D -> 'CALL OUT'!$D$6:$D$6263
** harus sama dengan -> *=*
** teks berbunyi 'Not Connected' -> *"Not Connected"*
** membentuk sebagai sebuah perbandingan -> *(* 'CALL OUT'!$D$6:$D$6263
*=* *"Not Connected"* * )*

2. mendefinisikan hubungan antar kriteria.
>> Seluruh kriteria harus terpenuhi
** artinya, antar kriteria dihubungkan dengan logika AND yang setara dengan
perkalian.
** perkalian dalam Excel menggunakan karakter *

3. menyusun lengkap kriteria
>> Dari nomor 1 dan nomor 2, disusunlah bunyi lengkap kriterianya :
( 'CALL OUT'!$A$6:$A$6263 *=* 'TOTAL CALL'!$B8 )
***
*(* 'CALL OUT'!$B$6:$B$6263 > --SUBSTITUTE(*LEFT('TOTAL CALL'!P*$*3,5)*
,".",":") *)*
***
*(* 'CALL OUT'!$B$6:$B$6263 *<=* --SUBSTITUTE(*RIGHT(&#39;TOTAL CALL'!P*$*3,5)
*,".",":") *)*

***
*(* 'CALL OUT'!$D$6:$D$6263 *=* *"Not Connected"* * )*

>> diubah bentuknya menjadi sebaris :
( 'CALL OUT'!$A$6:$A$6263 *=* 'TOTAL CALL'!$B8 )* * **(* 'CALL OUT'!$B$
6:$B$6263 > --SUBSTITUTE(*LEFT('TOTAL CALL'!P*$*3,5)*,".",":") *)* ** **(
* 'CALL OUT'!$B$6:$B$6263 *<=* --SUBSTITUTE(*RIGHT(&#39;TOTAL CALL'!P*$*3,5)*
,".",":") *)* ** **(* 'CALL OUT'!$D$6:$D$6263 *=* *"Not Connected"* * )*

4. meletakkan pada fungsi yang akan digunakan
>> Fungsi yang akan digunakan adalah SumProduct
>> bunyi fungsi SumProduct :
=SumProduct( nilai yang diproses 1 , nilai yang diproses 2 , dst )

>> hanya akan menggunakan nilai yang diproses 1 saja, karena seluruh
kriteria sudah disusun menjadi sebaris dan akan menghasilkan 1 atau 0
akibat dari hasil perkalian setiap perbandingan yang menyusun seluruh
kriteria

>> bentuk SumProduct setelah diberi kriteria :
=*SumProduct(* ( 'CALL OUT'!$A$6:$A$6263 *=* 'TOTAL CALL'!$B8 )* *
**(* 'CALL
OUT'!$B$6:$B$6263 > --SUBSTITUTE(*LEFT('TOTAL CALL'!P*$*3,5)*,".",":") *)
* ** **(* 'CALL OUT'!$B$6:$B$6263 *<=* --SUBSTITUTE(*RIGHT(&#39;TOTAL CALL'!P*
$*3,5)*,".",":") *)* ** **(* 'CALL OUT'!$D$6:$D$6263 *=* *"Not Connected"*
* )* *)*

Selamat mencoba menyusun formula setahap demi setahap.

Wassalam,
Kid.

2013/8/27 Abang Jakarta <abang_jakarta17@yahoo.com>

> **
>
>
> Dear Master Excel,
>
> Mohon penjelasannya kembali ... karena saya masih belum paham ketika
> interval waktu berubah menjadi 09.00 - 12.00, 12.00 - 15.00, 15.00 - 18.00,
> 18.00 - 21.00.
>
> Maaf ya Mr. Kid ... belum ngerti saya .... maaf ya ....
>
> Terimakasih
> Arkan
>
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com>
> *To:* BeExcel <belajar-excel@yahoogroups.com>
> *Sent:* Tuesday, August 20, 2013 9:47 AM
> *Subject:* Re: Fw: [belajar-excel] Menghitung data dan tulisan dengan
> range waktu
>
>
> Hai Arkan,
>
> 1. formula untuk ID di sheet summary adalah array formula. Coba pelajari
> tentang array formula. Slaah satunya ada disini<http://excel-mr-kid.blogspot.com/2011/03/array-formula-kenalan-yuuuk.html>
> .
> 2. data waktu dalam komputer dimulai dari 00:00:00 sampai 9999-12-31
> 23:59:59 artinya,
> >> jika akan menyatakan interval waktu dari jam 7 pagi sampai jam 3 sore
> akan bernilai 07:00 - 15:00
> >> jika akan menyatakan interval dari jam 8 malam hari ini sampai dengan
> jam 5 besok pagi akan bernilai 20:00 - 1900-01-01 05:00:00
> >> jika akan menyatakan interval dari jam 5 pas hari ini sampai sebelum
> jam 5 besok pagi akan bernilai 05:00 - 1900-01-01 04:59:59
> 3. pada sheet Total Call baris 3 berisi interval 09.00 - 12.00 yang
> berarti 9 pagi sampai 12 siang dan seterusnya
> >> untuk interval berbunyi 12.00 - 03.00 tersebut dimaksudkan adalah
> setelah jam 12 siang sampai dengan jam 3 dini hari (sudah berganti hari),
> sedangkan data hanya menyimpan nilai waktu tanpa diketahui harinya, maka
> pada interval ini harus dihitung dengan menjumlahkan hasil 2 interval,
> yaitu setelah 12.00 siang sampai 24:00 ditambahkan dengan setelah 00:00
> sampai 03:00
> >> bagian setelah 12.00 siang sampai 24:00 akan berbunyi : (D3 berisi
> nilai bertipe teks berbunyi 12.00 - 03.00)
> SUMPRODUCT(('CALL IN HT'!$A$6:$A$5880=&#39;TOTAL CALL'!$B4)*('CALL IN
> HT'!$B$6:$B$5880>--SUBSTITUTE(LEFT('TOTAL CALL'!D$3,5),".",":"))*('CALL IN
> HT'!$B$6:$B$5880<="24:00"))
> >> bagian setelah 00:00 sampai 03:00 akan berbunyi : (D3 berisi nilai
> bertipe teks berbunyi 12.00 - 03.00)
> SUMPRODUCT(('CALL IN HT'!$A$6:$A$5880=&#39;TOTAL CALL'!$B4)*('CALL IN
> HT'!$B$6:$B$5880>--"00:00")*('CALL IN
> HT'!$B$6:$B$5880<=--SUBSTITUTE(RIGHT('TOTAL CALL'!D$3,5),".",":")))
> >> maka cell D4 akan memiliki formula berbunyi :
> =SUMPRODUCT(('CALL IN HT'!$A$6:$A$5880=&#39;TOTAL CALL'!$B4)*('CALL IN
> HT'!$B$6:$B$5880>--SUBSTITUTE(LEFT('TOTAL CALL'!D$3,5),".",":"))*('CALL IN
> HT'!$B$6:$B$5880<="24:00"))+SUMPRODUCT(('CALL IN HT'!$A$6:$A$5880=&#39;TOTAL
> CALL'!$B4)*('CALL IN HT'!$B$6:$B$5880>--"00:00")*('CALL IN
> HT'!$B$6:$B$5880<=--SUBSTITUTE(RIGHT('TOTAL CALL'!D$3,5),".",":")))
> 4. sheet Summary tergantung hasil formula di sheet Total, jadi teks
> interval di baris 3 tidak berpengaruh apapun pada formula di sheet summary.
>
> 5. Pada file lampiran yang lalu, diasumsikan interval 09.00 - 12.00
> berarti setelah jam 9 pagi sampai dengan jam 24:00
> >> Sesuaikan formula di sheet Total call dengan nomor 3 jika ada perbedaan
> asumsi antara file lampiran yang lalu dengan yang Anda maksudkan.
>
> Wassalam,
> Kid.
>
>
>
>
>
> 2013/8/20 Abang Jakarta <abang_jakarta17@yahoo.com>
>
> **
>
> Hi Mr.Kid,
>
> Saya coba copy dn meniru rumus yang di call in untuk digunakan di Call Out
> dan Not Connected, tapi koq ga bisa ya .... minta petunjuknya lagi dong....
>
> Pada sheet total call di cell itu ada jamnya 21.00 - 12.00 dst ... kalau
> jamnya diganti dengan waktu pagi 09.01 - 12.00 , 12.01 - 03.00 dst..
> berpengaruh ke rumus ga?
>
> terimakasih
> Arkan
>
> ----- Forwarded Message -----
> *From:* Mr. Kid <mr.nmkid@gmail.com>
> *To:* BeExcel <belajar-excel@yahoogroups.com>
> *Sent:* Friday, August 16, 2013 9:57 PM
> *Subject:* Re: [belajar-excel] Menghitung data dan tulisan dengan range
> waktu
>
>
> Hai Arkan,
>
> Mungkin interval waktu nya diubah menjadi 21.00 - 24.00 00.00 - 03.00
> dst
>
> File terlampir.
>
> Wassalam,
> Kid.
>
>
>
> 2013/8/16 Abang Jakarta <abang_jakarta17@yahoo.com>
>
> **
>
> Dear Master excel,
>
> Mohon pencerahannya.
>
> Pada attachment ini, ada 4 sheet:
> 1) CALL IN
> 2) CALL OUT
> 3) TOTAL CALL
> 4) SUMMARY
>
> Saya bermaksud menghitung setiap aktifitas " ID " pada sheet CALL IN dan
> CALL OUT yang akan muncul pada sheet TOTAL CALL di masing-masing range
> waktu 09.00 -12.00 , 12.00 - 03.00 , 03.00 - 06.00, 06.00 - 09.00.
> Kemudian di Sheet CALL OUT pada kolom REMARKS, setiap kalimat NOT CONNECTED
> dihitung dan dimasukkan pada kolom NOT CONNECTED sesuai dengan range waktu
> pada kolom tersebut.
>
> Dikolom TOTAL CALL (hanya pada CALL IN DAN CALL OUT) dalam range waktu
> tersebut jika setiap ID hanya mempunyai 1 nilai (kurang dari 3) maka akan
> berwarna merah angkanya dan tebal
>
> Pada Sheet SUMMARY menunjukkan 10 aktivitas terbanyak dari masing2 ID pada
> CALL IN, CALL OUT dan NOT CONNECTED
>
> Mohon juga koreksi terhadap rumus yang sudah ada di Sheet TOTAL CALL pada
> bagian CALL IN dan CALL OUT karena nilainya tidak muncul disetiap baris dan
> kalau rumus atau field terisi sampai A 138 kenapa filenya jadi besar ya
> sampai 400 kb lebih, apa ada yang salah?
>
>
> Terimakasih
> Arkan
>
>
>
>
>
>
>
>
>

Tue Aug 27, 2013 7:49 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Saya "merasa" Miss Jan sudah punya jawabannya. Mengapa tidak disharingkan saja? Barangkali akan ada be-Exceller lainnya yang bisa mengembangkannya menjadi 3 dimensi ..... why not?

Hal besar dimulai dari hal-hal kecil layaknya sebuah garis yang dimulai dari sebuah titik......

Salam,
HK 

________________________________
From: Jan Raisin <miss.jan.raisin@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 27 August 2013, 11:56
Subject: Re: Fw: [belajar-excel] Tes Looping For ... Next dan For each ... Next


 
Be-Exceller,

mungkin ada Be-Exceller yang bersedia mencoba mengembangkan untuk pengisian angka (non-duplikasi) ke dalam cel n baris x m kolom
kalo datanya cuma sekolom saja kelihatannya kurang seru nih xixixixi ^_^

kalo bisa sih jumlah baris dan kolomnya diambil dari input box, jadi nanti hasilnya bisa dinamis sesuai keinginan user ^_^

Salam,

-Miss Jan Raisin-

Pada 26 Agustus 2013 16.51, hendrik karnadi <hendrikkarnadi@yahoo.com> menulis:

Ini sekedar tambahan variasi bahwa dengan formula (singkat) ternyata proses juga bisa cepat.
>(Maaf Pak De, pinjam variabelnya).
>
>
>Sub TesIseng()
>    Dim trow, total
>    trow = Timer
>    Range("A1:A100000").Formula = "=Row()"
>    total = Timer - trow
>    Range("B1") = total & " detik"
>End Sub
>
>
>Salam,
>HK

Tue Aug 27, 2013 8:55 am (PDT) . Posted by:

"De Premor" de.premor

masih belum ngerti dengan yang dimaksud mengembangan menjadi 3D, kalau 2
D kan yang pertama baris yang kedua kolom, kalo 3D, yang ketiga apa ya ?

oiya ini buat yang 2D, kolom dan baris suka-suka, asal nga banyak2 dan
betah nungguinnya ajah :D

Sub tes2d()
Dim Data(), Kolom As Long, Baris As Long, tStart As Double
Dim i As Long, j As Long, Counter As Variant

Kolom = InputBox("Mau Sampai Berapa Kolom ?", "Nulis")
Baris = InputBox("Mau Sampai Berapa Baris ?", "Nulis")

If Not WorksheetFunction.IsNumber(Kolom) Or Not
WorksheetFunction.IsNumber(Baris) Then Exit Sub
ReDim Data(1 To Baris, 1 To Kolom)

tStart = Timer
For i = 1 To Baris
For j = 1 To Kolom
Counter = Counter + 1
Data(i, j) = Counter
Next
Next
Range("A1").CurrentRegion.ClearContents
Range("A1", Range("A1").Offset(Baris - 1, Kolom - 1).Address) = Data
MsgBox Timer - tStart & " detik"
End Sub

On 27-08-2013 21:49, hendrik karnadi wrote:
> Saya "merasa" Miss Jan sudah punya jawabannya. Mengapa tidak
> disharingkan saja? Barangkali akan ada be-Exceller lainnya yang bisa
> mengembangkannya menjadi 3 dimensi ..... why not?
>
> Hal besar dimulai dari hal-hal kecil layaknya sebuah garis yang
> dimulai dari sebuah titik......
>
> Salam,
> HK
>
> ----------------------------------------------------------
> *From:* Jan Raisin <miss.jan.raisin@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Tuesday, 27 August 2013, 11:56
> *Subject:* Re: Fw: [belajar-excel] Tes Looping For ... Next dan For
> each ... Next
>
> Be-Exceller,
>
> mungkin ada Be-Exceller yang bersedia mencoba mengembangkan untuk
> pengisian angka (non-duplikasi) ke dalam cel n baris x m kolom
> kalo datanya cuma sekolom saja kelihatannya kurang seru nih xixixixi ^_^
>
> kalo bisa sih jumlah baris dan kolomnya diambil dari input box, jadi
> nanti hasilnya bisa dinamis sesuai keinginan user ^_^
>
> Salam,
>
>
> -Miss Jan Raisin-
>
>
> Pada 26 Agustus 2013 16.51, hendrik karnadi <hendrikkarnadi@yahoo.com
> <mailto:hendrikkarnadi@yahoo.com>> menulis:
>
> Ini sekedar tambahan variasi bahwa dengan formula (singkat)
> ternyata proses juga bisa cepat.
> (Maaf Pak De, pinjam variabelnya).
>
> Sub TesIseng()
> Dim trow, total
> trow = Timer
> Range("A1:A100000").Formula = "=Row()"
> total = Timer - trow
> Range("B1") = total & " detik"
> End Sub
>
> Salam,
> HK
>
>
>
>

Tue Aug 27, 2013 8:59 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

baris :
Range("A1", Range("A1").Offset(Baris - 1, Kolom - 1).Address) = Data

sepertinya bisa :
Range("a1").resize(baris,kolom).value=data

Wassalam,
Kid.

2013/8/27 De Premor <de@premor.net>

> Range("A1", Range("A1").Offset(Baris - 1, Kolom - 1).Address) = Data

Tue Aug 27, 2013 9:05 am (PDT) . Posted by:

"De Premor" de.premor

iya nih, keren :D

Kalau untuk yang 3D kira2 gimana ya Mr. Kid ?

On 27-08-2013 22:59, Mr. Kid wrote:
> baris :
> Range("A1", Range("A1").Offset(Baris - 1, Kolom - 1).Address) = Data
>
> sepertinya bisa :
> Range("a1").resize(baris,kolom).value=data
>
> Wassalam,
> Kid.
>
>
>
> 2013/8/27 De Premor <de@premor.net <mailto:de@premor.net>>
>
> Range("A1", Range("A1").Offset(Baris - 1, Kolom - 1).Address) = Data
>
>
>
>

Tue Aug 27, 2013 10:18 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

3D maksudnya dengan sheet ?

misal ada 3 sheet

Sub tes3d()
Dim Data() as long, Kolom As Long, Baris As Long, tStart As Double
Dim i As Long, j As Long, Counter As Variant, lSht as long

Kolom = InputBox("Mau Sampai Berapa Kolom ?", "Nulis")
Baris = InputBox("Mau Sampai Berapa Baris ?", "Nulis")

If Not WorksheetFunction.IsNumber(Kolom) Or Not
WorksheetFunction.IsNumber(Baris) Then Exit Sub
ReDim Data(1 To Baris, 1 To Kolom)

tStart = Timer
for lsht=1 to 3
For i = 1 To Baris
For j = 1 To Kolom
Counter = Counter + 1
Data(i, j) = Counter
Next j
Next i
sheets(lsht).Range("A1").CurrentRegion.ClearContents
sheets(lsht).Range("A1").resize(Baris, Kolom).value = Data
next lsht
MsgBox Timer - tStart & " detik"
End Sub

misal ada 3 sheet dan ndak urut, tapi nama-namanya sudah diketahui :
Sub tes3d()
Dim Data() as long, Kolom As Long, Baris As Long, tStart As Double
Dim i As Long, j As Long, Counter As Variant, vSht as variant

Kolom = InputBox("Mau Sampai Berapa Kolom ?", "Nulis")
Baris = InputBox("Mau Sampai Berapa Baris ?", "Nulis")

If Not WorksheetFunction.IsNumber(Kolom) Or Not
WorksheetFunction.IsNumber(Baris) Then Exit Sub
ReDim Data(1 To Baris, 1 To Kolom)

tStart = Timer
for each vsht in array("sheet1","sheet5&quot;,"sheetEmbuh","satsitsatsit")
For i = 1 To Baris
For j = 1 To Kolom
Counter = Counter + 1
Data(i, j) = Counter
Next j
Next i
sheets(vsht).Range("A1").CurrentRegion.ClearContents
sheets(vsht).Range("A1").resize(Baris, Kolom).value = Data
next vsht
MsgBox Timer - tStart & " detik"
End Sub

;)

Wassalam,
Kid.

2013/8/27 De Premor <de@premor.net>

> **
>
>
> iya nih, keren :D
>
> Kalau untuk yang 3D kira2 gimana ya Mr. Kid ?
>
>
> On 27-08-2013 22:59, Mr. Kid wrote:
>
>
> baris :
> Range("A1", Range("A1").Offset(Baris - 1, Kolom - 1).Address) = Data
>
> sepertinya bisa :
> Range("a1").resize(baris,kolom).value=data
>
> Wassalam,
> Kid.
>
>
>
> 2013/8/27 De Premor <de@premor.net>
>
>> Range("A1", Range("A1").Offset(Baris - 1, Kolom - 1).Address) = Data
>
>
>
>
>
>

Tue Aug 27, 2013 10:18 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

eh lupa,
baris :
ReDim Data(1 To Baris, 1 To Kolom)

jadi :
ReDim Data(1 To Baris, 1 To Kolom) as long

2013/8/28 Mr. Kid <mr.nmkid@gmail.com>

> 3D maksudnya dengan sheet ?
>
> misal ada 3 sheet
>
> Sub tes3d()
> Dim Data() as long, Kolom As Long, Baris As Long, tStart As Double
> Dim i As Long, j As Long, Counter As Variant, lSht as long
>
>
> Kolom = InputBox("Mau Sampai Berapa Kolom ?", "Nulis")
> Baris = InputBox("Mau Sampai Berapa Baris ?", "Nulis")
>
> If Not WorksheetFunction.IsNumber(Kolom) Or Not
> WorksheetFunction.IsNumber(Baris) Then Exit Sub
> ReDim Data(1 To Baris, 1 To Kolom)
>
> tStart = Timer
> for lsht=1 to 3
> For i = 1 To Baris
> For j = 1 To Kolom
> Counter = Counter + 1
> Data(i, j) = Counter
> Next j
> Next i
> sheets(lsht).Range("A1").CurrentRegion.ClearContents
> sheets(lsht).Range("A1").resize(Baris, Kolom).value = Data
> next lsht
> MsgBox Timer - tStart & " detik"
> End Sub
>
>
> misal ada 3 sheet dan ndak urut, tapi nama-namanya sudah diketahui :
> Sub tes3d()
> Dim Data() as long, Kolom As Long, Baris As Long, tStart As Double
> Dim i As Long, j As Long, Counter As Variant, vSht as variant
>
>
> Kolom = InputBox("Mau Sampai Berapa Kolom ?", "Nulis")
> Baris = InputBox("Mau Sampai Berapa Baris ?", "Nulis")
>
> If Not WorksheetFunction.IsNumber(Kolom) Or Not
> WorksheetFunction.IsNumber(Baris) Then Exit Sub
> ReDim Data(1 To Baris, 1 To Kolom)
>
> tStart = Timer
> for each vsht in array("sheet1","sheet5&quot;,"sheetEmbuh","satsitsatsit")
> For i = 1 To Baris
> For j = 1 To Kolom
> Counter = Counter + 1
> Data(i, j) = Counter
> Next j
> Next i
> sheets(vsht).Range("A1").CurrentRegion.ClearContents
> sheets(vsht).Range("A1").resize(Baris, Kolom).value = Data
> next vsht
> MsgBox Timer - tStart & " detik"
> End Sub
>
> ;)
>
> Wassalam,
> Kid.
>
>
>
>
> 2013/8/27 De Premor <de@premor.net>
>
>> **
>>
>>
>> iya nih, keren :D
>>
>> Kalau untuk yang 3D kira2 gimana ya Mr. Kid ?
>>
>>
>> On 27-08-2013 22:59, Mr. Kid wrote:
>>
>>
>> baris :
>> Range("A1", Range("A1").Offset(Baris - 1, Kolom - 1).Address) = Data
>>
>> sepertinya bisa :
>> Range("a1").resize(baris,kolom).value=data
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>> 2013/8/27 De Premor <de@premor.net>
>>
>>> Range("A1", Range("A1").Offset(Baris - 1, Kolom - 1).Address) = Data
>>
>>
>>
>>
>>
>>
>
>

Tue Aug 27, 2013 5:11 pm (PDT) . Posted by:

"De Premor" de.premor

Oh tiga dimensinya begitu ya, saya pikir seperti
array(mendatar,tegak,kedalaman), dan bisa sekali lempar ke workbook
seperti yang terjadi pada array 2D

Terima kasih ilmunya Mr. Kid

On 28-08-2013 0:18, Mr. Kid wrote:
> eh lupa,
> baris :
> ReDim Data(1 To Baris, 1 To Kolom)
>
> jadi :
> ReDim Data(1 To Baris, 1 To Kolom) as long
>
>
>
> 2013/8/28 Mr. Kid <mr.nmkid@gmail.com <mailto:mr.nmkid@gmail.com>>
>
> 3D maksudnya dengan sheet ?
>
> misal ada 3 sheet
>
> Sub tes3d()
> Dim Data() as long, Kolom As Long, Baris As Long, tStart As Double
> Dim i As Long, j As Long, Counter As Variant, lSht as long
>
>
> Kolom = InputBox("Mau Sampai Berapa Kolom ?", "Nulis")
> Baris = InputBox("Mau Sampai Berapa Baris ?", "Nulis")
>
> If Not WorksheetFunction.IsNumber(Kolom) Or Not
> WorksheetFunction.IsNumber(Baris) Then Exit Sub
> ReDim Data(1 To Baris, 1 To Kolom)
>
> tStart = Timer
> for lsht=1 to 3
> For i = 1 To Baris
> For j = 1 To Kolom
> Counter = Counter + 1
> Data(i, j) = Counter
> Next j
> Next i
> sheets(lsht).Range("A1").CurrentRegion.ClearContents
> sheets(lsht).Range("A1").resize(Baris, Kolom).value = Data
> next lsht
> MsgBox Timer - tStart & " detik"
> End Sub
>
>
> misal ada 3 sheet dan ndak urut, tapi nama-namanya sudah diketahui :
> Sub tes3d()
> Dim Data() as long, Kolom As Long, Baris As Long, tStart As Double
> Dim i As Long, j As Long, Counter As Variant, vSht as variant
>
>
> Kolom = InputBox("Mau Sampai Berapa Kolom ?", "Nulis")
> Baris = InputBox("Mau Sampai Berapa Baris ?", "Nulis")
>
> If Not WorksheetFunction.IsNumber(Kolom) Or Not
> WorksheetFunction.IsNumber(Baris) Then Exit Sub
> ReDim Data(1 To Baris, 1 To Kolom)
>
> tStart = Timer
> for each vsht in
> array("sheet1","sheet5&quot;,"sheetEmbuh","satsitsatsit")
> For i = 1 To Baris
> For j = 1 To Kolom
> Counter = Counter + 1
> Data(i, j) = Counter
> Next j
> Next i
> sheets(vsht).Range("A1").CurrentRegion.ClearContents
> sheets(vsht).Range("A1").resize(Baris, Kolom).value = Data
> next vsht
> MsgBox Timer - tStart & " detik"
> End Sub
>
> ;)
>
> Wassalam,
> Kid.
>
>
>
>
> 2013/8/27 De Premor <de@premor.net <mailto:de@premor.net>>
>
> iya nih, keren :D
>
> Kalau untuk yang 3D kira2 gimana ya Mr. Kid ?
>
>
>
> On 27-08-2013 22:59, Mr. Kid wrote:
>> baris :
>> Range("A1", Range("A1").Offset(Baris - 1, Kolom - 1).Address)
>> = Data
>>
>> sepertinya bisa :
>> Range("a1").resize(baris,kolom).value=data
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>> 2013/8/27 De Premor <de@premor.net <mailto:de@premor.net>>
>>
>> Range("A1", Range("A1").Offset(Baris - 1, Kolom -
>> 1).Address) = Data
>>
>>
>>
>
>
>
>

Tue Aug 27, 2013 6:32 pm (PDT) . Posted by:

"Jan Raisin"

���������� ���������� ���������� ����� �������������
mr Kid,

kodenya mantap.. memberikan pencerahan untuk Jan,
selama ini masih bingung gimana caranya memindahkan dimensi ketiga ke
setiap sheet yang berbeda [?]
ternyata dimensi ketiganya ditaruh di loop yang paling luar xixixixi ^_^

���������� ���������� ���������� ����� �������������

-Miss Jan Raisin-

2013/8/28 Mr. Kid <mr.nmkid@gmail.com>

> **
>
>
> eh lupa,
> baris :
>
> ReDim Data(1 To Baris, 1 To Kolom)
>
> jadi :
> ReDim Data(1 To Baris, 1 To Kolom) as long
>
>
>
> 2013/8/28 Mr. Kid <mr.nmkid@gmail.com>
>
> 3D maksudnya dengan sheet ?
>>
>> misal ada 3 sheet
>>
>> Sub tes3d()
>> Dim Data() as long, Kolom As Long, Baris As Long, tStart As Double
>> Dim i As Long, j As Long, Counter As Variant, lSht as long
>>
>>
>> Kolom = InputBox("Mau Sampai Berapa Kolom ?", "Nulis")
>> Baris = InputBox("Mau Sampai Berapa Baris ?", "Nulis")
>>
>> If Not WorksheetFunction.IsNumber(Kolom) Or Not
>> WorksheetFunction.IsNumber(Baris) Then Exit Sub
>> ReDim Data(1 To Baris, 1 To Kolom)
>>
>> tStart = Timer
>> for lsht=1 to 3
>> For i = 1 To Baris
>> For j = 1 To Kolom
>> Counter = Counter + 1
>> Data(i, j) = Counter
>> Next j
>> Next i
>> sheets(lsht).Range("A1").CurrentRegion.ClearContents
>> sheets(lsht).Range("A1").resize(Baris, Kolom).value = Data
>> next lsht
>> MsgBox Timer - tStart & " detik"
>> End Sub
>>
>>
>> misal ada 3 sheet dan ndak urut, tapi nama-namanya sudah diketahui :
>> Sub tes3d()
>> Dim Data() as long, Kolom As Long, Baris As Long, tStart As Double
>> Dim i As Long, j As Long, Counter As Variant, vSht as variant
>>
>>
>> Kolom = InputBox("Mau Sampai Berapa Kolom ?", "Nulis")
>> Baris = InputBox("Mau Sampai Berapa Baris ?", "Nulis")
>>
>> If Not WorksheetFunction.IsNumber(Kolom) Or Not
>> WorksheetFunction.IsNumber(Baris) Then Exit Sub
>> ReDim Data(1 To Baris, 1 To Kolom)
>>
>> tStart = Timer
>> for each vsht in array("sheet1","sheet5&quot;,"sheetEmbuh","satsitsatsit")
>> For i = 1 To Baris
>> For j = 1 To Kolom
>> Counter = Counter + 1
>> Data(i, j) = Counter
>> Next j
>> Next i
>> sheets(vsht).Range("A1").CurrentRegion.ClearContents
>> sheets(vsht).Range("A1").resize(Baris, Kolom).value = Data
>> next vsht
>> MsgBox Timer - tStart & " detik"
>> End Sub
>>
>> ;)
>>
>> Wassalam,
>> Kid.
>>
>

Tue Aug 27, 2013 7:08 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Akhirnya tercapai juga 3 dimensinya... padahal waktu ngomong 3 dimensi saya juga belum tahu dimensi ke 3 nya apa ... ha ha ha

Salam,
HK

----- Forwarded Message -----
From: Jan Raisin <miss.jan.raisin@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 27 August 2013, 18:32
Subject: Re: Fw: [belajar-excel] Tes Looping For ... Next dan For each ... Next


 
السَّلاَÙ…ُ عَÙ„َÙŠْÙƒُÙ…ْ ÙˆَرَØ­ْÙ…َØ©ُ اللهِ ÙˆَبَرَÙƒَاتُÙ‡ُ
mr Kid, 

kodenya mantap.. memberikan pencerahan untuk Jan,
selama ini masih bingung gimana caranya memindahkan dimensi ketiga ke setiap sheet yang berbeda 
ternyata dimensi ketiganya ditaruh di loop yang paling luar xixixixi ^_^

ÙˆَسَّلاَÙ…ُ عَÙ„َÙŠْÙƒُÙ…ْ ÙˆَرَØ­ْÙ…َØ©ُ اللهِ ÙˆَبَرَÙƒَاتُÙ‡ُ

-Miss Jan Raisin-

2013/8/28 Mr. Kid <mr.nmkid@gmail.com>

> 
>eh lupa,
>baris :
>
>ReDim Data(1 To Baris, 1 To Kolom)
>
>jadi :
>ReDim Data(1 To Baris, 1 To Kolom) as long
>
>
>
>
>
>
>2013/8/28 Mr. Kid <mr.nmkid@gmail.com>
>
>
>3D maksudnya dengan sheet ?
>>
>>misal ada 3 sheet
>>
>>Sub tes3d()
>>    Dim Data() as long, Kolom As Long, Baris As Long, tStart As Double
>>    Dim i As Long, j As Long, Counter As Variant, lSht as long
>>
>>   
>>    Kolom = InputBox("Mau Sampai Berapa Kolom ?", "Nulis")
>>    Baris = InputBox("Mau Sampai Berapa Baris ?", "Nulis")
>>   
>>    If Not WorksheetFunction.IsNumber(Kolom) Or Not
WorksheetFunction.IsNumber(Baris) Then Exit Sub
>>    ReDim Data(1 To Baris, 1 To Kolom)
>>   
>>    tStart = Timer
>>    for lsht=1 to 3
>>
>>       For i = 1 To Baris
>>         For j = 1 To Kolom
>>            Counter = Counter + 1
>>            Data(i, j) = Counter
>>
         Next j
>>       Next i
>>       sheets(lsht).Range("A1").CurrentRegion.ClearContents
>>       sheets(lsht).Range("A1").resize(Baris, Kolom).value = Data
>>
>>    next lsht
>>
>>    MsgBox Timer - tStart & " detik"
>>End Sub
>>
>>
>>
>>misal ada 3 sheet dan ndak urut, tapi nama-namanya sudah diketahui :
>>Sub tes3d()
>>    Dim Data() as long, Kolom As Long, Baris As Long, tStart As Double
>>    Dim i As Long, j As Long, Counter As Variant, vSht as variant
>>
>>   
>>    Kolom = InputBox("Mau Sampai Berapa Kolom ?", "Nulis")
>>    Baris = InputBox("Mau Sampai Berapa Baris ?", "Nulis")
>>   
>>    If Not WorksheetFunction.IsNumber(Kolom) Or Not
WorksheetFunction.IsNumber(Baris) Then Exit Sub
>>    ReDim Data(1 To Baris, 1 To Kolom)
>>   
>>    tStart = Timer
>>    for each vsht in array("sheet1","sheet5&quot;,"sheetEmbuh","satsitsatsit")
>>
>>       For i = 1 To Baris
>>         For j = 1 To Kolom
>>            Counter = Counter + 1
>>            Data(i, j) = Counter
>>
         Next j
>>       Next i
>>       sheets(vsht).Range("A1").CurrentRegion.ClearContents
>>       sheets(vsht).Range("A1").resize(Baris, Kolom).value = Data
>>
>>    next vsht
>>
>>    MsgBox Timer - tStart & " detik"
>>End Sub
>>
>>;)
>>
>>
>>Wassalam,
>>
>>Kid.

Tue Aug 27, 2013 8:02 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Oh file vba Input Picture ya...

File tersebut menggunakan methods addpicture. Hal ini akan membuat linked
image ke file image-nya. Jadi, yang disimpan oleh Excel (xl2007 keatas
dalam xml-nya) adalah teks alamat si file saja. Ketika gambar yang akan
di-load memiliki ukuran yang besar, maka file excel akan tetap pada kecil
karena tidak menyimpan gambar dalam workbook. Biasanya hal ini digunakan
untuk memelihara agar file gambar tidak tersebar kemanapun selain dalam
komputer tersebut atau dalam jaringan instansi tersebut saja.

Jika ingin membuat si file gambar disimpan dalam workbook, sehingga bisa
dibuka dikomputer lain atau di luar jaringan komputer instansi, maka yang
digunakan mestinya methods AddShape. Jenis shape-nya bisa bermacam-macam,
seperti rounded rectangle atau apa saja yang dibutuhkan. Kemudian shape
baru tersebut diisi (fill) dengan gambar milik user (userpicture) berdasar
teks alamat si gambar.
Contoh :
dim shp as shape
set shp=activesheet.shapes.addshape(msoshaperectangle)
shp.fill.userpicture="G:\mydata&#92;myimage1.jpg"

Silakan coba versi baru dari input picture, terutama pada sheet yang ada
teks berbunyi '_save_in_media'. File tersebut bisa diunduh
disini<https://app.box.com/s/vp8lqos5zq0gb4kx94i6>
.

Wassalam,
Kid.

2013/8/27 agung aldhino <d_nozz@yahoo.co.id>

> **
>
>
> Mr Kid,
> saya sudah mencoba salah satu file macro milik Mr Kid. tapi setelah jadi,
> akan coba saya kirim melalui email.
> kenapa kok image/foto nya tidak nongol ya.... tapi jika dikirim via email
> berikut data file imagenya, hasilnya bisa muncul.
> maksudnya, file tersebut selalu nge-link ke file imagenya. walaupun code
> macro sudah saya hapus semuanya.
> mungkin gambar berikut bisa menjelaskan maksudnya. bagaimana cara
> mengatasinya?
>
> *Dari:* Mr. Kid <mr.nmkid@gmail.com>
> *Kepada:* BeExcel <belajar-excel@yahoogroups.com>
> *Dikirim:* Senin, 26 Agustus 2013 20:31
> *Judul:* Re: [belajar-excel] Otomatisasi Format Object foto di MS Excel
> 2007
> **
>
> Thread ini sudah lama tapi belum ada yang menyentuh.**
> Moga-moga langkah berikut ini ndak membingungkan (xl2007, mungkin bisa di
> xl2003)
> 1. save as workbook dengan save as type dipilih Macro Enabled Workbook
> (.xlsm) atau Excel 97-2003 (.xls)
> 2. ke VBE (ALT F11)
> 3. buat sebuah general module (menu Insert -> module)
> 4. copas prosedur berikut :
> public sub AturFormatShape()
> dim vShp as variant, shp as shape
> vshp=selection
> if vartype(vshp)<>vbobject then 'cek, kalo bukan object, keluar saja
> exit sub
> endif**
> 'sampai sini pastilah object
> set shp=activesheet.shapes(vshp.name) 'simpan si shape
> with shp 'kerja di shape
> 'a. bingkai garis 2 pt merah
> with .line 'kerja pada garisnya
> .dashstyle=msolinesolid
> .style=msolinesingle
> .weight=2 '2pt
> .forecolor.schemecolor=2 'indeks warna merah
> end with**
> 'b. lengkung di sudut (rounded rectangle)
> .autoshapetype=msoshaperoundedrectangle**
> 'c. yang kiri jadi kanan dan yang kanan jadi kiri (flip horizontal)
> .flip msofliphorizontal
> end with
> end sub**
>
> 5. kembali ke workbook window (tekan ALT F11)
> 6. atur shortcut (tekan ALT F8 -> pilih nama prosedur, yaitu
> AturFormatShape -> tekan Option -> bagian Shortcut key diisi huruf q -> OK
> -> Cancel)
> 7. save workbook
> 8. klik sebuah shape -> tekan CTRL Q
>
> Wassalam,
> Kid.**
> ****
> 2013/8/23 <agung.widodo01@id.panasonic.com>**
>
> **
>
> Rekans Be-Excel,****
> ** **
> Newbie di Excel 2007 sering melakukan hal ini jadi ingin membuat
> otomatisasi langkah****
> (dengan tombol yang mengaktifkan makro dengan shortcut Ctl+q) untuk
> perintah formatting obyek yang dipilih sebagai berikut,****
>
> 1. Setelah saya select Foto (yang sudah diinsert ke lembar kerja Excel)
> ****
> 2. Saya tekan Ctrl+q****
> 3. maka Foto yang dipilih dilangkah 1 akan :****
> 1. Menjadi berbingkai garis 2pts warna merah****
> 2. Ada lengkung radius di tiap sudutnya****
> 3. Foto berubah dalam format negatif (rotate 180derajat, kanan jadi
> dikiri, kiri ada dikanan)****
>
> ** **
> ** **
> Bagaimana macro atau sampel filenya.?****
> Untuk otomatisasi data di spreadsheet sederhana, namun saya kesulitan saat
> membuat otomatisasi langkah2 tersebut pada foto.****
> ** **
> Kiranya ada yang bisa membantu membuatkan.****
> Lebih diharapkan dikirim dengan lampiran berisi makronya, foto bebas****
> ** **
> Terimakasih banyak.****
> ** **
> Wassalam****
> AW.****
>
> **
> ****
>
> _
>

Tue Aug 27, 2013 8:32 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

"ia kayanya ada kesalahan di Excelnya"

imo,
ketika Excel menyatakan bahwa nilai terkecil dan terbesar yang bisa
diterima atau dikalkulasi adalah begini dan begitu, sebenarnya ada 2
pertanyaan besar tentang batasan tersebut, yaitu :
1. kenapa dibatasi (bayangkan, bagaimana menulis 1/3 jika tidak dibatasi)
2. bagaimana cara menyimpan nilainya (bayangkan, bagaimana cara menyimpan
1/3 tersebut dalam komputer)

dari 2 pertanyaan itu, nantinya akan mengarah pada informasi datatype yang
digunakan oleh Excel.

Sebuah object cell memiliki properi bernama value yang bertype variant.
Artinya, cell bisa menyimpan berbagai tipe data. Ketika diisi teks, maka
tipe datanya akan menjadi string atau unsigned char. Ketika diisi bilangan
bulat umumnya akan bertype long dan untuk yang lebih dari batasan long,
akan disimpan dengan type data double. Bilangan yang ada angka dibelakang
komanya, akan disimpan dengan double.

Ketika sudah menyinggung type double, maka akan hadir batasan bernama
floating point.
Ketika melakukan operasi matematis pada setiap nilai dalam cell, maka akan
hadir batasan bernama floating point.
Floating point tidak hanya ada di Excel, tapi dimana saja alat hitung
berada. Floating point berhubungan dengan cara mengubah suatu nilai
bilangan decimal ke bilangan biner.

Pengolah data apapun yang menggunakan komputer mestinya telah memahami akan
hal ini. Oleh sebab itu harus segera terpikirkan batasan nilai data yang
diolahnya, seperti berapa digit dibelakang koma maksimal yang akan
digunakan dalam pengolahan data. Misal untuk kebutuhan engineering, sekitar
6 atau 7 angka dibelakang koma harus dijaga ada. Untuk kegiatan yang
berhubungan dengan uang, bisa dengan 4 digit dibelakang koma atau malah
cukup 2 digit saja.

Dari batasan yang telah ditentukan inilah nantinya proses pengolahan data
yang berupa operasi matematis, apalagi proses perbandingan antar nilai akan
menuntut proses pembulatan nilai sampai tingkat ketelitian nilai data yang
ditentukan untuk data tersebut. Dari sini, akan muncul dengan sendirinya
kebutuhan penggunaan fungsi-fungsi untuk membulatkan seperti Round, Trunc,
Int, dan sebagainya.

Jadi, kesalahan bukan pada Excel-nya, karena Excel sudah memberikan begitu
banyak informasi tentang keterbatasan yang ada pada dirinya.

Wassalam,
Kid.

2013/8/27 Shenly <shenly_excelmania@yahoo.co.id>

> ia kayanya ada kesalahan di Excelnya Mis.Jan..

Tue Aug 27, 2013 8:46 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

File terlampir menggunakan fungsi VLookUp.

Wassalam,
Kid.

2013/8/26 Prodev SIMPLE PB <prodev_simple@yahoo.com>

> **
>
>
> Assalamu'alaikum Wr. Wb.
>
> Dear Master & Member yang baik hati...
> Mohon pencerahannya nih...memanfaatkan fungsi Lookup dari data dinamis.
> Sebelumnya sudah pernah dicontohkan....dikasih solusi...
> tapi,
> koq masih belum mudheng ya waktu implementasi sendiri :)
> Mohon koreksi & solusinya.
>
> Terima kasih.
> Wassalamu'alaikum Wr. Wb.
>
>
>

Tue Aug 27, 2013 10:29 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Wa'alaikumussalam Wr. Wb.

Coba file terlampir.

Wassalamu'alaikum Wr. Wb.
Kid.

2013/8/27 Sms Ticketing <sms_ticketing@yahoo.com>

> **
>
>
> the mailing list yet. السلام عليكم ورحمة الله وبركاته
>
> perkenalkan beexceller
>
> sy mau mint tolg, bgmana cara mencari kata tertentu pada cell u/ dipisah k
> cell tersendiri
>
> 1. jd dalam 1 sel berisi banyak nama akan tetapi contact person@ cukup 1
> sj yaitu kita keluarkan no HP dgn format no adlh 08XXXX
> no HP ini selalu berada d baris paling akhir & antara nama dgn no HP
> dipisah dgn tanda titik
>
> 2. kemudian bagaimana menentukan jumlah orang yg ada dalam sel tsb, untuk
> memisah antara nama dgn tanda koma
>
>
>
> misal: 1. Mr Ahmad Shalihin, 2. Mr Agung Hadi, 3. Ms Andina
> Faliha.08123456789
>
> yg di kehendaki : jumlah orang = 3 & no HP contact person ke 3 org tsb
> adalah 08123456789
>
>
> misal: 1. Ms Anisa Fatma-13jan1984, 2. Ms Nur Fitria-27jun2010.08111112222
>
> yg dikehendaki :
> 1. jumlah orang = 2
> 2. kategori orng berdasar umur = 1 dewasa & 1 balita
> 3. bhwa anisa fatma tgl lahir@ 13 jan 1984
>
> atas reply-@ sy haturkan beribu terima kasih
>
> mr. abou
>
>
>

Tue Aug 27, 2013 6:40 pm (PDT) . Posted by:

"prazt math" praztmath

Thk's para master trutma mr.kid, mr.hendrik, ms jan yg tlah mebantu shingga
masalah jd teratasi hehehe...wassalam.
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
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
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 19.08

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)