[حل شده] کد برای حروف

[kazem1359]

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


Sub LunchBreak()

Dim strMsg As String
Dim obj As Object

Set obj = CreateObject("WScript.Shell")

Const TIMEOUT = 1
Beep
strMsg = obj.Popup("خوش آمديد!", TIMEOUT, "پيغام سيستم")

End Sub

[M_ExceL]

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


Sub LunchBreak()

Dim strMsg As String
Dim obj As Object

Set obj = CreateObject("WScript.Shell")

Const TIMEOUT = 1
Beep
strMsg = obj.Popup("خوش آمديد!", TIMEOUT, "پيغام سيستم")

End Sub

سلام
بفرمایید :

Sub LunchBreak()

Dim strMsg As String
Dim obj As Object

Set obj = CreateObject("WScript.Shell")

Const TIMEOUT = 1
Beep
strMsg = obj.Popup(ChrW(33) & " " & ChrW(1582) & ChrW(1608) & ChrW(1588) & " " & ChrW(1570) & ChrW(1605) & _
ChrW(1583) & ChrW(1740) & ChrW(1583), TIMEOUT, ChrW(1662) & ChrW(1740) & ChrW(1594) & ChrW(1575) & _
ChrW(1605) & " " & ChrW(1587) & ChrW(1740) & ChrW(1587) & ChrW(1578) & ChrW(1605))

End Sub