با سلام
از کدنویسی هم میتوانید برای این کار استفاده کنید
کد PHP:
Public MAX1, MAX2 As Long
Private Sub Worksheet_Change(ByVal Target As Range)
Z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row + 1
If Not Intersect(Target, Me.Range("A1:A" & Z1)) Is Nothing Then
TEST
Z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row + 1
If ActiveCell = "d1-" Then
ActiveCell.Offset(, 1) = MAX1
ElseIf ActiveCell = "d2-" Then
ActiveCell.Offset(, 1) = MAX2
End If
End If
End Sub
Sub TEST()
Z2 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
MAX1 = 1
MAX2 = 1
For I = 1 To Z2
If Range("A" & I) = LCase("D1-") And Range("B" & I) >= MAX1 Then
MAX1 = Range("B" & I) + 1
ElseIf Range("A" & I) = LCase("D2-") And Range("B" & I) >= MAX2 Then
MAX2 = Range("B" & I) + 1
End If
Next
End Sub
علاقه مندی ها (Bookmarks)