Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Access Soruları (http://www.excel.web.tr/forumdisplay.php?f=57)
-   -   üzeri çizgili yazı (http://www.excel.web.tr/showthread.php?t=161848)

kartal1171 07-02-2017 14:47

üzeri çizgili yazı
 
Kolay gelsin arkadaşlar. bir konuda desteğinize ihtiyacım var.
vba ile yapılan bir müracaat formunda yazdır komutu verildiğinde tekil ise ettim çoğul ise ettik şeklide yazdırmasını ve diğer bölümün üzerini çizmesini nasıl yapabiliriz. yardımlarınızı bekliyorum.
Yazdırılacak sayfa adı"FORM"
sağlaması yapılacak olan hücre E19
Düzenlenecek metin.
A40: Diyanet İşleri Başkanlığınca düzenlenen 2017 yılı umre organizasyonuna yukarıdaki tercihlerim/tercihlerimiz
A41: doğrultusunda katılmak istiyorum/istiyoruz. Kayıtlarla ilgili açıklamaları okudum/okuduk ve şartları kabul ettim/ettik.
E19 Hücresi dolu ise çoğul yani (tercihlerim-istiyorum-okudum-ettim) kelimelerinin üzeri çizili olacak, değilse diğer kelimelerin üzeri çizili olacak.
Teşekkürler.

dEdE 07-02-2017 16:09

Merhaba,
Access Soruları bölümüne yazmışsınız ama ifadenizden Excel gibi algıladım. Eğe böyleyse, aşağıdaki kodu dener misiniz?
Kod:

Sub Üstünü_Çiz_ve_Yazdır()
If [E19] <> "" Then
    Range("A40:A41").Characters.Font.Strikethrough = False
    Range("A40").Characters(Start:=83, Length:=11).Font.Strikethrough = True
    Range("A41").Characters(Start:=24, Length:=9).Font.Strikethrough = True
    Range("A41").Characters(Start:=76, Length:=6).Font.Strikethrough = True
    Range("A41").Characters(Start:=108, Length:=5).Font.Strikethrough = True
Else
    Range("A40:A41").Characters.Font.Strikethrough = False
    Range("A40").Characters(Start:=95, Length:=13).Font.Strikethrough = True
    Range("A41").Characters(Start:=34, Length:=9).Font.Strikethrough = True
    Range("A41").Characters(Start:=83, Length:=6).Font.Strikethrough = True
    Range("A41").Characters(Start:=114, Length:=5).Font.Strikethrough = True
End If
Sheets("FORM").PrintOut
End Sub


kartal1171 08-02-2017 11:33

İlgi ve alakanızdan dolayı çok teşekkür ediyorum. Sayenizde hallettik.


Saat 14:16

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.