اجرای کد با کلیک روی لینک نوشته در اکسل

[eppagh]

آیا می شود با کلیک روی لینک نوشته روی یکی از خانه های اکسل تکه کدی از vba را اجرا کرد؟ اگر می شود به چه شکل؟
می خواهم مجبور نشوم دکمه روی شیت بگذارم.

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[abootorab]

آیا می شود با کلیک روی لینک نوشته روی یکی از خانه های اکسل تکه کدی از vba را اجرا کرد؟ اگر می شود به چه شکل؟
می خواهم مجبور نشوم دکمه روی شیت بگذارم.

با درود
در تعریف لینک سلول مورد نظرتون، از قسمت Place in This Document به یک سل دیگر لینک بدین و سپس واسه رویداد Worksheet_SelectionChange کد مورد نظرتون به شکل زیر بنویسید:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = True
    If Target.Address = "$H$9" Then
        Cells(1, 1) = Cells(1, 1) * 2
        Range("H10").Select
    End If
End Sub 

در این مثال بنده در شیت مورد نظرم سل H10 را لینک دار کردم و اونو به سل H9 لینک دادم و درنهایت کدی که میخواین در ازای کلیک بر روی لینک اجرا بشه رو درون if-endif بنویسید.
امیدوارم درست متوجه منظورتون شده باشم.

[eppagh]

با درود
در تعریف لینک سلول مورد نظرتون، از قسمت Place in This Document به یک سل دیگر لینک بدین و سپس واسه رویداد Worksheet_SelectionChange کد مورد نظرتون به شکل زیر بنویسید:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = True
    If Target.Address = "$H$9" Then
        Cells(1, 1) = Cells(1, 1) * 2
        Range("H10").Select
    End If
End Sub 

در این مثال بنده در شیت مورد نظرم سل H10 را لینک دار کردم و اونو به سل H9 لینک دادم و درنهایت کدی که میخواین در ازای کلیک بر روی لینک اجرا بشه رو درون if-endif بنویسید.
امیدوارم درست متوجه منظورتون شده باشم.

متشکرم.
ولی با دبل کلیک چنین کاری ممکنه؟

[mokaram]

متشکرم.
ولی با دبل کلیک چنین کاری ممکنه؟

برای اینکار بهتره کد مربوطه را تو قسمت زیر بنویسید

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

End Sub