excel表格代码怎么写

1.熟悉EXCEL表格的,帮忙写下代码,50分

Sub s() For r = 8 To Cells(Rows.Count, 2).End(3).Row - 5 a = "": b = "": c = 10 + 9 * ((r - 8) Mod 5) For i = 1 To 5 For j = 1 To 6 If Cells(r + i, c + j).Interior.ColorIndex = 37 Then a = a & i Exit For End If Next Next For j = 1 To 6 For i = 1 To 5 If Cells(r + i, c + j).Interior.ColorIndex = 37 Then b = b & j Exit For End If Next Next Cells(r, 56) = a Cells(r, 57) = b NextEnd Sub。

2.怎样在EXCEL 文件中用代码

从学校上报的电子表格文件里，我发现一个比较拙劣的做法：当需要打印的文件超过一页时，又想让每页都显示眉头文字（比如“xx学校教师名册”），有人采取的是将这行文字复制，不停地在以后的每页上方粘贴。

实际上根本没有这个必要！好好想一下，如果电脑软件还必须这样去操作，那设计者就实在是太笨了。现存教一招-- 先新建一个excel表，在第一行录入“xx学校教师名册”（根据表所需的列数将这行合并居中），在第二行相关列填入“姓名”、“性别”、“出生年月”、“工作单位”等，然后，录入所有数据，调整好行高和列宽。

再单击“文件”--页面设置--工作表，把光标放到“顶端标题行”，然后用鼠标从第一行拖到表格第二行的最后一列。这时，在“顶端标题行”会出现“$1:$n”(n是表格的列数)，说明设置成功。

你再预览一下试试！不停地点“下一页”，则每页都会显示你需要的“xx学校教师名册”标题了。