[محمد اسماعيل]

(14-10-18, 06:55 AM)asemshahen5 كتب : أضف عامود للداتاغريد يكون من نوع تشك بوكسل ليكن رقم 0 ثم ضع عدل السطور التالية :

كود :

For I = 0 To rowsTotal
    For j = 1 To colsTotal '- 1
        If DATAG.Rows(I).Cells(0).Value = True Then
           .Cells(I + 2, j + 1).value = DATAG.Rows(I).Cells(j).Value
        End If
    Next j
Next I

انا من نفس فكرتك قمت بالكود دة و

كود :

   For I = 0 To rowsTotal
                   For j = 0 To colsTotal - 1
                       If .Rows(I).Cells(0).Selected = True Then
DATAG.Cells(I + 2, j + 1).value = DATAG.Rows(I).Cells(j).Value
                       End If
                   Next j
               Next I

اشتغل بس المشكلة ان الصفوف غير محددة بتظهر فارغة بالاكسيل عايز ارجع امسح الغير محدد