أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


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





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

السلام عليكم فى الملف المرفق يوزر فورم به ( ليست بوكس) محتاج انقل بيانات فى الشيت main الى الليست بوكس وفى شيت الفاتورة ..



18-01-2021 02:21 صباحا
حبيبتى دائما
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-07-2019
رقم العضوية : 13887
المشاركات : 93
الجنس : ذكر
تاريخ الميلاد : 5-3-1984
يتابعهم : 9
يتابعونه : 0
قوة السمعة : 76
 offline 

السلام عليكم
فى الملف المرفق يوزر فورم به ( ليست بوكس)
محتاج انقل بيانات فى الشيت main الى الليست بوكس
وفى شيت الفاتورة اريد كود لطباعه الفاتورة مع تجاهل الفراغات
مرفق صور للتوضيح 
الصورة رقم 2 
محتاج كود يطبع الفاتورة بنفس الشكل ولكن بدون فراغات

 
 
  2.jpg   تحميل jpg 2.jpg مرات التحميل :(2)
الحجم :(59.629) KB
  Untitled.jpg   تحميل jpg Untitled.jpg مرات التحميل :(2)
الحجم :(196.425) KB
 
  فاتورة2021.xlsm   تحميل xlsm مرات التحميل :(10)
الحجم :(687.358) KB


18-01-2021 06:25 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif مساعده فى ليست بوكس
وعليكم السلام أخي الكريم
الموضوع غير مكتمل التفاصيل .. يرجى وضع التفاصيل ليساعدك إخوانك بالمنتدى بشكل أفضل
ما هو الفورم المطلوب التعامل معه ؟ وما هي البيانات المطلوب إظهارها على الفورم في الليست بوكس؟ ويرجى إرفاق صورة لشكل المخرجات النهائي.

20-01-2021 10:43 مساء
مشاهدة مشاركة منفردة [2]
حبيبتى دائما
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-07-2019
رقم العضوية : 13887
المشاركات : 93
الجنس : ذكر
تاريخ الميلاد : 5-3-1984
يتابعهم : 9
يتابعونه : 0
قوة السمعة : 76
 offline 
look/images/icons/i1.gif مساعده فى ليست بوكس
السلام عليكم 
ارجو الحل جزاكم الله خير

 
 
peace upon you I hope for a solution, may Allah reward you well
 

21-01-2021 12:11 مساء
مشاهدة مشاركة منفردة [3]
حسين مامون
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 172
الجنس : ذكر
الدعوات : 1
يتابعهم : 5
يتابعونه : 11
قوة السمعة : 957
عدد الإجابات: 22
 offline 
look/images/icons/i1.gif مساعده فى ليست بوكس
كود لطباعة الفاتورة
Sub prin_FATORA()
Dim lr, X
Dim ws As Worksheet
Set ws = Sheets("الفاتورة")
Application.ScreenUpdating = False
If MsgBox("هل تريد طباعة الفاتورة", vbExclamation + vbYesNo) = vbYes Then
With ws
For X = 13 To 41
If .Cells(X, "f") = "" Then
.Cells(X, "a").EntireRow.Hidden = True
End If
Next X
'=================
.Range("b1:h45").PrintPreview
End With
End If
ws.Range("a13:a41").EntireRow.Hidden = False
Application.ScreenUpdating = True

End Sub

وهذا فى حدث الفورم
Private Sub UserForm_Activate()
Dim k, c, lr
Dim ws As Worksheet
Set ws = Sheets("Main")
ListBox1.Clear
ListBox1.ColumnCount = 4
With ws
lr = .Cells(Rows.Count, 1).End(3).Row
k = 0
For Each c In .Range("a14:a" & lr)
ListBox1.AddItem
ListBox1.List(k, 0) = .Cells(c.Row, 1).Value
ListBox1.List(k, 1) = .Cells(c.Row, 2).Value
ListBox1.List(k, 2) = .Cells(c.Row, 3).Value
ListBox1.List(k, 3) = .Cells(c.Row, 4).Value
k = k + 1


Next c
End With
End Sub
 

 
Private Sub UserForm_Activate() Dim k, c, lr Dim ws As Worksheet Set ws = Sheets("Main") ListBox1.Clear ListBox1.ColumnCount = 4 With ws lr = .Cells(Rows.Count, 1).End(3).Row k = 0 For Each c In .Range("a14:a" & lr) ListBox1.AddItem ListBox1.List(k, 0) = .Cells(c.Row, 1).Value ListBox1.List(k, 1) = .Cells(c.Row, 2).Value ListBox1.List(k, 2) = .Cells(c.Row, 3).Value ListBox1.List(k, 3) = .Cells(c.Row, 4).Value k = k + 1 Next c End With End Sub
 




الكلمات الدلالية
مساعده ، ليست ، بوكس ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 08:12 مساء