AccessTr.neT
Vlookup İle Hücre Grubunu Sonuç Olarak Döndürme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Vlookup İle Hücre Grubunu Sonuç Olarak Döndürme (/konu-vlookup-ile-hucre-grubunu-sonuc-olarak-dondurme.html)

Sayfalar: 1 2 3 4 5 6 7 8 9 10 11

RE: Vlookup İle Hücre Grubunu Sonuç Olarak Döndürme - berduş - 08/05/2021

(08/05/2021, 04:21)feraz yazdı: Dosyadaki, döngü içini alttaki gibi yaparsanız alt çizgi,kalın renk ve eğik yazı olur aranan kelime.

            If Mid(veri, i, Len(aranan)) = aranan Then .Characters(i, Len(aranan)).Font.Bold = True

            If Mid(veri, i, Len(aranan)) = aranan Then .Characters(i, Len(aranan)).Font.Underline = xlUnderlineStyleSingle

            If Mid(veri, i, Len(aranan)) = aranan Then .Characters(i, Len(aranan)).Font.FontStyle = "İtalik"
çok teşekkürler @feraz hocam)

RE: Vlookup İle Hücre Grubunu Sonuç Olarak Döndürme - feraz - 08/05/2021

Rica ederim abey,düzenlenmiş halini ekledim dosyadaki.

Private Sub CommandButton1_Click()

    Dim i As Integer, veri As String, aranan As String

    

    With [A1]

        veri = .Text

        aranan = [B4].Text

        .Font.Bold = False

        .Font.Underline = xlUnderlineStyleNone

        .Font.FontStyle = "Normal"

        If [B4].Value = "" Then GoTo son

        For i = 1 To Len(veri)

            If Mid(veri, i, Len(aranan)) = aranan Then .Characters(i, Len(aranan)).Font.Bold = True

            If Mid(veri, i, Len(aranan)) = aranan Then .Characters(i, Len(aranan)).Font.Underline = xlUnderlineStyleSingle

            If Mid(veri, i, Len(aranan)) = aranan Then .Characters(i, Len(aranan)).Font.FontStyle = "Ýtalik"

        Next

    End With

son:

End Sub


RE: Vlookup İle Hücre Grubunu Sonuç Olarak Döndürme - berduş - 08/05/2021

ozaman fontla ilgili tüm diğer kodlar da çalışıyordur değil mi?
en azından size çalıştı.

RE: Vlookup İle Hücre Grubunu Sonuç Olarak Döndürme - berduş - 08/05/2021 

Private Sub CommandButton1_Click()

    Dim i As Integer, veri As String, aranan As String

    

    With [a1]

        veri = .Text

        aranan = [B4].Text

        .Font.Bold = False

        .Font.Underline = xlUnderlineStyleNone

        .Font.FontStyle = "Normal"

        If [B4].Value = "" Then GoTo son

        For i = 1 To Len(veri)

         With [a1].Characters(i, Len(aranan)).Font

           If Mid(veri, i, Len(aranan)) = aranan Then

                .Bold = True

                .Underline = xlUnderlineStyleSingle

                .FontStyle = "normal"

                .Size = 9

                .Color = vbBlue

                .Background = xlBackgroundAutomatic

            End If

        End With

        Next

    End With

son:

End Sub


RE: Vlookup İle Hücre Grubunu Sonuç Olarak Döndürme - feraz - 08/05/2021

(08/05/2021, 05:01)berduş yazdı: .Size = 9 .Color = vbBlue
Bunlar eklendiği için yukarısındaki kodada mesela veri alınan hücre rengi siyah ve boyutu 12 ise o kodda eklenmeli yada kısa yolu olabilir abey.

RE: Vlookup İle Hücre Grubunu Sonuç Olarak Döndürme - berduş - 08/05/2021

üst yada alt simge gibi kullanma kodunu bulamadım