Skip to main content

AccessTr.neT


Hücre İçeriği Gizleme (toogle Button İle) Ve Zaman Damgası

Hücre İçeriği Gizleme (toogle Button İle) Ve Zaman Damgası

Çözüldü #1
Merhaba,

İki sorum olacak.
Birincisi bir togle button ile belirli hücrelerin içeriğini gizleyip açmak istiyorum. Mesela A2 D4 E5 E6 E7 F10 hücreleri gibi.

İkinci sorum ise belirli hücrelerde yaptığım bir değişiklik olursa (A1:F100 arası mesela) H sütününda ki yan satırlarına değişiklik tarihini otomatik olarak yazsın.

Teşekkür ederim.
Alıntı:Her şey bir fikirle başlar.
Cevapla
#2
emin değilim ama bildiğim kadarıyla tek bir hücreyi gizleyemiyorsunuz. yazı rengini beyaz yapabilirsiniz yada aşağıdaki bağlantıda yer alan adımları izleyerek boş görünmesini sağlayabilirsiniz ama gerçek manada gizlemiyor bu yöntemler, hücreye gelince yukarıdaki formül çubuğunda görebiliyorsunuz içeriğini.
https://support.office.com/en-us/article...5cd9f05c33
(05/06/2019, 00:04)nightashes yazdı: İkinci sorum ise belirli hücrelerde yaptığım bir değişiklik olursa (A1:F100 arası mesela) H sütününda ki yan satırlarına değişiklik tarihini otomatik olarak yazsın.
sayfanın modülüne aşağıdaki kodu yazıp dener misiniz?
Private Sub Worksheet_Change(ByVal Target As Range) 'Excel Vba with more cells in the range.
Dim KeyCells As Range

' The variable KeyCells contains the cells that will
' cause an alert when they are changed.
Set KeyCells = Range("A1:f100")

If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
Range("H" & Target.Row).Value = Date & " - " & Time
End If
End Sub
Cevapla
#3
aslında 1 hilesi var gibi ama biraz uğraştırır. eğer  gizleyeceğiniz hücrenin içeriği değişmeyecekse;
1 - belirttiğiniz sayfadaki tüm hücrelerin "gizli/hidden"  ve "kilitli/locked" özelliğini devre dışı bırakın
2 - gizleyeceğiniz hücrelerin "gizli/hidden"  ve "kilitli/locked" özelliğini etkinleştirin
3 - gizleyeceğiniz hücrelerin yazı rengini beyaz yapın
4 - sayfayı şifre korumalı yapın ama 3 özelliğini devredışı bırakın
[Resim: do.php?thmb=9095]
5 - sayfaya bir buton ekleyip, butonun resim yazısını "Gizle" yapın
6 - butonun tıklama kodu;
Private Sub CommandButton1_Click()
If CommandButton1.Caption = "gizle" Then
CommandButton1.Caption = "göster"
Range("a3").Font.Color = RGB(255, 255, 255)
'diğer hücreleri için aynı kod
Else
CommandButton1.Caption = "gizle"
Range("a3").Font.Color = RGB(0, 0, 0)
'diğer hücreleri için aynı kod
End If
End Sub
dilerim işinize yarar
Cevapla
#4
(05/06/2019, 00:39)haliliyas yazdı: emin değilim ama bildiğim kadarıyla tek bir hücreyi gizleyemiyorsunuz. yazı rengini beyaz yapabilirsiniz yada aşağıdaki bağlantıda yer alan adımları izleyerek boş görünmesini sağlayabilirsiniz ama gerçek manada gizlemiyor bu yöntemler, hücreye gelince yukarıdaki formül çubuğunda görebiliyorsunuz içeriğini.
https://support.office.com/en-us/article...5cd9f05c33
(05/06/2019, 00:04)nightashes yazdı: İkinci sorum ise belirli hücrelerde yaptığım bir değişiklik olursa (A1:F100 arası mesela) H sütününda ki yan satırlarına değişiklik tarihini otomatik olarak yazsın.
sayfanın modülüne  aşağıdaki kodu yazıp dener misiniz?
Private Sub Worksheet_Change(ByVal Target As Range) 'Excel Vba with more cells in the range.
   Dim KeyCells As Range

   ' The variable KeyCells contains the cells that will
   ' cause an alert when they are changed.
   Set KeyCells = Range("A1:f100")
   
   If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
       Range("H" & Target.Row).Value = Date & " - " & Time
   End If
End Sub

Tekrar merhaba. Cevabınız için teşekkürler. Yazdığınız kod tam istediğim gibi oldu çok teşekkürler.

haliliyas a da çok teşekkür ederim cevabından ötürü. Fakat renklere girdim mi işin içinden çıkamam zira baya bir renkli sayfa oldu her hücre farklı renkte desem yeridir Img-grin

Diğer öneriniz için evet hücre biçimini değiştirip ;;; şeklinde custom yapınca içeriği istediğim gibi gizledi.
Biraz uğraşınca şu şekilde bir şey yaptım ve istediğim gibi oldu.

Private Sub ToggleButton1_Click()
  If ToggleButton1.Value = True Then
     ToggleButton1.Caption = "Göster"
       Range("D7Lol17,H7:H17,K7:K13").Select
       Selection.NumberFormat = "$#,##0.00_);($#,##0.00)"
       Range("A1").Activate
  Else
     ToggleButton1.Caption = "Gizle"
       Range("D7Lol17,H7:H17,K7:K13").Select
       Selection.NumberFormat = ";;;"
       Range("A1").Activate
  End If
End Sub

Sorunlarım bu iki kod ile çözülmüş oldu. Yardım ve emeği geçen herkese teşekkür ederim.
Alıntı:Her şey bir fikirle başlar.
Son Düzenleme: 07/06/2019, 11:36, Düzenleyen: nightashes. (Sebep: Çözüldü.)
Cevapla
#5
önemli değil
iyi çalışmalar)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task