درود بر تمامی دوستان و همراهان همیشگی سایت سون ریپلای امروز هم با شما هستیم یا یک آموزش رایگان اکسل.
این یک آموزش اکسل معمولی نیست شما با دیدن این آموزش رایگان اکسل می توانید نرم افزار های خود را حرفه ای تر طراحی کنید
ما در این آموزش برای شما اموزش کامل msgbox را در محیط VBA اکسل آموزش خواهم داد.
یکی از جذاب ترین آموزش است شما با دیدن این آموزش دیگه هیچ سوالی در مورد msgbox نخواهد داشت.
msgbox چیست؟
در هنگام ساخت برنامه با استفاده از VBA و در بسیاری از موارد نیاز هست که اطلاعت خاصی به کاربر نمایش داده شود.
برای نمایش اطلاعات به کاربر روش های مختلفی تعریف شده که یکی از این روش ها استفاده از تابع Msgbox هست.
با اجرای دستور کد Msgbox یک پنجره به کاربر نمایش داده میشه که حاوی متنی هست که تعیین کردیم.
در VBA امکان شخصی سازی این پنجره تا حدودی میسر شده که
در این آموزش در این مورد و نحوه استفاده از تابع Msgbox صحبت میکنیم پس با ما همره باشید
کد های که در تصویر باله مشاهده می کنید به شکل زیر نوشته می شود
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Sub roohOLL() MsgBox " (7REPLY.COM) آموزش هاي رايگان اکسل در سايت ", vbOKCancel + vbExclamation + vbMsgBoxRight, "سون ريپلاي" MsgBox " (7REPLY.COM) آموزش هاي رايگان اکسل در سايت ", vbAbortRetryIgnore + vbInformation + vbMsgBoxRight, "سون ريپلاي" MsgBox " (7REPLY.COM) آموزش هاي رايگان اکسل در سايت ", vbYesNoCancel + vbQuestion + vbMsgBoxRight, "سون ريپلاي" MsgBox " (7REPLY.COM) آموزش هاي رايگان اکسل در سايت ", vbYesNo + vbCritical + vbMsgBoxRight, "سون ريپلاي" MsgBox " (7REPLY.COM) آموزش هاي رايگان اکسل در سايت ", vbRetryCancel + vbCritical + vbMsgBoxRight, "سون ريپلاي" End Sub |
کد های تغییر آیکن Msgbox
- نمایش آیکون اخطار در پیغام vbExclamation
- نمایش علامت تعجب در پیغام vbInformation
- نمایش آیکون علامت سوال در پیغام vbQuestion
- نمایش آیکون ضربدر در پیغام vbCritical
کد های تغییر دکمه های Msgbox اکسل
- 1- نمایش دکمه OK
vbOKOnly
- 2- نمایش دکمه OK و Cancel
vbOKCancel
- 3- نمایش سه دکمه Abort،Retry و Ignore
vbAbortRetryIgnore
- 4- نمایش دکمه های Yes، No و Cancel
vbYesNoCancel
- 5- نمایش دکمه های Yes و No
vbYesNo
- 6- نمایش دکمه های Retry و Cancel
vbRetryCancel
اما در آخر دو کد کاربردی دیگر از msgbox excel vba که برای ما فارسی زبان ها خیلی مفید خواهید بود
تعیین نوشته های پنجره به صورت راست به چپ برای زبان های فارسی از کد زیر استفاده نمایید
vbMsgBoxRtlReading
برای قرار دادن متن پیغام در سمت راست می توانید از کد زیر استفاده نمایید
vbMsgBoxRight
این آموزش کاربردی اکسل در محیط VBA اکسل به پایان رسید امیدوارم که مورد پسند شما کاربران سون ریپلای قرار گرفته باشید.
تا یک آموزش رایگان اکسل دیگه در پنها حق باشید
استاد گرامی جناب آقای مهندس وکیل زاده
باسلام، احترام و تشکر وافر
از ویدیوهای آموزشی شما استفاده میکنم و بسیار مفید است.
اگر ممکنه دو تقاضای ذیل را اجابت نمایید:
۱- یک ویدئو در خصوص جستجوی پیشرفته با استفاده از اکسل در vba را بارگذاری کنید و یک جوری به بنده اطلاع دهید تا از آن استفاده کنم.
۲- آموزش چگونگی تغییر خودکار صفحه یوزر فرمی که با vba در اکسل درست کردیم متناسب با صفحه مانیتورها در سایز های مختلف.
برای شما از خداوند متعال توفیقات روز افزون را طلب میکنم.
غفاری
سلام وقت بخیر ممنون بابت اموزش عالیتون . استاد لطف میکنید طریقه ادرس دادنش هم توضیح بدید مثلا اگر no رو انتخاب کردین این کارو بکنه اگر yes زدیم یه کار دیگه انجام بده ممنون میشم راهنمایی کنید با تشکر
ارادت خدمت شما دوست عزیز حتما یک آموزش در این مورد هم قرار خواهد داد
موفق باشید
سلام
استاد وکیل زاده خوب هستین؟
ممنون از آموزشهای خوبتون. استادیه سوال : خیلی وقته که یه مشکل برای من پیش اومده ممنون میشم اگر راهی برای برطرف کردنش هست راهنمایی بفرمایید . ممنون .
مشکل اینکه : ما یه فرم ورود اطلاعات درست کردیم ولی برای دانلود شدن عکس پرسنلی افراد ارور میده و لود نمیشه اگر حجم عکسها کم کنیم لود میشه ولی هر بار اگربخوایم حجم هر عکس رو کم کنیم زمان بر وکلافه کننده هست حجم هرتصویر بین یک تا دو مگ هست
راهی هست که بتونیم تصاویر رو با همین حجم ها در یوزر فرم لود کرد که هر بارنخوایم حجم هر عکس رو کم کنیم ؟ممنون میشم راهنمایی کنید .
سلام.همه چیز رو نوشتی غیر از اینکه رویداد جداگانه برای هر دکمه رو اشاره ای نکردی.مثلا دو تا دکمه yes و no داریم.با انتخاب yes یه کاری انجام بشه و با انتخاب no کار دیگری
سلام ارادت خدمت شما دوست عزیز
این مورد خودش نیاز به یک آموزش جداگانه دارد اگر وقت شد حتما یک آموزش در این مورد هم قرار خواهد داد
موفق باشید
عالی بود. ممنونم
سلام استاد وقتتون بخیر
چگونه میتوان متن داخل msgbox را bold کرد
ممنون
سلام وقتتون بخیر
من داخل یک فایلی تعدادی تاریخ تولد دارم میخوام وقتی فایل مورد نظر رو باز کردم اگر تولد کسی بود بهم نمایش بده در هیر این صورت msgbox غیر فعال باشه
استاد من همچین موضوعی رو درست کردم یکجا مشکل دارم اونم اینه که وقتی تولد کسی نیست msgbox فعال هست و خالی هستش
ممنون میشم راهنمایی کنید که چطوری غیر فعال کنم
سپاسگذارم از لطفتون استاد
سلام استاد وقتتون بخیر
من یک فایل اکسل دارم که با vba کد نویسی شده
داخل فایلم حدود 200 موضوع دارم میخوام وقتی هر بار فایل رو باز کردم یکی از موضوعات رو خود سیستم انتخاب کنه بهم نمایش بده
آیا راهی هست که msgbox رو بشه فرمول داد که هربار یکی از موضوعات رو بهم نمایش بده ممنون میشم راهنمایی کنید
Dim ary(4) As String
Dim upperbound, lowerbound
lowerbound = 1
upperbound = 4
ary(1) = “aaaa”
ary(2) = “bbbb”
ary(3) = “cccc”
ary(4) = “dddd”
MsgBox (ary(Int((upperbound – lowerbound + 1) * Rnd + lowerbound)))
ارادت خدمت شما دوست عزیز
شدن که بله صد در صد میشه ولی کد نویسی میخواهید با راهنمایی نمیشه اگر شد یک آموزش در این زمینه قرار میدهم سر فرصت الان وقت آزاد ندارم
موفق باشید
استاد ممنون از راهنمايي و زحمات جنابعالی، انشالله خدا خیرتون بده.
بنده میخوام شیت اکسل به صورت کامل قفل باشه و فقط کاربر بدون اینکه قفل شیت و فعال کنه از طریق فرم ورود اطلاعات، اطلاعات رو تو شیت ثبت کنه،
یعنی کدی باشه که کاربر وقتی روی دکمه ثبت کلیک کرد شیت به صورت داینامیک فعال ب و بعد از ثبت اطلاعات بلافاصله قفل بشه
ممنونم اگر راهنمايي کنید
سلام ارادت خدمت شما دوست عزیز
این موردی که میفرمایید اول که نیاز به طراحی فرم دارد و بعد از آن نیاز به کد نویسی دارد برای وارد کردن اطلاعات از طریق فرم بعد از آن کد نویسی قفل کردن شیت و غیره را دارد
همچین برنامه باید برای تون طراحی بشه
موفق باشید
استاد ممنونم از پاسخ شما ولی بنده فرم ورود اطلاعات باvba طراحی کردم
راست کلیک و اضافه کردن شیت با کد نویسی غیر فعال کردم ، ذخیره اطلاعات با تایم ۳ ثانیه انجام میشه ، ثبت تاریخ (شمسی) و ساعت با کد نویسی انجام دادم،
فقط مونده کدی که کامل شیت رو قفل میکنه و کاربر به محض کلیک روی دکمه ثبت ، شیت به صورت داینامیک باز و بعد از ثبت اطلاعات قفل بشه .
دوست عزیز
اگر فایل تون آماده است میتوانید برای بنده ارسال کنید بررسی می کنم در صورت نیاز با دریافت هزینه برای تون این امکان را اضافه می کنم باید اول بررسی بشه بعد اطلاع میدم خدمت تون فایل را میتوانید از طریق تماس با ما سایت ارسال کنید
موفق باشید
باعرض سلام
پیغامهای فارسی Msgbox بصورت ؟؟؟؟ ؟؟؟ ؟؟ نمایش داده میشود. علیرغم اینکه چندین بار از طریقControlPanel اقدام کردم ولی مشکل حل نشد. آیا راه حلی غیر از راه حل فوق برای رفع این مشکل وجود دارد؟
متشکرم
سلام
بنده یک فرم ورود اطلاعات طراحی کردم، میشه با کد نویسی برای شیت پسوورد بزاری طوری که کاربر بتونه فقط اطلاعات رو وارد کنه و نتونه هيچ تغیراتی لحاظ کنه
سلام ارادت خدمت شما دوست گرامی و همراه همیشگی سایت سون ریپلای
برای این منظور ما یک آموزش کامل توی سایت داریم می توانید از لینک زیر مشاده فرمایید
آموزش قفل گذاری روی اطلاعات در اکسل به صورت هوشمند
موفق پیروز باشید مثل همیشه
سلام ارادت خدمت شما دوست عزیز
اگر تنظیمات ویندوز خود را بصورت کامل انجام داده باشید مثل آموزش زیر
https://7reply.com/farsi-problem-in-vba/
نباید مشکل پیش بیاد یک راه دیگه این است که کد را همراه متن های فارسی داخل یک Word کپی نمایید و دوباره از داخل Word کپی نمایید در محیط vba مشکل تون حل خواهید شد
شاد پیروز باشید مثل همیشه
باسلام مجددو تشکر از پاسخگویی شما
اینکار رو هم انجام دادم نشد. آیا ممکنه از ویندوز باشه ؟ ویندوز من پرفشنال نیست.
ارادت خدمت شما دوست عزیز
وظیفه خود میدانم پاسخ به سوال های شما عزیزان را نه فکر نمی کنم اگر ویندوز شما زبان (Persian (Iran را داشته باشید مشکل از ویندوز باشید ولی پیشنهاد می کنم یک بار دیگه با دقت آموزش را نگه نمایید تنظیمات سایت را انجام بدهید
نباید مشکلی باشید
شاد پیروز باشید مثل همیشه
خیلی ممنونم استاد لطف کردین. با تشکر از زحماتتون…..
ارادت خدمت شما دوست عزیز
خواهش میکنم وظیفه خود میدانم اگر کاری از دستم بیاد انجام بدم
موفق باشید
سلام مجدد جناب وکیل زاده روز بخیر
در مورد سوالم که پرسیده بودم با چه دستوری در vba می توان با انتخاب یک سلول در اکسل ،پیغام یا دستور مورد نظر اجرا بشه، پاسخ تون رو دریافت کردم ولی متاسفانه متوجه نشدم اگه امکانش هست بفرمایید از چه کدی باید استفاده کنم تا به خواستم برسم.
ممنون از محبتتون.
ارادت خدمت شما دوست عزیز
از کد زیر استفاده نمایید
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Me.Range(“A1”)) Is Nothing Then
MsgBox “7REPLY.COM”
End If
End Sub
موفق باشید
سلام وقت بخیر
چطوری میشه در برنامه نویسی این دستور را بدیم که مثلا اگر سلول a1 انتخاب (یا به اصطلاح select ) شد این پیغام (msgbox)را نشان بده .
با تشکر از برنامه بسیار خوب تون
ارادت خدمت شما دوست عزیز
توی محیط کد نویسی در سمت راست می توانید آپشن مورد نظر را انتخاب نمایید
موفق باشید
سلام مجدد جناب وکیل زاده روز بخیر
ممنون از پاسخ گویی تون ولی متاسفانه متوجه نشدم پاسخ تون خیلی کلی بود . اگر امکانش هست بیشتر راهنمایی بفرمایید که از چه کد دستوری باید استفاده کنم که با انتخاب یک سلول ، دستور یا پیغام مورد نظر اجرا شود.
ممنون از محبتتون
با درود فراوان و سپاس ,آموزش بسیار جالبی بود ,پرسشی داشتم از شما ممنون خواهم شد اگر راهنمایی بفرمایید در یک لیست باکس برای حذف یک آیتم از دستور removeitem استفاده میکنم اما با خطای وی بی مواجه میشوم و متن خطا هم به این صورت است:
runtime error ‘-2147467259(80004005)
سپاس گزارم
درود بر شما دوست گرامی
ممنون بابت نظر تون
این مشکل به این دلیل رخ می دهد که شیت اکسل شما رمز یا محافظت شده غیرفعال شده است. دقت کنید که شیت مورد نظر شما قفل نباشد اگر قفل است از حالت قفل خارج کنید تا مشکل برطرف شود
موفق باشید
سلام وقت بخیر و خسته نباشید خدمت استاد عزیز و بزرگوار آقای وکیل زاده
استاد شرمنده که مزاحم وقت گرانبهاتون شدم من میخواستم بپرسم که 0 تا 100 آفیس به صورت حرفه ای چقدر هزینه میخواد تا یاد بدین و چقدر مدت میخواد و کلاس ها به صورت خواهد بود یا بصورت رایگان میشه 0 تا 100 حرفه ای یاد گرفت راهنمایی کنید ممنون میشم استاد
با تشکر – حسین زاده از ارومیه
شماره همراه : 09143****302
ارادت خدمت شما دوست گرامی
خواهش میکنم ما توی سایت دوره های خیلی زیادی دارم در سطح حرفه ای همچنی آموزش های رایگان هم دارم بسیار آموزش های کاربری است می توانید از لینک های زیر مشاهده نمایید
دوره های جامع آموزش اکسل
آموزش رایگان اکسل
موفق پیروز باشید مثل همیشه
سلام
لطفا آموزش PHP
هم بگزارید
فقط رایگان باشه
سلام خدمت شما دوست گرامی حتما در نظر داریم موفق باشید