کلایو یک پرنده نگر است و بیش از 300 فایل MP3 از صداهای پرنده دارد. او می خواهد یک کاربرگ اکسل با یک ستون ایجاد کند که در آن نام واقعی فایل های MP3، به عنوان مثال "cormorant.mp3" ذکر شده باشد. او می خواهد از هر یک از این 300 سلول به فایل MP3 فیزیکی یک لینک ایجاد کند، به طوری که پخش کننده باز شود و صدای پرنده را پخش کند. او می داند که می تواند به صورت جداگانه لینک را وارد کند، اما واضح است که این کار بسیار خسته کننده خواهد بود. بنابراین، او فکر می کند که آیا راهی برای ایجاد خودکار چنین پیوندی بر اساس نام فایل های MP3 در کاربرگ وجود دارد یا خیر.
این سوال در واقع دو بخش دارد: دریافت نام فایل ها در یک کاربرگ اکسل و سپس ایجاد پیوند به فایل MP3 برای پخش آواز پرندگان.
با اطمینان از اینکه همه فایل های MP3 در یک پوشه روی هارد دیسک شما قرار دارند شروع کنید. چگونه می توانید فهرستی از فایل ها را بگیرید در شماره های دیگر ExcelTips توضیح داده شده است . ممکن است بخواهید ایده های نحوه انجام این کار را که در این صفحه ExcelTips یافت می شود مرور کنید :
http://excelribbon.tips.net/T011144
هنگامی که نام ها در کاربرگ قرار گرفتند (فرض کنیم در ستون A هستند)، می توانید به راحتی از تابع کاربرگ HYPERLINK برای جمع آوری پیوند واقعی استفاده کنید. به عنوان مثال، می توانید موارد زیر را در سلول B1 قرار دهید:
=HYPERLINK("C:DocumentsBirdsongs" & A1)
این فرض می کند که پوشه ای که آهنگ ها در آن قرار دارند، C:DocumentsBirdsongs است. اگر مسیر واقعا متفاوت است، فقط تغییر را در تابع HYPERLINK ایجاد کنید.
هنگامی که فرمول صحیح در سلول B1 قرار گرفت، می توانید آن را برای هر تعداد سلولی که برای دریافت تمام پیوندهای صحیح نیاز دارید، کپی کنید.
البته، می توانید «متن نمایش» را برای استفاده توسط تابع HYPERLINK مشخص کنید. اگر فایل های آواز پرندگان شما با نام پرندگان شروع و با mp3. ختم می شوند، می توانید متن نمایشگر را به این ترتیب به تابع HYPERLINK اضافه کنید:
=HYPERLINK("C:DocumentsBirdsongs" & A1, LEFT(A1, LEN(A1) - 4)
این استفاده به سادگی چهار کاراکتر آخر (نقطه و "mp3") را از نام فایل حذف می کند و سپس از آن به عنوان متن نمایش استفاده می کند.
اگر می خواهید از یک رویکرد ماکرو برای ایجاد پیوندها (بدون استفاده از تابع HYPERLINK) استفاده کنید، یک مکان خوب برای شروع استفاده از ماکرو جذب نام فایل از نکته ای است که قبلاً در این نکته به آن اشاره شد. می توان آن را تغییر داد تا نه تنها نام فایل ها را در کاربرگ قرار دهد، بلکه پیوندهای لازم را نیز ایجاد کرد:
Sub MakeHyperlinks()
Dim sPath As String
Dim sFile As String
Dim iRow As Integer
specify directory to use - must end in ""
sPath = "C:DocumentsBirdsongs"
iRow = 0
sFile = Dir(sPath)
While sFile <> ""
iRow = iRow + 1
Sheet1.Cells(iRow,1) = sFile
sBird = Left(sFile, Len(sFile)-4)
ActiveSheet.Hyperlinks.Add Anchor:=Sheet1.Cells(iRow,1), _
Address:=sPath & sFile, TextToDisplay:=sBird
sFile = Dir Get next filename
Wend
End Sub
اگر تصمیم به رفتن به مسیر ماکرو دارید، مطمئن شوید که چیزی در کاربرگ فعلی وجود ندارد. ماکرو خیلی سریع اجرا می شود و هر چیزی را که در سلول هایی که روی آنها می نویسد وجود دارد پاک می کند. پس از اتمام کار، نام فایل در ستون A و یک لینک به فایل MP3 در ستون B قرار می گیرد.
هنگامی که روی یک پیوند در کاربرگ کلیک می کنید، اکسل مرورگر وب شما را راه اندازی می کند و فایل MP3 را بارگیری می کند. سپس مرورگر فایل را پخش می کند.
