Aynı satırdaki hücrelerden biri silinirse, excel 2013'te bir satırın tamamı nasıl silinir?


1

Belirli bir hücrede bir veriyi ne zaman silersem, satırı boyunca tüm diğer verilerin otomatik olarak silineceği herhangi bir yöntem önerebilir misiniz?

Bunu zaten araştırdım ve uygulama kodunu silmek için Visual Basic'leri kullanarak geldim 2 satırları boş bırak 2 ama gerçekten nasıl kullanılacağını bilmiyorum. Biri bana bahsettiğim kodu nasıl kullanabileceğimi öğretebilir mi?

Yanıtlar:


2

Excel'in hücre silme için bir VBA olayı yoktur.

Bir Worksheet_Change olayı kullanabilirsiniz. Bu olay, sayfadaki bir hücre değiştiğinde tetiklenir. Değişiklikten sonra, hücre boşsa, kullanıcının henüz bir hücreyi silmesinin veya hücreye herhangi bir şey yazmadan zaten boş olan bir hücreyi düzenledikten sonra bir hücreyi silmesinin veya girmemesinin nedeni olabilir.

Change olayı, yalnızca belirli bir aralığı (örneğin, A'dan F'ye kadar olan sütunlar) izlemek üzere ayarlanmış olabilir ve yalnızca bu sütunlardaki bir hücre bir değişiklikten sonra boşsa satırı siler.

Ön-amble olarak bu, benim tarif ettiğim şeyi yapan bir kod.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A:F")) Is Nothing Then
    If Len(Trim(Target.Value)) = 0 Then
        MsgBox "Cell was deleted - now deleting row" ' remove this line if you dont want the message
        Application.EnableEvents = False ' turn off event monitoring so the routine does not loop
        Selection.EntireRow.Delete
        Application.EnableEvents = True ' turn on event monitoring
    End If
End If

End Sub

Bu kodu kopyalayın. Ardından, sayfa sekmesini sağ tıklayın, içerik menüsünden "Kodu Görüntüle" yi seçin ve kodu kod penceresine yapıştırın. Dosyayı makro etkin bir .xlsm dosyası olarak kaydetmeyi unutmayın.

Sitemizi kullandığınızda şunları okuyup anladığınızı kabul etmiş olursunuz: Çerez Politikası ve Gizlilik Politikası.
Licensed under cc by-sa 3.0 with attribution required.