وقت همه بخیر
من باید تعداد زیادی ساعت ورود و خروج درج کنم .اما وارد کردن نشانه ثانیه : کار وقت گیری است.راهی برای این هست.
وقت همه بخیر
من باید تعداد زیادی ساعت ورود و خروج درج کنم .اما وارد کردن نشانه ثانیه : کار وقت گیری است.راهی برای این هست.
سلام
چطوری میشه چک باکس وارد اکسل کرد. فایل پیوست نمونه رو ببینید. این چک باکسها چطوری طراحی شده؟
کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
سلامنوشته شده توسط his0160 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
شما اونا رو بصورت عدد وارد كن بعد براحتي با فرمولها قابل تبديل هستن
مثلا براحتي ميشه 1530 رو تبديل كرد به 15:30
سلامنوشته شده توسط harry_4553 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
اينها در قسمت developer آفيس 2007 و در نواز ابزار form در آفيس 2003 موجود هستند
میشه بگید دقیقا چه تابعی این عمل رو انجام میدهنوشته شده توسط wordist [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
متشکرم.
این فایل رو چک کننوشته شده توسط MITAJOON [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
برای مشاهده کد کافی وارد vb Editor بشی
کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
من این مساله که در پست قبل پرسیده بودم حل کردم.در سلول A1 ساعت بدون درج علامت ثانیه وارد کنید .مثلا 420 "برای جدا کردن 4به عنوان ساعت و 20 برای دقیقه از این فرمولها استفاده کردم .با تغییر دادن اعداد آخر فرمول تعداد جدا کردن اعداد تغییر میکند.ودر آخر دو سلول شامل ساعت و دقیقه را با هم جمع کنید.(در سلول B1 دستور LEFT و در C1 فرمول RIGHT رابنویسید.)
ولی در هنگام اعمال ریاضی روی ساعتها بعد از عدد 959 که ساعت 9:59 است این روش جوابگو نیست که با یک دستور IF براحتی مشکل حل شد.
A B C
=LEFT(A1; LEN(A1)-2) =RIGHT(A1;LEN(A1)+1)
=C1/(0.4)
=C2/3600
=B1/24
Last edited by his0160; 02-10-2009 at 01:09.
مرسی از همگی بچه ها من این مشکل رو اینطوری حل کردم!البته با کمک یه دوست حوب!نوشته شده توسط babak_beiknejat [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
و میشه گفت 80 % مسیر و ایده کار همون دوست بود ولی....
روی سفحه یه کمبوباکس گذاشتم!
در قسمت کدنویسیش این کد رو برای رویداد Mouse Move نوشتم!
Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)و در حال حاضر کارم رو انجام داده!
If (Cells(21, 3) = "a") Then
ComboBox1.Clear
ComboBox1.AddItem "A"
ElseIf (Cells(21, 3) = "b") Then
ComboBox1.Clear
ComboBox1.AddItem "B1"
ComboBox1.AddItem "B2"
ElseIf (Cells(21, 3) = "c") Then
ComboBox1.Clear
ComboBox1.AddItem "C1"
ComboBox1.AddItem "C2"
ComboBox1.AddItem "C3"
End If
End Sub
بازم مرسی از نظراتتون.
دوستان یه سوال مبتدیانه
عدد 14....0912 رو که می زنی توی اکسل به صورت 14...912 نشون میده چی کار کنم که این صفر رو هم نشون بده
.
.
.
.
.
تشکر
اگه دقيقا همونطور كه گفتم وارد شده باشه (1530) ميشه براحتي و با تابع Right و Left اينكارو بكنينوشته شده توسط babak_beiknejat [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
اگه نه و ثانيه هم داشته باشه بايد از تابع mid كمك بگيري
يه مطالعه اي بكن نتونستي بگو تا فرمول بذارم
هم اکنون 2 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 2 مهمان)