آموزش کامل msgbox excel vba + آموزش رایگان اکسل

23 دیدگاه
  • درود بر تمامی دوستان و همراهان همیشگی سایت سون ریپلای امروز هم با شما هستیم یا یک آموزش رایگان اکسل.

    این یک آموزش اکسل معمولی نیست شما با دیدن این آموزش رایگان اکسل می توانید نرم افزار های خود را حرفه ای تر طراحی کنید

    ما در این آموزش برای شما اموزش کامل msgbox را در محیط VBA  اکسل آموزش خواهم داد.

    یکی از جذاب ترین آموزش است شما با دیدن این آموزش دیگه هیچ سوالی در مورد msgbox نخواهد داشت.

    msgbox چیست؟

    در هنگام ساخت برنامه با استفاده از VBA و در بسیاری از موارد نیاز هست که اطلاعت خاصی به کاربر نمایش داده شود.
    برای نمایش اطلاعات به کاربر روش های مختلفی تعریف شده که یکی از این روش ها استفاده از تابع Msgbox هست.
    با اجرای دستور کد Msgbox یک پنجره به کاربر نمایش داده میشه که حاوی متنی هست که تعیین کردیم.
    در VBA امکان شخصی سازی این پنجره تا حدودی میسر شده که
    در این آموزش در این مورد و نحوه استفاده از تابع Msgbox صحبت میکنیم پس با ما همره باشید

    دوست عزیز پیشنهاد میشه این مطلب را هم ببینید
    نحوه قرار دادن راهنما در نوار وضعیت اکسل با استفاده از کد VBA Excel

     

    آموزش کامل msgbox excel vba

    کد های که در تصویر باله مشاهده می کنید به شکل زیر نوشته می شود

    کد های تغییر آیکن Msgbox

    • نمایش آیکون اخطار در پیغام  vbExclamation
    دوست عزیز پیشنهاد میشه این مطلب را هم ببینید
    2 راه آسان برای تبدیل اکسل به PDF همراه فیلم آموزشی به صورت رایگان

    آموزش رایگان اکسل

    • نمایش علامت تعجب در پیغام vbInformation

    اموزش اکسل

    • نمایش آیکون علامت سوال در پیغام vbQuestion

    آموزش کامل MsgBox در اکسل

    • نمایش آیکون ضربدر در پیغام vbCritical

    نمایش آیکون ضربدر در پیغام

    کد های تغییر دکمه های Msgbox اکسل

    • 1- نمایش دکمه OK

    vbOKOnly

    نمایش دکمه OK در اکسل

    • 2- نمایش دکمه OK و Cancel

    vbOKCancel

    نمایش دکمه OK و Cancel اکسل

    • 3- نمایش سه دکمه Abort،Retry و Ignore

    vbAbortRetryIgnore

    نمایش سه دکمه Abort،Retry و Ignore

    • 4- نمایش دکمه های Yes، No و Cancel

    vbYesNoCancel

    نمایش دکمه های Yes، No و Cancel

    • 5- نمایش دکمه های Yes و No

    vbYesNo

    نمایش دکمه های Yes و No

    • 6- نمایش دکمه های Retry و Cancel

    vbRetryCancel

    نمایش دکمه های Retry و Cancel

     

    اما در آخر دو کد کاربردی دیگر از msgbox excel vba که برای ما فارسی زبان ها خیلی مفید خواهید بود

    تعیین نوشته های پنجره به صورت راست به چپ برای زبان های فارسی از کد زیر استفاده نمایید

    دوست عزیز پیشنهاد میشه این مطلب را هم ببینید
    آموزش نصب و کرک نرم افزار آفیس به صورت دایمی

    vbMsgBoxRtlReading

    برای قرار دادن متن پیغام در سمت راست می توانید از کد زیر استفاده نمایید

    vbMsgBoxRight

    این آموزش کاربردی اکسل در محیط VBA اکسل به پایان رسید امیدوارم که مورد پسند شما کاربران سون ریپلای قرار گرفته باشید.

    تا یک آموزش رایگان اکسل دیگه در پنها حق باشید

    میانگین امتیازات ۵ از ۵
    از مجموع ۲ رای
    اشتراک گذاری:

    مطالب مرتبط برای شما

    نظر یا سوال شما در این مورد چیست؟

    توجه داشته باشید که نشانی ایمیل شما منتشر نخواهد شد.

      محمد

      استاد ممنون از راهنمايي و زحمات جنابعالی، انشالله خدا خیرتون بده.
      بنده میخوام شیت اکسل به صورت کامل قفل باشه و فقط کاربر بدون اینکه قفل شیت و فعال کنه از طریق فرم ورود اطلاعات، اطلاعات رو تو شیت ثبت کنه،
      یعنی کدی باشه که کاربر وقتی روی دکمه ثبت کلیک کرد شیت به صورت داینامیک فعال ب و بعد از ثبت اطلاعات بلافاصله قفل بشه
      ممنونم اگر راهنمايي کنید

      پاسخ

        سلام ارادت خدمت شما دوست عزیز
        این موردی که میفرمایید اول که نیاز به طراحی فرم دارد و بعد از آن نیاز به کد نویسی دارد برای وارد کردن اطلاعات از طریق فرم بعد از آن کد نویسی قفل کردن شیت و غیره را دارد
        همچین برنامه باید برای تون طراحی بشه
        موفق باشید

        پاسخ
          محمد

          استاد ممنونم از پاسخ شما ولی بنده فرم ورود اطلاعات باvba طراحی کردم
          راست کلیک و اضافه کردن شیت با کد نویسی غیر فعال کردم ، ذخیره اطلاعات با تایم ۳ ثانیه انجام میشه ، ثبت تاریخ (شمسی) و ساعت با کد نویسی انجام دادم،
          فقط مونده کدی که کامل شیت رو قفل میکنه و کاربر به محض کلیک روی دکمه ثبت ، شیت به صورت داینامیک باز و بعد از ثبت اطلاعات قفل بشه .

          پاسخ

            دوست عزیز
            اگر فایل تون آماده است میتوانید برای بنده ارسال کنید بررسی می کنم در صورت نیاز با دریافت هزینه برای تون این امکان را اضافه می کنم باید اول بررسی بشه بعد اطلاع میدم خدمت تون فایل را میتوانید از طریق تماس با ما سایت ارسال کنید
            موفق باشید

            پاسخ
      ahmad

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

      پاسخ
        محمد

        سلام
        بنده یک فرم ورود اطلاعات طراحی کردم، میشه با کد نویسی برای شیت پسوورد بزاری طوری که کاربر بتونه فقط اطلاعات رو وارد کنه و نتونه هيچ تغیراتی لحاظ کنه

        پاسخ

        سلام ارادت خدمت شما دوست عزیز
        اگر تنظیمات ویندوز خود را بصورت کامل انجام داده باشید مثل آموزش زیر
        https://7reply.com/farsi-problem-in-vba/

        نباید مشکل پیش بیاد یک راه دیگه این است که کد را همراه متن های فارسی داخل یک Word کپی نمایید و دوباره از داخل Word کپی نمایید در محیط vba مشکل تون حل خواهید شد
        شاد پیروز باشید مثل همیشه

        پاسخ
          ahmad

          باسلام مجددو تشکر از پاسخگویی شما
          اینکار رو هم انجام دادم نشد. آیا ممکنه از ویندوز باشه ؟ ویندوز من پرفشنال نیست.

          پاسخ

            ارادت خدمت شما دوست عزیز
            وظیفه خود میدانم پاسخ به سوال های شما عزیزان را نه فکر نمی کنم اگر ویندوز شما زبان (Persian (Iran را داشته باشید مشکل از ویندوز باشید ولی پیشنهاد می کنم یک بار دیگه با دقت آموزش را نگه نمایید تنظیمات سایت را انجام بدهید
            نباید مشکلی باشید
            شاد پیروز باشید مثل همیشه

            پاسخ
      qan456

      خیلی ممنونم استاد لطف کردین. با تشکر از زحماتتون…..

      پاسخ

        ارادت خدمت شما دوست عزیز
        خواهش میکنم وظیفه خود میدانم اگر کاری از دستم بیاد انجام بدم
        موفق باشید

        پاسخ
      qan456

      سلام مجدد جناب وکیل زاده روز بخیر
      در مورد سوالم که پرسیده بودم با چه دستوری در 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
        موفق باشید

        پاسخ
      qan456

      سلام وقت بخیر
      چطوری میشه در برنامه نویسی این دستور را بدیم که مثلا اگر سلول a1 انتخاب (یا به اصطلاح select ) شد این پیغام (msgbox)را نشان بده .
      با تشکر از برنامه بسیار خوب تون

      پاسخ

        ارادت خدمت شما دوست عزیز
        توی محیط کد نویسی در سمت راست می توانید آپشن مورد نظر را انتخاب نمایید
        موفق باشید

        پاسخ
          qan456

          سلام مجدد جناب وکیل زاده روز بخیر
          ممنون از پاسخ گویی تون ولی متاسفانه متوجه نشدم پاسخ تون خیلی کلی بود . اگر امکانش هست بیشتر راهنمایی بفرمایید که از چه کد دستوری باید استفاده کنم که با انتخاب یک سلول ، دستور یا پیغام مورد نظر اجرا شود.
          ممنون از محبتتون

          پاسخ
      علی

      با درود فراوان و سپاس ,آموزش بسیار جالبی بود ,پرسشی داشتم از شما ممنون خواهم شد اگر راهنمایی بفرمایید در یک لیست باکس برای حذف یک آیتم از دستور removeitem استفاده میکنم اما با خطای وی بی مواجه میشوم و متن خطا هم به این صورت است:
      runtime error ‘-2147467259(80004005)
      سپاس گزارم

      پاسخ

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

        پاسخ
      yasin-hz

      سلام وقت بخیر و خسته نباشید خدمت استاد عزیز و بزرگوار آقای وکیل زاده

      استاد شرمنده که مزاحم وقت گرانبهاتون شدم من میخواستم بپرسم که 0 تا 100 آفیس به صورت حرفه ای چقدر هزینه میخواد تا یاد بدین و چقدر مدت میخواد و کلاس ها به صورت خواهد بود یا بصورت رایگان میشه 0 تا 100 حرفه ای یاد گرفت راهنمایی کنید ممنون میشم استاد

      با تشکر – حسین زاده از ارومیه

      شماره همراه : 09143****302

      پاسخ
      علیرضا شهبازپور

      سلام
      لطفا آموزش PHP
      هم بگزارید
      فقط رایگان باشه

      پاسخ
        زمان الله ابراهیمی

        سلام خدمت شما دوست گرامی حتما در نظر داریم موفق باشید

        پاسخ