Скачать
تصميم نظام رصد درجات الطلاب ج5
Автор: Excelgy
Загружено: 2023-12-23
Просмотров: 375
Описание:
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
Доступные форматы для скачивания:
Скачать видео mp4
-
Информация по загрузке:
