mahmoud nasr alhasany قام بنشر يوليو 4 مشاركة قام بنشر يوليو 4 (معدل) Private Sub Image1_Click() Sheet5.Select Cells.Select Sheet5.Range("a1:h3999").ClearContents Selection.Clear Range("A1").Select Application.ScreenUpdating = False Sheet5.Cells(1, 1) = " من تاريخ " Sheet5.Cells(1, 2) = Me.TextBox1 Sheet5.Cells(2, 1) = " الى تاريخ " Sheet5.Cells(2, 2) = Me.TextBox2 Sheet5.Cells(1, 4) = "اسم المخزن" Sheet5.Cells(1, 5) = ComboBox1 Sheet5.Cells(2, 4) = "اسم الصنف" Sheet5.Cells(2, 5) = ComboBox2 Sheet5.Cells(1, 6) = " رصيداول مدة " Sheet5.Cells(2, 6) = TextBox3 Sheet5.Cells(3, 1) = "رقم المستند" Sheet5.Cells(3, 2) = "التاريخ" Sheet5.Cells(3, 3) = "نوع الحركة" Sheet5.Cells(3, 4) = "اسم المخزن" Sheet5.Cells(3, 5) = "اسم الصنف" Sheet5.Cells(3, 6) = "شراء" Sheet5.Cells(3, 7) = "بيع" Sheet5.Cells(3, 8) = "الرصيد" a = Sheet5.Range("d500").End(xlUp).Row For I = 0 To Me.ListBox1.ListCount - 1 For x = 0 To 7 Sheet5.Cells(I + 4, x + 1) = Me.ListBox1.List(I, x) Next x Next I Unload Me Sheet5.PrintPreview Sheet5.Select End Sub مساعدة فى تنسيق ورقة العمل sheet5 بحيث تكون منسقة فى الطباعة فعند الاستعلام بأسم المخزن واسم الصنف بين تاريخين مع استخدام امر بحث من option تكون ورقة الطباعة بشكل مسطر ومنسق كرت الصنف 2024.xlsm تم تعديل يوليو 5 بواسطه mahmoud nasr alhasany رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر يوليو 4 مشاركة قام بنشر يوليو 4 (معدل) حاولت فهم ما تحاول فعله صراحة انت فقط تعقد الامور عليك بدل الاعتماد على التنسيقات على الليست بوكس يمكنك انشاء ورقة خاصة بالطباعة منسقة مسبقا بالشكل الدي تريد ولتكن مخفية مثلا وتقوم بالترحيل اليها مباشرة وطباعتها دون حدف التنسيقات كل مرة واعادة ارجاعها تم تعديل يوليو 4 بواسطه محمد هشام. رابط هذا التعليق شارك More sharing options...
mahmoud nasr alhasany قام بنشر يوليو 4 الكاتب مشاركة قام بنشر يوليو 4 (معدل) رجاء اتبع الاوامر مثل مافى الصوره يوجد خياران بحث او بحث الكل رجاء اختر بحث فقط ملحوظة أمر الطباعة أعلى الفورم على شكل طابعه وهذه شكلها بعد الطباعة بدون تنسيقات تم تعديل يوليو 4 بواسطه mahmoud nasr alhasany رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر يوليو 4 مشاركة قام بنشر يوليو 4 تمام ادن ما هو التنسيق المتوقع رابط هذا التعليق شارك More sharing options...
mahmoud nasr alhasany قام بنشر يوليو 4 الكاتب مشاركة قام بنشر يوليو 4 عند كل امر طباعة بعد الاستعلام يقوم بحذف التنسيقات ولاكن اريد تنسيقات ليست مسطرة فقط ولاكن بشكل متقدم ورائع رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر يوليو 4 مشاركة قام بنشر يوليو 4 ادن اخي الكريم يمكنك الابداع في ظبط التنسيقات المرغوبة وان شاء الله سنحاول مساعدتك في اظافتها لوقة الطباعة بعد كل استعلام بطريقة ما 1 رابط هذا التعليق شارك More sharing options...
mahmoud nasr alhasany قام بنشر يوليو 4 الكاتب مشاركة قام بنشر يوليو 4 (معدل) مثل هذه تم تعديل يوليو 4 بواسطه mahmoud nasr alhasany رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد هشام. قام بنشر يوليو 6 أفضل إجابة مشاركة قام بنشر يوليو 6 (معدل) من المفروض ان تقوم بتصميم ملفك بالشكل المطلوب وارفاقه بدل رفع الصورة لهدا ساقتصر انا كدالك على ارفاق صورة بعد اظافة الجدول على عينة من البيانات وتنسيقه استخدم ما يلي Private Sub Image1_Click() Set f2 = Sheets("Sheet5") Application.ScreenUpdating = False f2.[A4:H10000].ClearContents r1 = TextBox1.Value: r2 = TextBox2.Value: r3 = TextBox3.Value: r4 = ComboBox1.Value: r5 = ComboBox2.Value hrd1 = Array("من تاريخ :", r1, " ", "اسم المخزن :", r4, "رصيداول مدة :") hrd2 = Array("الى تاريخ :", r2, " ", "اسم الصنف :", r5, r3) Titres = Array("رقم المستند", "التاريخ", "نوع الحركة", "اسم المخزن", "اسم الصنف", "شراء", "بيع", "الرصيد") f2.[A1].Resize(1, 6) = hrd1 f2.[A2].Resize(1, 6) = hrd2 f2.[A3].Resize(1, 8) = Titres a = Me.ListBox1.List f2.[A4].Resize(UBound(a) + 1, UBound(a, 2) + 1) = a Unload Me Set Rng = f2.Range("A1").CurrentRegion f2.PageSetup.PrintArea = Rng.Address f2.PrintPreview End Sub تم تعديل يوليو 6 بواسطه محمد هشام. 2 رابط هذا التعليق شارك More sharing options...
mahmoud nasr alhasany قام بنشر يوليو 6 الكاتب مشاركة قام بنشر يوليو 6 (معدل) لقد ارفقته بالفعل وتم تعديل الملف أعلى المنشور وارفقت الصوره بالتنسيق المطلوب وشكرا لك احسنت هذا هو المطلوب هل تقوم بمساعدتى فى اكمال هذا الموضوع وجعله يقوم بتصدير البيانات إلى وورد أو بى دى اف يوجد اتنين button واحده خاصه بالورد والثانيه بى دى اف تم تعديل يوليو 6 بواسطه mahmoud nasr alhasany رابط هذا التعليق شارك More sharing options...
حسونة حسين قام بنشر يوليو 6 مشاركة قام بنشر يوليو 6 السلام عليكم ورحمة الله وبركاته 5 ساعات مضت, mahmoud nasr alhasany said: بتصدير البيانات إلى وورد أو بى دى اف يوجد اتنين button واحده خاصه بالورد والثانيه بى دى اف هذا موضوع اخر اخي محمود 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها