نمایش پیغام

[mokaram]

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

دوست عزیز مشخص نکردید که اطلاعات ستون مقابلش را کجا نشون بده . فرض را بر این بگیریم که اطلاعات ستون مقابلش را تو ستون d نشون بدن در اینصورت از کد زیر استفاده کنید

Private Sub Workbook_Open()
Dim c As Range
Sheet1.Range("d:d").ClearContents
For Each c In Sheet1.Range("a2:a10")
    If c <> "" And c.Value > 1400 Then
        c.Offset(0, 3).Value = c.Offset(0, 1).Value
    End If
Next c
End Sub 

[mmousavi]

سلام منظورم نمایش اطلاعات سلول مقابل در مسیج باکس بود.

[امين اسماعيلي]

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

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