با درود
راهای مختلفی وجود داره که آقا مهدی هم گفتن . اما خب واسه کار شما من همین فرمول دوستمون رو به دو طریق پیشنهاد میکنم.
1- اینکه مثلا تو کد زیر میگه کدوم سهام تو کدوم سل و تو پرانتز مقدارش (همشونو توی سل D1 ) نمایش بده - یا کد دوم که به سل D1 نیاز نداره و برات تو مسیج باکس میاره . من ادرسو دوست دارم چون ممکنه سریع بخوام پیداش کنم . شما هر قسمتشو میتونی حذف کنی . یا اصلا هرچی که زیدی بود بیاره با تمام اطلاعاتش تو یه شیت و یه پرینت بهت بده و .............
حالا ایتن دو کد رو تو همون ایونت open workbook بزار تست کن
کد:
Dim c As Range
Sheet1.Range("d:d").ClearContents
For Each c In Sheet1.Range("a2:a10")
Dim y
If c <> "" And c.Value > 1400 Then
y = Range("D1").Value
Range("D1").Value = c.Offset(0, 1).Address & " = " & c.Offset(0, 1).Value & "(" & c.Value & ")" & " - " & y
End If
Next c
یا
کد:
Dim c As Range
Dim m
For Each c In Sheet1.Range("a2:a10")
Dim y
If c <> "" And c.Value > 1400 Then
y = m
m = c.Offset(0, 1).Address & " = " & c.Offset(0, 1).Value & "(" & c.Value & ")" & " - " & y
End If
Next c
MsgBox m
علاقه مندی ها (Bookmarks)