تبدیل روز به ساعت

**Amir Ghasemiyan** · 2018/08/07, 10:24

سلام دوست عزيز
ميشه بفرماييد اين محاسبه از كجا اومد؟ يك روز چطور شد 7.2 ساعت؟

**aliooali** · 2018/08/08, 14:33

در اصل 7.3 در میاد ولی سیستم حقوق و دستمزد براش 7.2 تعریف شده

**Amir Ghasemiyan** · 2018/08/08, 15:06

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

در اصل 7.3 در میاد ولی سیستم حقوق و دستمزد براش 7.2 تعریف شده

اگر درست متوجه سوالتون شده باشم اين كد كمكتون ميكنه:

کد:

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Target.Value = Target.Value * 7.2 Application.EnableEvents = True End Sub

كافيه اين كد رو داخل كدهاي شيت مورد نظرتون قرار بديد

**aliooali** · 2018/08/08, 16:51

با تشکر از پاسخ شما و کد vba

فایل پیوست رو که قراردادم رو نگاه کنید

مشکلش اینه که طول هر سلول 5 عدد باید باشه و توی ادغام که نوشتم عدد اعشاری رو روند میکنه

امکانش هست بررسی کنید

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

حقوق.rar (15.6 کیلو بایت, مشاهدات 12)

**Amir Ghasemiyan** · 2018/08/09, 10:00

من كه از فايلتون هيچي سر در نياوردم. كامل توضيح بديد مشكل چيه دقيقا

**aliooali** · 2018/08/09, 12:01

در سلول a3 یک عدد اعشاری 7.2 قرارداد که فقط 7 اون رو نمایش میده

در خانه k3 سلول های a3 , b3 , c3 , d3 .e3 , f3 ,g3 رو با هم یکی میکنه و اونجا نمایش داده میشود

مشکل من اینه که 7.2 که در سلول a3 فرارداره رو در محل ادغام نمایش داده نمیشه و فقط 7 اون نمایش داده میشه( طول هر سلول هم باید 5 کارکتر باشد )

**Amir Ghasemiyan** · 2018/08/09, 12:40

خب اينو كه خودتون تعريف كرديد فقط 5 رقم نشون بده و اعشار رو هم نمايش نده!

کد:

text(a3,"000000")

خروجي مد نظرتون به چه صورته؟ مثلا رديف سوم در سلول k3 چي بايد بنويسه كه مد نظر شما باشه؟