Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Windows-Word-PowerPoint.... (http://www.excel.web.tr/forumdisplay.php?f=51)
-   -   satır renklendirme (http://www.excel.web.tr/showthread.php?t=166018)

biyoinforma 09-08-2017 14:25

satır renklendirme
 
Merhaba,

Word' de oluşturduğum 100 sayfalık tablolar var. Bu tablolar içerisinde belli kelimelerin olduğu satırları renklendirmek istiyorum. Örnek: "kalem" kelimesini içeren satırlar kırmızı olsun gibi. Bul-Değiştir yolunu takıip ettim, ancak orada sadece yazının rengi değişiyor.

Bunları exceldeki gibi toplu bir şekilde renklendirmem mümkün mü?

Teşekkürler

halit3 09-08-2017 16:31

Bir örnek dosya ekleyin ne yapılacağını görelim.

biyoinforma 09-08-2017 17:10

Merhaba,

Dosya aşağıdaki bağlantıda yer almakta.
Teşekkürler

http://s9.dosya.tc/server3/1sxca9/kalem.docx.html

halit3 09-08-2017 18:26

dosya inmiyor yeniden yükleyiniz

leumruk 10-08-2017 12:55

Selamlar,
Aşağıdaki kodu, dosyanızın makro bölümüne kopyalayın ve çalıştırın.
Kod:

Sub dene()
sor = InputBox("Aranacak metni yazınız...", "Metin Arama")
If sor = "" Then Exit Sub

For Each tbl In ActiveDocument.Tables
    For Each rw In tbl.Rows
        For Each hcr In rw.Cells
        txt = Mid(hcr, 1, Len(hcr) - 2)
        If InStr(1, txt, sor) > 0 Then
            rw.Shading.ForegroundPatternColor = wdColorAutomatic
            rw.Shading.BackgroundPatternColor = wdColorRed
        End If
        Next
    Next
Next
MsgBox "İşlem tamamlandı.", vbOKOnly, "leumruk"
End Sub


biyoinforma 10-08-2017 14:38

Lemruk selam,

Verdiğin kod işe yaradı, ama sadece "kalem" yazan satırı değil aynı sıradaki tüm satırlar da kırmızı oluyor. Bunu nasıl düzeltebiliriz?

leumruk 10-08-2017 14:41

Siz kalem yazan hücrenin mi renklenmesini istiyorsunuz?

halit3 10-08-2017 15:06

3 nolu mesajınızdaki dosya linki bende indirmiyor hayret ama 10 kere indirildi uyarısı veriyor.

biyoinforma 10-08-2017 16:47

Lemruk, evet sadece kalem yazan satırın renklenmesini istiyorum. Örnek dosyada diğer satırlar boş görünüyor, ama asıl dosyada boş olan satırlarda dolu ve onları da farklı renklendireceğim.

Halit3 indirmede bir sıkıntı yok gibi duruyor.

leumruk 10-08-2017 20:57

Sanırım, satırla kastettiğiniz, metnin bulunduğu hücre. Eğer öyle ise aşağıdaki kodu deneyiniz.
Kod:

Sub dene()
sor = InputBox("Aranacak metni yazınız...", "Metin Arama")
If sor = "" Then Exit Sub

For Each tbl In ActiveDocument.Tables
    For Each rw In tbl.Rows
        For Each hcr In rw.Cells
        txt = Mid(hcr, 1, Len(hcr) - 2)
        If InStr(1, txt, sor) > 0 Then
            hcr.Shading.ForegroundPatternColor = wdColorAutomatic
            hcr.Shading.BackgroundPatternColor = wdColorRed
        End If
        Next
    Next
Next
MsgBox "İşlem tamamlandı.", vbOKOnly, "leumruk"
End Sub



Saat 23:32

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