bir hücrenin üstüne basıldıgı anda yazılı şekilde göstermesi

[yildirimm]

merhaba arkadaşlar atiyorum şimdi h10 hücresinde bir rakam var 10.000 li bu rakamın mause ile üstüne gelindiginde renkli vede kabartmalı bi şekilde 10.000 yazmasını istiyorum bunu nasıl yapabilirim şimdiden tşkler

 

[hamitcan]

İlgili sayfanın kod kısmına aşağıdaki kodu ekleyin. Herhangi bir hücreyi tıklattığınızda o hücre renkli ve koyu hale geliyor. Tabii ki boş olmamak kaydıyla.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.ClearFormats
If Target <> Empty Then
With Target
.Font.Bold = True
.Font.ColorIndex = 5
End With
End If
End Sub

 

[conari]

Private Sub Worksheet_Selectionchange(ByVal Target As Range)
With Selection.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = Target.Value
.InputMessage = Target.Value
.ShowInput = True
End With
End Sub

Alandaki bilgi veri doğrulama mantığı ile gösterilebilir.

 

[yildirimm]

arkadaşlar tşk ederim ama benim istediğim rakam mavi oldugunda beyaz bi pencere açılacak orda o rakam yazacak

 

[conari]

Private Sub Worksheet_Selectionchange(ByVal Target As Range)
If Target.Font.ColorIndex = 5 Then
With Selection.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = Target.Value
.InputMessage = Target.Value
.ShowInput = True
End With
End If
End Sub

O zaman bu şekilde deneyin .hücre rengi mavi ise gösterilir.