درج فرمول

**M_ExceL** · 2019/07/20, 11:08

نوشته اصلی توسط habib100

با سلام خسته نباشید:

در این فایل اکسل که از دو شیت تشکیل شده شیت مبلغ خرید روز که روزانه مبلغ خریدی انجام می شود که با توجه به تعداد خرید هر بخش بهای کل را محاسبه کنم ، وچون روزانه (هرتاریخ) برای 4 بخش خریدانجام می شود در این شیت (حساب وامها) ، ستون *قابل پرداخت برای تعداد"1" * برای هر بخش را که می خواهم با دستور ایف مبلغ پرداختی برای یک عدد را داشته باشم : برای هر تاریخ باید از تاریخ مشابه اش در شیت مبلغ خرید روزانه بخواند یعنی چهار ردیف می شود وباید بیایم دستی

c, e

را در فرمول بصورت دستی وارد کنم با توجه به اینکه تعداد زیاد است ، برای انجام اینکار کدی یا دستوری وجود دارد ؟ الان بطور مثال کل آن ستون را ،ستون
f

if(c15='مبلغ خرید روز'!c5,'مبلغ خرید روز'!e5,"")

ردیف های

f14,f15 ,f16,f17

را دستی به

c5 , e5
باید تغییر دهم
با تشکر.

سلام،
داخل سلول f2 در شیت "حساب واحد ها" فرمول زیر رو وارد کنید، سپس برای سلول های زیرین نیز تعمیم دهید.

کد:

=VLOOKUP(C2,'مبلغ خرید روز'!$C$2:$E$66,3)

فایل های پیوست شده

Excel2.xlsx (15.1 کیلو بایت, مشاهدات 6)

**habib100** · 2019/07/20, 14:31

ممنون بعد اگر بخواهم با وارد کردن روز هفته و تاریخ مربوطه در شیت "مبلغ خرید روز" در شیت "حساب واحد ها" به تعداد 4 ردیف از هر تاریخ و روز تکرار شود دستوری یا کدی وجود دارد؟
تشکر

**M_ExceL** · 2019/07/20, 16:00

نوشته اصلی توسط habib100

ممنون بعد اگر بخواهم با وارد کردن روز هفته و تاریخ مربوطه در شیت "مبلغ خرید روز" در شیت "حساب واحد ها" به تعداد 4 ردیف از هر تاریخ و روز تکرار شود دستوری یا کدی وجود دارد؟
تشکر

فایل پیوست رو اجرا کنید سپس ماکرو را فعال کرده روی Button 1 کلیک کنید.

کد:

Sub M_E()
lr = Sheets(1).Cells(Rows.Count, 2).End(3).Row
s = 1
Application.ScreenUpdating = False
    For i = 2 To lr
        For r = 1 To 4
            For c = 1 To 3
                Cells(r + s, c) = Sheets(1).Cells(i, c + 1)
            Next c
        Next r
        s = s + 4
    Next i
Application.ScreenUpdating = True
End Sub

فایل های پیوست شده