|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
Sub Macro1()
'
' Macro1 Macro
'
'
Sheets(1).Range("D4") = ""
Dim Target As Variant
Dim i, Result As Integer
Target = Sheets(1).Range("D3")
For i = 2 To Sheets.Count Step 1
Sheets(i).Select
Set Cell = Cells.Find(What:=Target, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not Cell Is Nothing Then
Cell.Activate
Result = Result + 1
Exit For
End If
Next
If Result = 0 Then
Sheets(1).Select
Sheets(1).Range("D4") = "موردی پیدا نشد"
End If
End Sub
Private Sub Worksheet_FollowHyperlink(ByVal Target1 As Hyperlink)
Macro1
End Sub
Sub Macro1()
'
' Macro1 Macro
'
'
Dim Target As Variant
Dim i, Result As Integer
Target = ActiveCell.Text
Sheets(2).Select
Set Cell = Cells.Find(What:=Target, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not Cell Is Nothing Then
Cell.Activate
Else
MsgBox "موردي پيدا نشد"
End If
End Sub
کامنت