اوفيس 2003 قام بنشر يونيو 7, 2015 مشاركة قام بنشر يونيو 7, 2015 السلام عليكم اريد فصل بيانات في اعمدة الجدول ولم تنفع بطريقة النص الى اعمدة Test 200.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يونيو 7, 2015 مشاركة قام بنشر يونيو 7, 2015 تفضل اخي الكريم الحل Test 200 salim.rar 1 رابط هذا التعليق شارك More sharing options...
اوفيس 2003 قام بنشر يونيو 7, 2015 الكاتب مشاركة قام بنشر يونيو 7, 2015 ماشاء الله اشكرك اخي سليم ولكن المعادله طويلة وغير مفهومة بالنسبة لدي اعذرني لأني غير محترف هل هناك حلول اخرى او شرح مبسط للمعادلة رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يونيو 7, 2015 مشاركة قام بنشر يونيو 7, 2015 أخي الحبيب ليك وحشة والله ..فينك من فترة ..مختفي فين؟ إليك الحل التالي بالكود ... Sub YasserKhalilToAdel() Dim A, B, I As Long, J As Long, N As Long A = Sheets("Sheet1").Range("A1:C8").Value ReDim B(1 To UBound(A, 1) / 2, 1 To UBound(A, 2) + 1) For I = 1 To UBound(A, 1) Step 2 N = (I \ 2) + 1 B(N, 2) = A(I, 1) B(N, 3) = A(I, 2) B(N, 4) = A(I, 3) B(N, 1) = A(I + 1, 1) Next I Range("A10").Resize(UBound(B, 1), UBound(B, 2)).Value = B End Sub ** لا تنسى أن تحدد أفضل إجابة من خلال الضغط على كلمة "تحديد كأفضل إجابة " ؛ ليظهر الموضوع مجاب ومنتهي. ** لا تنسى أن تضغط كلمة "أعجبني هذا" (الأمر لن يستغرق منك ثواني) ---> (أمضيت من وقتي وقتاً ليس بالقليل .. فاضغط ولا تكن بخيل) تقبل تحياتي Test 200 By Code.rar رابط هذا التعليق شارك More sharing options...
اوفيس 2003 قام بنشر يونيو 8, 2015 الكاتب مشاركة قام بنشر يونيو 8, 2015 بارك الله فيك اخي ياسر واشكرك على التعاون والجهد المبذول في المنتدى انا اعلم موضع اختيار افضل اجابة ولكني منتظر ربما اجد اجابة ابسط من ما قدم ولا يعني ذلك تقليل من ما تم تقديمه ولكن هذا ناتج لقلة الخبرة لدي التي تجعل ما تقدمونه صعب علي في تطبيقه انا توقعت ان اجد حل مثل موضوع النص الى اعمدة وماشابه رابط هذا التعليق شارك 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.