گرد نکردن محاسبه و رفع مشکل محاسبه

**Amir Ghasemiyan** · 2019/08/10, 21:51

سلام دوست عزیز
امیدوارم درست متوجه منظورتون شده باشم

فایل های پیوست شده

VE.rar (43.6 کیلو بایت, مشاهدات 7)

**mobinsaffarpour** · 2019/08/10, 23:08

استاد قاسمیان عزیز تشکر از اینکه قبول زحمت کردید. یک دنیا متشکرم
فقط یه مشکل کوچیک وجود داره
اینکه زیر یک ساعت رو توی محاسبه یک ساعت حساب میکنه. توی فایل پیوست چندین نمونه قرار دادم

VE

http://s2.picofile.com/file/8369299384/VE.rar.html

**Amir Ghasemiyan** · 2019/08/11, 02:19

نوشته اصلی توسط mobinsaffarpour

استاد قاسمیان عزیز تشکر از اینکه قبول زحمت کردید. یک دنیا متشکرم
فقط یه مشکل کوچیک وجود داره
اینکه زیر یک ساعت رو توی محاسبه یک ساعت حساب میکنه. توی فایل پیوست چندین نمونه قرار دادم
http://s2.picofile.com/file/8369299384/VE.rar.html

لطفا فایل پیوست رو ملاحظه بفرمایید

فایل های پیوست شده

VE_2.rar (42.9 کیلو بایت, مشاهدات 8)

**mobinsaffarpour** · 2019/08/18, 11:23

استاد عزیز سپاس از لطفتون یک دنیا ممنون
فقط الان اومدم دوتاستون به فایل برای درج ساعت قرار دادم میخواستم ببینم چطور میشه از یک خط کد برای این کار توی تمام فایل مثل محاسبه میز یا خالی کردن میز استفاده کنم ؟

VE

http://s3.picofile.com/file/8369900976/VE.zip.html

**Amir Ghasemiyan** · 2019/08/18, 12:00

يعني ميخوايد با زدن اين دكمه ها كه ايجاد كردين ساعت بطور اتومات درج بشه؟

**mobinsaffarpour** · 2019/08/18, 13:03

بله دقیقاً و میخوام ثانیه برابر با 0 باشه. البته نمیخوام ثانیه نمایش داده بشه. ( اون دستوری رو که گذاشتم فکر میکنم همین کار رو انجام میده درسته ؟ )

**Amir Ghasemiyan** · 2019/08/18, 13:38

كدي كه گذاشتيد درسته ولي فقط براي سطر اول عمل ميكنه. من كدهاتون رو اصلاح كردم

کد:

Sub Time_D2() Row = VE.Shapes(Application.Caller).TopLeftCell.Row Range("D" & Row).Value = TimeSerial(Hour(Time), Minute(Time), 0) End Sub Sub Time_F2() Row = VE.Shapes(Application.Caller).TopLeftCell.Row Range("F" & Row).Value = TimeSerial(Hour(Time), Minute(Time), 0) End Sub