Messages In This Digest (16 Messages)

1a.: FILTER DENGAN MACRO From: Andrie -
1b.: Re: FILTER DENGAN MACRO From: STDEV(i)
1c.: Re: FILTER DENGAN MACRO From: Sony Ario
1d.: Re: FILTER DENGAN MACRO From: Franciscus SOG

2a.: sortcut paste special From: Komisi Delapan
2b.: Re: sortcut paste special From: Angga Gurmilang Sedar
2c.: Re: sortcut paste special From: Eka Subyantara
2d.: Re: sortcut paste special From: STDEV(i)
2e.: Re: sortcut paste special From: agung_widodo@sanyo.com

3a.: Re: Copy isi cell terakhir From: Mr. Kid

4a.: Re: KO' BEGINI FORMATTINGNYA ? From: Eka Subyantara

5a.: Setting format Comma Style From: Eka Subyantara
5b.: Re: Setting format Comma Style From: summonery
5c.: Re: Setting format Comma Style From: Eka Subyantara

6a.: Re: perubahan text angka pecahan ke angka decimal From: fritz saiya
6b.: Re: perubahan text angka pecahan ke angka decimal From: STDEV(i)

View All Topics | Create New Topic

Messages

1a.: FILTER DENGAN MACRO

Posted by: "Andrie -" sioean2@yahoo.com sioean2

Tue May 31, 2011 4:39 am (PDT)

bagaimana caranya jika kita mau melakukan filter dengan sebuah kriteria dengan menggunakan macro.
Mohon bantuannya. Thx

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
1b.: Re: FILTER DENGAN MACRO

Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi

Tue May 31, 2011 11:28 am (PDT)

*"Filter itu apa"* menurut pendapat penanya, mestinya dijelaskan dulu.
untuk menghidari kejadian spt ini

"setelah "Proyek Selesai" yg terdengar hanya komment:
"Ooo bukan begitu, kalau cuma gitu aku dah bisa !!"

'et deh..

(1)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dTabel As Range, r As Long
' siti Vi / 30 May 2011 / beExcel case
' FILTER DENGAN MENYEMBUNYIKAN DATA YG TERSARING
'-----------------------------------------------
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Application.ScreenUpdating = False
If Target.Count = 1 Then
If Target.Address = "$B$1" Then
Set dTabel = Cells(4, 1).CurrentRegion
dTabel.EntireRow.Hidden = False
If Target = vbNullString Then GoTo ENDPROC
For r = 1 To dTabel.Rows.Count
If Not dTabel(r, 1) = Target Then
dTabel(r, 1).EntireRow.Hidden = True
End If
Next
End If
End If
ENDPROC:
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

(2)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim dTabel As Range, Tampil As Range
Dim r As Long, n As Long
' siti Vi / 30 May 2011 / beExcel case
' FILTER DGN MENGOPY data YG LOLOS ke RANGE LAIN
'-----------------------------------------------
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
On Error GoTo AKHIR
If Target.Count = 1 Then
If Target.Address = "$F$11" Then
Set dTabel = Cells(1, 1).CurrentRegion
Set Tampil = Cells(13, 6).CurrentRegion
Tampil.ClearContents
For r = 2 To dTabel.Rows.Count
If dTabel(r, 1) = Target Then
n = n + 1
Tampil(n, 1) = dTabel(r, 1)
Tampil(n, 2) = dTabel(r, 2)
End If
Next
End If
End If
AKHIR:
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub

2011/5/31 Andrie - <sioean2@yahoo.com>
> bagaimana caranya jika kita mau melakukan filter dengan sebuah kriteria
dengan menggunakan macro.
> Mohon bantuannya. Thx

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
1c.: Re: FILTER DENGAN MACRO

Posted by: "Sony Ario" sony.ario1@gmail.com

Tue May 31, 2011 6:47 pm (PDT)

pagi mbak Siti.

Maap. Saya baru bergabung dimilis ini. Plus baru mau belajar ttg Excel
macro dan formula nya.

Di contoh mbak Siti itu, di sheet2 nya ada contoh yg menggunakan
formula. Itu gimana ya mbak ? Maap kl saya salah.

terima kasih.

On 6/1/11, STDEV(i) <setiyowati.devi@gmail.com> wrote:
> *"Filter itu apa"* menurut pendapat penanya, mestinya dijelaskan dulu.
> untuk menghidari kejadian spt ini
>
> "setelah "Proyek Selesai" yg terdengar hanya komment:
> "Ooo bukan begitu, kalau cuma gitu aku dah bisa !!"
>
> 'et deh..
>
> (1)
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> Dim dTabel As Range, r As Long
> ' siti Vi / 30 May 2011 / beExcel case
> ' FILTER DENGAN MENYEMBUNYIKAN DATA YG TERSARING
> '-----------------------------------------------
> Application.Calculation = xlCalculationManual
> Application.EnableEvents = False
> Application.ScreenUpdating = False
> If Target.Count = 1 Then
> If Target.Address = "$B$1" Then
> Set dTabel = Cells(4, 1).CurrentRegion
> dTabel.EntireRow.Hidden = False
> If Target = vbNullString Then GoTo ENDPROC
> For r = 1 To dTabel.Rows.Count
> If Not dTabel(r, 1) = Target Then
> dTabel(r, 1).EntireRow.Hidden = True
> End If
> Next
> End If
> End If
> ENDPROC:
> Application.Calculation = xlCalculationAutomatic
> Application.EnableEvents = True
> Application.ScreenUpdating = True
> End Sub
>
>
> (2)
> Private Sub Worksheet_Change(ByVal Target As Range)
> Dim dTabel As Range, Tampil As Range
> Dim r As Long, n As Long
> ' siti Vi / 30 May 2011 / beExcel case
> ' FILTER DGN MENGOPY data YG LOLOS ke RANGE LAIN
> '-----------------------------------------------
> Application.Calculation = xlCalculationManual
> Application.EnableEvents = False
> On Error GoTo AKHIR
> If Target.Count = 1 Then
> If Target.Address = "$F$11" Then
> Set dTabel = Cells(1, 1).CurrentRegion
> Set Tampil = Cells(13, 6).CurrentRegion
> Tampil.ClearContents
> For r = 2 To dTabel.Rows.Count
> If dTabel(r, 1) = Target Then
> n = n + 1
> Tampil(n, 1) = dTabel(r, 1)
> Tampil(n, 2) = dTabel(r, 2)
> End If
> Next
> End If
> End If
> AKHIR:
> Application.Calculation = xlCalculationAutomatic
> Application.EnableEvents = True
> End Sub
>
>
>
> 2011/5/31 Andrie - <sioean2@yahoo.com>
>> bagaimana caranya jika kita mau melakukan filter dengan sebuah kriteria
> dengan menggunakan macro.
>> Mohon bantuannya. Thx
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
1d.: Re: FILTER DENGAN MACRO

Posted by: "Franciscus SOG" jclugbu@gmail.com elijah_spirit

Tue May 31, 2011 11:59 pm (PDT)

Dear Sony,

File berikut mungkin bisa membantu (banyak alternatif lainnya koq).

Blessings,

Fran'z

On 6/1/11, Sony Ario <sony.ario1@gmail.com> wrote:
> pagi mbak Siti.
>
> Maap. Saya baru bergabung dimilis ini. Plus baru mau belajar ttg Excel
> macro dan formula nya.
>
> Di contoh mbak Siti itu, di sheet2 nya ada contoh yg menggunakan
> formula. Itu gimana ya mbak ? Maap kl saya salah.
>
> terima kasih.
>
> On 6/1/11, STDEV(i) <setiyowati.devi@gmail.com> wrote:
>> *"Filter itu apa"* menurut pendapat penanya, mestinya dijelaskan dulu.
>> untuk menghidari kejadian spt ini
>>
>> "setelah "Proyek Selesai" yg terdengar hanya komment:
>> "Ooo bukan begitu, kalau cuma gitu aku dah bisa !!"
>>
>> 'et deh..
>>
>> (1)
>>
>> Private Sub Worksheet_Change(ByVal Target As Range)
>> Dim dTabel As Range, r As Long
>> ' siti Vi / 30 May 2011 / beExcel case
>> ' FILTER DENGAN MENYEMBUNYIKAN DATA YG TERSARING
>> '-----------------------------------------------
>> Application.Calculation = xlCalculationManual
>> Application.EnableEvents = False
>> Application.ScreenUpdating = False
>> If Target.Count = 1 Then
>> If Target.Address = "$B$1" Then
>> Set dTabel = Cells(4, 1).CurrentRegion
>> dTabel.EntireRow.Hidden = False
>> If Target = vbNullString Then GoTo ENDPROC
>> For r = 1 To dTabel.Rows.Count
>> If Not dTabel(r, 1) = Target Then
>> dTabel(r, 1).EntireRow.Hidden = True
>> End If
>> Next
>> End If
>> End If
>> ENDPROC:
>> Application.Calculation = xlCalculationAutomatic
>> Application.EnableEvents = True
>> Application.ScreenUpdating = True
>> End Sub
>>
>>
>> (2)
>> Private Sub Worksheet_Change(ByVal Target As Range)
>> Dim dTabel As Range, Tampil As Range
>> Dim r As Long, n As Long
>> ' siti Vi / 30 May 2011 / beExcel case
>> ' FILTER DGN MENGOPY data YG LOLOS ke RANGE LAIN
>> '-----------------------------------------------
>> Application.Calculation = xlCalculationManual
>> Application.EnableEvents = False
>> On Error GoTo AKHIR
>> If Target.Count = 1 Then
>> If Target.Address = "$F$11" Then
>> Set dTabel = Cells(1, 1).CurrentRegion
>> Set Tampil = Cells(13, 6).CurrentRegion
>> Tampil.ClearContents
>> For r = 2 To dTabel.Rows.Count
>> If dTabel(r, 1) = Target Then
>> n = n + 1
>> Tampil(n, 1) = dTabel(r, 1)
>> Tampil(n, 2) = dTabel(r, 2)
>> End If
>> Next
>> End If
>> End If
>> AKHIR:
>> Application.Calculation = xlCalculationAutomatic
>> Application.EnableEvents = True
>> End Sub
>>
>>
>>
>> 2011/5/31 Andrie - <sioean2@yahoo.com>
>>> bagaimana caranya jika kita mau melakukan filter dengan sebuah kriteria
>> dengan menggunakan macro.
>>> Mohon bantuannya. Thx
>>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

2a.: sortcut paste special

Posted by: "Komisi Delapan" komisi8_dewan_perwakilan_rakyat@yahoo.com

Tue May 31, 2011 5:50 am (PDT)

Selamat sore semua
numpang tanya
1.ada yang tahu sortcut untuk click kanan paste special value?
terima kasih atas bantuannya.
2.untuk langsung menghilangkan n#a menjadi 0 pada vlookup bagaimana ya?

terima kasih

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
2b.: Re: sortcut paste special

Posted by: "Angga Gurmilang Sedar" mail@gilangsedar.com gilang_parastar

Tue May 31, 2011 5:53 am (PDT)

Yth, Komisi Delapan.

1.Untuk Shorcut paste special value, kalau anda lihat di keyboard anda, disamping spasi,alt atau ctrl ada tombol pengganti klik kanan pada mouse... Nah kombinasikan itu dengan S kemudian V.

2. Untuk menghilangkan #N/A, bisa pake IFERROR, atau ISERROR

Terima Kasih
----------------------------------------------------------
Best Regards,
Angga Gurmilang Sedar
----------------------------------------------------------
Sent from Blackberry® Pinjeman™

-----Original Message-----
From: Komisi Delapan <komisi8_dewan_perwakilan_rakyat@yahoo.com>
Sender: belajar-excel@yahoogroups.com
Date: Tue, 31 May 2011 17:48:54
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] sortcut paste special

Selamat sore semua
numpang tanya
1.ada yang tahu sortcut untuk click kanan paste special value?
terima kasih atas bantuannya.
2.untuk langsung menghilangkan n#a menjadi 0 pada vlookup bagaimana ya?

terima kasih

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
2c.: Re: sortcut paste special

Posted by: "Eka Subyantara" eka.subyantara@widyatama.ac.id eka_subyantara

Tue May 31, 2011 5:59 am (PDT)

1.Sortcut untuk click kanan paste special value : Alt-E-S-V
2.untuk langsung menghilangkan n#a menjadi 0 pada vlookup :
=IF*(*ISERR*(*VLOOKUP*(*...*))*,0,VLOOKUP*(*...*))*

Tapi rasanya untuk no 2 saya pernah lihat cara yang lebih keren dari Mr.Kid
dan/atau CTV

= eka =

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
2d.: Re: sortcut paste special

Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi

Tue May 31, 2011 10:12 am (PDT)

*(2) menghilangkan hasil error vlaue #N/A!*

tapiiii ...
untuk melihat jawaban lain yg SUDAH PERNAH ADA... 'kan diperlukan sedikit
KEMAUAN membuka-buka posting lama di milis, (dengan rasa penuh kasih sayang
terhadap milis);
Sedangkan tidak semua milis members (dapat dinilai dari beberapa kali
postingnya)
bukan bertype spt itu

Bagi "orang-orang praktis", milis *hanya* menjadi tempat bertanya Thok
(saja) !,
bukan* juga sbg tempat **mengais-**kais *info yg SUDAH ada di situhhh...

*(1) Jalan Pintas / Short Cut*

menambahi penjelasan pak eka, (daripada nanti ada pertanyaan lagi yg masih
senada)

*ALt E > S > V*
E adalah HURUF BERGARIS BAWAH pada menu *E*dit,
S adalah HURUF BERGARIS BAWAH pada Submenu Paste*S*pecial
V adalah HURUF BERGARIS BAWAH pada *V*alue di dlm dialogBox PasteSpecial
[image: Jalan Pintas - short cut.PNG]

Selain di Excel Help (yg sering kita lupa tempatnya, (dan tidak ada
BookMarknya)
kita bahkan lebih gampang mencatat ""help dari luar excel di internet"
karena
browser-modern saat ini sangat menggampangkan kita dlm membuat bookmarks

Coba url ini disimpan sebgai bookmark, tentu sewaktu waktu ada gunanya

http://www.shortcutworld.com/en/win/Excel_2007.html

mudah-mudahan bermanfaat...

2011/5/31 Eka Subyantara <eka.subyantara@widyatama.ac.id>

>
>
> 1.Sortcut untuk click kanan paste special value : Alt-E-S-V
> 2.untuk langsung menghilangkan n#a menjadi 0 pada vlookup :
> =IF*(*ISERR*(*VLOOKUP*(*...*))*,0,VLOOKUP*(*...*))*
>
> Tapi rasanya untuk no 2 saya pernah lihat cara yang lebih keren dari Mr.Kid
> dan/atau CTV
>
> = eka =
> ------------------------------
> *From: *Komisi Delapan <komisi8_dewan_perwakilan_rakyat@yahoo.com>
> *Sender: *belajar-excel@yahoogroups.com
> *Date: *Tue, 31 May 2011 17:48:54 +0800 (SGT)
> *To: *<belajar-excel@yahoogroups.com>
> *Subject: *[belajar-excel] sortcut paste special
>
>
> Selamat sore semua
> numpang tanya
> 1.ada yang tahu sortcut untuk click kanan paste special value?
> terima kasih atas bantuannya.
> 2.untuk langsung menghilangkan n#a menjadi 0 pada vlookup bagaimana ya?
>
> terima kasih
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
2e.: Re: sortcut paste special

Posted by: "agung_widodo@sanyo.com" agung_widodo@sanyo.com

Tue May 31, 2011 6:19 pm (PDT)

Untuk jawaban No 1,
Berhubung saya sering sekali juga Paste Special Value

Kalau di komputer saya biasa saya tekan Ctrl+E
Tapi terlebih dahulu saya tanamkan dulu makro berikut ini di file Personal.xls

Sub PSV()
'
' PSV Macro
' Macro recorded 2/19/2011 by -agung
'
' Keyboard Shortcut: Ctrl+e
'
Selection.PasteSpecial Paste:=xlPasteValues
End Sub

Untuk No.2
Perlu diketahui, Excel sengaja menampilkan #N/A (dan bukan 0) itu ada maksudnya lho.
#N/A dibaca : Number No Available atau tidak ada angkanya
(Kalau O dibaca eNOL) :)
Hati-hati beda maksudnya.
________________________________
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Komisi Delapan
Sent: Tuesday, May 31, 2011 4:49 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] sortcut paste special

Selamat sore semua
numpang tanya
1.ada yang tahu sortcut untuk click kanan paste special value?
terima kasih atas bantuannya.
2.untuk langsung menghilangkan n#a menjadi 0 pada vlookup bagaimana ya?

terima kasih

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

3a.: Re: Copy isi cell terakhir

Posted by: "Mr. Kid" mr.nmkid@gmail.com nmkid.family@ymail.com

Tue May 31, 2011 6:04 am (PDT)

Bunyinya tentang lookup

Remarks

- If the *LOOKUP* function can't find the *lookup_value*, the function
matches the largest value in *lookup_vector* that is less than or equal
to *lookup_value*.
- If *lookup_value* is smaller than the smallest value in *lookup_vector*,
*LOOKUP* returns the #N/A error value.

Jadi, dengan sifat semua lookup excel yang berdasar type data yang sama,
maka untuk data array lookup adalah numerik, digunakan 9^9 untuk mencari
nilai numerik terakhir pada array lookup, selama array lookup tidak pernah
mencapai nilai 9^9

Berlaku juga pada penggunaan "zzzz" untuk data bertype string.
Prinzip dazar adalah tidak ada nilai lookup yang biza mencapai "zzzz"

Kid.

2011/5/31 Anton Gundul <antongundul@yahoo.com>

>
>
> Dear Master
> Pada file tersebut saya mendapati formula:
>
> =IF(COUNTA('Database BKM'!D:D)>1,LOOKUP("zzzz",'Database BKM'!D:D),"")
>
> Yang ingin saya tanyakan, kok bisa zzzz atau 9^9 tu logikanya gimana ya.
> Apa itu diasumsikan sebagai karakter terakhir dalam alfabet? Bagaimana kalau
> saya menggunakan RRR atau zz atau 7?
> Mohon pencerahannya dan terimakasih sebelumnya
>
> ================================================
> MOD NOTE:
> sambil menunggu comments dari mas kid
> kita baiknya buka krepekan dulu about fungsi LOOKUP
> Di formula bar ketik =LOOKUP(
> ceklik ikon fx nya di sebelah kirinya
> jika muncul dialog 'Func Argument', ceklik link di bagian
> pojok-kiri-bawah
> Lihat penjelasan tiap ARgument fungsi tsb, seru deh...
> ===============================================
>
> --- Pada Sen, 30/5/11, Mr. Kid <mr.nmkid@gmail.com> menulis:
> Dari: Mr. Kid <mr.nmkid@gmail.com>
> Tanggal: Senin, 30 Mei, 2011, 8:46 PM
>
>
> Dear Arief,
>
> File terlampir berusaha menggunakan formula.
> Jika menggunakan kolom bantu di kolom Y, maka cell o4 bisa menggunakan
> fungsi VLookUp.
> Jika tidak mau dengan kolom bantu di kolom Y, maka bisa disusun formula
> Offset menggunakan Indirect.
>
> Sebelum datanya terisi banyak, sebaiknya susun untuk kolom-kolom item per
> bukti tersebut secara vertikal saja, sehingga tabel data akan menjadi
> sederhana. Bahkan, tidak perlu ada banyak sheet database, karena dalam kode
> sudah ada data tentang item BKM dsb.
>
> Kid.
>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)

4a.: Re: KO' BEGINI FORMATTINGNYA ?

Posted by: "Eka Subyantara" eka.subyantara@widyatama.ac.id eka_subyantara

Tue May 31, 2011 6:39 am (PDT)

Nah! kebetulan masalahnya serupa, saya memaksakan diri untuk "nebeng trit"
:-)

Untuk bilangan asal 1000 bila klik icon format "Comma Style"
Di komputer A hasilnya 1.000
Di komputer A hasilnya 1.000,00

Koq bisa beda ya? padahal dua-duanya Excel 2003, Windowsnya sama2 XP.

Padahal Regional Settingnya jelas-jelas 2 angka belakang koma.

Eni aidieu?

= eka =

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

5a.: Setting format Comma Style

Posted by: "Eka Subyantara" eka.subyantara@widyatama.ac.id eka_subyantara

Tue May 31, 2011 7:38 pm (PDT)

Saya hadirkan kembali persoalan yang "Amat Sangat Sepele Tapi Pelik"
Tentu saja bantuan semua pihak sangat diharapkan, dari para pakar hingga
pemula.

Pada sel yang berisi bilangan 1000 bila diklik icon format "Comma Style"
Di komputer A hasilnya *1.000*
Di komputer B hasilnya *1.000,00
*
*Koq bisa beda ya? *

Padahal dua-duanya Excel 2003, Windowsnya sama2 XP.
Regional Settingnya juga jelas-jelas Indonesia dengan 2 angka belakang koma.

Intinya: Bagaimana mengatur default penampakan untuk icon Comma Style?

Eni aidieu?

= eka =

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
5b.: Re: Setting format Comma Style

Posted by: "summonery" summonery@yahoo.com summonery

Tue May 31, 2011 10:02 pm (PDT)

Excel 2007:
Home > Cell Styles > Number Format > Comma > Klik Kanan > Modify > Format sesuai keinginan! (misal: Decimal Places: 0)

Excel 2003:
ada di bagian menu Format > Style > dst (kl gk slh)... dah lama gk pk Excel2003 :)

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, Eka Subyantara <eka.subyantara@...> wrote:
>
> Saya hadirkan kembali persoalan yang "Amat Sangat Sepele Tapi Pelik"
> Tentu saja bantuan semua pihak sangat diharapkan, dari para pakar hingga
> pemula.
>
> Pada sel yang berisi bilangan 1000 bila diklik icon format "Comma Style"
> Di komputer A hasilnya *1.000*
> Di komputer B hasilnya *1.000,00
> *
> *Koq bisa beda ya? *
>
> Padahal dua-duanya Excel 2003, Windowsnya sama2 XP.
> Regional Settingnya juga jelas-jelas Indonesia dengan 2 angka belakang koma.
>
>
> Intinya: Bagaimana mengatur default penampakan untuk icon Comma Style?
>
> Eni aidieu?
>
> = eka =
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
5c.: Re: Setting format Comma Style

Posted by: "Eka Subyantara" eka.subyantara@widyatama.ac.id eka_subyantara

Tue May 31, 2011 10:21 pm (PDT)

Bro summonery, top banget dah!
Persissss hasilnya spt yg diharapkan...

Berbagi itu menyenangkan dan mencerdaskan!

*Sebaik-baik manusia adalah yang beranfaat bagi orang lain (Al-Hadits)*
= eka =

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

6a.: Re: perubahan text angka pecahan ke angka decimal

Posted by: "fritz saiya" fsaiya@gmail.com

Tue May 31, 2011 8:42 pm (PDT)

Terima kasih atas pencerahannya , tetapi jika ada tanda minusnya bagaimana
formatnya.
Contoh :

-377'-11"

to

-377.91667

-382'-5 11/16"

to

-382.47396

Pada 31 Mei 2011 14:07, zainul ulum [yahoo] <zainul_ulum@yahoo.com> menulis:

> Misal data yang akan diconvert di A2
>
>
> =--SUBSTITUTE(LEFT(A2,FIND("-",A2)-1)&"'","'","")+SUBSTITUTE(MID(A2,FIND("-",A2)+1,99),CHAR(34),"")/12
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *fritz saiya
> *Sent:* Tuesday, May 31, 2011 1:37 PM
> *To:* belajar-excel@yahoogroups.com
> *Subject:* [belajar-excel] perubahan text angka pecahan ke angka decimal
>
>
>
>
>
> Dear Be-excel ,
>
> Saya mau konversi text angka pecahan ( feet ) ke angka decimal ( feet ),
> bagaimana caranya ??? seperti contoh di bawah ini :
>
>
>
> 377'-11"
>
> to
>
> 377.91667
>
> 382'-5 11/16"
>
> to
>
> 382.47396
>
> 379'-10 7/8"
>
> to
>
> 379.90625
>
> 378'-1/16"
>
> to
>
> 378.00521
>
>
>
> Terima kasih,
>
> FSaiya
>
>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
6b.: Re: perubahan text angka pecahan ke angka decimal

Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi

Tue May 31, 2011 9:21 pm (PDT)

Rumus di-modifikasi dikitts
Pada bagian FIND diganti dgn:

FIND("'-",A2)

Lengkapnya:

=Left(A2, FIND("'-",A2)-1) + Substitute(Mid(A2,FIND("'-",A2)+1,99),"""","") /12

On 6/1/11, fritz saiya <fsaiya@gmail.com> wrote:
> Terima kasih atas pencerahannya , tetapi jika ada tanda minusnya bagaimana
> formatnya.
> Contoh :
>
> -377'-11"
> to
> -377.91667
>
> -382'-5 11/16"
> to
> -382.47396
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

Create New Topic | Visit Your Group on the Web

Messages

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

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

Rabu, 01 Juni 2011

Messages In This Digest (16 Messages)

Messages

Posted by: "Andrie -" sioean2@yahoo.com sioean2

Tue May 31, 2011 4:39 am (PDT)

Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi

Tue May 31, 2011 11:28 am (PDT)

Posted by: "Sony Ario" sony.ario1@gmail.com

Tue May 31, 2011 6:47 pm (PDT)

Posted by: "Franciscus SOG" jclugbu@gmail.com elijah_spirit

Tue May 31, 2011 11:59 pm (PDT)

Posted by: "Komisi Delapan" komisi8_dewan_perwakilan_rakyat@yahoo.com

Tue May 31, 2011 5:50 am (PDT)

Posted by: "Angga Gurmilang Sedar" mail@gilangsedar.com gilang_parastar

Tue May 31, 2011 5:53 am (PDT)

Posted by: "Eka Subyantara" eka.subyantara@widyatama.ac.id eka_subyantara

Tue May 31, 2011 5:59 am (PDT)

Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi

Tue May 31, 2011 10:12 am (PDT)

Posted by: "agung_widodo@sanyo.com" agung_widodo@sanyo.com

Tue May 31, 2011 6:19 pm (PDT)

Posted by: "Mr. Kid" mr.nmkid@gmail.com nmkid.family@ymail.com

Tue May 31, 2011 6:04 am (PDT)

Posted by: "Eka Subyantara" eka.subyantara@widyatama.ac.id eka_subyantara

Tue May 31, 2011 6:39 am (PDT)

Posted by: "Eka Subyantara" eka.subyantara@widyatama.ac.id eka_subyantara

Tue May 31, 2011 7:38 pm (PDT)

Posted by: "summonery" summonery@yahoo.com summonery

Tue May 31, 2011 10:02 pm (PDT)

Posted by: "Eka Subyantara" eka.subyantara@widyatama.ac.id eka_subyantara

Tue May 31, 2011 10:21 pm (PDT)

Posted by: "fritz saiya" fsaiya@gmail.com

Tue May 31, 2011 8:42 pm (PDT)

Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi

Tue May 31, 2011 9:21 pm (PDT)

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me