صفحه 2 از 2 نخستنخست 12
نمایش نتایج: از شماره 11 تا 16 , از مجموع 16

موضوع: اشکال در انتهای کد vba

  1. #11


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    June 2012
    نوشته ها
    698
    امتیاز
    4179
    سپاس
    625
    سپاس شده
    1,970 در 623 پست
    تعیین سطح نشده است

    با سلام

    لطفا به جای دستور زیر

    کد:
    If Len(Sheets(2).Range("d1")) = 0 Then
    از دستور

    کد:
     If Len(ActiveSheet.Range("d1")) = 0 Then
    استفاده نمایید.
    راه دیگر این است که نام فایل اصلی خود را به انگلیسی تغییرمثال Asli دهید.

    سپس از دستور زیر استفاده نمایید

    کد:
    If Len(Sheets("Asli").Range("d1")) = 0 Then
    موفق باشید میر
    ویرایش توسط majid_mx4 : 2016/02/10 در ساعت 15:19

  2. سپاس ها (1)


  3.  

  4. #12


    آخرین بازدید
    2022/06/26
    تاریخ عضویت
    January 2013
    محل سکونت
    شیراز
    نوشته ها
    1,198
    امتیاز
    3248
    سپاس
    1,566
    سپاس شده
    3,182 در 795 پست
    سطح اکسل
    84.00 %

    vala man code ro ke mizanam erori pish nemiad
    nemidonam moshkel shoma az kojas ke hang mikone.
    در پناه خداوندگار ایران زمین باشید و پیروز

  5. سپاس ها (1)


  6. #13


    آخرین بازدید
    2023/05/03
    تاریخ عضویت
    January 2012
    محل سکونت
    استان اردبیل / شهرستان پارس آباد (مغان)
    نوشته ها
    1,213
    امتیاز
    2633
    سپاس
    1,399
    سپاس شده
    2,089 در 665 پست
    سطح اکسل
    73.00 %

    Javid Mokhtari به Yahoo ارسال پیام
    نقل قول نوشته اصلی توسط navid136220 نمایش پست ها
    با سلام و احترام

    واقعاً متشکرم از لطف شما که حتی فایل ویدیوئی اجرای کدها را نیز قرار دادید. و اما در مورد نحوه اجرای شما، باید عرض کنم که شما وقتی در شیت اول بنام فرم اطلاعات هستید دستور پرینت صادر می کنید درسته در این حالت خطایی رخ نمی دهد ولی منظور من این است که وقتی در شیت دوم بنام فرم اصلی هستیم و دستور پرینت صادر می کنیم شرط بررسی شود که اگر خانه d1 در این شیت دوم خالی بود عمل پرینت متوقف شود و شیت دوم غیرفعال و به شیت اول انتقال یابد و خانه b5 شیت اول به حالت انتخاب و آماده ویرایش درآید.

    با تشکر مجدد و صمیمانه از جناب آقای میر
    سلام برادر...

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

    آیا این فایلی که شما قرار دادین دقیقا همان فایلی است که برای شما خطا میدهد...؟

    لطفا یک فیلم کوتاه از روند اجرا و خطای فایلتون قرار بدهید...
    دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
    بیش از 60 جلسه آموزش ویدئویی رایگان

    شرکت در دوره:

    https://javidsoft.ir/courses/



  7. سپاس ها (1)


  8. #14


    آخرین بازدید
    2018/07/06
    تاریخ عضویت
    March 2014
    نوشته ها
    19
    امتیاز
    11
    سپاس
    10
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

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

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

    با تشکر مجدد
    فايل هاي پيوست شده فايل هاي پيوست شده

  9. #15


    آخرین بازدید
    2023/05/03
    تاریخ عضویت
    January 2012
    محل سکونت
    استان اردبیل / شهرستان پارس آباد (مغان)
    نوشته ها
    1,213
    امتیاز
    2633
    سپاس
    1,399
    سپاس شده
    2,089 در 665 پست
    سطح اکسل
    73.00 %

    Javid Mokhtari به Yahoo ارسال پیام
    نقل قول نوشته اصلی توسط navid136220 نمایش پست ها
    با سلام و خسته نباشید خدمت جناب آقای میر و تمامی دوستان عزیز که پاسخگوی بنده هستند؛

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

    با تشکر مجدد
    دوست عزیز به احتمال زیاد مشکل در خود رویداد Beforeprint هستش.

    برای اینکه از این موضوع مطمئن بشیم شما در شیت asli یک CommandButton ایجاد کرده و کد زیر رو داخلش قرار بدین و کد رو اجرا کنید.ببینید باز مشکل پابرجاست...

    نتیجه رو هم اعلام کنید.

    کد PHP:

       
    If Len(Sheets("asli").Range("d1")) = 0 Then
            MsgBox 
    "khali"
            
    Sheets("faree").Select
            Sheets
    ("faree").Range("b5").Select
            
    Exit Sub
        
    Else
            
    Sheet1.PrintOut
       End 
    If 
    دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
    بیش از 60 جلسه آموزش ویدئویی رایگان

    شرکت در دوره:

    https://javidsoft.ir/courses/




  10. #16


    آخرین بازدید
    2018/07/06
    تاریخ عضویت
    March 2014
    نوشته ها
    19
    امتیاز
    11
    سپاس
    10
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

    با تشکر از مدیر تالار بنام جناب آقای jansiz

    خیلی ممنون از شما به خاطر پاسخگویی تان

    با این کدها و روش شما، یک button ایجاد کردم و کدها را نوشتم و جواب داد و دیگه هنگ نکرد. ممنون از شما و سایر دوستان عزیز. حالا اگه لطف کنید دو سوال داشتم:
    1- در فایل اصلی که به خاطر شلوغیش آپلود نکردم نباید از command button استفاده کنم ولی باید قبل از پرینت این عملیات کدها چک شود، حال که مشکل از خود before print است چه کار باید کنم و کدها را کجا بنویسم؟

    2- می خواستم در انتهای عملیات کدها، وقتی که خانه b5 شیت faree به حالت انتخاب در آمد و عدد مربوطه توسط کاربر نوشته شد دوباره اتوماتیک وار شیت asli فعال شود.

    3- یه خواهش: میشه راهنمائی بفرمایید که با خواندن چه کتابهایی و یا به کار گیری چه روش هایی میتونم vba را در سطح حرفه ای یاد بگیرم مخصوصا محلی برای دانلود نمونه کارهای مخصوص vba سراغ دارید؟


    با تشکر ویژه از شما و دوستان انجمن
    ویرایش توسط navid136220 : 2016/02/13 در ساعت 22:25 دلیل:اضافه نمودن بند 3


صفحه 2 از 2 نخستنخست 12

اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد