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

**مرتضی حسینی** · 2020/12/02, 17:08

با سلام اگه از فرمول نویسی نمی خواین استفاده کنید که ساده است کنار هر ستون قیمت یک ستون دیگه ایجاد کنید و مطابق نمونه پیوست هر ردیف رو به سلول مورد نظرتون متصل کنید و بسط بدین فقط بایستی سلول مورد نظر با f4مطلق بشه
برای کاهشی از علامت منفی استفاده کنید
99.9.12

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

افزایش-کاهش.xlsx (8.6 کیلو بایت, مشاهدات 4)

**irmacfa** · 2020/12/02, 17:28

نوشته اصلی توسط مرتضی حسینی

با سلام اگه از فرمول نویسی نمی خواین استفاده کنید که ساده است کنار هر ستون قیمت یک ستون دیگه ایجاد کنید و مطابق نمونه پیوست هر ردیف رو به سلول مورد نظرتون متصل کنید و بسط بدین فقط بایستی سلول مورد نظر با f4مطلق بشه
برای کاهشی از علامت منفی استفاده کنید
99.9.12

اگه بخوایم فرمولی بدیم چطور

Sent from my Mi A3 using Tapatalk

**مرتضی حسینی** · 2020/12/02, 19:12

[QUOTE=irmacfa;78704]اگه بخوایم فرمولی بدیم چطور

فایل نمونه ماکرو نویسی شده مقادیر رو خودتون تغییر بدهید
99.9.12

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

macro.rar (14.5 کیلو بایت, مشاهدات 7)

**irmacfa** · 2020/12/02, 22:24

[quote=مرتضی حسینی;78708]

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

اگه بخوایم فرمولی بدیم چطور

فایل نمونه ماکرو نویسی شده مقادیر رو خودتون تغییر بدهید
99.9.12

جناب حسینی خیلی ممنون دقیقا همین مورد منظور بنده بود
جسارات با استفاده از چه نوع کپی پیسی میشه اینو روی فایل خودم اعمال کنم با فرمت سل گویا نشد

**مرتضی حسینی** · 2020/12/02, 22:39

سلام
اول باید یک ماکرو ایجاد کنید اون کدو میتونید داخل یک ورد اول کپی کنید بعد داخل ماکروی خودتان کپی یست کنید فقط ادرس ستونها رو تغییر بدهید
موفق باشید

**irmacfa** · 2020/12/02, 22:58

نوشته اصلی توسط مرتضی حسینی

سلام
اول باید یک ماکرو ایجاد کنید اون کدو میتونید داخل یک ورد اول کپی کنید بعد داخل ماکروی خودتان کپی یست کنید فقط ادرس ستونها رو تغییر بدهید
موفق باشید

الان من کد رو باز کردم که داخل ماکرو خودم کپی پیست کنم
اما مشکلی که دارم این هست ستون ها چطوری هستند
چون متوجه اون 300 نشدم

**مرتضی حسینی** · 2020/12/03, 21:22

سلام
من فرض کردم حداکثر ردیفای شما 300 تا باشه اگه کمتره کم کنید اگخ بیشتر بیشترش کنید اما یه مقدار از تعداد ردیفها بیشتر باشه بهتره
99.9.13

**irmacfa** · 2020/12/07, 22:56

نوشته اصلی توسط مرتضی حسینی

سلام
من فرض کردم حداکثر ردیفای شما 300 تا باشه اگه کمتره کم کنید اگخ بیشتر بیشترش کنید اما یه مقدار از تعداد ردیفها بیشتر باشه بهتره
99.9.13

مهندس کد ها ، روی قیمت ها اعمال نمیشه

**M_ExceL** · 2020/12/08, 00:42

سلام،
از کد زیر استفاده کنید :

کد:

Sub M_ExceL()

    Dim rng As Range
    
    Dim M As Integer

    Last_row = Cells(Rows.Count, 1).End(3).Row

    Set rng = Range("a3:h" & Last_row)
    
    M = -10
    
        Application.ScreenUpdating = False
        
            For Each cel In rng
            
                If IsNumeric(cel.Value) And Not IsEmpty(cel.Value) Then
                
                    If cel.Column > 1 Then
                    
                        cel.Value = cel.Value + M
                        
                    End If
                    
                End If
            
            Next
        
        Application.ScreenUpdating = True

End Sub

توضیح :
متغیر M را مساوی قرار دهید با مقدار تغییر.