Hot Fox

domingo, 28 de fevereiro de 2010

]] XL-mania [[ fungsi int yang aneh

hai

ini karena 204.01 dikurang 204 hasilnya bukan 0.01 melainkan
0.00999999999999091

dulu2 sekali pernah dibahas di
http://tech.groups.yahoo.com/group/XL-mania/files/Promotion/subtract.zip

lalu di XL-mania.com juga ada contoh "defect" lainnya
http://www.xl-mania.com/2008/11/seberapa-pintar-microsoft-excelmu.html
http://www.xl-mania.com/2008/11/excel-2003-juga-salah-hitung-kok.html

dan penjelasan mengapa ini terjadi
http://www.xl-mania.com/2008/11/bug-aneh-di-excel-2007-ituhhhh.html

> semoga bermanfaat

abimono

--- In XL-mania@yahoogroups.com, "zainul ulum" <zainul_ulum@...> wrote:
>
> Milister xl-mania,
>
>
>
> Saya menulis angka di [A1]=204.01 dan [B1]=204
>
> Pada [C1]=(A1-B1)*100, hasilnya adalah [C1]=1
>
>
>
> Apabila saya tulis formula di [D1]=INT(C1)
>
> Kenapa hasilnya tidak 1 ?
>
>
>
> Padahal kalo saya tulis [D2]=INT(1), hasilnya adalah 1
>
>
>
> Terimakasih atas penjelasannya
>
> _zainul_
>

__._,_.___

Reply to sender | Reply to group

Messages in this topic (2)

Recent Activity:

New Members 105

Visit Your Group Start a New Topic

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| huaaaa... momods sakit... *sob*                                   |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| 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.friendster.com/xlmania atau... |
| 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              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

__,_._,___

Re: ]] XL-mania [[ Open file (all in folder) pakai macro

Catatan:

* File yg ingin dibuka dibatasi hanya file workbook (ber-extensi *.xls ) kecuali workbook

yg berisi makro yg ditanyakan (ctv_OpenAllFile_in_a_folder.xls)

* Sebelum Looping, kita dapat menyebutkan jumlah ITEM dlm folder; yg dimaksud dengan

item ialah semua file (type apa pun) dan Sub Folders.

* Jumlah file yg berextensi *.xls hanya dapat disebutkan setelah LOOPING.

* Dalam contoh di bawah ini, setelah file dibuka, akan disela dengan pemunculan

MessageBox; maksodnya untuk memberi kesempatan anda melihat bahwa file telah dibuka;

kemudian file tsb ditutup kembali sebelum membuka file berikutnya.

Anda dapat menghapus bagian ini (dengan konsekwensi semua file dlm folder walaupun

berisi ratusan/ribuan file xls akan dibuka semua )

Contoh ini (hanya salah satu cara dari banyak cara lain) telah sering diposted ke milis

(dgn berbagai variasi) dlm rangka menanggapi berbagai kasus.

' ---------------

Sub OpenAllFileInaFolder()
   ' siti Vi / membuka semua Files pada folder tertentu
   '----------------------------------------------------
   Dim FSO As Object, FOL As Object, n as Integer
   Dim MyFile As Object, fPath As String

' nama Folder (path lengkap) dapat anda edit misal

   ' fPath = "D\MyFolder\MySubFOlder\MyProject"
   fPath = ThisWorkbook.Path

   On Error GoTo Akhir

   Set FSO = CreateObject("Scripting.FileSystemObject")
   Set FOL = FSO.GetFolder(fPath).Files

   For Each MyFile In FOL
      If Not MyFile.Name = ThisWorkbook.Name Then
         If UCase(Right(MyFile.Name, 4)) = ".XLS" Then

            n = n + 1
            Workbooks.Open Filename:=MyFile.Name
            MsgBox "file ini akan ditutup sebelum membuka file berikutnya"
            Workbooks(MyFile.Name).Close
         End If
      End If
   Next

MsgBox "Jumlah workbooks (*.xls) : " & n
Akhir:
End Sub

----- Original Message -----

From: Yasir Arafat

To: XL-mania@yahoogroups.com

Sent: Friday, February 26, 2010 10:31 AM

Subject: ]] XL-mania [[ Open file (all in folder) pakai macro

Dear Pakar XL
Bagaimana code di macro sehingga macro dapat membaca jumlah file yang ada di folder,

kemudian membuka file tersebut satu persatu.
Selama ini saya selalu menggunakan code:

    Dim FileData As String
    FileData = Application.GetOpenFilename("Excel File,*.xls")
    Workbooks.Open FileName:=FileData

Namun dengan perintah itu saya harus mengklik file yang saya inginkan

(dalam folder yang sama) dan mengulang kembali perintah tersebut untuk file yang kedua

dan seterusnya.
Memang jika file dalam folder tersebut sedikit, tidak terlalu merepotkan, tapi apabila

sudah mulai bertambah, akan merepotkan dan sangat memungkinkan membuka file

yang sudah dibuka sebelumnya, sehingga data yang diproses menjadi berganda.
Terima kasih atas sharing ilmunya

Best Regard
Yasir

__._,_.___

Reply to sender | Reply to group

Messages in this topic (3)

Recent Activity:

New Members 92

Visit Your Group Start a New Topic

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

__,_._,___

Re: ]] XL-mania [[ Open file (all in folder) pakai macro

Dear Mas Yasir,

Coba check file yg saya lampirkan mas.

Mudah mudahan membantu.

Sub ShowFiles()
MsgBox ("Browse Foldernyah")
Dim FileName        As String

        Path = BrowseFolder
        FileName = Dir(Path & "\*.xls", vbNormal)
        Do Until FileName = ""
            Workbooks.Open Path & "\" & FileName
            FileName = Dir()
        Loop
End Sub

Liat juga Fungsi BrowseFolder

Best regards

Riky

----- Original Message -----

From: Yasir Arafat

To: XL-mania@yahoogroups.com

Sent: Friday, February 26, 2010 10:31 AM

Subject: ]] XL-mania [[ Open file (all in folder) pakai macro

Dear Pakar XL

Bagaimana code di macro sehingga macro dapat membaca jumlah file yang ada di folder, kemudian membuka file tersebut satu persatu.

Selama ini saya selalu menggunakan code:

    Dim FileData As String
    FileData = Application.GetOpenFilename("Excel File,*.xls")
    Workbooks.Open FileName:=FileData

Namun dengan perintah itu saya harus mengklik file yang saya inginkan (dalam folder yang sama) dan mengulang kembali perintah tersebut untuk file yang kedua dan seterusnya.

Memang jika file dalam folder tersebut sedikit, tidak terlalu merepotkan, tapi apabila sudah mulai bertambah, akan merepotkan dan sangat memungkinkan membuka file yang sudah dibuka sebelumnya, sehingga data yang diproses menjadi berganda.

Terima kasih atas sharing ilmunya

Best Regard

Yasir

__._,_.___

Reply to sender | Reply to group

Messages in this topic (2)

Recent Activity:

New Members 105

Visit Your Group Start a New Topic

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

__,_._,___

RE: ]] XL-mania [[ SPT 1770 S

Silakan rekan2

Semoga bermanfaat

Lunasi pajaknya, Awasi penggunaannya

Salam,

Antonius Vendhi Yuliawan

Pegawai Tugas Belajar

Departemen Keuangan Republik Indonesia

Direktorat Jenderal Pajak

From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf Of Ahmad Taufik
Sent: 26 Februari 2010 14:22
To: XL-mania@yahoogroups.com
Subject: ]] XL-mania [[ SPT 1770 S

kepada para pakar excel mau minta tolong adakah yang mempunyai form spt 1770 S, 1770 S-I, 1770 S-II yang terbaru

kalau ada yang punya mau dong.

Terimakasih sebelumnya

Regards,

__._,_.___

Reply to sender | Reply to group

Messages in this topic (2)

Recent Activity:

New Members 105

Visit Your Group Start a New Topic

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

__,_._,___

Re: ]] XL-mania [[ input data berdasarkan databank

hanya 'contoh kasus' berarti bukan kasus yg nyata sedang dihadapi 'kan ya..

Kalau pakai VLOOKUP memang ndak bisa,

karena VLOOKUP bukan bekerja seperti TUGAS yg dijelaskan Pak Ghost.

Harusnya pakai fungsi CTVLOOKUP

Fungsi ini mirip dengan VLOOKUP, tetapi hanya punya 3 (tiga) argument

seperti ini (gambar dialogbox 'function arguments')

hasilnya seperti ini, 'dah bener / blum ya

Item Name	Code Item
JERUK CUB 50 MG	JERUK50
APEL 100 MG PLUS	JERUKTAB100
APEL PLUS 20 MG	APEL20
MANGGA PLUS 20 MG	ANGGURPLUS
JERUK TAB 50 MG	JERUK50
APEL 100 MG PLUS	JERUKTAB100
MANGGA C	MANGGAC
JERUK 100 MG TAB	JERUK100
JERUK CUB 50 MG	JERUK50
JERUK TAB 100 MG	JERUK100

----- Original Message -----

From: Ghost-V

To: XL-mania@yahoogroups.com

Sent: Monday, February 22, 2010 7:36 PM

Subject: ]] XL-mania [[ input data berdasarkan databank

Yth Rekan" XL-Mania skalian

Sebelumnya salam knal dari saya.

Langsung ajah yah saya dapet contoh kasus nih jadi ada di XL tsb ada 2 sheet

nah di sheet yg pertama (TUGAS) adalah disuruh mencari code item-nya dimana refrensi

harus mengacu pada sheet ke-2 (databank).

Klo buat gw sulitnya tuh data yang kita biasa jadikan patokan yg kita terima pada sheet1

tidak sama persis seperti pada tabel refrensi (sheet2).

Tapi sebenernya data yg ada pada sheet 1 dan sheet 2 berbeda hanya pada urutan

kata"nya namun intinya sama.

Misalnya APEL 50 MG TAB sama dengan APEL TAB 50 MG (hanya beda urutan) atau

MARKISA 100 MG M sama dengan MARKISA 100 MG (walau tanpa huruf "M").

Nah solusinya gmn yah. Ane udah nyoba dari vlookup ampe lookup ga ketemu.

Binun nih... mohon solusi dunk. Contoh file dah di sertakan jg. sblmnya thx...

salam XL-Mania

sábado, 27 de fevereiro de 2010

]] XL-mania [[ fungsi int yang aneh

Milister xl-mania,

Saya menulis angka di [A1]=204.01 dan [B1]=204

Pada [C1]=(A1-B1)*100, hasilnya adalah [C1]=1

Apabila saya tulis formula di [D1]=INT(C1)

Kenapa hasilnya tidak 1 ?

Padahal kalo saya tulis [D2]=INT(1), hasilnya adalah 1

Terimakasih atas penjelasannya

_zainul_

__._,_.___

Reply to sender | Reply to group

Messages in this topic (1)

Recent Activity:

New Members 105

Visit Your Group Start a New Topic

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

__,_._,___

sexta-feira, 26 de fevereiro de 2010

Re: ]] XL-mania [[ Mengeluarkan isi dalam suatu cell ke beberapa row

Halo Luki,

Silakan dikembangkan untuk penerapan pada banyak range yang tersusun sebagai sebuah tabel, dengan mempertimbangkan ruang penulisan hasil.

File terlampir menggunakan formula Mid(Substitute()) dan ada juga yang menggunakan UDF sederhana berbasis fungsi Split()

Semoga bermanfaat
Kid.

2010/2/22 Lucky <ucok_ah_2003@yahoo.com>

Para Sensei..

Kalo misalnya kita mo ngeluarin isi teks dlam suatu cell (dimana di dalam cell tersebut teks dipisahkan menjadi beberapa baris(pake Alt+Enter)) menjadi beberapa row,,bagaimana ya??
Gw nyoba pake makro ga bisa (hehe,,,ilmu'nya masi cetek)..
Trus kalo misalnya mo pake formula jg bgmn??

Kurang lebih hasilnya seperti gambar di bawah ini...

Terima Kasih..
Mohon maap kalo pertanyaan serupa pnah ditanyakan.

Luki..

__._,_.___

Reply to sender | Reply to group

Messages in this topic (4)

Recent Activity:

New Members 105

Visit Your Group Start a New Topic

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

__,_._,___

Re: ]] XL-mania [[ Menghapus range names

Hai Eko,

Di Excel 2007, bisa multiple select dengan bantuan tombol Ctrl ataupun Shift. Entah di excel 2003 bisa atau tidak. Jika bersedia menggunakan VBA, salah satu kode programnya adalah pada file terlampir.

Semoga bermanfaat
Kid.

2010/2/23 Eko Prasetiyo <ekoprasetiyo@gmail.com>

Teman-teman.
Saya punya file excel yg memiliki banyak range names. Nah ga semua
range names itu saya perlukan, karena file yg saya kerjakan merupakan
file yg beredar ke rekan kerja yg lain dan terkadang dipakai juga utk
mengolah data oleh mereka. Ketika file itu kembali ke saya, sheet yg
saya perlukan berisi range names yg tidak saya perlukan.

Selama ini saya menghapus range names yg ga saya perlukan dari Insert
> name > define
lalu dari kotak dialog yg muncul saya hapus satu persatu.

Nah ada cara lain gak yg bisa menghapus sekaligus range names yg ga
diperlukan. Karena ga cuma satu file yg harus dirapikan range names
-nya.

Terima kasih.

--
(^-^)v

__._,_.___

Reply to sender | Reply to group

Messages in this topic (3)

Recent Activity:

New Members 105

Visit Your Group Start a New Topic

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

__,_._,___

Re: ]] XL-mania [[ format angka custom

mas Mahar,

Excel mampu menyimpan bilangan sampai 15 digit. Jika ada suatu ID yang tersusun lebih dari 15 digit, sebaiknya di-Input sebagai teks atau dipecah dalam beberapa cell. Untuk menyusunnya kedalam suatu pattern tertentu bisa dengan formula bawaan excel atau dengan fungsi buatan sendiri (UDF) memanfaatkan datatype VB dan fungsi Format().

Semoga bermanfaat.
Kid.

2010/2/23 definitely_mahar <dik_edwin@yahoo.com>

dulur... bantuin newbie dong.
gimana cara buat format cell custom seperti ini 12.12.123.123.123-1234.1
sudah aku coba dengan mask ##"."##"."###"."###"."###"-"####"."# tapi 3 digit dari belakang selalu berubah sendiri jadi "0" (12.12.123.123.123-1200.0)

THX

__._,_.___

Reply to sender | Reply to group

Messages in this topic (3)

Recent Activity:

New Members 105

Visit Your Group Start a New Topic

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

__,_._,___

Re: ]] XL-mania [[ row yg pengen ikut jumlah data

Dear Nunu,

Untuk menata tampilan sheet display dengan formula terbentur pada merge cell terbilang, maka digunakanlah secuil VBA.

Mohon maaf, karena telah mengurangi jumlah contoh data dan mem-values-kan beberapa formula, untuk menghormati kesepakatan bersama dalam mengusahakan besaran file attachment < 200Kb. hehehehe.. tapi sepertinya kelebihan dikit nguranginnya, dari rencana disamakan dengan attachment posting masalah.

Regards
Kid.

2010/2/23 Muh Nuh Haikal <juz13_9999@yahoo.co.id>

dear para suhu2 XL,

Berikut sy lampirkan file yg lg ada msalah,

bravo para suhu2 XL yg turut mencerdaskan bangsa khususnya bidang Spreadsheet, smoga tetap jaya

regards,
nunu

Nikmati chatting lebih sering di blog dan situs web. Gunakan Wizard Pembuat Pingbox Online. http://id.messenger.yahoo.com/pingbox/

__._,_.___

Reply to sender | Reply to group

Messages in this topic (3)

Recent Activity:

New Members 105

Visit Your Group Start a New Topic

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

__,_._,___

domingo, 28 de fevereiro de 2010

sábado, 27 de fevereiro de 2010

sexta-feira, 26 de fevereiro de 2010

Arquivo do blog