Chạy một file nhạc trên excel nhân ngày Tình yêu???

[camry]

Chào mọi các bạn,
Cho mình hỏi nhờ với, nếu mình muốn ngày mai 14/02/08 mở excel ra thì tự động nõ sẽ hát một bài về ngày tình yêu thì phải làm sao??? Mà có làm được không vậy?

 

[feelingyes]

Ý tưởng về tình yêu của bạn rất hay! Và tôi chợt nhớ ra trước đây tôi cũng download một bài thơ "chữ chạy" từ GPE và trong đó có bài hát Still loving you (nhưng bạn phải có bài hát này và đổi tên trong module)
Code VBA tôi mu mơ lắm nhưng bạn có thể nhờ các anh chị cao thủ trên GPE nhé

 

[Mr Okebab]

Ý tưởng về tình yêu của bạn rất hay! Và tôi chợt nhớ ra trước đây tôi cũng download một bài thơ "chữ chạy" từ GPE và trong đó có bài hát Still loving you (nhưng bạn phải có bài hát này và đổi tên trong module)
Code VBA tôi mu mơ lắm nhưng bạn có thể nhờ các anh chị cao thủ trên GPE nhé

Đây là tác phẩm của bác BNTT. Cảm ơn bác nhé.

Thân!

 

[yeudoi]

Cái file này là của mình Bác OKEBAP. Có lẽ ăn tết nhiều quá nên quên hiiii

 

[daminhlt]

File chay co nhac

Nhu tra loi cua ban feelgyes, ban co the sua lai ten bai trong mot doan ma duoi day (bai hat ma ban yeu thich)
Dau tien ban vao tools>>Macro>>VBA>>Module, sau do sau ten bai hat nay, nho bai hat phai cung o trong thu muc co chua file Excel nay
Sub Nhac()
Dim SoundFile As String
SoundFile = ThisWorkbook.Path & "\Vuon Yeu - Hong Nhung.mp3" (VD:Vuon Yeu-Hong Nhung.Mp3 la ten bai hat toi da sua lai)
If Dir(SoundFile) = "" Then
MsgBox SoundFile & vbCrLf & "‚ª‚ ‚è‚Ü‚¹‚ñB", vbExclamation
Exit Sub
End If
Shell "mplay32.exe /play /close " & SoundFile
End Sub

=====================
Bạn lưu ý post bài Tiếng Việt có dấu nhé.