üzeri çizgili yazı

[kartal1171]

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]

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?

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]

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