Re: ]] XL-mania [[ strikethrough

 

kita coba dengan makro lain, yg lebih ringkas

Sub ConditonalStrikeThru()

   ' siti Vi / 20 Dec 2010

   ' keyboard short-cut = Ctrl + i

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

   Dim Rng As Range, r As Long

   Set Rng = Selection

   

   For r = 1 To Selection.Rows.Count

      Rng(r, 3) = "Direkomendasikan, Dipertimbangkan, Ditolak"

      Rng(r, 3).Characters(1, 42).Font.Strikethrough = False

      Select Case Rng(r, 1).Text

         Case "A"

            Rng(r, 3).Characters(19, 42).Font.Strikethrough = True

         Case "B"

            Rng(r, 3).Characters(1, 17).Font.Strikethrough = True

            Rng(r, 3).Characters(35, 8).Font.Strikethrough = True

         Case "C"

            Rng(r, 3).Characters(1, 34).Font.Strikethrough = True

         Case Else

            Rng(r, 3).ClearContents

      End Select

   Next r

End Sub

2010/12/19 hendrik karnadi <hendrikkarnadi@yahoo.com>

Semoga macro dalam file terlampir dapat dijadikan acuan (sel yang jadi referensi, yaitu Range C6:C8, E6:E8, harus disesuaikan dengan kebutuhan).

 

Klik CORET untuk strikethru dan BATAL untuk membatalkannya.

 

Selamat mencoba.

 

Salam,

Hendrik Karnadi

---

From: Wahyu Lee <wahyu_lee@yahoo.com>
To: XL-mania@yahoogroups.com
Sent: Thursday, December 16, 2010 13:43:48
Subject: ]] XL-mania [[ strikethrough

 

Dear XL-mania
Mohon bantuannya untuk masalah kerjaanku
Saya butuh bantuan untuk  makro/rumus yang bisa membaca sel dan menghasilkan 

Direkomendasikan, Dipertimbangkan, Ditolak

Direkomendasikan, Dipertimbangkan, Ditolak

Direkomendasikan, Dipertimbangkan, Ditolak

 
jika   nilai sel pada kolom katagori  adalah A, B atau C
data katagori ada di lain sheet
Terimakasih sebelum dan sesudahnya

wahyu

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (3)

Recent Activity:

• New Members 99

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| sOrRy dOrRy j3K... m0m0dS LaGi HeC-tiC... waQaQaQa...             |
| 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

.

__,_._,___