با درود
این کد رو هم میتونید تست کنید رو هر سلول از اون ردیف دوبار کلیک کنید اون سطر حذف میشه و شماره ردیفها بصورت اتوماتیک اصلاح میشن
البته بنده واسه رویداد دوبار کلیک استفاده کردم که شما میتونید به عنوان یک دکمه بذارین و از این کد به عنوان ماکرو اون دکمه استفاده کنید. البته اگر میخواین به جای رویداد دوبارکلیک به عنوان ماکرو یک دکمه استفاده کنید در تمام سطرهای کد، کلمه Activecell رو جایگزین کلمه Target کنید.
کد PHP:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
startrow = Target.Row
If Target.Offset(1, 0).Value = "" Then
endrow = startrow
Else
endrow = Target.End(xlDown).Row
End If
Rows(Target.Row).Delete
For i = startrow To endrow - 1
Cells(i, ActiveCell.Column).Value = Cells(i, ActiveCell.Column).Value - 1
Next i
Cancel = True
End Sub
علاقه مندی ها (Bookmarks)