]] XL-mania [[ Digest Number 2499

Microsoft Excel Community Group

12 New Messages

Digest #2499

1

Jurus mengatasi debug macro by "Adi Idrus" adiidrus900

2a

Re: meresume absen awal dan akhir, per hari per orang by "eko rioeh" eko_rioeh

2b

Re: meresume absen awal dan akhir, per hari per orang by "Mr. Kid" nmkid.family@ymail.com

3

Kode VBA untuk Membuat huruf miring pada kondisi tertentu.. by "aditia nugraha"

4a

Re: cara merubah data koordinat by "NANG Agus"

4b

Re: cara merubah data koordinat by "zainul_ulum[at]yahoo[dot]com" zainul_ulum

4c

Re: cara merubah data koordinat by "Nazwarman" nazwarman

5

print database dari worksheet lain dengan VBA by "Bangkit" belonk_182

6a

Bls: ]] XL-mania [[ cara merubah data koordinat by "ghozi alkatiri" ghozialkatiri

7a

Re: Terbilang menggunakan cent dan dollar by "zainul_ulum[at]yahoo[dot]com" zainul_ulum

8a

Re: file excel 2010 tidak bisa dibuka di excel 2007 by "ardo.ronald@yahoo.com" earthland78

9a

Re: Save as excel 2003 ke versi 2010 by "Mr. Kid" nmkid.family@ymail.com

Messages

1

Jurus mengatasi debug macro

Wed Oct 17, 2012 10:49 am (PDT) . Posted by:

"Adi Idrus" adiidrus900

Dear para Suhu excell
 
Bagaimana ya, mengatasi makro yang terjadi "Compile Error: Method or data member not found" saya coba dengan code On error resume next, tapi tidak bisa, adakah code yang mujarab..
 
Terimakasih
 
Adi Idrus

Reply to sender . Reply to group . Reply via Web Post . All Messages (1) . Top ^

2a

Re: meresume absen awal dan akhir, per hari per orang

Wed Oct 17, 2012 10:49 am (PDT) . Posted by:

"eko rioeh" eko_rioeh

Pak IRA,

Silahkan di coba langkah  berikut, attachment terlampir :

1. Terlebih dahulu ubah format kolom "Date" dan "Time" yang tadi text ke Date dan Time seperti berikut:

- kolom date : =DATEVALUE(TEXT($A2,"m-d-yy"))
- kolom time : =TIMEVALUE(RIGHT(TEXT($A2,"dd-mmm-yy hh:mm"),5))

2.  Pada sheet Resume, silahkan gunakan formula berikut jangan lupa tekan bersamaan ctrl+shift+enter untuk apply array:
 
- kolom start: ={IFERROR(MIN(OFFSET('Base data'!$I$1,MATCH(1,('Base data'!$D$2:$D$118=$E3)*($C3='Base data'!$H$2:$H$118),0),0,COUNTIFS('Base data'!$D$2:$D$118,"="&resume!E3,'Base data'!$H$2:$H$118,"="&resume!C3),1)),"")}

- kolom finish : ={IFERROR(MAX(OFFSET('Base data'!$I$1,MATCH(1,('Base data'!$D$2:$D$118=$E12)*($C12='Base data'!$H$2:$H$118),0),0,COUNTIFS('Base data'!D11:D127,"="&resume!E12,'Base data'!H11:H127,"="&resume!C12),1)),"")}

________________________________
From: Imron Rachmanu Adji <imron.adji@yahoo.com>
To: XL-mania@yahoogroups.com
Sent: Monday, October 15, 2012 10:20 AM
Subject: ]] XL-mania [[ meresume absen awal dan akhir, per hari per orang


 

--- On Mon, 10/15/12, Imron Rachmanu Adji <imron.adji@yahoo.com> wrote:

>From: Imron Rachmanu Adji <imron.adji@yahoo.com>
>Subject: Resume
>To: XL-mania@yahoogroups.com
>Date: Monday, October 15, 2012, 1:16 AM
>
>
>dear XL-mania
>seperti file terlampir, didalam file itu saya punya data base seperti terlampir, formula bagaimana didalam sheet resume kita memperoleh data setiap orang "mulai awal start" dan "saat mengakhiri pekerjaan" pada setiap harinya.
>best regards
>IRA

Reply to sender . Reply to group . Reply via Web Post . All Messages (4) . Top ^

2b

Re: meresume absen awal dan akhir, per hari per orang

Wed Oct 17, 2012 10:52 am (PDT) . Posted by:

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

Coba dengan pivot table.
Data ditambah 2 kolom, yaitu
1. tgl berisi nilai date dari kolom A yang disusun dengan formula =Int(A2)
2. time_out berisi nilai date time dari kolom A yang disusun dengan formula
=A2

Wassalam,
Kid.

2012/10/15 Imron Rachmanu Adji <imron.adji@yahoo.com>

> **
>
>
>
>
> --- On *Mon, 10/15/12, Imron Rachmanu Adji <imron.adji@yahoo.com>* wrote:
>
>
> From: Imron Rachmanu Adji <imron.adji@yahoo.com>
> Subject: Resume
> To: XL-mania@yahoogroups.com
> Date: Monday, October 15, 2012, 1:16 AM
>
> dear XL-mania
> seperti file terlampir, didalam file itu saya punya data base seperti
> terlampir, formula bagaimana didalam sheet resume kita memperoleh data
> setiap orang "mulai awal start" dan "saat mengakhiri pekerjaan" pada setiap
> harinya.
> best regards
> IRA
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (4) . Top ^

3

Kode VBA untuk Membuat huruf miring pada kondisi tertentu..

Wed Oct 17, 2012 10:50 am (PDT) . Posted by:

"aditia nugraha"

mas mau tanya nih,

mengenai kode vba di excel 2010 untuk mengganti text dalam "( )"
menjadi *italic
*atau miring.

contoh yang di iginkan seperti ini :

cleaning service ( petugas kebersihan ) --> yang di inginkan
menjadi cleaning service ( *petugas kebersihan* )

saya sudah pake script ini.

tapi runtime error 450 terus. kira kira problem solvng nya apa ya ?

terimaksih
aditia

Sub Find_and_Italicise()
'
' Macro recorded by Bird_FAT
' This macro uses the wildcard '*' to look for text
' between to underscores, then italicises the text.
' The While/Wend statement at the end causes it to
' loop until it reaches the end of the document.
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "(*)"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
While Selection.Find.Execute
Selection.Font.Italic = wdToggle
Wend
End Sub

Reply to sender . Reply to group . Reply via Web Post . All Messages (1) . Top ^

4a

Re: cara merubah data koordinat

Wed Oct 17, 2012 10:50 am (PDT) . Posted by:

"NANG Agus"

Dear Heru Purnomo

Coba di sel C2 diketik formula:
=IF(LEFT(B2,1)="-","S"&MID(B2,2,FIND(",",B2,4)-2),"N"&MID(B2,1,FIND(",",B2,4)-1))&IF(MID(B2,FIND(",",B2,4)+1,1)="-","
W"&MID(B2,FIND("-",B2,6)+1,10)," E"&MID(B2,FIND(",",B2,4)+1,10))

Formula ini mengakomodaasi untuk Utara Selatan maupun Untuk Barat dan
Timur, Karena koordinat yang saudaara contohkan hanya berisi bujur timur
dan lintang selatan, maka rumus dapat diringkas menjadi:

="S"&MID(B2,2,FIND(",",B2,4)-2)&" E"&MID(B2,FIND(",",B2,4)+1,10)

salam

NangAgus.
2012/10/16 heru Purnomo <h3rupurnomo@yahoo.com>

> **
>
>
> Dear master excel;
>
> apakah ada yang mengetahui cara merubah data koordinat dari : contoh
> -3.7989,103.52159
> menjadi S3.7989 E103.52159
> thanks
> heru purnomo
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (5) . Top ^

4b

Re: cara merubah data koordinat

Wed Oct 17, 2012 10:51 am (PDT) . Posted by:

"zainul_ulum[at]yahoo[dot]com" zainul_ulum

Coba rumus

=IF(LEFT(B2)="-","S","N") & ABS(--LEFT(B2,FIND(",",B2)-1)) & " E" &
MID(B2,FIND(",",B2)+1,99)

Ada tambahan N kalo lokasinya di lintang utara atau koordinat lintang
posistif

From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf
Of heru Purnomo
Sent: Tuesday, October 16, 2012 12:09 PM
To: XL-mania@yahoogroups.com
Subject: ]] XL-mania [[ cara merubah data koordinat

Dear master excel;

apakah ada yang mengetahui cara merubah data koordinat dari : contoh

-3.7989,103.52159

menjadi

S3.7989 E103.52159

thanks
heru purnomo

Reply to sender . Reply to group . Reply via Web Post . All Messages (5) . Top ^

4c

Re: cara merubah data koordinat

Wed Oct 17, 2012 10:52 am (PDT) . Posted by:

"Nazwarman" nazwarman

Dear Pak heru,

Solusi alakadar dari newbie ^^

="S"&MID(B3,2,7)&" E"&RIGHT(B3,9)

*note: datanya harus memiliki jumlah karate yang sama

BR //

Nazwarman

From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf
Of heru Purnomo
Sent: Tuesday, October 16, 2012 12:09 PM
To: XL-mania@yahoogroups.com
Subject: ]] XL-mania [[ cara merubah data koordinat

Dear master excel;

apakah ada yang mengetahui cara merubah data koordinat dari : contoh

-3.7989,103.52159

menjadi

S3.7989 E103.52159

thanks
heru purnomo

Reply to sender . Reply to group . Reply via Web Post . All Messages (5) . Top ^

5

print database dari worksheet lain dengan VBA

Wed Oct 17, 2012 10:51 am (PDT) . Posted by:

"Bangkit" belonk_182

Dear milist,

Saya sedang punya project untuk membuat database dari excel dengan data
yang berada pada worksheet lain, dan form untuk print pada worksheet
yang lain juga. Saya mencoba dengan VBA dengan kode:

'----------------------------------------------------------\
------------------
Private Sub UserForm_Initialize()
Dim mycell As Range
Dim wsdatabaseNG As Worksheet
Set wsdatabaseNG = Sheets("VibDataNG")

For Each mycell In wsdatabaseNG.Range("DateNG")
With Me.ComboTanggal
.AddItem mycell.Value
.List(.ListCount - 1, 1) = mycell.Offset(0, 1).Value
End With

Next mycell

End Sub
'----------------------------------------------------------\
------------
Private Sub PrintNG_Click()
Dim UserInput As String
Dim userdata As String
Dim mycell As Range
Dim xRow As Integer
Dim Lcolumn As Integer

UserInput = ComboTanggal.Text

If UserInput = "" Then End

On Error Resume Next

userdata = UserInput
If Err.Number = 13 Then MsgBox "Maaf, Anda tidak memasukan tanggal
dengan benar": End

On Error GoTo 0

For Each mycell In ActiveSheet.UsedRange

If mycell.Cells.Value = userdata Then
mycell.Select
xRow = mycell.Row
Lcolumn = mycell.Column
End If
Next
'Memasukan data vibrasi ke worksheet PrintNG
On Error Resume Next
Worksheets("PrintNG").Range("E10").Value = Cells(xRow, 2).Value
Worksheets("PrintNG").Range("E9").Value = Cells(xRow, 3).Value
Worksheets("PrintNG").Range("E15").Value = Cells(xRow, 4).Value
Worksheets("PrintNG").Range("E16").Value = Cells(xRow, 5).Value
Worksheets("PrintNG").Range("H15").Value = Cells(xRow, 6).Value
Worksheets("PrintNG").Range("C17").Value = Cells(xRow, 7).Value
Worksheets("PrintNG").Range("C18").Value = Cells(xRow, 8).Value
Worksheets("PrintNG").Range("H17").Value = Cells(xRow, 9).Value
Worksheets("PrintNG").Range("H18").Value = Cells(xRow, 10).Value
Worksheets("PrintNG").Range("C19").Value = Cells(xRow, 11).Value
Worksheets("PrintNG").Range("C20").Value = Cells(xRow, 12).Value
Worksheets("PrintNG").Range("C21").Value = Cells(xRow, 13).Value
Worksheets("PrintNG").Range("G21").Value = Cells(xRow, 14).Value
'----------------------------------------------------------\
----------
Worksheets("PrintNG").Range("C25").Value = Cells(xRow, 15).Value
Worksheets("PrintNG").Range("E25").Value = Cells(xRow, 16).Value
Worksheets("PrintNG").Range("F25").Value = Cells(xRow, 17).Value
Worksheets("PrintNG").Range("G25").Value = Cells(xRow, 18).Value
Worksheets("PrintNG").Range("H25").Value = Cells(xRow, 19).Value
Worksheets("PrintNG").Range("I25").Value = Cells(xRow, 20).Value
Worksheets("PrintNG").Range("J25").Value = Cells(xRow, 21).Value
Worksheets("PrintNG").Range("K25").Value = Cells(xRow, 22).Value
Worksheets("PrintNG").Range("L25").Value = Cells(xRow, 23).Value
Worksheets("PrintNG").Range("M25").Value = Cells(xRow, 24).Value
Worksheets("PrintNG").Range("Q25").Value = Cells(xRow, 25).Value
Worksheets("PrintNG").Range("S25").Value = Cells(xRow, 26).Value
Worksheets("PrintNG").Range("T25").Value = Cells(xRow, 27).Value
Worksheets("PrintNG").Range("C26").Value = Cells(xRow, 28).Value
Worksheets("PrintNG").Range("E26").Value = Cells(xRow, 29).Value
Worksheets("PrintNG").Range("F26").Value = Cells(xRow, 30).Value
Worksheets("PrintNG").Range("G26").Value = Cells(xRow, 31).Value
Worksheets("PrintNG").Range("H26").Value = Cells(xRow, 32).Value
Worksheets("PrintNG").Range("I26").Value = Cells(xRow, 33).Value
Worksheets("PrintNG").Range("J26").Value = Cells(xRow, 34).Value
Worksheets("PrintNG").Range("K26").Value = Cells(xRow, 35).Value
Worksheets("PrintNG").Range("L26").Value = Cells(xRow, 36).Value
Worksheets("PrintNG").Range("Q26").Value = Cells(xRow, 37).Value
Worksheets("PrintNG").Range("S26").Value = Cells(xRow, 38).Value
Worksheets("PrintNG").Range("T26").Value = Cells(xRow, 39).Value

'----------------------------------------------------------\
------
Worksheets("PrintNG").Range("C27").Value = Cells(xRow, 40).Value
Worksheets("PrintNG").Range("E27").Value = Cells(xRow, 41).Value
Worksheets("PrintNG").Range("F27").Value = Cells(xRow, 42).Value
Worksheets("PrintNG").Range("G27").Value = Cells(xRow, 43).Value
Worksheets("PrintNG").Range("H27").Value = Cells(xRow, 44).Value
Worksheets("PrintNG").Range("I27").Value = Cells(xRow, 45).Value
Worksheets("PrintNG").Range("J27").Value = Cells(xRow, 46).Value
Worksheets("PrintNG").Range("K27").Value = Cells(xRow, 47).Value
Worksheets("PrintNG").Range("L27").Value = Cells(xRow, 48).Value
Worksheets("PrintNG").Range("M27").Value = Cells(xRow, 49).Value
Worksheets("PrintNG").Range("Q27").Value = Cells(xRow, 50).Value
Worksheets("PrintNG").Range("S27").Value = Cells(xRow, 51).Value
Worksheets("PrintNG").Range("T27").Value = Cells(xRow, 52).Value
Worksheets("PrintNG").Range("C28").Value = Cells(xRow, 53).Value
Worksheets("PrintNG").Range("E28").Value = Cells(xRow, 54).Value
Worksheets("PrintNG").Range("F28").Value = Cells(xRow, 55).Value
Worksheets("PrintNG").Range("G28").Value = Cells(xRow, 56).Value
Worksheets("PrintNG").Range("H28").Value = Cells(xRow, 57).Value
Worksheets("PrintNG").Range("I28").Value = Cells(xRow, 58).Value
Worksheets("PrintNG").Range("J28").Value = Cells(xRow, 59).Value
Worksheets("PrintNG").Range("K28").Value = Cells(xRow, 60).Value
Worksheets("PrintNG").Range("L28").Value = Cells(xRow, 61).Value
Worksheets("PrintNG").Range("Q28").Value = Cells(xRow, 62).Value
Worksheets("PrintNG").Range("S28").Value = Cells(xRow, 63).Value
Worksheets("PrintNG").Range("T28").Value = Cells(xRow, 64).Value

'----------------------------------------------------------\
-------
Worksheets("PrintNG").Range("E29").Value = Cells(xRow, 65).Value
Worksheets("PrintNG").Range("F29").Value = Cells(xRow, 66).Value
Worksheets("PrintNG").Range("M29").Value = Cells(xRow, 67).Value
Worksheets("PrintNG").Range("N29").Value = Cells(xRow, 68).Value
Worksheets("PrintNG").Range("O29").Value = Cells(xRow, 69).Value
Worksheets("PrintNG").Range("P29").Value = Cells(xRow, 70).Value
Worksheets("PrintNG").Range("Q29").Value = Cells(xRow, 71).Value
Worksheets("PrintNG").Range("R29").Value = Cells(xRow, 72).Value
Worksheets("PrintNG").Range("S29").Value = Cells(xRow, 73).Value
Worksheets("PrintNG").Range("T29").Value = Cells(xRow, 74).Value

'----------------------------------------------------------\
-------
Worksheets("PrintNG").Range("C30").Value = Cells(xRow, 75).Value
Worksheets("PrintNG").Range("E30").Value = Cells(xRow, 76).Value
Worksheets("PrintNG").Range("F30").Value = Cells(xRow, 77).Value
Worksheets("PrintNG").Range("G30").Value = Cells(xRow, 78).Value
Worksheets("PrintNG").Range("H30").Value = Cells(xRow, 79).Value
Worksheets("PrintNG").Range("I30").Value = Cells(xRow, 80).Value
Worksheets("PrintNG").Range("J30").Value = Cells(xRow, 81).Value
Worksheets("PrintNG").Range("K30").Value = Cells(xRow, 82).Value
Worksheets("PrintNG").Range("L30").Value = Cells(xRow, 83).Value
Worksheets("PrintNG").Range("M30").Value = Cells(xRow, 84).Value
Worksheets("PrintNG").Range("Q30").Value = Cells(xRow, 85).Value
Worksheets("PrintNG").Range("S30").Value = Cells(xRow, 86).Value
Worksheets("PrintNG").Range("T30").Value = Cells(xRow, 87).Value
Worksheets("PrintNG").Range("C31").Value = Cells(xRow, 88).Value
Worksheets("PrintNG").Range("E31").Value = Cells(xRow, 89).Value
Worksheets("PrintNG").Range("F31").Value = Cells(xRow, 90).Value
Worksheets("PrintNG").Range("G31").Value = Cells(xRow, 91).Value
Worksheets("PrintNG").Range("H31").Value = Cells(xRow, 92).Value
Worksheets("PrintNG").Range("I31").Value = Cells(xRow, 93).Value
Worksheets("PrintNG").Range("J31").Value = Cells(xRow, 94).Value
Worksheets("PrintNG").Range("K31").Value = Cells(xRow, 95).Value
Worksheets("PrintNG").Range("L31").Value = Cells(xRow, 96).Value
Worksheets("PrintNG").Range("Q31").Value = Cells(xRow, 97).Value
Worksheets("PrintNG").Range("S31").Value = Cells(xRow, 98).Value
Worksheets("PrintNG").Range("T31").Value = Cells(xRow, 99).Value

'----------------------------------------------------------\
-------
Worksheets("PrintNG").Range("C32").Value = Cells(xRow, 100).Value
Worksheets("PrintNG").Range("E32").Value = Cells(xRow, 101).Value
Worksheets("PrintNG").Range("F32").Value = Cells(xRow, 102).Value
Worksheets("PrintNG").Range("G32").Value = Cells(xRow, 103).Value
Worksheets("PrintNG").Range("H32").Value = Cells(xRow, 104).Value
Worksheets("PrintNG").Range("I32").Value = Cells(xRow, 105).Value
Worksheets("PrintNG").Range("J32").Value = Cells(xRow, 106).Value
Worksheets("PrintNG").Range("K32").Value = Cells(xRow, 107).Value
Worksheets("PrintNG").Range("L32").Value = Cells(xRow, 108).Value
Worksheets("PrintNG").Range("M32").Value = Cells(xRow, 109).Value
Worksheets("PrintNG").Range("Q32").Value = Cells(xRow, 110).Value
Worksheets("PrintNG").Range("S32").Value = Cells(xRow, 111).Value
Worksheets("PrintNG").Range("T32").Value = Cells(xRow, 112).Value
Worksheets("PrintNG").Range("C33").Value = Cells(xRow, 113).Value
Worksheets("PrintNG").Range("E33").Value = Cells(xRow, 114).Value
Worksheets("PrintNG").Range("F33").Value = Cells(xRow, 115).Value
Worksheets("PrintNG").Range("G33").Value = Cells(xRow, 116).Value
Worksheets("PrintNG").Range("H33").Value = Cells(xRow, 117).Value
Worksheets("PrintNG").Range("I33").Value = Cells(xRow, 118).Value
Worksheets("PrintNG").Range("J33").Value = Cells(xRow, 119).Value
Worksheets("PrintNG").Range("K33").Value = Cells(xRow, 120).Value
Worksheets("PrintNG").Range("L33").Value = Cells(xRow, 121).Value
Worksheets("PrintNG").Range("Q33").Value = Cells(xRow, 122).Value
Worksheets("PrintNG").Range("S33").Value = Cells(xRow, 123).Value
Worksheets("PrintNG").Range("T33").Value = Cells(xRow, 124).Value

'----------------------------------------------------------\
------
Worksheets("PrintNG").Range("E34").Value = Cells(xRow, 125).Value
Worksheets("PrintNG").Range("F34").Value = Cells(xRow, 126).Value
Worksheets("PrintNG").Range("M34").Value = Cells(xRow, 127).Value
Worksheets("PrintNG").Range("O34").Value = Cells(xRow, 128).Value
Worksheets("PrintNG").Range("Q34").Value = Cells(xRow, 129).Value
Worksheets("PrintNG").Range("R34").Value = Cells(xRow, 130).Value
Worksheets("PrintNG").Range("S34").Value = Cells(xRow, 131).Value
Worksheets("PrintNG").Range("T34").Value = Cells(xRow, 132).Value

'----------------------------------------------------------\
------
Worksheets("PrintNG").Range("B38").Value = Cells(xRow, 133).Value
Worksheets("PrintNG").Range("B39").Value = Cells(xRow, 134).Value
Worksheets("PrintNG").Range("B40").Value = Cells(xRow, 135).Value
Worksheets("PrintNG").Range("B41").Value = Cells(xRow, 136).Value
Worksheets("PrintNG").Range("B42").Value = Cells(xRow, 137).Value

Worksheets("PrintNG").PrintOut Preview = True, Collate = True,
PrToFileName = True
End Sub

Apa kode diatas sudah benar? soalnya saya debug sudak OK, tetapi ketika
dijalankan tidak ada data yang terambil dari database.

Reply to sender . Reply to group . Reply via Web Post . All Messages (1) . Top ^

6a

Bls: ]] XL-mania [[ cara merubah data koordinat

Wed Oct 17, 2012 10:51 am (PDT) . Posted by:

"ghozi alkatiri" ghozialkatiri

=SUBSTITUTE(SUBSTITUTE(B2;"-";"S");",";" E")

wassalam

Ghozi Alkatiri

________________________________
Dari: heru Purnomo <h3rupurnomo@yahoo.com>
Kepada: "XL-mania@yahoogroups.com" <XL-mania@yahoogroups.com>
Dikirim: Selasa, 16 Oktober 2012 12:08
Judul: ]] XL-mania [[ cara merubah data koordinat


 
Dear master excel;

apakah ada yang mengetahui cara merubah data koordinat dari : contoh

-3.7989,103.52159

menjadi
S3.7989 E103.52159
thanks
heru purnomo

Reply to sender . Reply to group . Reply via Web Post . All Messages (5) . Top ^

7a

Re: Terbilang menggunakan cent dan dollar

Wed Oct 17, 2012 10:51 am (PDT) . Posted by:

"zainul_ulum[at]yahoo[dot]com" zainul_ulum

Coba modif sedikit rumusnya

=substitute(terbilang + & " dollar", "koma","")

2012/10/15 mwu_batam <mwu_batam@yahoo.co.id>

Dear XL-mania,

Salam dari saya anggota yang baru bergabung.

Disini saya ada masalah dengan menggunakan kata terbilang.

Saya telah memiliki rumus terbilang dalam "rupiah"

tapi saya tidak bisa menggunakannya untuk mata uang asing.

Mis :

(Dengan rumus terbilang + & " dollar"

S$ 2.25 = dua koma dua puluh lima dolar

dimana seharusnya adalah (TANPA KOMA)seperti dibawah ini :

S$ 2.25 = dua dollar dua puluh lima cent.

Mohon pencerahannya.

Salam dan terimakasih

Reply to sender . Reply to group . Reply via Web Post . All Messages (3) . Top ^

8a

Re: file excel 2010 tidak bisa dibuka di excel 2007

Wed Oct 17, 2012 10:52 am (PDT) . Posted by:

"ardo.ronald@yahoo.com" earthland78

Dear FW,

Harusnya bisa, apakah maksud fw makro nya yang tidak bisa dibuka?
Jika ya, saat save harus dalam extension lain yaitu *.xlsm

*CMIW
@rdo
Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!

-----Original Message-----
From: kungfuboy <f.wiyanto@gmail.com>
Sender: XL-mania@yahoogroups.com
Date: Tue, 16 Oct 2012 09:37:57
To: <XL-mania@yahoogroups.com>
Reply-To: XL-mania@yahoogroups.com
Subject: ]] XL-mania [[ file excel 2010 tidak bisa dibuka di excel 2007

Mo tanya

Saya dapet file xlsx dari office excel 2010, saya buka di excel 2007 koq
nggak bisa yak? padahal ekstensi filenya sama (xlsx). Solusinya apa ya
teman-teman? apa harus punya converter seperti kasusnya excel 2003 ke excel
97?

salam
-fw-

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

9a

Re: Save as excel 2003 ke versi 2010

Wed Oct 17, 2012 10:52 am (PDT) . Posted by:

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

Mungkin begini :
1. Save as lalu pilih save as type .xlsm atau .xlsb
2. Jika file dibuka dan muncul security warning, pilih Enable Macro

Wassalam,
Kid.

2012/10/15 Syamsul Abidin Ibnu Miftahuddin <elhazmy@yahoo.com>

> **
>
>
> Mohon bantuannya, saya sudah download file udf formula nilai terbilang
> (merubah nilai angka menjadi kata-kata) versi excel 2003
> tapi saya gunakan/ saya save as menjadi excel 2010 formulanya tidak
> berfungsi.
> Mohon bantuannya bagaimana caranya supaya formulanya bisa jalan di excel
> 2010 soalnya di kantor semua pake yang versi 2010
>
> terima kasih banyak atas bantuannya dan solusinya.
> mudah-mudahan XL mania semakin jaya
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (3) . Top ^

Visit Your Group

>

View All Topics

>

Create New Topic

>

60 New Members

>

We are making changes based on your feedback, Thank you !

Submit Feedback

>

The Yahoo! Groups Product Blog

Check it out!

>

GROUP FOOTER MESSAGE

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Selamat jalan SitiVi, semoga bahagia di sisi-Nya...               |
| Maaf moderasi lemooOooOott... momods siboek                       |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di :                                            |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

CHANGE SETTINGS

>

TERMS OF USE

>

UNSUBSCRIBE

>