الي الزملاء خبراء المنتدى المتخصصون في كتابة الاكواد
اثناء بحثى وجدت في احد المنتديات الاجنبية هذة الاكواد والتى تخص طلب الاستاذ هشام في تكرار صفوف اسفل الصفحة على حد علمى البسيط بكتابة الاكواد
اتمنى من الله ان يكون فيها بداية الطريق لحل هذه المشكلة
الكود الاول
Sub Macro1()
Dim StrFtr As String
StrFtr = Range("A55") & vbLf & Range("A56") & vbLf & Range("A57")
ActiveSheet.PageSetup.LeftFooter = StrFtr
End Sub
الكود الثاني
Sub MyFooter()
Dim StrFtr As String, Rng As Range, Sh As Worksheet, c As Range
Set Sh = Worksheets("Sheet5")
Set Rng = Sh.Range("A55:G55")
For Each c In Rng
StrFtr = StrFtr & c & " "
Next c
ActiveSheet.PageSetup.LeftFooter = StrFtr
End Sub
الكود الثالث
Sub Footer()
Dim StrFtr As String
StrFtr = Range("A1") & Range("A2") & Range("B1")
Dim MyString As String
MyString = "A1" & Space(10) & "A2" & Space(10) & "B1"
ActiveSheet.PageSetup.LeftFooter = StrFtr
End Sub