پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 4 , از مجموع 4

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

  1. #1


    آخرین بازدید
    6 روز پیش
    تاریخ عضویت
    April_2011
    نوشته ها
    41
    امتیاز
    4
    سپاس
    2
    سپاس شده
    4 در 3 پست

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

    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

    آخرین بازدید
    17 _ 02 _ 2013
    تاریخ عضویت
    September_2010
    نوشته ها
    3
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست

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

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




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

  4. #3


    آخرین بازدید
    6 روز پیش
    تاریخ عضویت
    April_2011
    نوشته ها
    41
    امتیاز
    4
    سپاس
    2
    سپاس شده
    4 در 3 پست

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

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

  5. #4


    آخرین بازدید
    3 روز پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    931
    امتیاز
    664
    سپاس
    29
    سپاس شده
    810 در 348 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به 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

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

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


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

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

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

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

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

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

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

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

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