کپی کردن indirect

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

    • 2016/12/15
    • 5

    [حل شده] کپی کردن indirect

    با سلام
    دو ستون داریم که ستون دوم باید براساس داده های ستون اول پر بشه. با استفاده از name، data validation ، indirect تونستم این کارو انجام بدم. اما نمیشه این فرمول ها رو برای کل ستون ها کپی کرد. لطفا راهنمایی بفرمایید
    درضمن این فایل داینامیک بیش از 500 سطر داره و نباید از ماکرو هم استفاده بشه. ممنون
  • rahi_feri

    • 2014/08/08
    • 524
    • 94.67

    #2
    سلام
    قسمت داینامیک رو میشه حل کرد فایل ضمیمه رو ببینید و در ستون a اگه مقداری اضفاه بشه در لیت هم اضافه میشه!
    در مورد قسمت اول هم دقیقا متوجه نشدم ولی اگه چندین لیست می خواهید بسازید باید برا هر کدوم این روند رو انجام بدید
    فایل های پیوست شده
    [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]

    کامنت

    • saharooo

      • 2016/12/15
      • 5

      #3
      دوست عزیز با توجه به فایل پیوست با پر شدن سلول k3 از لیست کشویی،در l3 فقط لیست ایستگاه های وابسته به k3 باز میشه. با توجه به تعداد زیاد سطرهای فایل اصلیم نمیتونم این کار رو روی تک یک سلول ها انجام بدم. راهی برای کپی کردن فرمول l3 برای کل ستون l وجود نداره؟؟؟؟
      چون کاربر فایل کس دیگه ای هست نمی تونم از ماکرو استفاده کنم برای فرمول نویسی تا حد امکان فقط از توابع اکسل باشه ممنونتون میشم
      فایل های پیوست شده

      کامنت

      • rahi_feri

        • 2014/08/08
        • 524
        • 94.67

        #4
        سلام
        توضیح مبهم است ...!
        فرمولی در سلول L3 وجود نداره و فرمول در data validation هست و اگر می خواهید که قابلیت data validation در سلول های بعدی با توجه به مقدار سلول کناریش اعمال بشه کافیه فرمول رو از حالت مطلق خارج کنید به این صورت :
        کد:
        =INDIRECT($K3)
        و از fill handler استفاده کنید برای کپی سلول به سمت پایین!
        اگه پاسخ سوال نیست خروجی مورد انتظار رو روی فایل نشون بدید
        فایل های پیوست شده
        [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]

        کامنت

        • saharooo

          • 2016/12/15
          • 5

          #5
          مشکلم حل شد ممنون

          کامنت

          چند لحظه..