Senin, 29 September 2014

[belajar-excel] Digest Number 3114

15 Messages

Digest #3114
2a
Re: VB Worksheet_Change [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
3a
Re: jumlah userform dlm 1 file by "yudha" cahayaoptikmandiri
4a
Mengambil nilai dari kolom ke baris by "cepwahyu" juragan_75
4b
5
Re: VB Worksheet_Change_2 by "Darwis Arief" d_arief72
6
Validasi hasil formula by "parlin regar"
7a
Joint Text by "Nang Agus" nangagoez
7b
Re: Joint Text [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
7c
Re: Joint Text by "Nang Agus"
8
Update label di userform by "fano.theminer"

Messages

Mon Sep 29, 2014 4:32 am (PDT) . Posted by:

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

Bisa juga di-split dengan spasi langsung menjadi :
=TRIM(MID(SUBSTITUTE($D3,",",REPT(" ",99)),(COLUMNS($A:A)-1)*99+1,99))

Wassalam,
Kid.

2014-09-29 15:54 GMT+10:00 'Bagus' bagus@kingjim.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
> =TRIM(SUBSTITUTE(MID(SUBSTITUTE($D3,",",REPT(",",99)),(COLUMNS($A:A)-1)*99+1,99),",",""))

Mon Sep 29, 2014 5:09 am (PDT) . Posted by:

"Bagus" bagus4bls

Oom Kid;

Mantab...
jadi lebih simpel..

Wassalam

~ Bagus ~

----- Original Message -----
From: 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]
To: BeExcel
Sent: Monday, September 29, 2014 6:32 PM
Subject: Re: [belajar-excel] Memisahkan kata dari 1 cell menjadi terpisah beberapa cell

Bisa juga di-split dengan spasi langsung menjadi :

=TRIM(MID(SUBSTITUTE($D3,",",REPT(" ",99)),(COLUMNS($A:A)-1)*99+1,99))

Wassalam,

Kid.

2014-09-29 15:54 GMT+10:00 'Bagus' bagus@kingjim.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:

=TRIM(SUBSTITUTE(MID(SUBSTITUTE($D3,",",REPT(",",99)),(COLUMNS($A:A)-1)*99+1,99),",",""))

Mon Sep 29, 2014 5:28 am (PDT) . Posted by:

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

;)

Untuk data yang tidak menuntut karakter spasi (ASCII 32) harus tetap
jumlahnya, maka karakter spasi ASCII 32 sebagai splitter bisa menyimpelkan.
Contohnya seperti kasus ini, data bernilai Online / Website (pakai 1 spasi
ASCII 32) atau pada baris lain ada yang bernilai Online / Website (pakai
2 spasi ASCII 32) boleh dijadikan Online / Website (pakai 1 spasi ASCII
32), maka spasi sebagai splitter bisa digunakan.

Tapi, jika spasi ASCII 32 yang ada dalam nilai data tidak boleh ada yang
hilang, alias jika memang ada 2 spasi ASCII 32 harus tetap sejumlah itu,
maka sebelum menggunakan splitter dengan spasi ASCII 32, dilakukan
pengubahan seluruh spasi dalam data dari ASCII 32 menjadi ASCII 160 atau
karakter lain yang tidak mungkin digunakan dalam nilai data tersebut. Hal
ini dimaksudkan agar fungsi TRIM dalam proses pengambilan potongan teks
hasil splitter tidak menghilangkan spasi ASCII 32 yang harus dipelihara
tersebut. Tentu saja setelah proses splitter, diperlukan proses
pengembalian ASCII 160 menjadi ASCII 32 lagi.

Contoh : jika kasus ini menghendaki bahwa nilai data 'Online / Website,
In Course ' tidak boleh kehilangan bijik spasi ASCII 32 nya, maka perlu
proses :
1. ubah spasi ASCII 32 dalam data menjadi ASCII 160
=Substitute( "Online / Website, In Course " , " " , char(160) )

2. melakukan split data berdasar karakter delimiter koma dengan 99 karakter
spasi ASCII 32
=Substitute( Substitute( "Online / Website, In Course " , " " ,
char(160) ) , "," , Rept( " " , 99 ) )

3. ambil nilai data yang dibutuhkan (misal potongan ke-2 alias field ke-2
nya)
=Mid( Substitute( Substitute( "Online / Website, In Course " , " " ,
char(160) ) , "," , Rept( " " , 99 ) ) , (2-1)*99+1 , 99 )
*** angka 2 pada (2-1) menunjukkan akan mengambil potongan ke-2

4. buang spasi ASCII 32 (splitter)
=Trim( Mid( Substitute( Substitute( "Online / Website, In Course " , "
" , char(160) ) , "," , Rept( " " , 99 ) ) , (2-1)*99+1 , 99 ) )

5. kembalikan spasi milik si data, yaitu mengubah kembali dari ASCII 160 ke
ASCII 32
=Substitute( Trim( Mid( Substitute( Substitute( "Online / Website, In
Course " , " " , char(160) ) , "," , Rept( " " , 99 ) ) , (2-1)*99+1 , 99 )
) , char(160) , " " )

Kira-kira demikianlah dongengan Senin malemnya.

;)

Wassalam,
Kid.

2014-09-29 22:10 GMT+10:00 'Bagus' bagus@kingjim.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> 
> Oom Kid;
>
> Mantab...
> jadi lebih simpel..
>
>
>
> Wassalam
>
> ~ Bagus ~
>
>
>
> ----- Original Message -----
> *From:* 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]
> <mr.nmkid@gmail.com+[belajar-excel]>
> *To:* BeExcel <belajar-excel@yahoogroups.com>
> *Sent:* Monday, September 29, 2014 6:32 PM
> *Subject:* Re: [belajar-excel] Memisahkan kata dari 1 cell menjadi
> terpisah beberapa cell
>
>
>
> Bisa juga di-split dengan spasi langsung menjadi :
> =TRIM(MID(SUBSTITUTE($D3,",",REPT(" ",99)),(COLUMNS($A:A)-1)*99+1,99))
>
> Wassalam,
> Kid.
>
>
> 2014-09-29 15:54 GMT+10:00 'Bagus' bagus@kingjim.co.id [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>> =TRIM(SUBSTITUTE(MID(SUBSTITUTE($D3,",",REPT(",",99)),(COLUMNS($A:A)-1)*99+1,99),",",""))
>
>
>
>
>

Mon Sep 29, 2014 10:47 pm (PDT) . Posted by:

"ivan budiman" ivanstats

Thanks banget Mr. Bagus dan Mr. Kid.. It works !!!
Mantaappp

Regards,
M I B

- thankfulness -

On Monday, 29 September 2014, 19:29, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


;)

Untuk data yang tidak menuntut karakter spasi (ASCII 32) harus tetap jumlahnya, maka karakter spasi ASCII 32 sebagai splitter bisa menyimpelkan. Contohnya seperti kasus ini, data bernilai Online/Website (pakai 1 spasi ASCII 32) atau pada baris lain ada yang bernilai Online / Website (pakai 2 spasi ASCII 32) boleh dijadikan Online/Website (pakai 1 spasi ASCII 32), maka spasi sebagai splitter bisa digunakan.

Tapi, jika spasi ASCII 32 yang ada dalam nilai data tidak boleh ada yang hilang, alias jika memang ada 2 spasi ASCII 32 harus tetap sejumlah itu, maka sebelum menggunakan splitter dengan spasi ASCII 32, dilakukan pengubahan seluruh spasi dalam data dari ASCII 32 menjadi ASCII 160 atau karakter lain yang tidak mungkin digunakan dalam nilai data tersebut. Hal ini dimaksudkan agar fungsi TRIM dalam proses pengambilan potongan teks hasil splitter tidak menghilangkan spasi ASCII 32 yang harus dipelihara tersebut. Tentu saja setelah proses splitter, diperlukan proses pengembalian ASCII 160 menjadi ASCII 32 lagi.

Contoh : jika kasus ini menghendaki bahwa nilai data 'Online / Website, In Course' tidak boleh kehilangan bijik spasi ASCII 32 nya, maka perlu proses :
1. ubah spasi ASCII 32 dalam data menjadi ASCII 160
=Substitute( "Online / Website, In Course" , " " , char(160) )

2. melakukan split data berdasar karakter delimiter koma dengan 99 karakter spasi ASCII 32
=Substitute( Substitute( "Online / Website, In Course" , " " , char(160) ) , "," , Rept( " " , 99 ) )

3. ambil nilai data yang dibutuhkan (misal potongan ke-2 alias field ke-2 nya)

=Mid( Substitute( Substitute( "Online / Website, In Course" , " " , char(160) ) , "," , Rept( " " , 99 ) ) , (2-1)*99+1 , 99 )

*** angka 2 pada (2-1) menunjukkan akan mengambil potongan ke-2

4. buang spasi ASCII 32 (splitter)

=Trim( Mid( Substitute( Substitute( "Online / Website, In Course" , " " , char(160) ) , "," , Rept( " " , 99 ) ) , (2-1)*99+1 , 99 ) )

5. kembalikan spasi milik si data, yaitu mengubah kembali dari ASCII 160 ke ASCII 32

=Substitute( Trim( Mid( Substitute( Substitute( "Online / Website, In Course" , " " , char(160) ) , "," , Rept( " " , 99 ) ) , (2-1)*99+1 , 99 ) ) , char(160) , " " )

Kira-kira demikianlah dongengan Senin malemnya.

;)

Wassalam,
Kid.

2014-09-29 22:10 GMT+10:00 'Bagus' bagus@kingjim.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
>Oom Kid;
>
>Mantab...
>jadi lebih simpel..
>
>
>Wassalam
>~
Bagus ~
>
>----- Original Message -----
>>From: 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]
>>To: BeExcel
>>Sent: Monday, September 29, 2014 6:32 PM
>>Subject: Re: [belajar-excel] Memisahkan kata dari 1 cell menjadi terpisah beberapa cell
>>
>>
>>Bisa juga di-split dengan spasi langsung menjadi :
>>
>>=TRIM(MID(SUBSTITUTE($D3,",",REPT("",99)),(COLUMNS($A:A)-1)*99+1,99))
>>
>>
>>Wassalam,
>>
>>Kid.
>>
>>
>>
>>
>>2014-09-29 15:54 GMT+10:00 'Bagus' bagus@kingjim.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>=TRIM(SUBSTITUTE(MID(SUBSTITUTE($D3,",",REPT(",",99)),(COLUMNS($A:A)-1)*99+1,99),",",""))
>>
>>

Mon Sep 29, 2014 5:00 am (PDT) . Posted by:

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

Hai Arief,

Tambahkan tepat sebelum End Sub.
application.enableevents=false
select case target.address
case "$B$11"
select case cstr(target.value) 'karena akan cek yang pasti berisi teks
case "a","b"
range("b13,d13").clearcontents
end select
case "$B$15"
select case cstr(target.value)
case "c","d"
range("b17,d17").clearcontents
if cstr(target.value)="d" then
range("b17").value=10
endif
end select
end select
application.enableevents=true

Wassalam,
Kid.

On Sun, Sep 28, 2014 at 6:51 PM, Darwis Arief d_arief72@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> 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
>
>

Mon Sep 29, 2014 5:16 pm (PDT) . Posted by:

"yudha" cahayaoptikmandiri

Terima kasih om kid
wah penjelasannya rinci sekali..jadi ada tambahan ilmu nih

sukses belajar excel

"'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:

>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
>>
>>

Mon Sep 29, 2014 10:09 pm (PDT) . Posted by:

"cepwahyu" juragan_75

Dear Be-Exceller,

Bagaimana mengambil nilai dari kolom menjadi baris dan men-summary-kan
seperti contoh terlampir?

Best Regards

CW

Mon Sep 29, 2014 10:57 pm (PDT) . Posted by:

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

Hai Cep,

Array formula unique values
<http://excel-mr-kid.blogspot.com/2011/03/formula-penyusun-data-unique-dan.html>
bisa digunakan untuk kebutuhan Anda.
=INDEX($B$4:$J$4,MATCH(0,COUNTIF(L$3:L3,$B$4:$J$4),0))

Wassalam,
Kid.

2014-09-30 15:09 GMT+10:00 'cepwahyu' cepwahyu@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Dear Be-Exceller,
>
>
>
> Bagaimana mengambil nilai dari kolom menjadi baris dan men-summary-kan
> seperti contoh terlampir?
>
>
>
> Best Regards
>
> *CW*
>
>
>
>
>

Mon Sep 29, 2014 10:22 pm (PDT) . Posted by:

"Darwis Arief" d_arief72

Assalamu Alaikum wr,wb.

Terima kasih ats bantuannya Mr. Nmkid,
Sy sdh tambahkan sesuai dgn code yg diberikan, namun blm bs diexecusi.
Mohon pencerahannya lg...(terlampir)

Wassalam,

--------------------------------------------
On Mon, 9/29/14, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

Subject: Re: [belajar-excel] VB Worksheet_Change
To: "BeExcel" <belajar-excel@yahoogroups.com>
Date: Monday, September 29, 2014, 5:00 AM


 









Hai Arief,

Tambahkan tepat sebelum
End Sub.
application.enableevents=false
select case target.address
case
"$B$11"
    select
case cstr(target.value)   'karena akan cek yang pasti
berisi teks
    case
"a","b"
          
range("b13,d13").clearcontents
    end select
case "$B$15"
    select case
cstr(target.value)
    case
"c","d"
          
range("b17,d17").clearcontents
           if
cstr(target.value)="d" then
                
range("b17").value=10
           endif
    end select
end select
application.enableevents=true

Wassalam,
Kid.



On Sun, Sep 28, 2014 at
6:51 PM, Darwis Arief d_arief72@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>
wrote:











 









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










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

#yiv1364311866 #yiv1364311866ygrp-mkp hr {
border:1px solid #d8d8d8;}

#yiv1364311866 #yiv1364311866ygrp-mkp #yiv1364311866hd {
color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}

#yiv1364311866 #yiv1364311866ygrp-mkp #yiv1364311866ads {
margin-bottom:10px;}

#yiv1364311866 #yiv1364311866ygrp-mkp .yiv1364311866ad {
padding:0 0;}

#yiv1364311866 #yiv1364311866ygrp-mkp .yiv1364311866ad p {
margin:0;}

#yiv1364311866 #yiv1364311866ygrp-mkp .yiv1364311866ad a {
color:#0000ff;text-decoration:none;}
#yiv1364311866 #yiv1364311866ygrp-sponsor
#yiv1364311866ygrp-lc {
font-family:Arial;}

#yiv1364311866 #yiv1364311866ygrp-sponsor
#yiv1364311866ygrp-lc #yiv1364311866hd {
margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}

#yiv1364311866 #yiv1364311866ygrp-sponsor
#yiv1364311866ygrp-lc .yiv1364311866ad {
margin-bottom:10px;padding:0 0;}

#yiv1364311866 #yiv1364311866actions {
font-family:Verdana;font-size:11px;padding:10px 0;}

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

#yiv1364311866 #yiv1364311866activity span {
font-weight:700;}

#yiv1364311866 #yiv1364311866activity span:first-child {
text-transform:uppercase;}

#yiv1364311866 #yiv1364311866activity span a {
color:#5085b6;text-decoration:none;}

#yiv1364311866 #yiv1364311866activity span span {
color:#ff7900;}


#yiv1364311866 #yiv1364311866activity span
.yiv1364311866underline {
text-decoration:underline;}

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

#yiv1364311866 .yiv1364311866attach div a {
text-decoration:none;}

#yiv1364311866 .yiv1364311866attach img {
border:none;padding-right:5px;}

#yiv1364311866 .yiv1364311866attach label {
display:block;margin-bottom:5px;}

#yiv1364311866 .yiv1364311866attach label a {
text-decoration:none;}

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

#yiv1364311866 .yiv1364311866bold {
font-family:Arial;font-size:13px;font-weight:700;}

#yiv1364311866 .yiv1364311866bold a {
text-decoration:none;}

#yiv1364311866 dd.yiv1364311866last p a {
font-family:Verdana;font-weight:700;}

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

#yiv1364311866 dd.yiv1364311866last p
span.yiv1364311866yshortcuts {
margin-right:0;}

#yiv1364311866 div.yiv1364311866attach-table div div a {
text-decoration:none;}

#yiv1364311866 div.yiv1364311866attach-table {
width:400px;}

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

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

#yiv1364311866 div#yiv1364311866ygrp-mlmsg
#yiv1364311866ygrp-msg p a span.yiv1364311866yshortcuts {
font-family:Verdana;font-size:10px;font-weight:normal;}

#yiv1364311866 .yiv1364311866green {
color:#628c2a;}

#yiv1364311866 .yiv1364311866MsoNormal {
margin:0 0 0 0;}

#yiv1364311866 o {
font-size:0;}

#yiv1364311866 #yiv1364311866photos div {
float:left;width:72px;}

#yiv1364311866 #yiv1364311866photos div div {
border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}

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

#yiv1364311866 #yiv1364311866reco-category {
font-size:77%;}

#yiv1364311866 #yiv1364311866reco-desc {
font-size:77%;}

#yiv1364311866 .yiv1364311866replbq {
margin:4px;}

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

#yiv1364311866 #yiv1364311866ygrp-mlmsg {
font-size:13px;font-family:Arial, helvetica, clean,
sans-serif;}

#yiv1364311866 #yiv1364311866ygrp-mlmsg table {
font-size:inherit;font:100%;}

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


#yiv1364311866 #yiv1364311866ygrp-mlmsg pre, #yiv1364311866
code {
font:115% monospace;}

#yiv1364311866 #yiv1364311866ygrp-mlmsg * {
line-height:1.22em;}

#yiv1364311866 #yiv1364311866ygrp-mlmsg #yiv1364311866logo {

padding-bottom:10px;}


#yiv1364311866 #yiv1364311866ygrp-msg p a {
font-family:Verdana;}

#yiv1364311866 #yiv1364311866ygrp-msg
p#yiv1364311866attach-count span {
color:#1E66AE;font-weight:700;}

#yiv1364311866 #yiv1364311866ygrp-reco
#yiv1364311866reco-head {
color:#ff7900;font-weight:700;}

#yiv1364311866 #yiv1364311866ygrp-reco {
margin-bottom:20px;padding:0px;}

#yiv1364311866 #yiv1364311866ygrp-sponsor #yiv1364311866ov
li a {
font-size:130%;text-decoration:none;}

#yiv1364311866 #yiv1364311866ygrp-sponsor #yiv1364311866ov
li {
font-size:77%;list-style-type:square;padding:6px 0;}

#yiv1364311866 #yiv1364311866ygrp-sponsor #yiv1364311866ov
ul {
margin:0;padding:0 0 0 8px;}

#yiv1364311866 #yiv1364311866ygrp-text {
font-family:Georgia;}

#yiv1364311866 #yiv1364311866ygrp-text p {
margin:0 0 1em 0;}

#yiv1364311866 #yiv1364311866ygrp-text tt {
font-size:120%;}

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

Mon Sep 29, 2014 10:26 pm (PDT) . Posted by:

"parlin regar"

Dear be-ex

Mohon bantuannya. Bagaimana cara melakukan validasi kolom hasil
kalkulasi formula.
Contoh: input di kolom B, kolom C berisi formula yg merujuk dari kolom B.
Diinginkan validasi untuk kolom C, atau jika bisa validasi bertingkat
untuk kolom B.

Terimakasih
regards
Parlin

Mon Sep 29, 2014 10:37 pm (PDT) . Posted by:

"Nang Agus" nangagoez

السَّلاَÙ…ُ عَÙ„َÙŠْÙƒُÙ…ْ ÙˆَرَØ­ْÙ…َØ©ُ اللهِ ÙˆَبَرَÙƒَاتُÙ‡ُ
Saya mencoba mengubah UDF buatan Mr. Kid menjadi 5 range yang
melompat. (udf aslinya hanya dapat menjangkau 1 range)
karena keterbatasan pengetahuan saya tentang VBA, masih terdapat
kesalahan peletakan delimiternya.
Mohon dapat diperbaiki delimiternya.
1. Jika ada cell yang kosong delimeternya dobel
2. Delimeter antara dua range yang berbeda tidak muncul

Terima kasih

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

NangAgus

Mon Sep 29, 2014 10:51 pm (PDT) . Posted by:

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

Wa'alaikumussalam Wr. Wb.

mas Agus,

Boleh dijelaskan maksud dari 5 range yang melompat mas

Wassalamu'alaikum Wr. Wb.
Kid.

2014-09-30 15:34 GMT+10:00 Nang Agus nangagoez@yahoo.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> السَّلاَÙ…ُ عَÙ„َÙŠْÙƒُÙ…ْ ÙˆَرَØ­ْÙ…َØ©ُ اللهِ ÙˆَبَرَÙƒَاتُÙ‡ُ
> Saya mencoba mengubah UDF buatan Mr. Kid menjadi 5 range yang
> melompat. (udf aslinya hanya dapat menjangkau 1 range)
> karena keterbatasan pengetahuan saya tentang VBA, masih terdapat
> kesalahan peletakan delimiternya.
> Mohon dapat diperbaiki delimiternya.
> 1. Jika ada cell yang kosong delimeternya dobel
> 2. Delimeter antara dua range yang berbeda tidak muncul
>
> Terima kasih
>
> Ùˆَ السَّلاَÙ…ُ عَÙ„َÙŠْÙƒُÙ…ْ ÙˆَرَØ­ْÙ…َØ©ُ اللهِ ÙˆَبَرَÙƒَاتُÙ‡ُ
>
> NangAgus
>
>
>

Mon Sep 29, 2014 10:59 pm (PDT) . Posted by:

"Nang Agus"

On 9/30/14, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]
<belajar-excel@yahoogroups.com> wrote:
> Wa'alaikumussalam Wr. Wb.
>
> mas Agus,
>
> Boleh dijelaskan maksud dari 5 range yang melompat mas
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
>
>
>
> 2014-09-30 15:34 GMT+10:00 Nang Agus nangagoez@yahoo.co.id [belajar-excel]
> <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> السَّلاَÙ…ُ عَÙ„َÙŠْÙƒُÙ…ْ ÙˆَرَØ­ْÙ…َØ©ُ اللهِ ÙˆَبَرَÙƒَاتُÙ‡ُ
>> Saya mencoba mengubah UDF buatan Mr. Kid menjadi 5 range yang
>> melompat. (udf aslinya hanya dapat menjangkau 1 range)
>> karena keterbatasan pengetahuan saya tentang VBA, masih terdapat
>> kesalahan peletakan delimiternya.
>> Mohon dapat diperbaiki delimiternya.
>> 1. Jika ada cell yang kosong delimeternya dobel
>> 2. Delimeter antara dua range yang berbeda tidak muncul
>>
>> Terima kasih
>>
>> Ùˆَ السَّلاَÙ…ُ عَÙ„َÙŠْÙƒُÙ…ْ ÙˆَرَØ­ْÙ…َØ©ُ اللهِ ÙˆَبَرَÙƒَاتُÙ‡ُ
>>
>> NangAgus
>>
>>
>>
>

Mon Sep 29, 2014 10:40 pm (PDT) . Posted by:

"fano.theminer"

Dear All Be-Excelerss.

Saya punya persoalan dalam mengupdate label di userform.

Mohon bantuannya.

Saya punya userform dengan komponen TextBox, Label dan CommandButton,

Yang saya inginkan adalah, jika saya memasukan data/karakter di TextBox dan
menekan CommandButton maka caption Label akan sama dengan TextBox Value
kemudian form ini akan di save, jadi jika userform di close, kemudian di
buka lagi maka Caption Label akan seperti yang terakhir di rubah/diupdate.

Terima Kasih Sebelumnya

Fano The Miner

Mon Sep 29, 2014 10:51 pm (PDT) . Posted by:

"Bagus" bagus4bls

Pak Cep;

Coba begini, Array formula ya..

{=INDEX($B$4:$J$4,MATCH(0,COUNTIF($M$3:M3,$B$4:$J$4),0))}
Copas kebawah

Wassalam

~ Bagus ~

----- Original Message -----
From: 'cepwahyu' cepwahyu@gmail.com [belajar-excel]
To: belajar-excel@yahoogroups.com
Sent: Tuesday, September 30, 2014 12:09 PM
Subject: [belajar-excel] Mengambil nilai dari kolom ke baris [1 Attachment]

Dear Be-Exceller,

Bagaimana mengambil nilai dari kolom menjadi baris dan men-summary-kan seperti contoh terlampir?

Best Regards

CW

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

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)