پرسش چگونگی فارسی کردن کمبو باکس در vba اکسل؟؟

[alfa]

سلام دوستان
چگونه گزینه های درون کمبوباکس ام را در userform فارسی کنم
الان غیر فارسی نشان داده میشود
میخوام در محیط VBA انجام بشه

[میثم مقدم نیا]

سلام

فایل پیوست را ببیند

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

Private Sub UserForm_Initialize()
    With UserForm1.ComboBox1
        .AddItem "متاهل"
        .AddItem "مجرد"
    End With
End Sub 

[alfa]

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

[majid_mx4]

با سلام

ضمن تشکر از دوست عزیز جناب آقای مقدم نیا
لطفا به قسمت زبان کنترل پنل خودبروید وبه لبه Administrative رفته ، دکمه change System Locale... را زده و زبان Persian را انتخاب نمایید. سیستم خود را Restart یا خاموش و روشن کنید.



پایدار باشید میر

[alfa]

با سلام

ضمن تشکر از دوست عزیز جناب آقای مقدم نیا
لطفا به قسمت زبان کنترل پنل خودبروید وبه لبه Administrative رفته ، دکمه change System Locale... را زده و زبان Persian را انتخاب نمایید. سیستم خود را Restart یا خاموش و روشن کنید.



پایدار باشید میر

ممنونم
1- تمام این راهها را امتحان کردم
2- رو سیستم من تغییر زبان جواب نمیدهد
3-برفرض که رو سیستم من جواب بده اما چون قرار است رو سیستمهای دیگر این فرم اجرا شود منطقی نیست بگوییم شما باید سیستمت را تغییر دهی!!!
منباید خود فرم را فارسی کنم

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


من فکر میکنم یک راه اساسی باید برای این موضوع پیدا کرد که بدون تغییر تنظیمات سیستم فرم فارسی شود

[alfa]

نوشته اصلی توسط iranweld
با سلام

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

کد PHP:

Private Sub UserForm_Initialize()

ComboBox1.AddItem ChrW(1593) & ChrW(1604) & ChrW(1740)

ComboBox1.AddItem ChrW(1581) & ChrW(1587) & ChrW(1606)

ComboBox1.AddItem ChrW(1605) & ChrW(1581) & ChrW(1605) & ChrW(1583)


End Sub

بسیار ممنون
واقعا سپاسگزارم
میشه تو اکسل چیزی درست کرد تا هر وقت کلمه فارسی را میدهیم زنجیره این کدها را پشت سر هم بدهد؟