Senin, 29 September 2014

[belajar-excel] Digest Number 3113

13 Messages

Digest #3113
1
VB Worksheet_Change by "Darwis Arief" d_arief72
2a
Re: MonteCarlo [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
2b
Re: MonteCarlo by "lkm jktind" lkmjkt
2c
Cara menghapus data terakhir by "Danu Purboyo" danu.purboyo
2d
Re: Cara menghapus data terakhir by "Hendrik Karnadi" hendrikkarnadi
2e
Re: Cara menghapus data terakhir by "Danu Purboyo" danu.purboyo
2f
Re: Cara menghapus data terakhir by "hendrik karnadi" hendrikkarnadi
3a
jumlah userform dlm 1 file by "yudha" cahayaoptikmandiri
3b
Re: jumlah userform dlm 1 file by "Mr. Kid" nmkid.family@ymail.com
4a
Re: Variabel VBA by "Nang Agus"
7a
Re: Memindahkan data ke sheet yang baru by "hendrik karnadi" hendrikkarnadi

Messages

Sun Sep 28, 2014 4:07 am (PDT) . Posted by:

"Darwis Arief" d_arief72

Aslm,
Yang saya banggakan teman2 di Forum ini.
Saya punya VB hasil copas dari internet sbb:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim ws As Worksheet
Dim str As String
Dim i As Integer
Dim rngDV As Range
Dim rng As Range

If Target.Count > 1 Then Exit Sub
Set ws = Worksheets("LIST_KPL")

If Target.Row > 1 Then
On Error Resume Next
Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo 0
If rngDV Is Nothing Then Exit Sub

If Intersect(Target, rngDV) Is Nothing Then Exit Sub

str = Target.Validation.Formula1
str = Right(str, Len(str) - 1)
On Error Resume Next
Set rng = ws.Range(str)
On Error GoTo 0
If rng Is Nothing Then Exit Sub

If Application.WorksheetFunction _
.CountIf(rng, Target.Value) Then
Exit Sub
Else
i = ws.Cells(Rows.Count, rng.Column).End(xlUp).Row + 1
ws.Cells(i, rng.Column).Value = Target.Value
rng.Sort Key1:=ws.Cells(1, rng.Column), _
Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If

End If

End Sub

Hasilnya sih sdh jalan, tapi saya ingin lagi menambahkan lagi Event Change di kolom yang sama, dgn ignin bertanya seperti di file terlampir.

Terima kasih sebelumnya.
Wassalam,
d_arief

Sun Sep 28, 2014 6:41 am (PDT) . Posted by:

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

RandBetween adalah fungsi untuk menggenerate suatu nilai secara acak pada
rentang nilai tertentu. Fungsi ini bersifat volatile. Artinya, dimanapun
ada proses refresh oleh Excel, maka fungsi ini akan dikalkulasi ulang,
sehingga hasilnya akan selalu diperbarui. Karena penghasil nilai acak, maka
hasilnya akan selalu berubah.

Proses simulasi yang menuntut iterasi (hasil yang lalu menjadi inputan agar
bisa menghasilkan nilai baru ditempat yang sama), tidak dapat optimal jika
ada variabel yang dipengaruhi oleh proses bilangan acak.

Untuk simulasi, biasanya sumber data acak digenerate menggunakan VBA dan
bukan dengan fungsi bawaan Excel. Dengan demikian, pengacakan nilai sumber
data simulasi bisa konstan selama simulasi.

Pada kasus yang Anda utarakan, cukup aneh jika nilai acak digenerate untuk
tanggal ke-1, kemudian saat akan mengkomputasi tanggal ke-2 nilainya sudah
berubah. Bukankah simulasi per perjalanan waktu (misal harian) menuntut
nilai harian akan tetap dan membentuk suatu histori? Jika akan mencoba
dengan nilai lain, maka seluruh nilai data dari hari ke-1 sampai hari ke-n
bisa digenerate ulang.

Wassalam,
Kid.

2014-09-28 19:45 GMT+10:00 lkm jktind lkmjktind@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> File ini dari Ibu Anisa . (hanya sebagian saja )
>
> VBA hanya digunakan untuk mengisi Kolom H dan I ---- selanjutnya hasil
> di pindahkan ke sheet OUTPUT.
>
> Persoalannya : didalam terkandung formula : Randbetween -- di kolom D
> , J dan L
>
> Ketika VBA di jalan kan . --- benar sih kondisinya Gxxx < 122500
> ----------- tapi kadang kadang . di kolom berikut nya --------
> nilai yang semula Gxxx < 122500 --- menjadi Gxxx > 122500 ???
>
> Sebenarnya RANDBTWEEN --- ini untuk apa ?
>
> dalam kondisi normal saja . -------------- selama RandBtween --- masih on
> --- di rubah nilainya di kolom apa saja ---- akan merubah nilai di dalam
> file .
>
> Salam
>
> Lukman
>
>
>
>
>

Sun Sep 28, 2014 9:05 am (PDT) . Posted by:

"lkm jktind" lkmjkt

Pak Kid :

Pada kasus yang Anda utarakan, cukup aneh jika nilai acak digenerate untuk
tanggal ke-1, kemudian saat akan mengkomputasi tanggal ke-2 nilainya sudah
berubah ---- saya tidak dapat menjawab --- biarkan bu anita menjelaskan
sendiri.

ini merupakan kisah bersambung :
https://mail.google.com/mail/u/0/?ui=2&pli=1#inbox/1488d98d8efe1085
https://mail.google.com/mail/u/0/?ui=2&pli=1#inbox/1489db2b4e0e65df

sedangkan untuk : Bukankah simulasi per perjalanan waktu (misal harian)
menuntut nilai harian akan tetap dan membentuk suatu histori? ---- > saya
setuju ------- yg paling sulit adalah menentukan kapan sebagai awal
periode. dan akhir periode .
bila salah ---- maka tidak akan mendapatkan pola pengulangannya. < sama
dengan tecnikal analis >

yg bagian diatas : sebagian besar saya sudah mengerti : hanya ini :
C12 = =SUMPRODUCT((K$10:K11+A$10:A11=A12)*I$10:I11)
C421 = =SUMPRODUCT((K$10:K430+A$10:A430=A431)*I$10:I430)
sumproduct diatas itu ---- untuk mencari apa ?

saya akan coba : sebagian besar dari worksheet itu mengunakan formula di
VBA

Terima Kasih Pak

Salam

Lukman

.

2014-09-28 20:40 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> RandBetween adalah fungsi untuk menggenerate suatu nilai secara acak pada
> rentang nilai tertentu. Fungsi ini bersifat volatile. Artinya, dimanapun
> ada proses refresh oleh Excel, maka fungsi ini akan dikalkulasi ulang,
> sehingga hasilnya akan selalu diperbarui. Karena penghasil nilai acak, maka
> hasilnya akan selalu berubah.
>
> Proses simulasi yang menuntut iterasi (hasil yang lalu menjadi inputan
> agar bisa menghasilkan nilai baru ditempat yang sama), tidak dapat optimal
> jika ada variabel yang dipengaruhi oleh proses bilangan acak.
>
> Untuk simulasi, biasanya sumber data acak digenerate menggunakan VBA dan
> bukan dengan fungsi bawaan Excel. Dengan demikian, pengacakan nilai sumber
> data simulasi bisa konstan selama simulasi.
>
> Pada kasus yang Anda utarakan, cukup aneh jika nilai acak digenerate untuk
> tanggal ke-1, kemudian saat akan mengkomputasi tanggal ke-2 nilainya sudah
> berubah. Bukankah simulasi per perjalanan waktu (misal harian) menuntut
> nilai harian akan tetap dan membentuk suatu histori? Jika akan mencoba
> dengan nilai lain, maka seluruh nilai data dari hari ke-1 sampai hari ke-n
> bisa digenerate ulang.
>
> Wassalam,
> Kid.
>
>
>
>
> 2014-09-28 19:45 GMT+10:00 lkm jktind lkmjktind@gmail.com [belajar-excel]
> <belajar-excel@yahoogroups.com>:
>
>
>>
>> File ini dari Ibu Anisa . (hanya sebagian saja )
>>
>> VBA hanya digunakan untuk mengisi Kolom H dan I ---- selanjutnya
>> hasil di pindahkan ke sheet OUTPUT.
>>
>> Persoalannya : didalam terkandung formula : Randbetween -- di kolom
>> D , J dan L
>>
>> Ketika VBA di jalan kan . --- benar sih kondisinya Gxxx < 122500
>> ----------- tapi kadang kadang . di kolom berikut nya --------
>> nilai yang semula Gxxx < 122500 --- menjadi Gxxx > 122500 ???
>>
>> Sebenarnya RANDBTWEEN --- ini untuk apa ?
>>
>> dalam kondisi normal saja . -------------- selama RandBtween --- masih
>> on --- di rubah nilainya di kolom apa saja ---- akan merubah nilai di
>> dalam file .
>>
>> Salam
>>
>> Lukman
>>
>>
>>
>>
>
>

Sun Sep 28, 2014 7:21 pm (PDT) . Posted by:

"Danu Purboyo" danu.purboyo

Kakak semua...

Tanya donk...
Cara menghapus data terakhir gimana yah?
Kadang itu berpengaruh ke besaran file soalnya..

Kalo misalnya kita kelepasan pencet ctrl+down kadang dia nyampe ujung tuh..
Dan membuat file kita bertambah besar, walaupun tidak ada isinya...

Saya sudah coba Ctrl+end lalu pencet delete, tapi kok ngga ngaruh yah?
Kalo saya Ctrl+end lagi dia larinya tetep di yg ujung itu..

Tolong dibantu kakaaaaak...

Thx
dn

Sun Sep 28, 2014 8:20 pm (PDT) . Posted by:

"Hendrik Karnadi" hendrikkarnadi

Hai Danu,
Sdh coba delete row atau kolom kosong?

Salam,
HK

Sent from Samsung Mobile

<div>-------- Original message --------</div><div>From: "Danu Purboyo danu.purboyo@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> </div><div>Date:29/09/2014 09:07 (GMT+07:00) </div><div>To: belajar-excel@yahoogroups.com </div><div>Subject: [belajar-excel] Cara menghapus data terakhir </div><div>
</div>Kakak semua...

Tanya donk...
Cara menghapus data terakhir gimana yah?
Kadang itu berpengaruh ke besaran file soalnya..

Kalo misalnya kita kelepasan pencet ctrl+down kadang dia nyampe ujung tuh..
Dan membuat file kita bertambah besar, walaupun tidak ada isinya...

Saya sudah coba Ctrl+end lalu pencet delete, tapi kok ngga ngaruh yah?
Kalo saya Ctrl+end lagi dia larinya tetep di yg ujung itu..

Tolong dibantu kakaaaaak...

Thx
dn

Mon Sep 29, 2014 1:35 am (PDT) . Posted by:

"Danu Purboyo" danu.purboyo

Deletenya pencet delete?
Atau di block terus di cut?

Thx
dn

--------------------------------------------
On Mon, 9/29/14, Hendrik Karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

Subject: Re: [belajar-excel] Cara menghapus data terakhir
To: belajar-excel@yahoogroups.com
Date: Monday, September 29, 2014, 10:21 AM


 









Hai Danu,Sdh coba delete row
atau kolom kosong?
Salam,HK

Sent from Samsung
Mobile

-------- Original message
--------From: "Danu Purboyo
danu.purboyo@yahoo.com [belajar-excel]"
Date:29/09/2014 09:07 (GMT+07:00) To:
belajar-excel@yahoogroups.com Subject:
[belajar-excel] Cara menghapus data terakhir

 






Kakak semua...



Tanya donk...

Cara menghapus data terakhir gimana yah?

Kadang itu berpengaruh ke besaran file soalnya..



Kalo misalnya kita kelepasan pencet ctrl+down kadang dia
nyampe ujung tuh..

Dan membuat file kita bertambah besar, walaupun tidak ada
isinya...



Saya sudah coba Ctrl+end lalu pencet delete, tapi kok ngga
ngaruh yah?

Kalo saya Ctrl+end lagi dia larinya tetep di yg ujung

itu..



Tolong dibantu kakaaaaak...



Thx

dn
























#yiv7784291301 #yiv7784291301 --
#yiv7784291301ygrp-mkp {
border:1px solid #d8d8d8;font-family:Arial;margin:10px
0;padding:0 10px;}

#yiv7784291301 #yiv7784291301ygrp-mkp hr {
border:1px solid #d8d8d8;}

#yiv7784291301 #yiv7784291301ygrp-mkp #yiv7784291301hd {
color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}

#yiv7784291301 #yiv7784291301ygrp-mkp #yiv7784291301ads {
margin-bottom:10px;}

#yiv7784291301 #yiv7784291301ygrp-mkp .yiv7784291301ad {
padding:0 0;}

#yiv7784291301 #yiv7784291301ygrp-mkp .yiv7784291301ad p {
margin:0;}

#yiv7784291301 #yiv7784291301ygrp-mkp .yiv7784291301ad a {
color:#0000ff;text-decoration:none;}
#yiv7784291301 #yiv7784291301ygrp-sponsor
#yiv7784291301ygrp-lc {
font-family:Arial;}

#yiv7784291301 #yiv7784291301ygrp-sponsor
#yiv7784291301ygrp-lc #yiv7784291301hd {
margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}

#yiv7784291301 #yiv7784291301ygrp-sponsor
#yiv7784291301ygrp-lc .yiv7784291301ad {
margin-bottom:10px;padding:0 0;}

#yiv7784291301 #yiv7784291301actions {
font-family:Verdana;font-size:11px;padding:10px 0;}

#yiv7784291301 #yiv7784291301activity {
background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}

#yiv7784291301 #yiv7784291301activity span {
font-weight:700;}

#yiv7784291301 #yiv7784291301activity span:first-child {
text-transform:uppercase;}

#yiv7784291301 #yiv7784291301activity span a {
color:#5085b6;text-decoration:none;}

#yiv7784291301 #yiv7784291301activity span span {
color:#ff7900;}

#yiv7784291301 #yiv7784291301activity span
.yiv7784291301underline {
text-decoration:underline;}

#yiv7784291301 .yiv7784291301attach {
clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}

#yiv7784291301 .yiv7784291301attach div a {
text-decoration:none;}

#yiv7784291301 .yiv7784291301attach img {
border:none;padding-right:5px;}

#yiv7784291301 .yiv7784291301attach label {
display:block;margin-bottom:5px;}

#yiv7784291301 .yiv7784291301attach label a {
text-decoration:none;}

#yiv7784291301 blockquote {
margin:0 0 0 4px;}

#yiv7784291301 .yiv7784291301bold {
font-family:Arial;font-size:13px;font-weight:700;}

#yiv7784291301 .yiv7784291301bold a {
text-decoration:none;}

#yiv7784291301 dd.yiv7784291301last p a {
font-family:Verdana;font-weight:700;}

#yiv7784291301 dd.yiv7784291301last p span {
margin-right:10px;font-family:Verdana;font-weight:700;}

#yiv7784291301 dd.yiv7784291301last p
span.yiv7784291301yshortcuts {
margin-right:0;}

#yiv7784291301 div.yiv7784291301attach-table div div a {
text-decoration:none;}

#yiv7784291301 div.yiv7784291301attach-table {
width:400px;}

#yiv7784291301 div.yiv7784291301file-title a, #yiv7784291301
div.yiv7784291301file-title a:active, #yiv7784291301
div.yiv7784291301file-title a:hover, #yiv7784291301
div.yiv7784291301file-title a:visited {
text-decoration:none;}

#yiv7784291301 div.yiv7784291301photo-title a,
#yiv7784291301 div.yiv7784291301photo-title a:active,
#yiv7784291301 div.yiv7784291301photo-title a:hover,
#yiv7784291301 div.yiv7784291301photo-title a:visited {
text-decoration:none;}

#yiv7784291301 div#yiv7784291301ygrp-mlmsg
#yiv7784291301ygrp-msg p a span.yiv7784291301yshortcuts {
font-family:Verdana;font-size:10px;font-weight:normal;}

#yiv7784291301 .yiv7784291301green {
color:#628c2a;}

#yiv7784291301 .yiv7784291301MsoNormal {
margin:0 0 0 0;}

#yiv7784291301 o {
font-size:0;}

#yiv7784291301 #yiv7784291301photos div {
float:left;width:72px;}

#yiv7784291301 #yiv7784291301photos div div {
border:1px solid

#666666;height:62px;overflow:hidden;width:62px;}

#yiv7784291301 #yiv7784291301photos div label {
color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}

#yiv7784291301 #yiv7784291301reco-category {
font-size:77%;}

#yiv7784291301 #yiv7784291301reco-desc {
font-size:77%;}

#yiv7784291301 .yiv7784291301replbq {
margin:4px;}

#yiv7784291301 #yiv7784291301ygrp-actbar div a:first-child {
margin-right:2px;padding-right:5px;}

#yiv7784291301 #yiv7784291301ygrp-mlmsg {

font-size:13px;font-family:Arial, helvetica, clean,
sans-serif;}

#yiv7784291301 #yiv7784291301ygrp-mlmsg table {
font-size:inherit;font:100%;}

#yiv7784291301 #yiv7784291301ygrp-mlmsg select,
#yiv7784291301 input, #yiv7784291301 textarea {
font:99% Arial, Helvetica, clean, sans-serif;}

#yiv7784291301 #yiv7784291301ygrp-mlmsg pre, #yiv7784291301
code {
font:115% monospace;}

#yiv7784291301 #yiv7784291301ygrp-mlmsg * {
line-height:1.22em;}

#yiv7784291301 #yiv7784291301ygrp-mlmsg #yiv7784291301logo {
padding-bottom:10px;}


#yiv7784291301 #yiv7784291301ygrp-msg p a {
font-family:Verdana;}

#yiv7784291301 #yiv7784291301ygrp-msg
p#yiv7784291301attach-count span {
color:#1E66AE;font-weight:700;}

#yiv7784291301 #yiv7784291301ygrp-reco
#yiv7784291301reco-head {
color:#ff7900;font-weight:700;}

#yiv7784291301 #yiv7784291301ygrp-reco {
margin-bottom:20px;padding:0px;}

#yiv7784291301 #yiv7784291301ygrp-sponsor #yiv7784291301ov
li a {
font-size:130%;text-decoration:none;}

#yiv7784291301 #yiv7784291301ygrp-sponsor #yiv7784291301ov
li {
font-size:77%;list-style-type:square;padding:6px 0;}

#yiv7784291301 #yiv7784291301ygrp-sponsor #yiv7784291301ov
ul {
margin:0;padding:0 0 0 8px;}

#yiv7784291301 #yiv7784291301ygrp-text {
font-family:Georgia;}

#yiv7784291301 #yiv7784291301ygrp-text p {
margin:0 0 1em 0;}

#yiv7784291301 #yiv7784291301ygrp-text tt {
font-size:120%;}

#yiv7784291301 #yiv7784291301ygrp-vital ul li:last-child {
border-right:none !important;
}
#yiv7784291301


Mon Sep 29, 2014 1:40 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Diblok lalu pencet tombol Delete.

Salam,
HK

On Monday, 29 September 2014, 13:03, "Danu Purboyo danu.purboyo@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


Deletenya pencet delete?
Atau di block terus di cut?

Thx
dn

--------------------------------------------
On Mon, 9/29/14, Hendrik Karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

Subject: Re: [belajar-excel] Cara menghapus data terakhir
To: belajar-excel@yahoogroups.com
Date: Monday, September 29, 2014, 10:21 AM

Hai Danu,Sdh coba delete row
atau kolom kosong?
Salam,HK

Sent from Samsung
Mobile

-------- Original message
--------From: "Danu Purboyo
danu.purboyo@yahoo.com [belajar-excel]"
Date:29/09/2014 09:07 (GMT+07:00) To:
belajar-excel@yahoogroups.com Subject:
[belajar-excel] Cara menghapus data terakhir

Kakak semua...

Tanya donk...

Cara menghapus data terakhir gimana yah?

Kadang itu berpengaruh ke besaran file soalnya..

Kalo misalnya kita kelepasan pencet ctrl+down kadang dia
nyampe ujung tuh..

Dan membuat file kita bertambah besar, walaupun tidak ada
isinya...

Saya sudah coba Ctrl+end lalu pencet delete, tapi kok ngga
ngaruh yah?

Kalo saya Ctrl+end lagi dia larinya tetep di yg ujung

itu..

Tolong dibantu kakaaaaak...

Thx

dn

#yiv7784291301 #yiv7784291301 --
#yiv7784291301ygrp-mkp {
border:1px solid #d8d8d8;font-family:Arial;margin:10px
0;padding:0 10px;}

#yiv7784291301 #yiv7784291301ygrp-mkp hr {
border:1px solid #d8d8d8;}

#yiv7784291301 #yiv7784291301ygrp-mkp #yiv7784291301hd {
color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}

#yiv7784291301 #yiv7784291301ygrp-mkp #yiv7784291301ads {
margin-bottom:10px;}

#yiv7784291301 #yiv7784291301ygrp-mkp .yiv7784291301ad {
padding:0 0;}

#yiv7784291301 #yiv7784291301ygrp-mkp .yiv7784291301ad p {
margin:0;}

#yiv7784291301 #yiv7784291301ygrp-mkp .yiv7784291301ad a {
color:#0000ff;text-decoration:none;}
#yiv7784291301 #yiv7784291301ygrp-sponsor
#yiv7784291301ygrp-lc {
font-family:Arial;}

#yiv7784291301 #yiv7784291301ygrp-sponsor
#yiv7784291301ygrp-lc #yiv7784291301hd {
margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}

#yiv7784291301 #yiv7784291301ygrp-sponsor
#yiv7784291301ygrp-lc .yiv7784291301ad {
margin-bottom:10px;padding:0 0;}

#yiv7784291301 #yiv7784291301actions {
font-family:Verdana;font-size:11px;padding:10px 0;}

#yiv7784291301 #yiv7784291301activity {
background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}

#yiv7784291301 #yiv7784291301activity span {
font-weight:700;}

#yiv7784291301 #yiv7784291301activity span:first-child {
text-transform:uppercase;}

#yiv7784291301 #yiv7784291301activity span a {
color:#5085b6;text-decoration:none;}

#yiv7784291301 #yiv7784291301activity span span {
color:#ff7900;}

#yiv7784291301 #yiv7784291301activity span
.yiv7784291301underline {
text-decoration:underline;}

#yiv7784291301 .yiv7784291301attach {
clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}

#yiv7784291301 .yiv7784291301attach div a {
text-decoration:none;}

#yiv7784291301 .yiv7784291301attach img {
border:none;padding-right:5px;}

#yiv7784291301 .yiv7784291301attach label {
display:block;margin-bottom:5px;}

#yiv7784291301 .yiv7784291301attach label a {
text-decoration:none;}

#yiv7784291301 blockquote {
margin:0 0 0 4px;}

#yiv7784291301 .yiv7784291301bold {
font-family:Arial;font-size:13px;font-weight:700;}

#yiv7784291301 .yiv7784291301bold a {
text-decoration:none;}

#yiv7784291301 dd.yiv7784291301last p a {
font-family:Verdana;font-weight:700;}

#yiv7784291301 dd.yiv7784291301last p span {
margin-right:10px;font-family:Verdana;font-weight:700;}

#yiv7784291301 dd.yiv7784291301last p
span.yiv7784291301yshortcuts {
margin-right:0;}

#yiv7784291301 div.yiv7784291301attach-table div div a {
text-decoration:none;}

#yiv7784291301 div.yiv7784291301attach-table {
width:400px;}

#yiv7784291301 div.yiv7784291301file-title a, #yiv7784291301
div.yiv7784291301file-title a:active, #yiv7784291301
div.yiv7784291301file-title a:hover, #yiv7784291301
div.yiv7784291301file-title a:visited {
text-decoration:none;}

#yiv7784291301 div.yiv7784291301photo-title a,
#yiv7784291301 div.yiv7784291301photo-title a:active,
#yiv7784291301 div.yiv7784291301photo-title a:hover,
#yiv7784291301 div.yiv7784291301photo-title a:visited {
text-decoration:none;}

#yiv7784291301 div#yiv7784291301ygrp-mlmsg
#yiv7784291301ygrp-msg p a span.yiv7784291301yshortcuts {
font-family:Verdana;font-size:10px;font-weight:normal;}

#yiv7784291301 .yiv7784291301green {
color:#628c2a;}

#yiv7784291301 .yiv7784291301MsoNormal {
margin:0 0 0 0;}

#yiv7784291301 o {
font-size:0;}

#yiv7784291301 #yiv7784291301photos div {
float:left;width:72px;}

#yiv7784291301 #yiv7784291301photos div div {
border:1px solid

#666666;height:62px;overflow:hidden;width:62px;}

#yiv7784291301 #yiv7784291301photos div label {
color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}

#yiv7784291301 #yiv7784291301reco-category {
font-size:77%;}

#yiv7784291301 #yiv7784291301reco-desc {
font-size:77%;}

#yiv7784291301 .yiv7784291301replbq {
margin:4px;}

#yiv7784291301 #yiv7784291301ygrp-actbar div a:first-child {
margin-right:2px;padding-right:5px;}

#yiv7784291301 #yiv7784291301ygrp-mlmsg {

font-size:13px;font-family:Arial, helvetica, clean,
sans-serif;}

#yiv7784291301 #yiv7784291301ygrp-mlmsg table {
font-size:inherit;font:100%;}

#yiv7784291301 #yiv7784291301ygrp-mlmsg select,
#yiv7784291301 input, #yiv7784291301 textarea {
font:99% Arial, Helvetica, clean, sans-serif;}

#yiv7784291301 #yiv7784291301ygrp-mlmsg pre, #yiv7784291301
code {
font:115% monospace;}

#yiv7784291301 #yiv7784291301ygrp-mlmsg * {
line-height:1.22em;}

#yiv7784291301 #yiv7784291301ygrp-mlmsg #yiv7784291301logo {
padding-bottom:10px;}

#yiv7784291301 #yiv7784291301ygrp-msg p a {
font-family:Verdana;}

#yiv7784291301 #yiv7784291301ygrp-msg
p#yiv7784291301attach-count span {
color:#1E66AE;font-weight:700;}

#yiv7784291301 #yiv7784291301ygrp-reco
#yiv7784291301reco-head {
color:#ff7900;font-weight:700;}

#yiv7784291301 #yiv7784291301ygrp-reco {
margin-bottom:20px;padding:0px;}

#yiv7784291301 #yiv7784291301ygrp-sponsor #yiv7784291301ov
li a {
font-size:130%;text-decoration:none;}

#yiv7784291301 #yiv7784291301ygrp-sponsor #yiv7784291301ov
li {
font-size:77%;list-style-type:square;padding:6px 0;}

#yiv7784291301 #yiv7784291301ygrp-sponsor #yiv7784291301ov
ul {
margin:0;padding:0 0 0 8px;}

#yiv7784291301 #yiv7784291301ygrp-text {
font-family:Georgia;}

#yiv7784291301 #yiv7784291301ygrp-text p {
margin:0 0 1em 0;}

#yiv7784291301 #yiv7784291301ygrp-text tt {
font-size:120%;}

#yiv7784291301 #yiv7784291301ygrp-vital ul li:last-child {
border-right:none !important;
}
#yiv7784291301

Sun Sep 28, 2014 5:22 pm (PDT) . Posted by:

"yudha" cahayaoptikmandiri

Selamat pagi master

mau nanya..kira2 berapa batas maksimal jumlah userform maupun modules dlm 1 file ?
terima kasih

Yudha

Sun Sep 28, 2014 7:20 pm (PDT) . Posted by:

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

Hai Yudha,

Dengan asumsi komputer memiliki memori yang buanyak sekali (misal lebih
dari 8TB alias lebih dari 8000GB ya)
>> Saat edit VBA alias proses design
Untuk jumlah modules (excel object modules, userforms, general modules,
class modules) dalam sebuah workbooks dibatasi oleh memori yang digunakan.
Untuk membuka dalam VBE, mungkin sekitar up to 500MB untuk 32bit dan up to
4GB untuk 64bit. Bisa jadi jika sedang membuka banyak workbook yang
ber-VBA, lalu melihat ke VBE-nya, maka semua VBAProject yang tampak akan
menggunakan jatah maksimum memori tersebut. Jika beda instansi, maka
dihitung sebagai satu VBE baru.
Contoh : (bisa jadi begini)
1. membuka excel kosong lalu open file (10 workbook yang ber-vba), ketika
masuk ke VBE (tekan ALT F11), maka akan tampak 10 VBAProject di VBE project
explorer. Ke-10 project ini akan menggunakan 500MB jatah VBE di 32bit atau
4GB di 64bit.
2. membuka excel kosong yang baru dari windows explorer, lalu membuka 20
file ber-VBA, maka 20 file ini akan menggunakan 500MB yang baru yang
berbeda dengan yang nomor 1.

>> Saat buka workbook tanpa ada VBA yang aktif
Excel memiliki pengatur memori yang membatasi dirinya dalam penggunaan
memori komputer yang ada. Di xl2003 sekitar 1GB per instansi (per buka
Excel kosong dari windows explorer). Mulai xl2007, yang 32bit membatasi
memori sebesar 2GB, sedang yang 64bit (64bit mulai ada di xl2010) bisa
sekitar 8TB.
Saat VBA bekerja, maka memori yang digunakan VBA dalam berproses akan
mengurangi memori ini.

>> Batas per prosedur
Setiap prosedur maksimal adalah 64K (yah sekitar 64000 karakter saja lah
biar gampang).
Jika akan membuat sebuah proses yang panjang sekali, maka pecahlah menjadi
banyak prosedur pendek. Prosedur pendek itu dipanggil oleh sebuah prosedur
pemanggil.
Contoh :
Public sub Pemanggil()
PanggilProses1 'ada max 64K
PanggilProses2 'ada max 64K
end sub

private sub PanggilProses1()
'disini isi proses1 yang max 64K
end sub

private sub PanggilProses2()
'disini isi proses2 yang max 64K
end sub

Jadi prosedur Pemanggil seperti mengerjakan proses yang scriptnya ada 128K.
Prosedur PanggilProses1 juga bisa berisi perintah untuk memanggil proses
yang lain. Jadi batasan 64K tidak akan pernah tercapai. Sedang untuk sampai
500MB (pada 32bit) per VBE juga sangat jarang tercapai.

Wassalam,
Kid.

2014-09-29 10:21 GMT+10:00 yudha cahayaoptikmandiri@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Selamat pagi master
>
> mau nanya..kira2 berapa batas maksimal jumlah userform maupun modules dlm
> 1 file ?
> terima kasih
>
> Yudha
>
>

Sun Sep 28, 2014 9:06 pm (PDT) . Posted by:

"Nang Agus"

Terima kasih Mas Kid,
Penjelasannya sudah dimengerti, maklum tambah tua jadi mikirnya agak
lamban....
Sukron,
Wasalam
AgoeZ

2014-09-27 20:49 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Wa'alaikumussalam wr. wb.
>
> Tentang Match, hal tersebut berhubungan dengan kalimat berbunyi :
> *Match bisa menerima inputan berupa range, array, dan suatu nilai.*
>
> Fungsi biasanya dibuat untuk bisa memenuhi suatu komputasi tertentu yang
> spesifik dan khusus di kasus itu saja.
>
> Kemudian fungsi dikembangkan untuk dibuat bisa menyelesaikan banyak
> pekerjaan serupa. Contohnya adalah fungsi CountA yang menghitung berdaar
> ada tidaknya isi sebuah cell dikembangkan menjadi CountIF lalu menjadi
> CountIFs.
>
> Pengembangan berikutnya dari suatu fungsi adalah membuat fungsi menjadi
> lebih fleksibel ubtuk menerima berbagai input. Contohnya Sum yang bisa
> menrima range (satu atau banyak) disertai sebuah nilai tertentu selama
> masih bertipe numerik, seperti =Sum( A1:C7 , 12 , {1,2,3} ).
>
> Keluwesan suatu fungsi dalam menerima inputan akan membuat fungsi tersebut
> menjadi lebih powerful. Contohnya seperti fungsi Match, Index, Small, Large
> dan banyak fungsi lain yang bisa digunakan dalam menyelesaikan banyak kasus
> yang berbeda-beda.
> Contohnya adalah fungsi Small yang awalnya sebagai pengambil nilai
> terkecil ke-sekian, menjadi fungsi penting dalam melakukan filtering dengan
> formula dan berbagai kasus lainnya.
>
> Nah...
> UDF adalah sebuah fungsi buatan sendiri menggunakan VBA. Ketika UDF yang
> dibuat bisa lebih luwes dalam menerima inputan, maka area kerja UDF
> tersebut juga akan semakin luas.
>
> Wassalamu'alaikum wr. wb.,
> Kid.
>
>
>
>
>
> 2014-09-27 13:16 GMT+10:00 Nang Agus nangagus@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>> *Tentu pernah mengerjakan berbagai kasus yang menggunakan fungsi Match,
>> LookUp, atau Index bukan ?*
>>
>> *Beberapa varian penggunaan Match antara lain :*
>>
>> *=Match( A1 , Z1:Z10 , 0 )*
>>
>>
>> *=Match( A1 & B1 , Z1:Z10 & Y1:Y10 , 0 ) lalu di CSE*
>> *Match bisa menerima inputan berupa range, array, dan suatu nilai.*
>>
>
>
>
>
>

Sun Sep 28, 2014 9:59 pm (PDT) . Posted by:

"ivan budiman" ivanstats

Dear rekans be excell..
Udah lama saya gak nimbrung berguru disini... Mau minta bantuannya.

Saya ingin tanya, bagaimana memisahkan data terlampir (yang dipisahkan "," dalam 1 cell) menjadi beberapa cell. Contoh yang diinginkan terlampir.
Terima kasih

Regards.

Regards,
M I B

- thankfulness -

Sun Sep 28, 2014 10:52 pm (PDT) . Posted by:

"Bagus" bagus4bls

Hai MIB;

Coba begini:
=TRIM(SUBSTITUTE(MID(SUBSTITUTE($D3,",",REPT(",",99)),(COLUMNS($A:A)-1)*99+1,99),",",""))
Copas kekanan dan kebawah

Wassalam

~ Bagus ~

----- Original Message -----
From: ivan budiman ivanstats@yahoo.com [belajar-excel]
To: belajar excel
Sent: Monday, September 29, 2014 11:59 AM
Subject: [belajar-excel] Memisahkan kata dari 1 cell menjadi terpisah beberapa cell [1 Attachment]

Dear rekans be excell..
Udah lama saya gak nimbrung berguru disini... Mau minta bantuannya.

Saya ingin tanya, bagaimana memisahkan data terlampir (yang dipisahkan "," dalam 1 cell) menjadi beberapa cell. Contoh yang diinginkan terlampir.
Terima kasih

Regards.

Regards,
M I B

- thankfulness -

Sun Sep 28, 2014 11:28 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Hai Yudix,
Sesungguhnya saya belum 100% memahami keinginan Anda, namun berdasarkan penjelasan yang disampaikan saya coba membuatkan macro untuk pemisahan sheet tersebut.

Sebagai catatan ...
Macronya hanya dijalankan sekali saja untuk setiap kriteria dan workbook "Panji" akan dissimpan dalam Directory yang sama dengan Datanya.

Semoga sesuai keinginan anda.
Jika masih belum sesuai, coba dijelaskan kembali langkah2 yang diinginkan secara jelas dan berurut....
1.
2.
3.
dstnya.

Dengan langkah2 yang jelas dan berurut, insya Allah akan ada rekan yang bisa membantu.

Salam,
HK

On Saturday, 27 September 2014, 19:28, "ketut budiasa yudix_ketut@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


Dear All,

Minta tolong untuk kasus ini.

regards
Yudix

On Thursday, 25 September 2014, 9:22, "ketut budiasa yudix_ketut@yahoo.com [belajar-excel]" wrote:


Dear Pak Lukman,

Betul sekali pak penjelasannya tersebut, memang setelah terpisahkan sheet nya, maka sheet yag baru itu akan saya pindahkan ke Workbook yang baru.
Terima kasih atas bantuannya menjelaskan keinginan saya.

Dear Pak Hendrik,

Untuk pemisahannya ini sebelumnya saya coba menggunakan Auto Filter, dengan pilihan "text Filter==> contains" dan hasilnya yang muncul tersebut saya Cut, trus saya Paste di Sheet yang baru. Tetapi data di sheet yang saya Cut sebelumnya itu menjadi hilang sebagian, tidak hanya yang saya Filter saja yang di Cut, tetapi data di yang lainnya juga ikut. dan karena datanya semakin banyak saya berharap bisa menggunakan macro VB untuk proses pemisahannya ini.
Mohon maaf sekali lagi pak. mungkin agak menyusahkan jadinya.

Regards
Yudix.

On Wednesday, 24 September 2014, 10:09, "lkm jktind lkmjktind@gmail.com [belajar-excel]" wrote:


Pak Hendrik.

Ini penjelas saja.

Apa yg bapak lakukan benar 100 % sesuai dengan yang di minta oleh pak Yadix

cuma terpikirkan , kenapa hal itu mesti di lakukan bertahap ? (dipilih dulu baru di pandahkan ?)
Kalau hanya untuk memisahkan satu sheet -- menjadi masing masing sheet berdasarkan desa nya ?

sebenarnya saya hendak menjelaskan . untuk Pak Yadix

Setelah VBA nya jadi : untuk dipakai oleh pak Yudix .

1. Karena kondisi Data nya ----- disana ada kelurahan Sukasada ---- dengan kecamatan Sukasada. ------------->

----> kalau kata kuncinya yg di pakai adalah Sukasada ------------ mungkin hampir semua data yg tersisa akan diambil .

2. Ada kemiripan nama : seperti : Kel Panji , dan Kel PanjiAnom. (Ada yg ditulis : Panji Anom ) ------------> apakah data seperti itu di satukan atau dipisah. ?

3 . untuk data No 18 dan 27 --- ini Pak Yadix yg tentukan .

saya yakin harapan dari Pak Yadix --- untuk VBA nya bisa di pakai berkali kali . Tapi kalau mau nya setiap kali mesti menambah sheetnya ? . ya nga bisa . --- supaya bisa ----> worksheet yg lama mesti di delete dulu .

itu saja .

Mohon maaf -- telah menyinggung perasaan pak hendrik .

Salam

Lukman

============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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
---------------------------------------------------------------------

Tidak ada komentar:

Poskan Komentar