میشه توضیح بدید چطور این کارو انجام دادید ممنونم ازتون اگه بگید چطوری میتونم این کدو برای یک فایل اکسل جدید طراحی کنم ممنون میشم اگه راهنمایی کنید من واقعا به این کد نیاز دارم
میشه توضیح بدید چطور این کارو انجام دادید ممنونم ازتون اگه بگید چطوری میتونم این کدو برای یک فایل اکسل جدید طراحی کنم ممنون میشم اگه راهنمایی کنید من واقعا به این کد نیاز دارم
با سلام
این کد برای ایجاد سل چشمک زن (sheet1!a3)
کد:Public NextFlash As Double Public Const FlashRng As String = "Sheet1!A3" Sub StartFlashing() If Range(FlashRng).Interior.ColorIndex = 3 Then Range(FlashRng).Interior.ColorIndex = xlColorIndexNone Else Range(FlashRng).Interior.ColorIndex = 3 End If NextFlash = Now + TimeSerial(0, 0, 1) Application.OnTime NextFlash, "StartFlashing", , True End Sub
و این کد برای توقف
کد:SubStopFlashing() Range(FlashRng).Interior.ColorIndex= xlColorIndexNone Application.OnTimeNextFlash,"StartFlashing",,False EndSub
ای برادر تو همه اندیشه ای
سلام
من یه سلول چشمک زن با استفاده از ثانیه شمار درست کردم، اولش درست کار میکرد بعد یه مدت دیگه چشمک نزد، ثانیه هم تکون نخورد. تو چندتا شیت دیگه هم که درست میکنم اصلا ثانیه شمارم حرکت نمیکنه، نمیدونم مشکل از کجاست، میشه راهنماییم کنید؟
با سلام
کلید Alt+F11 را بزنید تا وارد محیط کد نویسی شوید.
از منوی Insert گزینه Module رو انتخاب کنیدکد های مربوطه را در سمت راست وارد کنید.
مجددا کلید Alt+F11 رو بزنید تا وارد شیت بشید.از تب Developer قسمت Controls>Insert دو تا Form Control به شیت اضافه کنید و با کلیک راست انتخاب Assign Macro نام ماکرو رو مرتبط کنید.
و در آخر برای ذخیره کدها فایل رو Save as و در قسمت Save as Type گزینه Excel Macro- Enable Workbook رو انتخاب کنید.
در پست شماره 12 فایل نمونه پیوست شده که میتونید مشاهده کنید.
( اگر تب Developer رو ندارید لینک زیر رو ملاحظه کنید.)
http://forum.exceliran.com/showthrea...83%D8%B3%D9%84
ویرایش توسط amir_ts : 2016/05/20 در ساعت 09:31
ای برادر تو همه اندیشه ای
در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)
علاقه مندی ها (Bookmarks)