Tecnologia, programação e muito Visual FoxPro.

terça-feira, 16 de agosto de 2011

Re: ]] XL-mania [[ Tick Checkbox kemudian text dalam cell menjadi strikethrough

 

Berikut untuk membuat tulisan dicoret : di Sel A2
Buat Check Box dengan ActiveX Control. Lalu tambahkan code di bawah

Private Sub CheckBox1_Click()
Set r = Application.Range("A2")
 r.Value = ""
 If CheckBox1 Then
' boleh disini atau di sel
r.Value = "Ini yang dicoret"
 
 r.Font.Strikethrough = True
 r.Font.Bold = True
 Else
r.Value = "Ini yang dicoret"
 
 r.Font.Strikethrough = False
 r.Font.Bold = False
  End If
  
End Sub

http://excel.aurino.com


From: dhai <f12eshf12uit@yahoo.co.id>
To: XL-mania@yahoogroups.com
Sent: Monday, August 15, 2011 1:22 PM
Subject: ]] XL-mania [[ Tick Checkbox kemudian text dalam cell menjadi strikethrough

 
Dear All XL Mania,

Bagaimana y caranya jika pada saat kita tick sebuah checkbox maka kondisi text dalam cell menjadi strikethrough dan ketika untick terxtpun menjadi un-strikethrough?

-Mohon Bantuannya-
thx



__._,_.___
Recent Activity:
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| tiap tanggal gajian, order buku "mengapa boss benci chart anda    |
| membludak :) ayo2 pesan yang belum punya....                      |
| btw... selamat menunaikan ibadah puasa ya...                      |
| www.facebook.com/pages/XL-mania/104233892978057                   |
+-------------------------------------------------------------------+
| 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
A bad score is 598. A bad idea is not checking yours, at freecreditscore.com.
.

__,_._,___

Nenhum comentário:

Arquivo do blog