Tweet
با سلام.
بارها برای شما پیش آمده که بخواهید مقدار سلولی مانند A1 را فقط تا چند عدد کم یا زیاد کنید که برای این کار یا بر روی سلول دابل کلیک می کردید و سپس ویرایش را انجام می دادید و یا محتویات A1 را حذف و دوباره عدد تازه را تکرار می کردید که کمی وقت گیر است. من اینجا شیئ spin button را برای شما توصیه می کنم.
spin button شیئی است که برای افزایش یا کاهش اعداد به کار می رود.این شیئ شامل دو دکمه به نامهای spinup و spindown می باشد.
(جهت رو به بالا)spinup:برای افزایش مقدار عددی
spindown(جهت رو به پائین):برای کاهش مقدار عددی
فرض کنید سلولی مانند A1 دارید و در آن عدد 1390 ثبت شده است حال اگر بخواهیم عدد 1390 را به 1393 یا 1385 یا ... تغییر بدهیم دیگر لازم نیست سلول را حذف و دوباره عدد مورد نظر را وارد کنیم. زیرا spin button این کار را با چند کلیک انجام می دهد.
یک مثال عملی:
مسیر زیر را طی نمائید:
Developer-->Controls-->Insert
حالا از گروه Activex Control شیئ Spin Button را انتخاب کنید و در کنار سلولی دلخواه(A1) قرار داده و بر روی آن دابل کلیک کنید.
حالت 1___
اگر بخواهیم سلول A1 با فشردن spin up رو به بالا حرکت کند در قسمت event رویداد spin Up را انتخاب می کنیم و فرمول زیر را می نویسیم:
Range("A1").Value = Range("A1").Value + 1
حالت 2___
اگر بخواهیم سلول A1 با فشردن spin down رو به پائین حرکت کند در قسمت event رویداد spinِDown را انتخاب می کنیم و فرمول زیر را می نویسیم:
Range("A1").Value = Range("A1").Value - 1
این کار را در user form هم می توان انجام.کافیست ابتدا یک userform ایجاد کنید و در userform یک textbox و یک spin button ایجاد کرده و بر روی spin button دابل کلیک کرده و کد زیر را وارد کنید:
برای افزایش مقدار textbox:
textbox1.text = textbox1.text +1
برای کاهش مقدار textbox:
textbox1.text = textbox1.text -1
بارها برای شما پیش آمده که بخواهید مقدار سلولی مانند A1 را فقط تا چند عدد کم یا زیاد کنید که برای این کار یا بر روی سلول دابل کلیک می کردید و سپس ویرایش را انجام می دادید و یا محتویات A1 را حذف و دوباره عدد تازه را تکرار می کردید که کمی وقت گیر است. من اینجا شیئ spin button را برای شما توصیه می کنم.
spin button شیئی است که برای افزایش یا کاهش اعداد به کار می رود.این شیئ شامل دو دکمه به نامهای spinup و spindown می باشد.
(جهت رو به بالا)spinup:برای افزایش مقدار عددی
spindown(جهت رو به پائین):برای کاهش مقدار عددی
فرض کنید سلولی مانند A1 دارید و در آن عدد 1390 ثبت شده است حال اگر بخواهیم عدد 1390 را به 1393 یا 1385 یا ... تغییر بدهیم دیگر لازم نیست سلول را حذف و دوباره عدد مورد نظر را وارد کنیم. زیرا spin button این کار را با چند کلیک انجام می دهد.
یک مثال عملی:
مسیر زیر را طی نمائید:
Developer-->Controls-->Insert
حالا از گروه Activex Control شیئ Spin Button را انتخاب کنید و در کنار سلولی دلخواه(A1) قرار داده و بر روی آن دابل کلیک کنید.
حالت 1___
اگر بخواهیم سلول A1 با فشردن spin up رو به بالا حرکت کند در قسمت event رویداد spin Up را انتخاب می کنیم و فرمول زیر را می نویسیم:
Range("A1").Value = Range("A1").Value + 1
حالت 2___
اگر بخواهیم سلول A1 با فشردن spin down رو به پائین حرکت کند در قسمت event رویداد spinِDown را انتخاب می کنیم و فرمول زیر را می نویسیم:
Range("A1").Value = Range("A1").Value - 1
این کار را در user form هم می توان انجام.کافیست ابتدا یک userform ایجاد کنید و در userform یک textbox و یک spin button ایجاد کرده و بر روی spin button دابل کلیک کرده و کد زیر را وارد کنید:
برای افزایش مقدار textbox:
textbox1.text = textbox1.text +1
برای کاهش مقدار textbox:
textbox1.text = textbox1.text -1