تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
ارسال البيانات م الفليكس الى الاكسل
#1

PHP كود :
Dim MyExcel As New Excel.Application
Dim R 
As IntegerAs Integer

MyExcel
.Workbooks.Open App.Path "\2.xls"

For 0 To MsFlex.Rows 1

    
For 0 To MsFlex.Cols 1
    
        MsFlex
.row R
        MsFlex
.Col C
        
If MsFlex.CellBackColor 0 Then
           If R 
0 Then
              MyExcel
.ActiveSheet.Cells(11).Interior.Color RGB(212208200)
           Else
              MyExcel
.ActiveSheet.Cells(11).Interior.Color vbWhite
           End 
If
        Else
           MyExcel.ActiveSheet.Cells(11).Interior.Color MsFlex.CellBackColor
        End 
If
        MyExcel.ActiveSheet.Cells(11).Interior.Pattern xlSolid
        MyExcel
.ActiveSheet.Cells(11).BorderAround 1xlThinxlColorIndexAutomatic
        MyExcel
.ActiveSheet.Cells(11).Value MsFlex.TextMatrix(RC)
    
    Next C

Next R
MyExcel
.Visible True
Set MyExcel 
Nothing 
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
#2
شكرا لك أخي فكرة جميلة
الرد }}}
تم الشكر بواسطة:
#3
جزاكم الله الصحة و العافية
الرد }}}
تم الشكر بواسطة:
#4
جزاك الله خيرا

[attachment=14882][attachment=14882][attachment=14882][attachment=14882]-أحتاج إلى مساعدة:
 كيف يمكن عمل استعلام للجدول الموجود في الجدول 01
ليعطينا الجدول الجدول 02 مع أحداث حقل جديد
 بإسم "العدد" يوضع فيه عدد الجنسيات
 
-البيانات معروضة في أدات Msflexgrid  في فيجوال بازيك 6
الرد }}}
تم الشكر بواسطة:
#5
فعلا فكرة ممتازة
مجهود مشكور أخي الكريم
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow [كود] برمجةالاداة combobox مع الاداة Adodc لللبحث و الاستعراض من قاعدة البيانات alaanet_system@yahoo.com 0 1,544 05-05-20, 01:23 AM
آخر رد: alaanet_system@yahoo.com
  [سؤال] كود البحث داخل قاعدة البيانات Hussein alsaqqaf 9 5,471 15-02-17, 11:59 PM
آخر رد: Hussein alsaqqaf

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


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