باز کردن یک فایل مثلا صوتی با تابع

[shamsololama]

با درود فراوان

سئوال یک از دوستان


خسته نباشيد
استاد يه كاري دارم انجام مي دم هر دفعه كوشش مي كنم نميشه . من در يك سلول اكسل يك هايپرلينك ايجاد مي كنم كه اگه با موس كليك كني مي رود به مسيري كه من خواستم . حالا در سلولي ديگر شرط گذاري مي كنم كه اگر سلولي ديگر عددش مساوي با 5 شد اين هايپرلينك را اجرا كن . كه نمي شود خواستم از ويژوآل بيسيك استفاده كنم كه اونهم تمام دستوراتش با كليك موس است . آخه چه فرماني رو بدم كه وقتي اون سلول 5 شد سلول هايپرلينك شده اتوماتيك كليك موس بخوره و بره به مسير تعيين شده -- يعني من با موس نزنم بلكه و وقتي سلول عدد 5 شد خودش اتوماتيك سلول رو كليك بزنه و وقتي 5 نبود اين كار را نكنه
استاد خواهش ميكنم بهم اين مورد را ياد بده - از ماكروي ضبط شده نيز استفاده كردم ولي اونم داخل سلولها قرار نمي گيره كه فرمان ايف رو بدم




[hr]
با درود فراوان

برای اینجام اینکار با ایجاد یک تابع جدید می توان به هدف رسید


فایل نمونه:

[attachment=255]

[reza3120]

RE: باز کردن یک فایل مثلا صوتی با تابع

سلام
استاد دسته شما درد نكنه ازتون سپاسگزارم
من كلمه سپاسگزارم رو درست تايپ كردم ولي پس از ارسال مشكل پيدا ميكنه چرا؟

[Alireza110]

RE: باز کردن یک فایل مثلا صوتی با تابع

سلام دوست عزیز

راستش امشب اتفاقی تو سرچ این تاپیکو دیدم .البته قبلا عضو شده بودم
نمیدونم چرا سختش میکنید , شاید هم منظورتون سخت باشه .ولی جواب فایل خودتون رو میشه با پیچ کمتر هم اجرا کرد . منظورم استفاده از تابع هستش.

خب به جای اینکه بگی از تایع لینک رو اجرا کنه بهتر نیست بگیم با تغییر همون سلول اجرا بشه؟

البته اگه منظورتون این باشه

Private Sub Worksheet_Change(ByVal target As Range)

If Target.Address = "$M$12" Then

    If Range("M12") = 5 Then
 
Range("L12").Hyperlinks(1).Follow
    
    End If
 
 End If
 

End Sub

فکر کنم سایت خوبی باشه امیدوارم بازم بتونم سر بزنم