استفاده از فرمول شرطی در ماکرو

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • maziardm

    • 2013/05/17
    • 450

    [حل شده] استفاده از فرمول شرطی در ماکرو

    با سلام و روز خوش
    فرمول زیر رو در ماکرو نوشتم و داره کار هم می کنه.

    کد PHP:
     ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=6Criteria1:= _
            
    ">=" Range("m1"), Operator:=xlAndCriteria2:="<=" Range("n1"
    در فرمول بالا نوشتم که در محدوده مود نظر اعداد بین سلولهای m1 و n2 رو فیلتر کند. برای مثال اکر در m1 100 و در n1 مقدار 200 را داشته باشیم در محدوده مورد نظر اعداد بین 100 و 200 رو فیلتر کند.
    حالا قصدم اینه که از فرمول های منطقی در خصوص مقدار n1 استفاده کنم. بدین صورت که اگر n1 برابر صفر و یا خالی باشد مقدار مورد نظر 999999 باشد و در غیر این صورت خود مقدار n1. به عبارت دیگر فرمول شرطی زیر رو که بیانگر خواسته بالا می باشد رو در ماکرو جای بدم.
    کد PHP:
    If(or(n1=0;n1="");999999;n1
    با تشکر از شما
  • Ali Parsaei
    مدير تالارتوابع اکسل

    • 2013/11/18
    • 1522
    • 71.67

    #2
    سلام،
    اينطوري بنويسيد:

    کد PHP:
    If Range("n1").Value 0 Then
    ActiveSheet
    .ListObjects("Table1").Range.AutoFilter Field:=6Criteria1:= _
    ">=" Range("m1"), Operator:=xlAndCriteria2:="<=" 999999
    Else
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=6Criteria1:= _
    ">=" Range("m1"), Operator:=xlAndCriteria2:="<=" Range("n1")
    End If 
    [SIGPIC][/SIGPIC]

    کامنت

    • maziardm

      • 2013/05/17
      • 450

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

      کامنت

      • Ali Parsaei
        مدير تالارتوابع اکسل

        • 2013/11/18
        • 1522
        • 71.67

        #4
        اگر خانه خالي باشد هم آن را صفر فرض مي کند، امتحان کنيد بايد جواب دهد، اگر مشکل بود بگين
        کلا" اگر دو شرطي باشد تو خط اول که if دارد با استفاده از or يک شرط اضافه مي کنيم

        کد PHP:
        If Range("n1").Value or Range("n1").Value "" Then 
        [SIGPIC][/SIGPIC]

        کامنت

        چند لحظه..