تعديل بسيط في كود الترحيل (ترحيل القيم )

[الجزيرة]

السلام عليكم ورحمة الله وبركاته

ياليت أحد الاخوان يقوم بتعديل الكود بالملف المرفق
بحيث يقوم بترحيل القيم فقط دون ترحيل الصيغ

s123.rar

تم تعديل أغسطس 30, 2006 بواسطه الجزيرة

[الجزيرة]

هل السؤال غير مفهوم ؟

يا أخوان هذا كود سبق أن حملته من المنتدى وجربته ووجدته يرحل المطلوب ولكن المشكلة أنه يرحل المعادلات كما هي . . يوجد في الملف المرفق اوراق عمل ( البرنامج ، المدخلات ، البيانات ) في صفحة المدخلات توجد معادلات وعند ترحيلها الى ورقة البيانات توجد المعادلات أيضاً .
والمطلوب هو ترحيل المعادلات الي ورقة البيانات وتكون قيم فقط .

[فلسطيني]

لا تعجب أخي إن لم تجد رداً على تساؤلك فبالتأكيد حاول جميع من رأي الموضوع مساعدتك ولكن قد يكون طلبك غير واضح هل تريد ترحيل القيم فقط أم ترحيل القيم والصيغ ؟

حاول أن تمسح جميع البيانات من الملف و ضع بيانات جديدة وقم بترحيلها فسوف يتم ترحيل البيانات دون الصيغ و المعادلات

[الجزيرة]

حياك الله اخي فلسطيني والحمد لله على سلامتك

المطلوب : ترحيل القيم فقط .

حاول أن تمسح جميع البيانات من الملف و ضع بيانات جديدة وقم بترحيلها فسوف يتم ترحيل البيانات دون الصيغ و المعادلات

بعد تحميلي للكود سابـقاً عدلت عليه بما يتناسب مع عملي والصيغ الموجودة فيه حالياً تخصني أنـا

[omar elhosseini]

بسم الله الرحمن الرحيم

الاخ الجزيرة

تحياتى لك

فى عجالة شاهد المرفق

s123_1.rar

[الجزيرة]

أخي الكريم / عمر الحسيني

الحمد لله ما خاب ظني فيك

وتعديلك ما فيه كلام 100%

=================

أيضأ عندي كود أود شرحه لو تكرمت خصوصاً أنك أنت اللي عملته ( على ما يبدو لي )

Sub MyPrint()

  Application.ScreenUpdating = False
  With Sheets("Balance")
    With .UsedRange
      For i = 4 To .Rows.Count
        If .Cells(i, 3).Value = 0 And .Cells(i, 4).Value = 0 Then
          .Cells(i, 3).EntireRow.Hidden = True
           .Cells(i, 4).EntireRow.Hidden = True
         End If
      Next i
    End With
    .PrintOut
    .Rows.Hidden = False
  End With
  Application.ScreenUpdating = True
End Sub

وبالتحديد السطرين التاليين :

With .UsedRange
For i = 4 To .Rows.Count

[omar elhosseini]

بسم الله الرحمن الرحيم

الاخ الجزيرة

بعد التحية

هذا الكود بقوم بطباعة الصفوف فى المدى المستخدم " UsedRange " بناء على شروط محددة

وهى ان تكون الخلييتين " C " و " D " من كل صف فى هذة المدى لاتحتوى صفر فإذا كانتا تحتويان على صفر يقوم

بأخفاء هذه الصفوف قبل الطباعة .

  With Sheets("Balance")

فى الورقة المساه  " Balance  "

    With .UsedRange

مع المدى المستخدم 

      For i = 4 To .Rows.Count

من اول صف رقم 4  الى عدد الصفوف فى هذا المدى

سوف يقوم بالاختبار الاتى قبل عملية لبطباعة 

 عداد الدورة  "For "

 وهو "i " 

يمثل رقم الصف المختبر

      If .Cells(i, 3).Value = 0 And .Cells(i, 4).Value = 0 Then

اذا كانت الخلية  "C4"

وهى   (i, 3)

و اذا كانت الخلية  "D4"

وهى   (i, 4)

تساويان صفر

اذن

         .Cells(i, 3).EntireRow.Hidden = True
           .Cells(i, 4).EntireRow.Hidden = True

هذا الصف وهو الصف الرابع قم بأخفاءه

        End If
 ثم يعاود الاختبار حتى تنتهى صفوف المدى المستخدم
     Next i
    End With
    .PrintOut

هنا يقوم بالطباعة

    .Rows.Hidden = False

ثم يظهر الصفوف المخفية فى الورقة


 End With

الهدف من الكود اخفاء الصفوف فى المدى المستخدم التى تحقق شرط او شروط محددة

ثم يقوم بطباعة المدى المستخدم بدون هذه الصفوف

ثم يقوم بأظهار جميع صفوف الورقة

[الجزيرة]

بارك الله فيك أخي عمر

عفواً أخي الكريم أنا كنت فاهم من الكود المرفق أنه إذا كان العمود "C" والعمود "D" يساويان صفر يتم اخفاء الصف :

If .Cells(i, 3).Value = 0 And .Cells(i, 4).Value = 0 Then

اذا كانت الخلية  "C4"

وهى   (i, 3)

و اذا كانت الخلية  "D4"

وهى   (i, 4)

تساويان صفر

لقد جربته ووجدت أحد العملاء عندي حسابه صفر لأنه أشترى بضاعة وقيد المبلغ في العمود "C" ومن ثم قام بالتسديد وقيد المبلغ في العمود "D" وفي العمود "E" والذي يمثل الرصيد ظهر المبلغ عند الطباعة ( صفر ) عندها قمت وعدلت على الكود بحيث ينظر في العمود "E" فإذا كان الرصيد صفر يخفي السطر وجربت وضبط معي ، كما في الكود التالي :

Sub MyPrint()

  Application.ScreenUpdating = False
  With Sheets("Balance")
    With .UsedRange
      For i = 4 To .Rows.Count
        If .Cells(i, 5).Value = 0 Then
          .Cells(i, 5).EntireRow.Hidden = True
         End If
      Next i
    End With
    .PrintOut
    .Rows.Hidden = False
  End With
  Application.ScreenUpdating = True
End Sub

((( صح طريقتي وإلا لا ))) لأني خايف يعمل لي مشاكل بعدين

وفي النهاية أشكر لك أهتمامك وطول بالك علينا

[omar elhosseini]

بسم الله الرحمن الرحيم

الاخ الجزيرة

بعد التحية

الجملة

" EntireRow.Hidden = True "

المقصود بها اخفاء الصف .

التعديل صحيح

ويمكنك استخدام " PrintPreview . " بدلا من " PrintOut. "

مؤقتا لمشاهدة النتيجة على الشاشة اثناء تعديل الكود .

تحياتى

[الجزيرة]

ويمكنك استخدام " PrintPreview . " بدلا من " PrintOut. "

مؤقتا لمشاهدة النتيجة على الشاشة اثناء تعديل الكود .

معلومه جديدة ومفيدة بالنسبة لي

الله يكثر من أمثالك أخي عمر