باسلام ودرود محضر اساتید محترم: متن سئوال در فایل پیوست موجود می باشد
-
-
با سلام
فایل نمونه را ملاحظه کنید.
کد:[LEFT] Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim r As Range Dim vs As Variant If Target.Count > 1 Then Exit Sub If Intersect(Target, Range("C:C")) Is Nothing Then Exit Sub vs = Application.Match(Target.Cells.Offset(, -1), Sheets(2).Columns(1), 0) If IsError(vs) Then MsgBox "˜Ï ãæÑÏ äÙÑãæÌæÏ äãí ÈÇÔÏ" ElseIf Not IsError(vs) Then MsgBox Sheet2.Range("b" & vs) End If End Sub [/LEFT][SIZE=7][B][COLOR=navy][FONT=IranNastaliq]ای برادر تو همه اندیشه ای[/FONT][/COLOR][/B][/SIZE] -
با سلام و تشکر کد ارائه شده تا حدودی مشکل حل شد اما این کد برای یک ستون می باشد درصورت امکان کدی که فقط برای مجموعه ای که نام گذاری شده ست( یعنی ممکن است اطلاعات شیت 2 غیر از ستون اول باشد) ارائه فرمایید .با تشکر و سپاس مجددکامنت
-
با سلام
اگر شماره ستون شیت دو تغییر کرد شماره ستون را در قسمت قرمز رنگ کد قرار بدید.
vs = Application.Match(Target.Cells.Offset(, -1), Sheets(2).Columns(1), 0)
[SIZE=7][B][COLOR=navy][FONT=IranNastaliq]ای برادر تو همه اندیشه ای[/FONT][/COLOR][/B][/SIZE]کامنت
-
با سلام
در فایل پیوست با انتخاب سلول ستون B یا با وارد کردن کد در یکی از سلول های ستون B کد متناظر آن از شیت دوم نمایش داده میشود
کد PHP:Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Range
If Target.Count > 1 Then Exit Sub
If Len(Target) > 0 And Not Intersect(Target, Me.Range("b:b")) Is Nothing Then
Set r = Sheet2.Range("A2:S1000").Find(Target, LookAt:=xlWhole)
If r Is Nothing Then
MsgBox "˜Ï ãæÑÏ äÙÑãæÌæÏ äãí ÈÇÔÏ"
Else
MsgBox r.Offset(0, 1) & " ˜Ï"
End If
End If
End Sub
Last edited by iranweld; 2016/08/30, 12:55.کامنت
-
باسلام مجدد ، فایل ذخیره نمیشه لطفاً مجدداً ارسال نمایید .کامنت
کامنت