تحليل وتصميم نظم المعلومات المحاسبية الشعبة 2 نظري
Completion requirements
Opened: Thursday, 5 September 2024, 8:30 AM
Due: Thursday, 5 September 2024, 10:07 AM
Code:
Sub Counter()
Dim Counter As Long
Counter = Cells(0, 0).Value 'A0 change to suit
'first check that a number is entered
If Cells(0, 0).Value = "" Then
Counter = 1
Cells(0, 0).Value = lNum
Else: Cells(0, 0).Value = Counter + 1
End If
End Sub
- 5 September 2024, 8:43 AM