صفحه 3 از 3 نخستنخست 123
نمایش نتایج: از شماره 21 تا 28 , از مجموع 28

موضوع: مشکل در تولید عدد تصادفی

  1. #21


    آخرین بازدید
    2016/07/30
    تاریخ عضویت
    December 2014
    نوشته ها
    11
    امتیاز
    13
    سپاس
    10
    سپاس شده
    3 در 3 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط علي پارسا نمایش پست ها
    همانطور که دوستمان جناب GENERALSAMAD فرموده اند خط ابتدا و انتهايي کد مربوط به اجراي آن با يک دگمه است، ولي اجراي آن با ماکرو فرق مي کند. اگر شما آن را بخواهيد با ماکرو اجرا کنيد خط آخر (End Sub) تغيير نخواهد کرد ولي خط اول را بايد تغيير دهيد مثلا" اگر شماره ماکرو شما "يک" باشد بايد کد را با عبارت ()Sub Macro1 شروع کنيد در اين صورت با هر بار اجراي ماکرو يک عدد تصادفي ايجاد خواهد شد.
    مرسی از پاسخ شما ولی به یک مشکل برخوردم و اون اینکه وقتی protect sheet میکنم از کدها ایراد run-time error 1004 میگیره.حالا چطور میتونم protect sheet کنم؟

  2. سپاس ها (1)


  3.  

  4. #22


    آخرین بازدید
    2024/01/21
    تاریخ عضویت
    November 2013
    محل سکونت
    تهران
    نوشته ها
    1,519
    امتیاز
    6121
    سپاس
    2,884
    سپاس شده
    4,889 در 1,381 پست
    سطح اکسل
    71.67 %

    نقل قول نوشته اصلی توسط soosood نمایش پست ها
    مرسی از پاسخ شما ولی به یک مشکل برخوردم و اون اینکه وقتی protect sheet میکنم از کدها ایراد run-time error 1004 میگیره.حالا چطور میتونم protect sheet کنم؟
    با رمز protect مي کنيد و يا بدون رمز؟ آخه بعضي مواقع کاربران بدون رمز هم protect مي کنند (صرفا" به خاطر اينکه يک وقت اشتباها" خودشان چيزي را ناخواسته تغيير ندهند)
    بايد ابتداي کد يک خط براي باز کردن قفل و آخر کد يک خط براي قفل مجدد شيت اضافه کنيد (درخط دوم و خط يکي مانده به آخر)
    "ActiveSheet.Unprotect "123 براي باز کردن است، البته بايد به جاي 123 رمز خودتان را بنويسيد و اگر بدون رمز قفل مي کنيد فقط بنويسيد: ActiveSheet.Unprotect
    و در آخر کد هم بنويسيد "ActiveSheet.protect "123 و يا اگر رمز ندارد: ActiveSheet.protect
    البته اون وقت بهتر است براي قسمت vba فايل اکسل مورد نظرتان هم رمز گذاري کنيد وگرنه کاربران وارد با مراجعه به آن قسمت رمزتان را خواهند يافت.
    ویرایش توسط Ali Parsaei : 2015/05/16 در ساعت 02:22

  5. سپاس ها (2)


  6. #23


    آخرین بازدید
    2016/07/30
    تاریخ عضویت
    December 2014
    نوشته ها
    11
    امتیاز
    13
    سپاس
    10
    سپاس شده
    3 در 3 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط علي پارسا نمایش پست ها
    با رمز protect مي کنيد و يا بدون رمز؟ آخه بعضي مواقع کاربران بدون رمز هم protect مي کنند (صرفا" به خاطر اينکه يک وقت اشتباها" خودشان چيزي را ناخواسته تغيير ندهند)
    بايد ابتداي کد يک خط براي باز کردن قفل و آخر کد يک خط براي قفل مجدد شيت اضافه کنيد (درخط دوم و خط يکي مانده به آخر)
    "ActiveSheet.Unprotect "123 براي باز کردن است، البته بايد به جاي 123 رمز خودتان را بنويسيد و اگر بدون رمز قفل مي کنيد فقط بنويسيد: ActiveSheet.Unprotect
    و در آخر کد هم بنويسيد "ActiveSheet.protect "123 و يا اگر رمز ندارد: ActiveSheet.protect
    البته اون وقت بهتر است براي قسمت vba فايل اکسل مورد نظرتان هم رمز گذاري کنيد وگرنه کاربران وارد با مراجعه به آن قسمت رمزتان را خواهند يافت.
    ممنون از راهنمایی شما .این کدها رو اضافه کردم عمل میکنه ولی دیگه شیت رو protect نمیکنه !به نظر میرسه کدی که باید دوباره قفلش کنه و در خط یکی مانده به آخر اضافه میشه عمل نمیکنه.
    مرسی از توجه شما

  7. #24


    آخرین بازدید
    تاریخ عضویت
    June 2014
    محل سکونت
    خوزستان-بهبهان
    نوشته ها
    1,496
    امتیاز
    6803
    سپاس
    4,206
    سپاس شده
    3,844 در 1,281 پست
    تعیین سطح نشده است

    با سلام
    کدها رو درست تایپ کرده اید؟
    کد PHP:
    ActiveSheet.Unprotect "123" 
    کد PHP:
    ActiveSheet.Protect "123" 



  8. سپاس ها (2)


  9. #25


    آخرین بازدید
    2016/07/30
    تاریخ عضویت
    December 2014
    نوشته ها
    11
    امتیاز
    13
    سپاس
    10
    سپاس شده
    3 در 3 پست
    تعیین سطح نشده است

    کد ها روبه این صورت اضافه کردم
    تصاویر کوچک فایل پیوست تصاویر کوچک فایل پیوست Untitled.jpg  

  10. سپاس ها (1)


  11. #26


    آخرین بازدید
    2016/07/30
    تاریخ عضویت
    December 2014
    نوشته ها
    11
    امتیاز
    13
    سپاس
    10
    سپاس شده
    3 در 3 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط generalsamad نمایش پست ها
    با سلام
    کدها رو درست تایپ کرده اید؟
    کد PHP:
    ActiveSheet.Unprotect "123" 
    کد PHP:
    ActiveSheet.Protect "123" 
    بله مطابق عکسی که پیوست کردم

  12. سپاس ها (1)


  13. #27


    آخرین بازدید
    2024/01/21
    تاریخ عضویت
    November 2013
    محل سکونت
    تهران
    نوشته ها
    1,519
    امتیاز
    6121
    سپاس
    2,884
    سپاس شده
    4,889 در 1,381 پست
    سطح اکسل
    71.67 %

    نقل قول نوشته اصلی توسط soosood نمایش پست ها
    ممنون از راهنمایی شما .این کدها رو اضافه کردم عمل میکنه ولی دیگه شیت رو protect نمیکنه !به نظر میرسه کدی که باید دوباره قفلش کنه و در خط یکی مانده به آخر اضافه میشه عمل نمیکنه.
    مرسی از توجه شما
    بله حق با شما است، من عذرخواهي مي کنم، اون رو به خط يکي مانده به آخر نبايد اضافه کنيد بلکه بايد بعد از خطي که نوشته: "Range("A:A").NumberFormat = "0 اضافه کنيد.
    باز اگر مشکلي داشت بفرماييد تا بررسي شود.


  14. #28


    آخرین بازدید
    2016/07/30
    تاریخ عضویت
    December 2014
    نوشته ها
    11
    امتیاز
    13
    سپاس
    10
    سپاس شده
    3 در 3 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط علي پارسا نمایش پست ها
    بله حق با شما است، من عذرخواهي مي کنم، اون رو به خط يکي مانده به آخر نبايد اضافه کنيد بلکه بايد بعد از خطي که نوشته: "Range("A:A").NumberFormat = "0 اضافه کنيد.
    باز اگر مشکلي داشت بفرماييد تا بررسي شود.
    ممنون دوست عزیز همه چیز درست شد.لطف کردین


صفحه 3 از 3 نخستنخست 123

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

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

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

موضوعات مشابه

  1. تولید عدد تصادفی با شرط
    توسط ali.b در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2015/02/17, 00:30
  2. تولید اعداد تصادفی با طول دلخواه و ثابت
    توسط ~M*E*H*D*I~ در انجمن ترفندهای اکسل Excel Tricks
    پاسخ ها: 8
    آخرين نوشته: 2015/01/12, 00:01
  3. آموزشی ایجاد یک زمان تصادفی در اکسل-Generate a random time in Excel
    توسط ~M*E*H*D*I~ در انجمن ترفندهای اکسل Excel Tricks
    پاسخ ها: 0
    آخرين نوشته: 2014/08/03, 18:51
  4. درخواست ماکرو تولید کننده چند عدد تصادفی با میانگین مورد نظر
    توسط maxim_saint در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 10
    آخرين نوشته: 2012/05/26, 23:25
  5. توليد اعداد تصادفي
    توسط Ali7010 در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 3
    آخرين نوشته: 2012/03/01, 13:53

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

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

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

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

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

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