[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