ببين اين فايل به دردت مي خوره
کد:
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
باز هم ایول به شما و مرام شما دوست عزیز
آره این همانی هستش که من میخوام. واقعا ازت ممنونم. خیلی حال دادی رفیق. من این سوال را از خیلی ها پرسیده بودم که اگر بخوام آمار همشون را برات بگم باید خودت را در اکسل یک PERFECT بدونی.
راستی رفیق اگر هم بتونی برام یک توضیح کوچولو در مورد عملکرد این کد فایل بگی عالی می شود.
Dim n As Integer
Private Sub Worksheet_Activate()
n = Cells(3, 1)
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Cells(4, 1) = Cells(3, 1) - n
n = Cells(3, 1)
End Sub
یعنی در واقع همین را بگی که این دستور Cell چگونه عمل می کند فکر می کنم برایم کافی باشد. یعنی میخوام این کد را با دستکاری به شکل گسترده ازش استفاده کنم باید بهتر برایم عملکردش روشن شود به خصوص اینکه در میان چند sheet این را استفاده خواهم نمایم.
راستی یک نکته ی جالبی هم متوجه شدم که من و شما دقیق تا همین الان تعداد پست های یکسان داشته ایم که هر دومون 56 می باشد.