تقييم الموضوع :
  • 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
السلام عليكم,

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  باستخراج من قاعدة البيانات بشرط listbox items rabeh.ram 0 72 19-05-17, 01:56 PM
آخر رد: rabeh.ram
  استيراد البيانات من الاكسيل salah mansour 1 55 18-05-17, 06:28 AM
آخر رد: khaled12345
  قاعدة البيانات تاكل التحديثات rabeh.ram 7 130 14-05-17, 11:01 AM
آخر رد: rabeh.ram
  [سؤال] كيفية حفظ صورة بصيغة pdf الى قاعدة البيانات مصطفى_ظيمة 17 288 13-05-17, 01:06 PM
آخر رد: مصطفى_ظيمة
  عند استدعاء تقرير يطلب مني كلمة السر لقاعدة البيانات samawi 3 109 05-05-17, 10:24 PM
آخر رد: samawi
  [سؤال] بخصوص ادخال التاريخ الى قاعدة البيانات Abdulaziz Hazazi 7 228 05-05-17, 03:13 PM
آخر رد: وسام احمد ابراهيم
Photo [سؤال] بحث في قاعده البيانات من خلال combobox سنان عبدالله سنان 2 90 02-05-17, 01:20 AM
آخر رد: ابو ليلى
  [سؤال] هل يمكن جمع قيمة من تكست مع حقل في قاعدة البيانات كود برمجي 6 126 29-04-17, 11:44 PM
آخر رد: rmlq
  حفظ قاعدة البيانات sql كاصدار قديم atefkhalf2004 3 106 20-04-17, 07:15 AM
آخر رد: عبـدالله
  مشكلة في اضافة كافة حقول الـ DGV الى قاعدة البيانات كود برمجي 11 316 18-04-17, 11:03 PM
آخر رد: كود برمجي

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


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