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

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

  1. #1


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

    اشکال در انتهای کد vba

    با سلام و خسته نباشید؛
    ابتدائاً اگر سوالم را در جای خودش مطرح نکرده باشم عذر می خوام چون تازه وارد هستم.

    لطفاً کدهای فایل پیوستی را ( که کوتاه است) مطالعه فرموده و فایل اصلاح شده آنرا درصورت امکان به این آدرس ایمیل فرمائید:
    abdollahes@yahoo.com

    و اما مشکل اینست که وقتی اجرای کدهای vba به آخر می رسد و سلول b43 باید انتخاب و آماده درج مقدار شود. سلول b43 انتخاب می شود ولی امکان درج و ویرایش وجود ندارد انگار که کل شیت با پسورد قفل شده باشد. ولی وقتی که در همین حالت هنگ، روی نام شیت دیگری کلیک کرده و سپس بر روی همان شیت اولی کلیک می کنیم حالت قفل و هنگ و عدم ویرایش از بین می رود و اکسل به حالت اول و عادی خود بر می گردد.

    با تشکر - منتظر جواب شما هستم.
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده

  2.  

  3. #2


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

    ba drod
    kolan nafahmidam chera az len estefade karde bodi
    کد:
    Private Sub Workbook_BeforePrint(Cancel As Boolean)
       
       If Sheet2.Range("D1").Value = "" Then
        MsgBox "khali"
       Sheet1.Select
        Sheet1.Range("b5").Select
        Cancel = True
        Exit Sub
       End If
        
    End Sub
    در پناه خداوندگار ایران زمین باشید و پیروز


  4. #3


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

    با سلام و خسته نباشید خدمت مدیر محترم جناب آقای اسماعیلی

    همین کدهایی که شما زحمت کشیده و اصلاح کردید را نیز امتحان کردم باز در موقع اجرای آخر کدها، وقتی که خانه «b5 » شیت اول، به حالت انتخاب در می آید بعد از آن دیگه شیت به حالت غیرعادی در می آید یعنی یا نمی توان عدد نوشت یا وقتی که عدد می نویسی در خانه مذکور نوشته نمی شود ولی در خانه «b5 » شیت دوم درج می شود در حالیکه میخواهم در آخر کار وقتی که خانه «b5 »شیت اول به حالت انتخاب در آمد بتوان عدد نوشت تا آن عدد به طور خودکار در خانه «d1 » شیت دوم ظاهر شود.
    خیلی خیلی ممنون از شما به خاطر پاسخ سریعتان و وقتی که می گذارید. - اسکندرزاده

  5. #4


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

    با سلام و خسته نباشید خدمت مدیر محترم جناب آقای اسماعیلی

    همین کدهایی که شما زحمت کشیده و اصلاح کردید را نیز امتحان کردم باز در موقع اجرای آخر کدها، وقتی که خانه «b5 » شیت اول، به حالت انتخاب در می آید بعد از آن دیگه شیت به حالت غیرعادی در می آید یعنی یا نمی توان عدد نوشت یا وقتی که عدد می نویسی در خانه مذکور نوشته نمی شود ولی در خانه «b5 » شیت دوم درج می شود در حالیکه میخواهم در آخر کار وقتی که خانه «b5 »شیت اول به حالت انتخاب در آمد بتوان عدد نوشت تا آن عدد به طور خودکار در خانه «d1 » شیت دوم ظاهر شود.
    خیلی خیلی ممنون از شما به خاطر پاسخ سریعتان و وقتی که می گذارید. - اسکندرزاده

  6. #5


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

    با سلام

    ضمن تشکر فراوان از دوست و استاد محترم جناب آقای اسماعیلی

    دوست عزیز

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

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

    با تشکر میر

  7. #6


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

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

    فرمودید « تمامی دستورات را بجز این دستور حذف کنید و آن را اجرا نمایید »، کدام دستور باید بماند و حذف نشود؟ در پاسخ شما درج نشده، انگار از قلم افتاده.

    با تشکر مجدد از پاسخ شما

  8. #7


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

    با سلام

    دوست عزیز

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

    بنده به خیال اینکه دستورات دیگری نیز در ماکرو وجود دارد این اتفاق می افتد چون خود این دستور به خودی خود دارای هیچ فرمانی مبنی بر قفل کردن و یا ... نیست . ( امکان دارد بازهم تکرار میکنم امکان دارد مشکل با پرینتر نیز عامل دیگری باشد که خودم این را صفر می دانم )

    ( هر دو دستور بالا را تست کردم و بدون هیچ مشکلی و اتفاقی اجرا شد )

    اگر فقط همین یک دستور است بهتر است از این روش استفاده نمایید.

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

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

    با تشکر میر

  9. #8


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

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

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

    با تشکر

  10. #9


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

    با سلام

    لطفا فایل ضمیمه ار مشاهده نمایید ( فیلم اجرای دستورات شما بدون هیچ تغییری )

    این فایل در ویندوز 7 ---- 64bit آفیس 2010 ---32bit اجرا شده .

    مطمئنن دستورات ایرادی ندارند .
    موفق باشید میر
    فايل هاي پيوست شده فايل هاي پيوست شده


  11. #10


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

    با سلام و احترام

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

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


صفحه 1 از 2 12 آخرینآخرین

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

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

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

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

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

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

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

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

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