Re: ]] XL-mania [[ mohon bantuan untuk makro fungsi strikethru

 

jika kondisi ( "A" / "B" / "C" ) ada di A1

maka hasil akan ditulis di C1

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/21 Wahyu Lee <wahyu_lee@yahoo.com>

Yth, XL Mania

Saya punya kesulitan di pekerjaan mengenai makro fungsi untuk mencoret pilihan seperti

Direkomendasikan, Dipertimbangkan, Ditolak

Direkomendasikan, Dipertimbangkan, Ditolak

Direkomendasikan, Dipertimbangkan, Ditolak

 bila makro tersebut membaca sebuah sel yang berisi A, B, atau C
file terlampir,
terimakasih atas bantuannya.
 

wahyu

__._,_.___

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

Messages in this topic (2)

Recent Activity:

• New Members 102

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              |
+-------------------------------------------------------------------+

MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

---

Find useful articles and helpful tips on living with Fibromyalgia. Visit the Fibromyalgia Zone today!

---

Hobbies & Activities Zone: Find others who share your passions! Explore new interests.

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

.

__,_._,___