Excel Satır Karması

Question

Başlamak için 15 yıllık Excel programında böyle bir şey görmedim. Ben bu özel Excel Dosyası Perili olduğunu hissetmek daha hafif bir kayda göre

: P

ciddi bir kayda göre, gerçekten neler olduğunu anlayamıyorum.

Sorun

kodu (ben yazmadım) çalışır ve bir koşulu temel satırları gizler. 59 satırında C sütunu dışında herhangi bir hücreye tıkladığınızda, satır 58 satırdan olduğunu gösterir. Sadece C hücresinde doğru adresi gösterir.

Ekran

Ne denediniz mi?

1. Öncelikle bu dışladı olduğunu, bir ScreenUpdating konudur ancak kodu gördüğünüz gibi düşündük.
2. Col A'dan Col D'ye ve ?Activecell.Row yazılan Anında penceresinden tüm bu hücrelere el ile girdim. 58,59,58,58
3. Bu tür bir sorunla karşılaşan herhangi biri varsa Google'ı kontrol ettim. Ama tek bir örnek bulamadı! Sorun başka ne olabilir bilmiyorum. Eğer Suudi Arabistan müvekkilimin birinden olduğundan bu dosya tersten sütunları olan görebileceğiniz gibi

Kod

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
    Dim i, j, k, lastrow As Long 
    Dim finlast As Long 

    Application.ScreenUpdating = False 

    'Income_Disc 
    lastrow = Sheets("Financial_Disc1").Range("E65536").End(xlUp).Row 
    finlast = Sheets("Financial_Disc").Range("A65536").End(xlUp).Value + 1 

    If Target.Column = 9 And Target.Row = 1 Then 
     'Unhide Rows if I1 is double clicked 
     Sheets("Financial_Disc1").Rows("1:65536").EntireRow.Hidden = False 
    Else 
     If Target.Row > 7 And Target.Row < lastrow Then 
      If Target.Column = 9 Then 
       'Hide Rows 
       For j = Target.Row To lastrow 
        If Sheets("Financial_Disc1").Range("B" & CStr(j + 1)) <> "" Then 
         'Hide Rows 
         Sheets("Financial_Disc1").Range("A" & CStr(j)).EntireRow.Hidden = True 
         Exit For 
        Else 
         'Hide Rows 
         Sheets("Financial_Disc1").Range("A" & CStr(j)).EntireRow.Hidden = True 
        End If 
       Next j 
      End If 
     End If 
    End If 

    Sheets("Financial_Disc1").Range("A8:A65536").ClearContents 

    For i = 8 To lastrow 
     If Sheets("Financial_Disc1").Range("A" & CStr(i)).EntireRow.Hidden = True Then 
      If Sheets("Financial_Disc1").Range("B" & CStr(i)) <> "" Then 
       Sheets("Financial_Disc1").Range("A" & CStr(i)) = "" 
      End If 
     Else 
      If Sheets("Financial_Disc1").Range("B" & CStr(i)) <> "" Then 
       Sheets("Financial_Disc1").Range("A" & CStr(i)) = finlast 
       finlast = finlast + 1 
      End If 
     End If 
    Next i 
    Application.ScreenUpdating = True 
End Sub 

Çeşitli

Noktaları.

My Soru

kimse sorun olabilir görebilir miyim? Yoksa sadece "Nadir" bir hata olarak mı atmalıyım?

Answer 1

satırını kontrol edin hücrelerini birleşti - onları