تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تمدد اعمدة الاكسل عند نقل البيانات اليه
#1
برنامجي ينقل البيانات من الفيجول بيسك الى الاكسل ولكن احيانا عندما اقوم بنقل البيانات
مثلا لو كانت عندي شهادة لطالب معين وتصميم هذه الشهادة كصفحة واحده فقط
ولكن احيانا عندما انقر على زر الامر الذي يقوم بكتابة معدلات الطالب على الشهادة ينفذ الامر لكن عند فتح الشهادة اجد ان بعض الاعمدة فيها ممتد وهذا يؤدي الى جعل الشهادة على صفحتين

كيف استطيع تثبيت عرض العمود برمجيا او من خلال الاكسل يكون افضل
الرد }}}}
تم الشكر بواسطة:
#2
ممكن تعرض لنا كود نقل البيانات ؟
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#3
الكود طويل لكن هذا جزء منه
If (from = 2) Then
.Range(cell2).Font.Size = 12
.Range(cell3).Font.Size = 12

If (num >= 11 And (course = 8 Or course = 7)) Then
.Range(cell2).Value = result(sec_avg)
.Range(cell3).Value = result(tot_avg)

Else
.Range(cell2).Value = s_avg
.Range(cell3).Value = t_avg
End If
' .Range(cell3).Cells
End If


في جملة كتبتها وهي
.Cells(, "H").EntireColumn.ColumnWidth = 9.14
ولكن شكلها ما بتاثر كثير وكمان المشكلو انو صعب كل ما بدي اكتب في عمود بدي اكتب هاي الجملة
الرد }}}}
تم الشكر بواسطة:
#4
لا يوجد احد يعلم
الرد }}}}
تم الشكر بواسطة:
#5
أخي الكريم, من أين تنقل البيانات؟ هل من الـ (DataGridView) أم من قاعدة البيانات مباشرة أم من (Textbox)؟
الرد }}}}
تم الشكر بواسطة:
#6
أخي العزيز tecno2012,
وجدت لك هذا الكود في حال كنت تستخدم الـ (DataGridView) لتقوم بعملية الـ (Export), قم بتجربته و أخبرني:

PHP كود :
Dim excelBook As Excel.Workbook xlApp.Workbooks.Add
            Dim excelWorksheet 
As Excel.Worksheet CType(excelBook.Worksheets(1), Excel.Worksheet)
            
xlApp.Visible True
            rowsTotal 
DataGridView1.RowCount 1
            colsTotal 
DataGridView1.Columns.Count 1
            With excelWorksheet
                
.Cells.Select()
                .
Cells.Delete()
                For 
iC 0 To colsTotal
                    
.Cells(1iC 1).Value DataGridView1.Columns(iC).HeaderText
                Next
                
For 0 To rowsTotal 1
                    
For 0 To colsTotal 1
                        
.Cells(21).value DataGridView1.Rows(I).Cells(j).Value
                    Next j
                Next I
                
.Rows("1:1").Font.FontStyle "Bold"
                
.Rows("1:1").Font.Size 10
                
.Cells.Columns.AutoFit()
                .
Cells.Select()
                .
Cells.EntireColumn.AutoFit()
                .
Cells(11).Select()
            
End With 

إنتبه الى الكود
PHP كود :
.Cells.Columns.AutoFit() 
و ما يقوم بعمله هذا الكود.
الرد }}}}
تم الشكر بواسطة:
#7
البيانات احضرها من قاعدة البيانات وارسلها مباشرة الى الاكسل سؤال هل الجملة الاخيرة .Cells.Columns.AutoFit() تؤثر على عرض العمود اللي انا واضعوه
الرد }}}}
تم الشكر بواسطة:
#8
السلام عليكم,

نعم إنها تؤثر على عرض العمود الذي وضعته, حيث إنها تقوم بتغيير عرض العمود اوتوماتيكيا.

جرب الكود و أعطني النتيجة.

تحياتي
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عرض البيانات من قاعده البيانات لليوم الحالي. Rabeea Qbaha 0 33 أمس, 06:47 AM
آخر رد: Rabeea Qbaha
  [VB.NET] التجميع و الفرز قواعد البيانات tifagreet 4 65 19-01-17, 04:21 AM
آخر رد: tifagreet
  استفسار عن الجداول المتعددة في قاعدة البيانات اكسس أبووسم 4 129 14-01-17, 12:36 PM
آخر رد: أبووسم
  ياشباب ارجو منكم المساعده لدي مشاكل في اضافه الصورة الى قاعده البيانات وعمل بحث ammar ali 3 174 13-01-17, 11:15 PM
آخر رد: ammaraliali
  [VB.NET] استقبال البيانات عن طريق serail port engmedomed@gmail.com 1 70 11-01-17, 02:13 AM
آخر رد: مساعدة
  تصدير البيانات الى PDF باستخدام ITextSharp لايدعم اللغة العربية فاطمة غ 8 351 04-01-17, 12:00 AM
آخر رد: مساعدة
  تغيير قاعدة البيانات الى .bak صبري زينوبي 5 135 01-01-17, 02:33 PM
آخر رد: صبري زينوبي
  ماهو كود اضافة صفوف الداتا قرد الي قاعدة البيانات SQL SERVER معتز الجازوي 0 72 26-12-16, 05:13 AM
آخر رد: معتز الجازوي
  مساعده اريد كود لحذف عدد من الصفوف من الداتا قرد فيو وكذلك تنحذف من قاعدة البيانات معتز الجازوي 2 111 25-12-16, 01:44 PM
آخر رد: thevirus
  [VB.NET] اريد إضافة صورة للموظف في جدول أخر بنفس قاعدة البيانات أبووسم 11 569 18-12-16, 07:15 PM
آخر رد: أبووسم

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


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