تصميم نظام رصد درجات الطلاب ج5

https://www.mediafire.com/file/zpjb3n... Sub cards() Dim lr3 As Long lr3 = sh3.Cells(Rows.Count, 1).End(xlUp).Row For i = 3 To lr3 shCard.Range("d12") = sh3.Cells(i, 3) shCard.Range("h12") = sh3.Cells(i, 2) m = 5 For k = 15 To 47 Step 3 shCard.Cells(k, 7) = sh3.Cells(i, m) shCard.Cells(k + 1, 7) = sh3.Cells(i, m + 1) shCard.Cells(k + 2, 7) = sh3.Cells(i, m + 2) m = m + 3 Next shCard.Range("g48") = sh3.Cells(i, 38) shCard.PrintPreview Next End Sub