بازسازی سلول ها با مقادیر جدید محاسبه شده در اکسل

**Amir Ghasemiyan** · 2018/08/05, 09:44

سلام دوست عزيز

لطفا براي هر سوالتون يك تاپيك جديد ايجاد كنيد. پست شما به بخش مربوطه منتقل شد

بفرماييد كه اين تغيير قيمت در سلول هاي خاصي بايد اعمال بشه؟ به محض وارد كردن مقدار اعمال بشه يا مثلا با زدن يك دكمه؟ مقدار درصد افزايش قيمت هميشه ثابت هست يا ممكنه تغيير كنه؟

**flightsazan** · 2018/08/11, 19:49

سلام و ممنون در تمامی مبالغ و سلول ها و یا بصورت انتخابی اعمال گردد مثلا تمامی سلول های گروه یا ستون a
و فورا اعمال گردد
ممنون

**flightsazan** · 2018/08/11, 20:00

مثلا در شکل پایین مقدار درصد در خواستی روی مبالغ اضافه یا کم گردد

- - - Updated - - -

مثلا در این نمونه درصد در ستون جدید اعمال میشود ولی مبلغ اصلی تغییر نمی کند وباید بصورت دستی کپی و پیست کرد

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

Book1.xlsx (10.2 کیلو بایت, مشاهدات 4)

**Alireza** · 2018/08/12, 10:15

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

مثلا در شکل پایین مقدار درصد در خواستی روی مبالغ اضافه یا کم گردد
[ATTACH=CONFIG]17023[/ATTACH]

- - - Updated - - -

مثلا در این نمونه درصد در ستون جدید اعمال میشود ولی مبلغ اصلی تغییر نمی کند وباید بصورت دستی کپی و پیست کرد
[ATTACH=CONFIG]17024[/ATTACH]

سلام
این مورد صرفا با کد نویسی vba قابل اعمال هست شرط را داخل یه حلقه for قرار بدید

اینم یک نمونه کد

کد:

 Sub eshkal()

Dim z As Range
 Dim LastRow2 As Long
    With Sheet2
LastRow2 = .Cells(.Rows.Count, "b").End(xlUp).Row
End With
For Each z In Sheet2.Range("b1:b" & LastRow2)
                       
             If z.Value = UserForm3.TextBox1.Text And z.Offset(0, 5).Value = "" Then
         UserForm3.ListBox1.AddItem z.Offset(0, -1)
          UserForm3.ListBox1.List(UserForm3.ListBox1.ListCount - 1, 1) = z.Value
         UserForm3.ListBox1.List(UserForm3.ListBox1.ListCount - 1, 2) = z.Offset(0, 1).Value
     UserForm3.ListBox1.List(UserForm3.ListBox1.ListCount - 1, 3) = z.Offset(0, 2).Value
 UserForm3.ListBox1.List(UserForm3.ListBox1.ListCount - 1, 4) = z.Offset(0, 3).Value
UserForm3.ListBox1.List(UserForm3.ListBox1.ListCount - 1, 5) = z.Offset(0, 4).Value




End If
Next


End Sub

**flightsazan** · 2018/08/14, 01:10

ممنون من vba بلد نیستم و دلفی کار کردم

**flightsazan** · 2018/08/14, 01:52

سعی کردم برای اولین بار این ماکرو رو راه اندازی کنم و سلول مثلا d3 بره b3 البته با کلید که البته نشد

**flightsazan** · 2018/08/14, 02:10

اولین دستور رو اجرا کردم:

- - - Updated - - -

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