دوره آموزش مقدماتی VBA در اکسل

19 دیدگاه برای دوره آموزش مقدماتی VBA در اکسل

1. 

   علی علی 2018

   ۹ دی ۱۳۹۷

   سلام چرا من نمی تونم دوره ۲۲ به بعد را ببینم.

   • 

     جاوید مختاری

     ۹ دی ۱۳۹۷

     با سلام…

     بعد از خرید دوره، لینک دوره ها برای شما ایمیل می شود.

2. 

   saadati_1369

   ۲۱ بهمن ۱۳۹۷

   سلام
   عالی بود.

   • 

     جاوید مختاری

     ۲۱ بهمن ۱۳۹۷

     سلام.

     خواهش میکنم.

     موفق باشید.

3. 

   ttmaar

   ۴ فروردین ۱۳۹۸

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

   • 

     جاوید مختاری

     ۴ فروردین ۱۳۹۸

     سلام.

     خواهش میکنم.

4. 

   ESMAEEL71

   ۱۶ فروردین ۱۳۹۸

   سلام وقت بخیر ممنون از سایت بسیار عالیتون چرا قسمت ۲۲ چیزی نمایش نمیده؟؟

   • 

     جاوید مختاری

     ۱۶ فروردین ۱۳۹۸

     سلام.

     لینک ویدئوها به ایمیل شما ارسال شده.میتونید دانلود کنید.

5. 

   Mojtaba

   ۷ اردیبهشت ۱۳۹۸

   سلام .عالی بودش

6. 

   Mohamad

   ۷ اردیبهشت ۱۳۹۸

   عالی بود

7. 

   Mohamad

   ۷ اردیبهشت ۱۳۹۸

   عالیه واقعا کاربردیه

8. 

   ESMAEEL71

   ۲۴ اردیبهشت ۱۳۹۸

   سلام ممنون از آموزشاتون واقعا عالی هستن.

   • 

     جاوید مختاری

     ۲۴ اردیبهشت ۱۳۹۸

     سلام.

     خواهش میکنم.

9. 

   ghasemtorabe

   ۲۶ اردیبهشت ۱۳۹۸

   ممنوم از اینکه این موضوع (vba)را آموزش میدهید منتظر مباحث تکمیلی هستیم

10. 

    احمد خدیوپور

    ۳۱ اردیبهشت ۱۳۹۸

    چند تا دوره ها را دیدم عالی بود اما نمیتونم در دوره ثبت نام کنم.

    • 

      جاوید مختاری

      ۱ خرداد ۱۳۹۸

      سلام…

      اگر مشکلی در ثبت نام دارید از طریق پشتیبان آنلاین سایت یا ارتباط با ما پیگیری کنید.

11. 

    kazem

    ۱۴ خرداد ۱۳۹۸

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

12. 

    kazem

    ۱۴ خرداد ۱۳۹۸

    اینم فرمولش
    Private Sub shaba1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If IsNumeric(shaba1) = False And shaba1 “” And Len(shaba1) 24 Then
    MsgBox “ãÞÏÇÑ ÇÒ äæÚ ÚÏÏí æ ۲۴ ÚÏÏ äíÓÊ”
    End If
    End Sub

    • 

      جاوید مختاری

      ۱۴ خرداد ۱۳۹۸

      سلام.

      اینکه نوشتید “”=shaba1 با دوشرط دیگر مغایر است.
      باید بنویسید اگر باکس شبا پر بود شرط رو بررسی کنه.

13. 

    kazem

    ۱۴ خرداد ۱۳۹۸

    Private Sub shaba1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If IsNumeric(shaba1) = False And shaba1 “” And Len(shaba1) 24 Then
    MsgBox “ãÞÏÇÑ ÇÒ äæÚ ÚÏÏí æ ۲۴ ÚÏÏ äíÓÊ”
    End If
    End Sub

14. 

    kazem

    ۱۴ خرداد ۱۳۹۸

    ولی فرمول اصلش shaba1″” and هستش علامت پرانتز داره موقعی که ارسال کردم علامت پرانتز ها حذف میشه

    • 

      جاوید مختاری

      ۱۴ خرداد ۱۳۹۸

      ابتدا یک if بنویسید تا خالی بودن یا نبودن باکس رو بررسی کنه که اگر خالی نبود بره if دوم رو بررسی کنه.
      مثل کد زیر:

      If shaba1.Text = “” Then

      Else
      If IsNumeric(shaba1.Text) = False Or Len(shaba1.Text) <> ۲۴ Then
      MsgBox “داده بايد عددي و ۲۴ رقم باشد”

      End If
      End If

15. 

    kazem

    ۱۷ خرداد ۱۳۹۸

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

    • 

      جاوید مختاری

      ۱۷ خرداد ۱۳۹۸

      سلام

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

      برای مثال من برای باکس شماره فاکتور و در رویداد Exit نوشتم

      If IsNumeric(shomare_factor) = False Then
      “”=shomare_factor.Text
      MsgBox “.ãÞÏÇÑ æÇÑÏå ÈÇíÏ ÇÒ äæÚ ÚÏÏí ÈÇÔÏ”
      End If

      اگر هم میخواهید بمحض وارد شدن داده غیر عددی خطا بده،کافیه کد بالارو در رویداد Change بنویسید

16. 

    kazem

    ۱۷ خرداد ۱۳۹۸

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

    • 

      جاوید مختاری

      ۱۷ خرداد ۱۳۹۸

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

17. 

    kazem

    ۱۷ خرداد ۱۳۹۸

    سلام برای اینکه نتوانیم کد پرسنلی تکراری ثبت نشه چه باید کرد؟ ممنون از اموزشهایتان

    • 

      جاوید مختاری

      ۱۹ خرداد ۱۳۹۸

      سلام.
      برای جلوگیری از ورود داده های تکراری از طریق VBA برای نمونه می توانید از کد زیر استفاده کنید:

      If WorksheetFunction.CountIf(Range(“a1:a10”), TextBox1.Text) > 0 Then
      “MsgBox “this data is duplicate
      Exit Sub
      End If

18. 

    kazem

    ۲۰ خرداد ۱۳۹۸

    سلام ببخشین این کد کجا باید قرار بگیره؟

    • 

      جاوید مختاری

      ۲۰ خرداد ۱۳۹۸

      سلام.

      ابتدای کدها

19. 

    نریمان

    ۲۰ مرداد ۱۳۹۸

    با سلام. می خوام در دستور زیر از کاربر سوال کنه که از حذف اطمینان دراین؟ در صورت جواب مثبت کد اجرا بشه. ممنونم
    Private Sub CommandButton1_Click()
    Dim cell As Range
    Dim a As Integer
    ‘Dim LastRow As Long
    ‘With Sheet1
    ‘LastRow = Cells(Rows.Count, “A”).End(xlUp).Row
    ‘End With
    i = Sheet1.Cells(Rows.Count, “e”).End(xlUp).Row

    For Each cell In Sheet1.Range(“e2:e” & i)
    If cell.Value = ComboBox1.Text Then
    cell.EntireRow.Delete
    ComboBox1.Text = “”
    End If
    Else: End
    Exit Sub
    End If
    Next
    End Sub

    • 

      جاوید مختاری

      ۲۰ مرداد ۱۳۹۸

      سلام.

      برای تشخیص اینکه چه دکمه ای از msgbox کلیک شده از کد زیر استفاده کنید:

      Dim msg

      (msg = MsgBox(“Do you want to delete”, vbYesNo

      If msg = vbYes Then

      “MsgBox “your codes

      End If

      بجای “MsgBox “your codes کدهای خودتون رو قرار بدین.