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

[shamsololama]

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

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


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




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

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


فایل نمونه:

[attachment=255]

[reza3120]

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

[Alireza110]

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

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

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

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


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

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