Skip to main content

AccessTr.neT M.

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

Konu

Çö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 Adlı Kullanıcıdan Alıntı: İ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?

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
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;

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
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
Son Düzenleme: 07/06/2019, 11:36, Düzenleyen: nightashes. (Sebep: Çözüldü.)
(05/06/2019 00:39)haliliyas Adlı Kullanıcıdan Alıntı: 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 Adlı Kullanıcıdan Alıntı: İ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?

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ToggleButton1_Click()
   If ToggleButton1.Value = True Then
      ToggleButton1.Caption = "Göster"
        Range("D7:D17,H7:H17,K7:K13").Select
        Selection.NumberFormat = "$#,##0.00_);($#,##0.00)"
        Range("A1").Activate
   Else
      ToggleButton1.Caption = "Gizle"
        Range("D7:D17,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.
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