نمایش نتایج: از شماره 1 تا 4 , از مجموع 4

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

  1. #1


    آخرین بازدید
    2023/12/29
    تاریخ عضویت
    April 2011
    محل سکونت
    تهران
    نوشته ها
    50
    امتیاز
    5
    سپاس
    8
    سپاس شده
    5 در 4 پست
    تعیین سطح نشده است

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

    Private Sub CommandButton1_Click()
    If Cells(1, 1) <> "" Then
    Cells(1, 2) = 1
    Else
    Cells(1, 2) = 2
    End If
    در دستور فوق به جاي "" <> مي خوام بگم هرتغييري در محتواي (Cells(1, 1 ايجاد شود
    شروط را اجرا نمايد
    با تشكر از همه دوستان
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2

    آخرین بازدید
    2013/02/17
    تاریخ عضویت
    September 2010
    نوشته ها
    3
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

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

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




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

  4. #3


    آخرین بازدید
    2023/12/29
    تاریخ عضویت
    April 2011
    محل سکونت
    تهران
    نوشته ها
    50
    امتیاز
    5
    سپاس
    8
    سپاس شده
    5 در 4 پست
    تعیین سطح نشده است

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

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

  5. #4


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

    shamsololama به Yahoo ارسال پیام

    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

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

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


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. نياز شديد به راهنمائي دوستان ...
    توسط olding در انجمن كاربرد اكسل در رشته هاي مختلف
    پاسخ ها: 8
    آخرين نوشته: 2012/07/28, 12:17
  2. قابل توجه دوستان صنایعی
    توسط ~M*E*H*D*I~ در انجمن مهندسی صنایع و اکسل
    پاسخ ها: 5
    آخرين نوشته: 2012/06/03, 23:08
  3. دوستان يك مشكل دارم كمكم كنيد
    توسط saeedexcel در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 0
    آخرين نوشته: 2011/11/27, 12:51
  4. درخواست کمک از دوستان عزیز
    توسط mokaram در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 6
    آخرين نوشته: 2011/11/03, 11:19

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد