Hot Fox: Re: ]] XL-mania [[ Membuat "border" secara otomatis

segunda-feira, 26 de outubro de 2009

Re: ]] XL-mania [[ Membuat "border" secara otomatis

Om om om Kodingannya :

' --------------------------------------------------------------------
' Nama Modul :mODSolusi.mod
' Kegunaan : Memvalidasi dan memeberikan Border
' Created By : puthut_vai@yahoo.com @ 27 Okt 2009
' --------------------------------------------------------------------

Option Explicit

Sub JumlahkanTanda()
' Deklarasi
    Dim InputSheet As Worksheet
    Dim r As Long
    Dim x As Variant
    Dim txt As String

    Application.ScreenUpdating = False
    Set InputSheet = ActiveSheet
    r = 2
    InputSheet.Activate

' Looping
    Do While Cells(10, r) <> ""
        ' Nilai
        txt = Cells(10, r).Value
        ' Validasi Bulan Jika Sep
        If txt = "Sep" Then
            ' * Buat Border X ----------------------------------------
            With InputSheet.Cells(10, r).Borders(xlDiagonalDown)
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = xlAutomatic
            End With
            With InputSheet.Cells(10, r).Borders(xlDiagonalUp)
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = xlAutomatic
            End With
            ' * --------------------------------------------------------
        End If
    r = r + 1
    Loop
End Sub

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

--- On Mon, 10/26/09, antonius sagala <asagala1995@yahoo.com> wrote:

From: antonius sagala <asagala1995@yahoo.com>
Subject: ]] XL-mania [[ Membuat "border" secara otomatis
To: "XL-mania@yahoogroups.com" <XL-mania@yahoogroups.com>
Date: Monday, October 26, 2009, 9:54 AM

Dear para Pakar XL,

Bisa gak yach di XL dibuat suatu kondisi yang memungkinkan hasil seperti terlampir.

Rgrds

Antonius

__._,_.___

Messages in this topic (3) 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              |
+-------------------------------------------------------------------+

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

__,_._,___

Nenhum comentário:

Postar um comentário

Hot Fox

segunda-feira, 26 de outubro de 2009

Re: ]] XL-mania [[ Membuat "border" secara otomatis

Nenhum comentário:

Arquivo do blog