یک دنیا ممنونم.شما هم کار منو راه انداختید هم باعث شدید بطور جدی بدنبال یادگیری VBA در اگسل بیفتم.
باز هم ممنون.
ای کاش درباره ی کدش هم توضیح اندکی میدادید.
[align=left][align=left]
کد:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("it65500") <> "" And Range("it65501") <> "" Then
Range("it65500") = ""
Range("it65501") = ""
Range("it65500") = Application.Selection.Column
ElseIf Range("it65500") = "" Then
Range("it65500") = Application.Selection.Column
ElseIf Range("it65500") <> "" Then
Range("it65501") = Application.Selection.Row
Cells(Range("it65501"), Range("it65500")).Select
Range("it65500") = ""
Range("it65501") = ""
Else
Cells(Range("it65501"), Range("it65500")).Select
Range("it65500") = ""
Range("it65501") = ""
End If
End Sub
[/align][/align][hr]
یک دنیا ممنونم.شما هم کار منو راه انداختید هم باعث شدید بطور جدی بدنبال یادگیری VBA در اکسل بیفتم.
باز هم ممنون.
ای کاش درباره ی کدش هم توضیح اندکی میدادید.
[align=left][align=left]
کد:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("it65500") <> "" And Range("it65501") <> "" Then
Range("it65500") = ""
Range("it65501") = ""
Range("it65500") = Application.Selection.Column
ElseIf Range("it65500") = "" Then
Range("it65500") = Application.Selection.Column
ElseIf Range("it65500") <> "" Then
Range("it65501") = Application.Selection.Row
Cells(Range("it65501"), Range("it65500")).Select
Range("it65500") = ""
Range("it65501") = ""
Else
Cells(Range("it65501"), Range("it65500")).Select
Range("it65500") = ""
Range("it65501") = ""
End If
End Sub
[/align][/align]
علاقه مندی ها (Bookmarks)