بسط فرمول بصورت خودکار در ماکرو

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • hadi1358

    • 2013/09/26
    • 5
    #1

    بسط فرمول بصورت خودکار در ماکرو

    با سلام
    دوستان عزیز با توجه به فایل ضمیمه میخواهم ماکرویی بسازم که فرمول موجود در ستون B شیت یک را باتوجه به اطلاعات ستون A شیت یک بسط بدهد. یعنی مثلا اگه در ستون A اطلاعاتی وجود نداشت در ستون B فرمول فرمولی نداشته باشیم.با تشکر



    ماکرو.xlsm
    برچسب ها: فرمول, ماکرو, بسط, بصورت, خودکار, در
    • mokaram
      مدير تالار اکسل و بانک اطلاعاتی

      • 2011/02/06
      • 1805
      • 74.00
      #2
      فایل ضمیمه موجود نیست مجدداً پیوست بفرمایید
      [CENTER][IMG]http://forum.exceliran.com/signaturepics/sigpic909_10.gif[/IMG]
      [/CENTER]

        کامنت

        • hadi1358

          • 2013/09/26
          • 5
          #3
          با عرض پوزش

          Download File : ماکرو.zip

            کامنت

            • mokaram
              مدير تالار اکسل و بانک اطلاعاتی

              • 2011/02/06
              • 1805
              • 74.00
              #4
              لطفا فایل را تو انجمن آپلود بفرمایید
              (نتونستم دانلود کنم)
              [CENTER][IMG]http://forum.exceliran.com/signaturepics/sigpic909_10.gif[/IMG]
              [/CENTER]

                کامنت

                • khakzad

                  • 2010/03/17
                  • 2034
                  • 85.00
                  #5
                  سلام دوست عزیز
                  من فایلتون رو ندیدم
                  اما اگر می خواید با توجه به داده های موجود در یک سل، داخل سل دیگه فرمول داشته باشید
                  مثل فرمول زیر هم می تونید عمل کنید:
                  کد:
                  =IF(A1=1,VALUE(SUM(A2:A9)),"")
                  اینطوری اگر سل a1=1 میاد A2:A9 رو جمع می زنه.در غیر اینصورت خالی می ذاره
                  value رو قبلش می دهریم که خاصیت فرمولیش حفظ بشه و به تکست تبدیل نشه
                  سوال بود در خدمتم
                  [CENTER][B][COLOR=#008000][SIZE=3]محصولات و جزوات آموزش تخصصی [URL="https://excelpedia.net/"]اکسل[/URL] در:

                  [URL="https://excelpedia.net/category/excel-functions/"]برترین مرجع تخصصی پارسی اکسل[/URL]
                  [URL="http://www.exceliran.com/shop/"]جامعه اكسل ايرانيان: فروشگاه[/URL][/SIZE][/COLOR][/B]
                  :wcom:

                  [B][URL="https://excelpedia.net/"]آموزش اکسل تخصصی[/URL] و [URL="https://excelpedia.net/excel-ninja/"]پیشرفته[/URL] - [URL="https://excelpedia.net/"]تهران[/URL][/B]
                  [EMAIL="h.khakzad@yahoo.com"]h.khakzad@yahoo.com[/EMAIL]
                  [/CENTER]

                    کامنت

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

                      • 2013/11/18
                      • 1522
                      • 71.67
                      #6
                      از اين کد تو ماکرو استفاده کنيد:
                      کد PHP:
                      Dim C As Range
                      For Each C In Range("A2:A1000")
                      If                       C <> 0 Then
                          C                      .Offset(0, 1).Value = "=VLOOKUP(RC[-1],Sheet2!C[-1]:C,2,FALSE)"
                                                End If
                                                Next 
                      البته حواستان باشد من فقط کد را براي 1000 سل نوشته ام
                      Last edited by Ali Parsaei; 2014/05/07, 21:49.
                      [SIGPIC][/SIGPIC]

                        کامنت

                        قبلی template بعدی
                        چند لحظه..