تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] هام ارجوا المساعدة
#1
السلام عليكم ورحمة الله وبركاته

انا عندي مشروع كذا :
الاسم :
العمر :
السنة الدراسية :
ملاحظات :

" وابيها تتصدر للوورد "

بس اذا كان لايوجد ملاحظات ابيها تتصدر للوورد وخانة الملاحظات فارغة .

وابي تكون في الصفحة 3 او 4 اشخاص على حسب ماتاخذ الصفحة



وشكراًCoolRolleyes
الرد }}}
تم الشكر بواسطة:
#2
ممكن شرح Confused
"وابي تكون في الصفحة 3 او 4 اشخاص على حسب ماتاخذ الصفحة" ؟؟
إقرأ هذه المقالة
http://social.msdn.microsoft.com/Forums/...e-one-line
Exclamation
منقطع .. للدراسة Confused
الرد }}}
تم الشكر بواسطة:
#3
السلام عليكم
إليك متال على إرسال المعلومات إل EXCEL
Private Sub Command11_Click()
Dim DExcel As Object
Dim ColHeader As Variant
Dim intRow As Integer
Dim intcol As Integer

Set DExcel = CreateObject("Excel.Application")
ColHeader = Array("A", "B", "C", "D", "E", "F", "G", "H")
DExcel.DisplayAlerts = False
DExcel.Workbooks.Add
DExcel.Sheets("Feuil1").Select
DExcel.Sheets("Feuil1").Name = "LISTE DES PARENTS"

With msflexgrid
For intRow = 0 To .Rows - 1
For intcol = 0 To .Cols - 1
DExcel.Range(ColHeader(intcol) & (intRow + 1)).BorderAround Color:=vbBlack
DExcel.Range(ColHeader(intcol) & (intRow + 1)) = .TextMatrix(intRow, intcol)
Next intcol
Next intRow
End With
DExcel.ActiveWorkbook.Close True, "C:\MonFichier.xls"
DExcel.Quit
End Sub
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم