Selasa, 09 Mei 2017

[belajar-excel] Digest Number 4177

15 Messages

Digest #4177
1a
1b
1d
2a
5
Rumus Validasi dengan 2 kondisi ( Pilihan ) by "Mustakim Irwan" mustakim.irwan

Messages

Mon May 8, 2017 10:42 pm (PDT) . Posted by:

"Heru Safrudin" heru.safrudin

Dear B-Exceller,

Bagaimanakah kode macro untuk menghitung jumlah baris dalam variable berisi
teks, contoh:

Teks="A" & Chr(10) & "B" & Chr(10) & "C"

Mohon pembelajarannya

Wassalam

Heru Safrudin

Mon May 8, 2017 11:55 pm (PDT) . Posted by:

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

Hai Heru,
Sama seperti pakai formula dalam cells, cuma substitute diganti replace.

Regards,
Kid
Sent from my smart enough phone

> On May 9, 2017, at 11:57, 'Heru Safrudin' fcprocessing.bisikediri@bisi.co.id [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
> Dear B-Exceller,
>
>
>
> Bagaimanakah kode macro untuk menghitung jumlah baris dalam variable berisi teks, contoh:
>
> Teks="A" & Chr(10) & "B" & Chr(10) & "C"
>
>
>
> Mohon pembelajarannya
>
>
>
>
>
> Wassalam
>
> Heru Safrudin
>
>
>
>

Tue May 9, 2017 2:00 am (PDT) . Posted by:

"Heru Safrudin" heru.safrudin

Dear Mr. Kid

Sayang sekali saya belum mudheng memakai substitute

Akhirnya pakai cara lain yaitu:

UBound(Split(TEKS, Chr(10)))

Wassalam

Heru Safrudin

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 09 Mei 2017 13:55
To: belajar-excel@yahoogroups.com

Subject: Re: [belajar-excel] Menghitung jumlah baris dalam variable berisi teks

Hai Heru,

Sama seperti pakai formula dalam cells, cuma substitute diganti replace.

Regards,

Kid
Sent from my smart enough phone

On May 9, 2017, at 11:57, 'Heru Safrudin' fcprocessing.bisikediri@bisi.co.id [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

Dear B-Exceller,

Bagaimanakah kode macro untuk menghitung jumlah baris dalam variable berisi teks, contoh:

Teks="A" & Chr(10) & "B" & Chr(10) & "C"

Mohon pembelajarannya

Wassalam

Heru Safrudin

Tue May 9, 2017 2:31 am (PDT) . Posted by:

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

Kalau di cells T1 ada isi teks berbunyi "1a2a3", maka jumlah angka di cells
a1 dengan formula Len( T1 ) - Len( Substitute( T1 ,
"a" , "" ) ) + 1
Kalau di VBA ada variabel bernama T berisi teks berbunyi "1a2a3", maka
jumlah angka di variabel T adalah Len( T ) - Len( Replace( T , "a" ,
"" ) ) + 1

Kalau di VBA mau pakai Split, maka perlu diingat bahwa VBA menggunakan
array option base 0 by default. Artinya item ke-1 array memiliki index 0.
Contoh : Variabel T berisi teks "1a2a3"
Hasil Split( T , "a" ) adalah array 3 item, yaitu :
item index ke-0 berisi teks '1'
item index ke-1 berisi teks '2'
item index ke-2 berisi teks '3'

UBound adalah mengambil nomor index tertinggi dari suatu array.
UBound( T ) hasilnya 2 karena nilai index array hasil split tertinggi di
index ke-2

Jadi, pada kasus ini, kalau pakai UBound, bunyinya :
UBound( Split( T , "a" ) ) + 1

Nah.. ini dengan asumsi bahwa VBA by default menggunakan option base 0.
Kalau VBA nanti sudah pakai option base 1, dan script di atas sudah dipakai
secara masif diberbagai file, maka ketika ada pengubahan menjadi option
base 1, hasilnya salah semua.
Pada saat option base 1, hasil Split( T , "a" ) adalah :
item index ke-1 berisi teks '1'
item index ke-2 berisi teks '2'
item index ke-3 berisi teks '3'
Sehingga UBound( Split( T , "a" ) ) menghasilkan nilai 3 (nilai index
tertinggi hasil split adalah 3)
Jadi bunyi UBound( Split( T , "a" ) ) + 1 menghasilkan 4. Salah, karena
hasil yang diharapkan adalah 3.

Umumnya, yang aman begini :
UBound( Split( T , "a" ) ) - LBound( Split( T , "a" ) ) + 1

Berhubung ada proses split 2 kali, biasanya terus pakai variabel supaya
menjadi lebih cepat.
dim T as string, sArr() as string
T="1a2a3"
sArr=Split( T , "a" )
debug.print UBound( sArr ) - LBound( sArr ) + 1

Kalau proses di atas dimasukkan dalam sebuah loop, bisa jadi proses split
akan terasa lebih lambat dibanding pakai Len dan Replace

Regards,
Kid

2017-05-09 14:38 GMT+07:00 'Heru Safrudin'
fcprocessing.bisikediri@bisi.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Dear Mr. Kid
>
> Sayang sekali saya belum mudheng memakai substitute
>
> Akhirnya pakai cara lain yaitu:
>
>
>
> UBound(Split(TEKS, Chr(10)))
>
>
>
>
>
> Wassalam
>
> Heru Safrudin
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@
> yahoogroups.com]
> *Sent:* 09 Mei 2017 13:55
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: [belajar-excel] Menghitung jumlah baris dalam variable
> berisi teks
>
>
>
>
>
> Hai Heru,
>
> Sama seperti pakai formula dalam cells, cuma substitute diganti replace.
>
> Regards,
>
> Kid
> Sent from my smart enough phone
>
>
> On May 9, 2017, at 11:57, 'Heru Safrudin' fcprocessing.bisikediri@bisi.
> co.id [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Dear B-Exceller,
>
>
>
> Bagaimanakah kode macro untuk menghitung jumlah baris dalam variable
> berisi teks, contoh:
>
> Teks="A" & Chr(10) & "B" & Chr(10) & "C"
>
>
>
> Mohon pembelajarannya
>
>
>
>
>
> Wassalam
>
> Heru Safrudin
>
>
>
>
>

Mon May 8, 2017 10:44 pm (PDT) . Posted by:

"farud oke"

Assalamualaikum..
Mohon bantuan para master sekalian..
Saya punya file yg menggunakan link ribbon.awal mula link-nya bisa
dijalankan tapi ketika saya memberikan script VBA di module,link ribbon yg
semula bisa jadi tidak bisa..script VBA-ny sbb:
Public Sub Percobaanku(NamaSheet As String)
Dim sh As Worksheet
Application.ScreenUpdating = False
Sheets(NamaSheet).Visible = 1
For Each sh In ThisWorkbook.Worksheets
If Not sh.Name = NamaSheet Then
sh.Visible = 2
End If
Next sh
Application.ScreenUpdating = True
End Sub
Sub Auto_Open()
Dim sh As Worksheet

Percobaanku "DATA"
Application.ScreenUpdating = False

For Each sh In ThisWorkbook.Worksheets
If sh.Name <> "awas" Then
sh.Protect Rahasia
End If
Next sh
Application.ScreenUpdating = True

End Sub
Sub Auto_Close()
Dim sh As Worksheet

Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> "awas" Then
sh.Unprotect Rahasia
End If
Next

Percobaanku "awas"
ThisWorkbook.Save
Application.DisplayAlerts = False
Application.ScreenUpdating = True
ThisWorkbook.Close
End Sub
Untuk lebih jelasnya file terlampir..
Atas bantuan para master sekalian saya sampaikan terimakasih

Tue May 9, 2017 12:50 am (PDT) . Posted by:

"nangagus"

Wasalamualaikum warahmatullah.

bagaimana kalau VBA miliknya ribbon diganti begini:

Sub coba(ribbon As IRibbonControl)
Sheet4.Visible = xlSheetVisible
Sheet1.Visible = xlSheetVeryHidden
Sheet2.Visible = xlSheetVeryHidden
Sheet3.Visible = xlSheetVeryHidden
End Sub
Sub DATA(ribbon As IRibbonControl)
Sheet2.Visible = xlSheetVisible
Sheet1.Visible = xlSheetVeryHidden
Sheet3.Visible = xlSheetVeryHidden
Sheet4.Visible = xlSheetVeryHidden
End Sub
Sub siswa(ribbon As IRibbonControl)
Sheet3.Visible = xlSheetVisible
Sheet1.Visible = xlSheetVeryHidden
Sheet2.Visible = xlSheetVeryHidden
Sheet4.Visible = xlSheetVeryHidden
End Sub

atau dapat diganti begini:

Sub coba(ribbon As IRibbonControl)
Dim w As Worksheet
Sheet4.Visible = xlSheetVisible
For Each w In Worksheets
If w.Name <> "COBA" Then
w.Visible = xlSheetVeryHidden
End If
Next w
End Sub

salam, selamat mencoba

Nang agus

On 09/05/17 09.21, farud oke farud.oke@gmail.com [belajar-excel] wrote:
>
> Assalamualaikum..
> Mohon bantuan para master sekalian..
> Saya punya file yg menggunakan link ribbon.awal mula link-nya bisa
> dijalankan tapi ketika saya memberikan script VBA di module,link
> ribbon yg semula bisa jadi tidak bisa..script VBA-ny sbb:
> Public Sub Percobaanku(NamaSheet As String)
> Dim sh As Worksheet
> Application.ScreenUpdating = False
> Sheets(NamaSheet).Visible = 1
> For Each sh In ThisWorkbook.Worksheets
> If Not sh.Name = NamaSheet Then
> sh.Visible = 2
> End If
> Next sh
> Application.ScreenUpdating = True
> End Sub
> Sub Auto_Open()
> Dim sh As Worksheet
>
> Percobaanku "DATA"
> Application.ScreenUpdating = False
>
> For Each sh In ThisWorkbook.Worksheets
> If sh.Name <> "awas" Then
> sh.Protect Rahasia
> End If
> Next sh
> Application.ScreenUpdating = True
>
> End Sub
> Sub Auto_Close()
> Dim sh As Worksheet
>
> Application.ScreenUpdating = False
> For Each sh In ThisWorkbook.Worksheets
> If sh.Name <> "awas" Then
> sh.Unprotect Rahasia
> End If
> Next
>
>
>
> Percobaanku "awas"
> ThisWorkbook.Save
> Application.DisplayAlerts = False
> Application.ScreenUpdating = True
> ThisWorkbook.Close
> End Sub
> Untuk lebih jelasnya file terlampir..
> Atas bantuan para master sekalian saya sampaikan terimakasih
>
>

Tue May 9, 2017 2:01 am (PDT) . Posted by:

"farud oke"

Terimakasih mas agus atas jawabannya..
Sudah sesuai dg harapan mas..
Oiya mas..satu lagi,trus terang kode vba saya itu hasil googling sana sini
dimana ketika membuka file otomatis file itu terkunci sendiri mas.agar
tidak serta merta otomatis mengunci bagian mana dari kode vba itu yg hrus
ditambah atau dihapus mas..
Atas bimbingannya saya sampaikan terimakasih

Pada tanggal 9 Mei 2017 2.50 PM, "nangagus nangagus@gmail.com
[belajar-excel]" <belajar-excel@yahoogroups.com> menulis:

>
>
> Wasalamualaikum warahmatullah.
>
> bagaimana kalau VBA miliknya ribbon diganti begini:
>
> Sub coba(ribbon As IRibbonControl)
> Sheet4.Visible = xlSheetVisible
> Sheet1.Visible = xlSheetVeryHidden
> Sheet2.Visible = xlSheetVeryHidden
> Sheet3.Visible = xlSheetVeryHidden
> End Sub
> Sub DATA(ribbon As IRibbonControl)
> Sheet2.Visible = xlSheetVisible
> Sheet1.Visible = xlSheetVeryHidden
> Sheet3.Visible = xlSheetVeryHidden
> Sheet4.Visible = xlSheetVeryHidden
> End Sub
> Sub siswa(ribbon As IRibbonControl)
> Sheet3.Visible = xlSheetVisible
> Sheet1.Visible = xlSheetVeryHidden
> Sheet2.Visible = xlSheetVeryHidden
> Sheet4.Visible = xlSheetVeryHidden
> End Sub
>
>
> atau dapat diganti begini:
>
> Sub coba(ribbon As IRibbonControl)
> Dim w As Worksheet
> Sheet4.Visible = xlSheetVisible
> For Each w In Worksheets
> If w.Name <> "COBA" Then
> w.Visible = xlSheetVeryHidden
> End If
> Next w
> End Sub
>
> salam, selamat mencoba
>
> Nang agus
>
> On 09/05/17 09.21, farud oke farud.oke@gmail.com [belajar-excel] wrote:
>
>
>
> Assalamualaikum..
> Mohon bantuan para master sekalian..
> Saya punya file yg menggunakan link ribbon.awal mula link-nya bisa
> dijalankan tapi ketika saya memberikan script VBA di module,link ribbon yg
> semula bisa jadi tidak bisa..script VBA-ny sbb:
> Public Sub Percobaanku(NamaSheet As String)
> Dim sh As Worksheet
> Application.ScreenUpdating = False
> Sheets(NamaSheet).Visible = 1
> For Each sh In ThisWorkbook.Worksheets
> If Not sh.Name = NamaSheet Then
> sh.Visible = 2
> End If
> Next sh
> Application.ScreenUpdating = True
> End Sub
> Sub Auto_Open()
> Dim sh As Worksheet
>
> Percobaanku "DATA"
> Application.ScreenUpdating = False
>
> For Each sh In ThisWorkbook.Worksheets
> If sh.Name <> "awas" Then
> sh.Protect Rahasia
> End If
> Next sh
> Application.ScreenUpdating = True
>
> End Sub
> Sub Auto_Close()
> Dim sh As Worksheet
>
> Application.ScreenUpdating = False
> For Each sh In ThisWorkbook.Worksheets
> If sh.Name <> "awas" Then
> sh.Unprotect Rahasia
> End If
> Next
>
>
>
> Percobaanku "awas"
> ThisWorkbook.Save
> Application.DisplayAlerts = False
> Application.ScreenUpdating = True
> ThisWorkbook.Close
> End Sub
> Untuk lebih jelasnya file terlampir..
> Atas bantuan para master sekalian saya sampaikan terimakasih
>
>
>
>

Tue May 9, 2017 2:02 am (PDT) . Posted by:

"HAIRUL ALAM"

Assalamualaikum Wr. Wb.Para Master
Bagaimana formula (IF) pada kolom"D" jika criteria yangdibutuhkan adalah huruf pertama yang ada pada kolom "B" Misal G11852 = 16.33 atau B0404213=13.06, bila diisi manual seperti pada Kolom "C" dan bila dapat denganformula (IF) maka pada kolom "D" sama dengan kolom "C"dengan banyak data pada kolom "B" seperti data terlampir
TerimakasihWassalamualaikum Wr. Wb.
Hairul Alam

Tue May 9, 2017 2:23 am (PDT) . Posted by:

"Contract Mining Assistant, Asam-Asam"

Dear Hairul Alam,
Jika kriteria hurup awalnya hanya G dan B, maka menurut saya kombinasi if dan left adalah solusinya.
Terlampir file solusinya, apakah sudah sesuai dengan yang dimaksud?

Salam, Rasyid

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Tuesday, May 09, 2017 4:52 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Formula (IF) Jika dengan Karakter Huruf dan Angka [1 Attachment]


Assalamualaikum Wr. Wb.
Para Master

Bagaimana formula (IF) pada kolom "D" jika criteria yang dibutuhkan adalah huruf pertama yang ada pada kolom "B" Misal G11852 = 16.33 atau B0404213 = 13.06, bila diisi manual seperti pada Kolom "C" dan bila dapat dengan formula (IF) maka pada kolom "D" sama dengan kolom "C" dengan banyak data pada kolom "B" seperti data terlampir

Terimakasih
Wassalamualaikum Wr. Wb.

Hairul Alam

Disclaimer - This message including any attachments and information contained
herein ("Message"; ) may contain privileged information or otherwise is protected
from disclosure. Any unauthorized use of this Message by any person may lead to
legal consequences. If you receive this Message in error, or if the recipient
of this Message is not the intended recipient or the employee or agent authorized
for delivering this Message to the intended recipient you are hereby notified that
any disclosure, dissemination, distribution or copying of this Message or let or
cause this Message to be disclosed,disseminated, distributed, or copied is strictly
prohibited, and please notify the sender by return message and immediately delete
this Message from your system. Incoming and outgoing communications using this
electronic mail may be monitored by PT Arutmin Indonesia,as permitted by applicable
law and regulations. Unless it is made by the authorized person,any views expressed
in this Message are those of the individual sender and may not necessarily reflect
the views of PT Arutmin Indonesia.
You should check attachments for viruses and defects before opening or using them.
We are not liable to recover any injuries caused by virused or defected attachments.

Tue May 9, 2017 3:14 am (PDT) . Posted by:

"M.Ade Alfarid" aderyo

Mungkin dengan formula lookup .

ade

*From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]

*Sent:* Tuesday, May 9, 2017 3:52 PM
*To:* belajar-excel@yahoogroups.com
*Subject:* [belajar-excel] Formula (IF) Jika dengan Karakter Huruf dan
Angka [1 Attachment]

Assalamualaikum Wr. Wb.

Para Master

Bagaimana formula (IF) pada kolom "D" jika criteria yang dibutuhkan adalah
huruf pertama yang ada pada kolom "B" Misal G11852 = 16.33 atau B0404213 =
13.06, bila diisi manual seperti pada Kolom "C" dan bila dapat dengan
formula (IF) maka pada kolom "D" sama dengan kolom "C" dengan banyak data
pada kolom "B" seperti data terlampir

Terimakasih

Wassalamualaikum Wr. Wb.

Hairul Alam

Tue May 9, 2017 7:09 am (PDT) . Posted by:

"HAIRUL ALAM"

Terimakasih Banyak Pencerahannya Mr. Rasyid

Pada Selasa, 9 Mei 2017 18:15, "'M.Ade Alfarid' QA@kkmi.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Mungkin dengan formula lookup . ade From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Tuesday, May 9, 2017 3:52 PM
To: belajar-excel@yahoogroups.com

Subject: [belajar-excel] Formula (IF) Jika dengan Karakter Huruf dan Angka [1 Attachment]   Assalamualaikum Wr. Wb.Para Master Bagaimana formula (IF) pada kolom "D" jika criteria yang dibutuhkan adalah huruf pertama yang ada pada kolom "B" Misal G11852 = 16.33 atau B0404213 = 13.06, bila diisi manual seperti pada Kolom "C" dan bila dapat dengan formula (IF) maka pada kolom "D" sama dengan kolom "C" dengan banyak data pada kolom "B" seperti data terlampir TerimakasihWassalamualaikum Wr. Wb. Hairul Alam #yiv9802877519 #yiv9802877519 -- #yiv9802877519ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9802877519 #yiv9802877519ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9802877519 #yiv9802877519ygrp-mkp #yiv9802877519hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9802877519 #yiv9802877519ygrp-mkp #yiv9802877519ads {margin-bottom:10px;}#yiv9802877519 #yiv9802877519ygrp-mkp .yiv9802877519ad {padding:0 0;}#yiv9802877519 #yiv9802877519ygrp-mkp .yiv9802877519ad p {margin:0;}#yiv9802877519 #yiv9802877519ygrp-mkp .yiv9802877519ad a {color:#0000ff;text-decoration:none;}#yiv9802877519 #yiv9802877519ygrp-sponsor #yiv9802877519ygrp-lc {font-family:Arial;}#yiv9802877519 #yiv9802877519ygrp-sponsor #yiv9802877519ygrp-lc #yiv9802877519hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9802877519 #yiv9802877519ygrp-sponsor #yiv9802877519ygrp-lc .yiv9802877519ad {margin-bottom:10px;padding:0 0;}#yiv9802877519 #yiv9802877519actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9802877519 #yiv9802877519activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9802877519 #yiv9802877519activity span {font-weight:700;}#yiv9802877519 #yiv9802877519activity span:first-child {text-transform:uppercase;}#yiv9802877519 #yiv9802877519activity span a {color:#5085b6;text-decoration:none;}#yiv9802877519 #yiv9802877519activity span span {color:#ff7900;}#yiv9802877519 #yiv9802877519activity span .yiv9802877519underline {text-decoration:underline;}#yiv9802877519 .yiv9802877519attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv9802877519 .yiv9802877519attach div a {text-decoration:none;}#yiv9802877519 .yiv9802877519attach img {border:none;padding-right:5px;}#yiv9802877519 .yiv9802877519attach label {display:block;margin-bottom:5px;}#yiv9802877519 .yiv9802877519attach label a {text-decoration:none;}#yiv9802877519 blockquote {margin:0 0 0 4px;}#yiv9802877519 .yiv9802877519bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv9802877519 .yiv9802877519bold a {text-decoration:none;}#yiv9802877519 dd.yiv9802877519last p a {font-family:Verdana;font-weight:700;}#yiv9802877519 dd.yiv9802877519last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9802877519 dd.yiv9802877519last p span.yiv9802877519yshortcuts {margin-right:0;}#yiv9802877519 div.yiv9802877519attach-table div div a {text-decoration:none;}#yiv9802877519 div.yiv9802877519attach-table {width:400px;}#yiv9802877519 div.yiv9802877519file-title a, #yiv9802877519 div.yiv9802877519file-title a:active, #yiv9802877519 div.yiv9802877519file-title a:hover, #yiv9802877519 div.yiv9802877519file-title a:visited {text-decoration:none;}#yiv9802877519 div.yiv9802877519photo-title a, #yiv9802877519 div.yiv9802877519photo-title a:active, #yiv9802877519 div.yiv9802877519photo-title a:hover, #yiv9802877519 div.yiv9802877519photo-title a:visited {text-decoration:none;}#yiv9802877519 div#yiv9802877519ygrp-mlmsg #yiv9802877519ygrp-msg p a span.yiv9802877519yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9802877519 .yiv9802877519green {color:#628c2a;}#yiv9802877519 .yiv9802877519MsoNormal {margin:0 0 0 0;}#yiv9802877519 o {font-size:0;}#yiv9802877519 #yiv9802877519photos div {float:left;width:72px;}#yiv9802877519 #yiv9802877519photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv9802877519 #yiv9802877519photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9802877519 #yiv9802877519reco-category {font-size:77%;}#yiv9802877519 #yiv9802877519reco-desc {font-size:77%;}#yiv9802877519 .yiv9802877519replbq {margin:4px;}#yiv9802877519 #yiv9802877519ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv9802877519 #yiv9802877519ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9802877519 #yiv9802877519ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9802877519 #yiv9802877519ygrp-mlmsg select, #yiv9802877519 input, #yiv9802877519 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv9802877519 #yiv9802877519ygrp-mlmsg pre, #yiv9802877519 code {font:115% monospace;}#yiv9802877519 #yiv9802877519ygrp-mlmsg * {line-height:1.22em;}#yiv9802877519 #yiv9802877519ygrp-mlmsg #yiv9802877519logo {padding-bottom:10px;}#yiv9802877519 #yiv9802877519ygrp-msg p a {font-family:Verdana;}#yiv9802877519 #yiv9802877519ygrp-msg p#yiv9802877519attach-count span {color:#1E66AE;font-weight:700;}#yiv9802877519 #yiv9802877519ygrp-reco #yiv9802877519reco-head {color:#ff7900;font-weight:700;}#yiv9802877519 #yiv9802877519ygrp-reco {margin-bottom:20px;padding:0px;}#yiv9802877519 #yiv9802877519ygrp-sponsor #yiv9802877519ov li a {font-size:130%;text-decoration:none;}#yiv9802877519 #yiv9802877519ygrp-sponsor #yiv9802877519ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv9802877519 #yiv9802877519ygrp-sponsor #yiv9802877519ov ul {margin:0;padding:0 0 0 8px;}#yiv9802877519 #yiv9802877519ygrp-text {font-family:Georgia;}#yiv9802877519 #yiv9802877519ygrp-text p {margin:0 0 1em 0;}#yiv9802877519 #yiv9802877519ygrp-text tt {font-size:120%;}#yiv9802877519 #yiv9802877519ygrp-vital ul li:last-child {border-right:none !important;}#yiv9802877519

Tue May 9, 2017 7:09 am (PDT) . Posted by:

"HAIRUL ALAM"

Terimakasih banyak pencerahannya Mr.Ade

Pada Selasa, 9 Mei 2017 18:15, "'M.Ade Alfarid' QA@kkmi.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Mungkin dengan formula lookup . ade From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]

Sent: Tuesday, May 9, 2017 3:52 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Formula (IF) Jika dengan Karakter Huruf dan Angka [1 Attachment]   Assalamualaikum Wr. Wb.Para Master Bagaimana formula (IF) pada kolom "D" jika criteria yang dibutuhkan adalah huruf pertama yang ada pada kolom "B" Misal G11852 = 16.33 atau B0404213 = 13.06, bila diisi manual seperti pada Kolom "C" dan bila dapat dengan formula (IF) maka pada kolom "D" sama dengan kolom "C" dengan banyak data pada kolom "B" seperti data terlampir TerimakasihWassalamualaikum Wr. Wb. Hairul Alam #yiv9802877519 #yiv9802877519 -- #yiv9802877519ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9802877519 #yiv9802877519ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9802877519 #yiv9802877519ygrp-mkp #yiv9802877519hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9802877519 #yiv9802877519ygrp-mkp #yiv9802877519ads {margin-bottom:10px;}#yiv9802877519 #yiv9802877519ygrp-mkp .yiv9802877519ad {padding:0 0;}#yiv9802877519 #yiv9802877519ygrp-mkp .yiv9802877519ad p {margin:0;}#yiv9802877519 #yiv9802877519ygrp-mkp .yiv9802877519ad a {color:#0000ff;text-decoration:none;}#yiv9802877519 #yiv9802877519ygrp-sponsor #yiv9802877519ygrp-lc {font-family:Arial;}#yiv9802877519 #yiv9802877519ygrp-sponsor #yiv9802877519ygrp-lc #yiv9802877519hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9802877519 #yiv9802877519ygrp-sponsor #yiv9802877519ygrp-lc .yiv9802877519ad {margin-bottom:10px;padding:0 0;}#yiv9802877519 #yiv9802877519actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9802877519 #yiv9802877519activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9802877519 #yiv9802877519activity span {font-weight:700;}#yiv9802877519 #yiv9802877519activity span:first-child {text-transform:uppercase;}#yiv9802877519 #yiv9802877519activity span a {color:#5085b6;text-decoration:none;}#yiv9802877519 #yiv9802877519activity span span {color:#ff7900;}#yiv9802877519 #yiv9802877519activity span .yiv9802877519underline {text-decoration:underline;}#yiv9802877519 .yiv9802877519attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv9802877519 .yiv9802877519attach div a {text-decoration:none;}#yiv9802877519 .yiv9802877519attach img {border:none;padding-right:5px;}#yiv9802877519 .yiv9802877519attach label {display:block;margin-bottom:5px;}#yiv9802877519 .yiv9802877519attach label a {text-decoration:none;}#yiv9802877519 blockquote {margin:0 0 0 4px;}#yiv9802877519 .yiv9802877519bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv9802877519 .yiv9802877519bold a {text-decoration:none;}#yiv9802877519 dd.yiv9802877519last p a {font-family:Verdana;font-weight:700;}#yiv9802877519 dd.yiv9802877519last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9802877519 dd.yiv9802877519last p span.yiv9802877519yshortcuts {margin-right:0;}#yiv9802877519 div.yiv9802877519attach-table div div a {text-decoration:none;}#yiv9802877519 div.yiv9802877519attach-table {width:400px;}#yiv9802877519 div.yiv9802877519file-title a, #yiv9802877519 div.yiv9802877519file-title a:active, #yiv9802877519 div.yiv9802877519file-title a:hover, #yiv9802877519 div.yiv9802877519file-title a:visited {text-decoration:none;}#yiv9802877519 div.yiv9802877519photo-title a, #yiv9802877519 div.yiv9802877519photo-title a:active, #yiv9802877519 div.yiv9802877519photo-title a:hover, #yiv9802877519 div.yiv9802877519photo-title a:visited {text-decoration:none;}#yiv9802877519 div#yiv9802877519ygrp-mlmsg #yiv9802877519ygrp-msg p a span.yiv9802877519yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9802877519 .yiv9802877519green {color:#628c2a;}#yiv9802877519 .yiv9802877519MsoNormal {margin:0 0 0 0;}#yiv9802877519 o {font-size:0;}#yiv9802877519 #yiv9802877519photos div {float:left;width:72px;}#yiv9802877519 #yiv9802877519photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv9802877519 #yiv9802877519photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9802877519 #yiv9802877519reco-category {font-size:77%;}#yiv9802877519 #yiv9802877519reco-desc {font-size:77%;}#yiv9802877519 .yiv9802877519replbq {margin:4px;}#yiv9802877519 #yiv9802877519ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv9802877519 #yiv9802877519ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9802877519 #yiv9802877519ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9802877519 #yiv9802877519ygrp-mlmsg select, #yiv9802877519 input, #yiv9802877519 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv9802877519 #yiv9802877519ygrp-mlmsg pre, #yiv9802877519 code {font:115% monospace;}#yiv9802877519 #yiv9802877519ygrp-mlmsg * {line-height:1.22em;}#yiv9802877519 #yiv9802877519ygrp-mlmsg #yiv9802877519logo {padding-bottom:10px;}#yiv9802877519 #yiv9802877519ygrp-msg p a {font-family:Verdana;}#yiv9802877519 #yiv9802877519ygrp-msg p#yiv9802877519attach-count span {color:#1E66AE;font-weight:700;}#yiv9802877519 #yiv9802877519ygrp-reco #yiv9802877519reco-head {color:#ff7900;font-weight:700;}#yiv9802877519 #yiv9802877519ygrp-reco {margin-bottom:20px;padding:0px;}#yiv9802877519 #yiv9802877519ygrp-sponsor #yiv9802877519ov li a {font-size:130%;text-decoration:none;}#yiv9802877519 #yiv9802877519ygrp-sponsor #yiv9802877519ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv9802877519 #yiv9802877519ygrp-sponsor #yiv9802877519ov ul {margin:0;padding:0 0 0 8px;}#yiv9802877519 #yiv9802877519ygrp-text {font-family:Georgia;}#yiv9802877519 #yiv9802877519ygrp-text p {margin:0 0 1em 0;}#yiv9802877519 #yiv9802877519ygrp-text tt {font-size:120%;}#yiv9802877519 #yiv9802877519ygrp-vital ul li:last-child {border-right:none !important;}#yiv9802877519

Tue May 9, 2017 4:05 am (PDT) . Posted by:

slx_marco

Dear Nangagus,

Sebenarnya bisa saja di jadikan satu tabel, dan di filter secara manual...
Cara menampilkan nya seperti terlampir bagaimana rumus nya..

Salam,
Marco

Tue May 9, 2017 8:55 am (PDT) . Posted by:

"Mustakim Irwan" mustakim.irwan

Assalamua'alaikum Wr. WB

Dear Para Master excel,

Bersama dengan ini saya mohon bantuan para master excel cara bagaimana menambahkan rumus validasi dengan 2 kriteria Pilihan yaitu bisa pilih code dan bisa pilih bulan juga secara random.
File terlampir

Adapun kesulitan yang saya alami yaitu cara menambahkan rumus agar bulan Jan, Feb dan Mar dan nantinya sampai bulan Desember 2017 bisa mengisi  data di samping ini, jika hanya  menggunakan 1 bulan saja rumus yang saya gunakan sudah bisa berjalan dengan baik ( Source hanya bulan Apr ).

Yang saya inginkan semua bulan bisa dipilih tergantung bulan apa yang akan saya pilih dan jika dipilih All berarti total nilai semua bulan.

Sebelum dan sesudahnya saya ucapkan terima kasih banyak atas bantuan para master.

Wassalam,
Mustakim

Tue May 9, 2017 8:55 am (PDT) . Posted by:

"farud oke"

Assalamualaikum..
Sekali lagi saya bertanya lagi dalam forum ini,maklum pengetahuan ttg Excel
masih dangkal dan kpd para master2 mohon jgn bosan ngejawabnya.adakah kode
VBA yg bisa mengubah file yg semula Xlsm menjadi Xlsb atau binary dan
disimpan di folder D.klo mmg bisa bagaimana kodenya
Atas bantuan para master sekalian saya sampaikan terimakasih
============================================================
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 08.55

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)