تحويل من كيلو الى مترو الى سم

[ابو عسعس]

عندي ثلاثة اعمدة

العمود A نكتب فيه سم

العمود B نكتب فيه متر

العمود C نكتب فيه كيلو

أريد ان ادخل رقم في أي خلية من الاعمدةمثلا الخلية B2 عمود B ( متر ) ... أريد الناتج يطلع بعد التحويل الى سم والى كيلو اوتوماتيك

وكذلك لو ادخلت رقم مثلا 10 في الخلية C2العمود C ( كيلو ) .. أريد الناتج يطلع في الخليتين الباقيتين

بعد التحويل يعني الخلية2 A ( سم ) = 1000000 والخلية B2 ( متر ) = 10000

وهكذااااا .... يعني جدول واحد مكون من 3 اعمدة واستطيع ادخال اي رقم في أي خلية

ويكون الناتج في الخليتين المتبقيتين بعد التحويل

علما ان اكيلو = 1000 متر

1متر = 100 سم

هل من كود او صيغة او معادلة تساعدني على ذلك

وجزاكم الله خير

[محمد طاهر عرفه]

بفرض ان الكيلو فى العمود الاول و المتر فى التالي و السم فى الثالث

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim aval, bval, cval
    aval = Range("a" & Target.Row).Value
    bval = Range("b" & Target.Row).Value
    cval = Range("c" & Target.Row).Value
    
If ActiveCell.Column = 1 Then
If Target.Column = 1 Then
    Range("b" & Target.Row).Value = aval * 1000
    Range("c" & Target.Row).Value = aval * 100000
    Exit Sub
End If
End If

If ActiveCell.Column = 2 Then
If Target.Column = 2 Then
    Range("a" & Target.Row).Value = bval / 1000
    Range("c" & Target.Row).Value = bval * 100
    Exit Sub
End If
End If

If ActiveCell.Column = 3 Then
If Target.Column = 3 Then
    Range("b" & Target.Row).Value = cval / 100
    Range("a" & Target.Row).Value = cval / 100000
    Exit Sub
End If
End If

End Sub

ExcelUnits.zip

[ابو عسعس]

الله يجزاك كل الخير ويدخلك جنات النعيم

فعلا هذا المطلوب

وماقصرت بارسال الملف والكود يا اخ محمد

ولك دعوة ببظهر الغيب في الشهر الفضيل على مجهودك معنا

الله يحفظك ويزيدك من النعيم