احمد عـــزام قام بنشر مارس 6, 2023 مشاركة قام بنشر مارس 6, 2023 (معدل) يرجى المساعده خلايا ارقام بالجرام مطلوب تحويلها الى كيلو كما هما من غير عمل خلايا جديده وارجو شرح الجرام.xlsx تم تعديل مارس 6, 2023 بواسطه احمد عـــزام مطلوب تحويل الجرام الى كيلو بنفس الخليه رابط هذا التعليق شارك More sharing options...
أفضل إجابة lionheart قام بنشر مارس 7, 2023 أفضل إجابة مشاركة قام بنشر مارس 7, 2023 Try Sub Test() Dim arr, rng As Range, i As Long, j As Long Set rng = Range("H9:N" & Cells(Rows.Count, "H").End(xlUp).Row) arr = rng.Value For i = LBound(arr, 1) To UBound(arr, 1) For j = LBound(arr, 2) To UBound(arr, 2) arr(i, j) = Round(arr(i, j) / 1000, 2) Next j Next i rng.Value = arr End Sub 3 رابط هذا التعليق شارك More sharing options...
احمد عـــزام قام بنشر مارس 7, 2023 الكاتب مشاركة قام بنشر مارس 7, 2023 اشكرك جدا جدا ماشاء الله هذا ما اريده...ربنا يبارك فيك طب لو انا محتاج اعملها على الخليه اللى انا عايزها فقط رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر مارس 7, 2023 مشاركة قام بنشر مارس 7, 2023 You can change this line Set rng = Range("H9:N" & Cells(Rows.Count, "H").End(xlUp).Row) to Set rng = Selection Now you can select one cell or more and run the code to do the task for you 1 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.