İsimler Büyüsün

[beykatip]

Herkese iyi geceler arkadaşlar ekte gönderdiğim dosyamda bir kaç isim var benim sorum ise dosyamdaki isimlerin üzerine fare ile gelindiğinde hangi ismin üzerine gelinirse o ismin büyük görünmesini istiyorum herkese teşekkürler.

 

[Orion1]

Excel çalışma sayfalarındaki hücrelerde mousemove olayı olmadığı için mouse ile üstüne geldimi karakterler büyümez.Ama tıklama yada hücre seçme olayında yapılabilir.

 

[beykatip]

anlattığınız şekilde bir örnek eklermisin sevgili hocam

 

[Orion1]

Kodlar çalışma sayfasının kod bölümündedir.
B sütununda dolu bir hücre seçmelisiniz.
Dosyanız ektedir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sat As Long
sat = Cells(Rows.Count, "B").End(xlUp).Row
Range("B1:B" & sat).Font.Size = 10
If Target.Column = 2 Then Target.Font.Size = 18
End Sub

 

[mustafa1205]

Hocam müsadenizle bende bu konuya dahil omak istiyorum.Hücreden çıkıldığında otomatik olarak eski haline gelmesini sağlayabilirmiyiz ?

 

[sadolayn]

bunu zıt renk yapabılırmısınız yanı hucrenın içi sıyah renk yazı rengı beyaz renk mouse la sectıgımde hucre rengı beyaz yazı rengı sıyah olucak sekılde duzenleyebılırmısınız ...

 

[Orion1]

Hocam müsadenizle bende bu konuya dahil omak istiyorum.Hücreden çıkıldığında otomatik olarak eski haline gelmesini sağlayabilirmiyiz ?

dosyayı tekrar düzenledim.4 nolu mesajdan indirebilirsiniz.

 

[Orion1]

bunu zıt renk yapabılırmısınız yanı hucrenın içi sıyah renk yazı rengı beyaz renk mouse la sectıgımde hucre rengı beyaz yazı rengı sıyah olucak sekılde duzenleyebılırmısınız ...

İstediğiniz işlemi yapan dosyayı ekliyorum.
Kolay gelsin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sat As Long
sat = Cells(Rows.Count, "B").End(xlUp).Row
Range("B1:B" & sat).Font.Size = 10
Range("B1:B" & sat).Interior.Color = vbWhite
Range("B1:B" & sat).Font.Color = vbBlack
If Target.Column = 2 Then
    Target.Font.Size = 18
    Target.Interior.Color = vbBlack
    Target.Font.Color = vbWhite
End If
End Sub

 

[baydeniro]

Teşekkürler ilginç bir çalışma.

 

[Necdet]

Merhaba,

Bu çözümde alternatif olsun.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    ActiveSheet.Shapes("AdSoyad").Visible = False
    
    If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
    If Target.Row < 4 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    
    With ActiveSheet.Shapes("AdSoyad")
        .Visible = True
        .Select
            Selection.Formula = Target.Address
        .Top = Target.Top
        .Left = Target.Offset(0, 1).Left
    End With
    
End Sub

 

[beykatip]

Sevgili Orion1 bey konu rağbet görmüş ve arkadaşlar da soru ile desteklemişler sağolsunlar asıl olay ise ilgilenip cevap verdiğiniz için size sonsuz teşekkür ederim.

 

[Necdet]

Hay allah bizim büyütmemiz dikkate alınmadı

 

[karahan61]

çalışma çok güzel.. Bu çalışma genel olarak mause hangi hücrede ise o hüçre büyüyebilir mi..?

 

[Necdet]

çalışma çok güzel.. Bu çalışma genel olarak mause hangi hücrede ise o hüçre büyüyebilir mi..?

Merhaba,

Eğer bana soruyorsanız verdiğim kodlardaki aşağıdaki satırların sildiğiniz taktirde her hücre için geçerli olur.

    If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
    If Target.Row < 4 Then Exit Sub
    If Target.Value = "" Then Exit Sub

 

[mustafa1205]

Sayın Orion çok teşekkür ediyorum. Emeğinize sağlık istediğim gibi olmuş.Hayırlı akşamlar diliyorum

 

[Orion1]

Sayın Orion çok teşekkür ediyorum. Emeğinize sağlık istediğim gibi olmuş.Hayırlı akşamlar diliyorum

Rica ederim.
İyi akşamlar.

 

[mustafa1205]

Necdet Hocam sizin çalışmanızda harika.Sizede çok teşekkür ediyorum.

 

[sadolayn]

istediğiniz işlemi yapan dosyayı ekliyorum.
Kolay gelsin.

private sub worksheet_selectionchange(byval target as range)
dim sat as long
sat = cells(rows.count, "b").end(xlup).row
range("b1:b" & sat).font.size = 10
range("b1:b" & sat).ınterior.color = vbwhite
range("b1:b" & sat).font.color = vbblack
ıf target.column = 2 then
    target.font.size = 18
    target.ınterior.color = vbblack
    target.font.color = vbwhite
end ıf
end sub

on num€ra tesekkurler.....