Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > Diğer Yazılımlar > Access Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Access Soruları Access hakkındaki sorular ve cevaplar.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 07-02-2017, 14:47   #1
kartal1171
 
Giriş: 15/10/2008
Şehir: lefkoşa
Mesaj: 12
Excel Vers. ve Dili:
Microsoft Ofis 2007
Varsayılan ü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.

Bu mesaj en son " 07-02-2017 " tarihinde saat 15:11 itibariyle kartal1171 tarafından düzenlenmiştir....
kartal1171 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-02-2017, 16:09   #2
dEdE
Destek Ekibi
 
dEdE kullanıcısının avatarı
 
Giriş: 01/07/2005
Mesaj: 1,996
Excel Vers. ve Dili:
Excel-2003 Türkçe
Varsayılan

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: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
__________________
"Kara ve deniz geçit vermeyebilir. Sen havayı dene. Yeterki çözüm ara. Çözüm bulunur." Daedalus Efsanesi

Bu mesaj en son " 07-02-2017 " tarihinde saat 20:05 itibariyle dEdE tarafından düzenlenmiştir.... Neden: Yazım hatası düzeltildi.
dEdE Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-02-2017, 11:33   #3
kartal1171
 
Giriş: 15/10/2008
Şehir: lefkoşa
Mesaj: 12
Excel Vers. ve Dili:
Microsoft Ofis 2007
Varsayılan

İlgi ve alakanızdan dolayı çok teşekkür ediyorum. Sayenizde hallettik.
kartal1171 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 13:19


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden