Hot Fox: Re: ]] XL-mania [[ Memberikan tanda titik

sábado, 24 de outubro de 2009

Re: ]] XL-mania [[ Memberikan tanda titik

OM OM OM ... Kodingannya Sbb

:

' ---------------------------------
' Created By : puthut_vai@yahoo.com
' on 25 Oktober 2009
' Nama Sheet : Sheet1.mod
' ---------------------------------

Option Explicit

Sub SolusiSiOomm()

    Dim KolTerkahir, Z As Variant, x As Variant
    ' Set Sheet 1
    Sheets("SOLUSI").Select
    ' Kolom Terakhir
    KolTerkahir = ActiveCell.SpecialCells(xlLastCell).Address

    ActiveSheet.Range(Cells(3, 2), KolTerkahir).Select
   On Error Resume Next
    Z = Selection.Address
        For Each x In ActiveSheet.Range(Z)
            If Len(x) > 0 Then
                ' Chr(39) = Tanda '
                x.FormulaR1C1 = Chr(39) & Format(CCur(x.Text), "#,###")
            Else ' Jika kosong
                x.FormulaR1C1 = ""
            End If
        Next
End Sub

Private Sub CmdTeken_Click()
Call SolusiSiOomm
End Sub

File Terlampir oom
- ^ Puthut Wibowo ^ - || puthut_vai@yahoo.com

--- On Wed, 10/21/09, Muhammad Adiyasa <adiyasa@yahoo.com> wrote:

From: Muhammad Adiyasa <adiyasa@yahoo.com>
Subject: ]] XL-mania [[ Memberikan tanda titik
To: XL-mania@yahoogroups.com
Date: Wednesday, October 21, 2009, 4:47 PM

Dear temans,
Berikut ada file Excel yg saya sertakan. Keinginan saya adalah bisa menambahkan tanda titik sebagai pembatas ribuan, dgn mengformat angka tersebut ke karakter (bukan angka).
Terimakasih sebelumnya.

__._,_.___

Messages in this topic (8) Reply (via web post) | Start a new topic

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Moderasi akan lambat minggu ini, momods pergi ke tempat jauh      |
| 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              |
+-------------------------------------------------------------------+

MARKETPLACE

Mom Power: Discover the community of moms doing more for their families, for the world and for each other