از همه دوستان دست ياري مي طلبم _ يه فرمول شرطي ساده

[jeddi]

Private Sub CommandButton1_Click()
If Cells(1, 1) <> "" Then
Cells(1, 2) = 1
Else
Cells(1, 2) = 2
End If
در دستور فوق به جاي "" <> مي خوام بگم هرتغييري در محتواي (Cells(1, 1 ايجاد شود
شروط را اجرا نمايد
با تشكر از همه دوستان

[mohsen.yousefi66]

RE: از همه دوستان دست ياري مي طلبم _ يه فرمول شرطي ساده

با سلام خدمت دوست عزیز
ببینید راه کاری که بنده میدانم تنها مسئله شمارو برطرف می کند... اما دقیقا آن چیزی که می خواهید نیست.
کافیست در محیط VBA ، صفحه ی(sheet) مورد نظر را انتخاب کرده و از لیست پروسژور ها گزینه ی work sheet را انتخاب کرده و سپس از لیست eventها change را انتخاب کرده. و کد مور نظر را در اینقسمت می نویسید.................................. این کار باعث می شود هر بار که مقداری در هر یک از خانه ها وارد می گردد excel این شرط را چک کند و ببیند آیاسلول a1 خالی هست یا خیر.




[img]e:\excelll.jpg[/img]

[jeddi]

RE: از همه دوستان دست ياري مي طلبم _ يه فرمول شرطي ساده

دوست عزيز ممنون از پاسختون
اين روش هم مي تونه تاحدودي كارمو رابندازه
اميدوارم در تمام مراحل كاري و زندگي موفق سربلند باشي .
از دوستان عزيز باز مي خوام اگه روشي مد نظر دارند دريغ ننمايند
با تشكر از همه دوستان و اساتيد محترم

[shamsololama]

RE: از همه دوستان دست ياري مي طلبم _ يه فرمول شرطي ساده

با درود فراوان
همانطور که دوست عزیزمان فرمودند می توانید آن را در زیرروال چنج قرار دهید

Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, 1) <> "" Then
Cells(1, 2) = 1
Else
Cells(1, 2) = 2
End If
End Sub

در این صورت با تغییر هر سل در هرکجای صفحه این کد یک بار اجرا می شود
و با چنین کدی که کار زیادی را نمی خواهد انجام دهد و کد کوتایی هست مشکلی هم پیش نمیاد چون با هر تغییری یک بار اجرا می شه ولی زیاد نیست
ولی اگر این کد کد بزرگی بود و عمل های مختلف و زیادی را می خواست انجام دهد در نتیجه با تغییر هر سل وقتی آن اجرا شود کلی زمان و فضا را اشغال کرده و صفحه را سنگین میکند

که برای حل این مشکل می توانید با تعریف چند متغییر و ایجاد شرط شرط اجرای کد را منوط به تغییر فقط همان سل مورد نظر کردکه فقط در صورتی آن کد شرطی اجرا شود که فقط همان سل مورد نظر ما تغییر کنید در این صورت مشکلی نخواهیم داشت