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

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] حل مشكلة الاتصال بقواعد البيانات access loay775 2 158 25-02-24, 06:29 AM
آخر رد: loay775
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
  [VB.NET] منع تكرار البيانات في عند الادخال مبرمج صغير 1 2 255 24-01-24, 05:18 PM
آخر رد: مبرمج صغير 1
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 275 18-01-24, 05:04 PM
آخر رد: loay775
  [VB.NET] إعادة استدعاء البيانات من قاعدة بيانات اكسس والاهم الصورة مبرمج صغير 1 1 273 13-01-24, 01:17 PM
آخر رد: مبرمج صغير 1
  حماية عمود داخل ورقة الاكسل العيدروس 3 190 05-01-24, 12:21 AM
آخر رد: HALIM ELEULMA
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  جملة الاتصال بقاعدة البيانات اكسس محمد خيري 4 364 12-12-23, 03:14 AM
آخر رد: محمد خيري
  كود الاتصال بقاعدة البيانات sqlserver strongriseman 2 421 29-11-23, 09:25 PM
آخر رد: العتيق
Heart [VB.NET] كيفية جعل الدتاجريديد فيو تظهر عندما تكون قاعدة البيانات فارغه الحزين اليماني 1 371 22-11-23, 05:31 PM
آخر رد: justforit

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


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