ایجاد ماکرو یی که مقادیر سلول هارو بررسی نماید

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • ali0253
    • 2017/04/01
    • 4

    [حل شده] ایجاد ماکرو یی که مقادیر سلول هارو بررسی نماید

    با عرض سلام و ادب خدمت دوستان انجمن اکسل.یک ستون (a1:a20)حاوی بیست رکورد از اعداد بین هزار تا ده هزار
    داریم خاستم ببینم امکان داره ماکرویی ایجاد کنیم که اعداد را بررسی کنه که به سلولهایی که مقدار انها کمتر از پنج هزار است
    عدد هزار رو اضافه کنه و سلولهایی که بین شش هزار تا هفت هزار هستن عدد پانصد را اضافه کنه و جواب را در سلولهای مجاور یعنی (b1:b20) درج کنه.حتی سلولهایی که مقدارشون تغییری نکرده رو داخل محدوده (b1:b20)درج کنه. با تشکر
  • rasools13

    • 2017/01/20
    • 360
    • 80.00

    #2
    سلام
    نیازی به ماکرو نیست و با استفاده از تابع if و and به راحتی میشه انجام داد

    در سلول b1 تابع ذیل را نوشته و برای ذیگر سلول ها نیز اعمال کنید
    کد PHP:
    =IF(A1<5000;A1+1000;IF(AND(A1>6000;A1<7000);A1+500;A1)) 
    فایل های پیوست شده
    [CENTER][B]بهترین راه ذخیره زمان(یادگیری)،،حل مشکلات دیگران است
    [COLOR=#0000ff]مشکلات دیگران، روزی مشکلات ما هم خواهد شد[/COLOR][/B][COLOR=#ff0000][B][FONT=arial][/FONT][/B][/COLOR]
    [/CENTER]

    کامنت

    • ali0253
      • 2017/04/01
      • 4

      #3
      اقا رسول مرسی از جوابتون.دستتون درد نکنه به خاطر فرمول نویسی .اگه زحمتی نیست خواستم برای مواقعی که تعداد سطرها زیادباشه و شرط های مختلف هم باشه با ماکرو هم به همین جواب برسم.از دوستانی که با ماکرو نویسی اشنایی دارن خواستم بدونم میشه چنین ماکرویی ایجاد کرد یا نه.؟

      کامنت

      • مصطفی رجبی

        • 2015/05/24
        • 73
        • 47.00

        #4
        نوشته اصلی توسط ali0253
        با عرض سلام و ادب خدمت دوستان انجمن اکسل.یک ستون (a1:a20)حاوی بیست رکورد از اعداد بین هزار تا ده هزار
        داریم خاستم ببینم امکان داره ماکرویی ایجاد کنیم که اعداد را بررسی کنه که به سلولهایی که مقدار انها کمتر از پنج هزار است
        عدد هزار رو اضافه کنه و سلولهایی که بین شش هزار تا هفت هزار هستن عدد پانصد را اضافه کنه و جواب را در سلولهای مجاور یعنی (b1:b20) درج کنه.حتی سلولهایی که مقدارشون تغییری نکرده رو داخل محدوده (b1:b20)درج کنه. با تشکر
        اینم جواب مسئله با کد نویسی vba
        فایل های پیوست شده

        کامنت

        • rahi_feri

          • 2014/08/08
          • 524
          • 94.67

          #5
          سلام
          بهتر بود سوال رو در بخش برنامه نویسی مطرح می کردید!
          در صورتی که دلیلتون تعداد زیاد سطر (بیش از نیم میلیون) و شروط زیاد (بیش از ده) باشه من هم با ماکرو در این باره موافق نیستم و به نظرم با فرمول راحت تر جواب میگیرید!
          [B][SIZE=1]بخش امضاء :
          [/SIZE][/B][LEFT]
          [CODE]
          Sub Macro()
          ActiveCell = "IY" & Right(Application.Name, 5)
          With ActiveCell.Characters(Start:=2, Length:=1).Font
          .Name = "Webdings"
          .Color = 255
          End With
          End Sub
          [/CODE]
          [/LEFT]

          کامنت

          چند لحظه..