hashemhamedani
سه شنبه 03 آبان 1390, 15:16 عصر
با سلام rownum = 1
pagenum = 1
sumflag = 0
FormatCell 3, 1
Worksheets("Template").Select
ActiveSheet.Range(ActiveSheet.Cells(1, 1), ActiveSheet.Cells(1, Worksheets("Data").Cells(1, 6))).Merge
ActiveSheet.Range(ActiveSheet.Cells(2, 1), ActiveSheet.Cells(2, Worksheets("Data").Cells(1, 6))).Merge
ActiveSheet.Cells(1, 1) = Worksheets("Data").Cells(1, 3) + " " + Worksheets("Data").Cells(1, 1)
فايل اكسل داراي دو sheet به نام Data و Template است ماكرو زير در خط 6 خطا ميده چرا؟
pagenum = 1
sumflag = 0
FormatCell 3, 1
Worksheets("Template").Select
ActiveSheet.Range(ActiveSheet.Cells(1, 1), ActiveSheet.Cells(1, Worksheets("Data").Cells(1, 6))).Merge
ActiveSheet.Range(ActiveSheet.Cells(2, 1), ActiveSheet.Cells(2, Worksheets("Data").Cells(1, 6))).Merge
ActiveSheet.Cells(1, 1) = Worksheets("Data").Cells(1, 3) + " " + Worksheets("Data").Cells(1, 1)
فايل اكسل داراي دو sheet به نام Data و Template است ماكرو زير در خط 6 خطا ميده چرا؟