最新“流、梳、毓”等三则学习资料.doc

《最新“流、梳、毓”等三则学习资料.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、流梳毓【溜一口】本组三字同“流”，(hu)声，三字读音都不同。三点流水清又清，木头梳子日常用。毓是生养每为形，钟灵毓秀出贤能。词语流河流流动流畅流传流芳流星赶月梳梳子梳妆梳洗毓（生育；养育）钟灵毓秀（指美好的自然环境产生优秀的人物）湄嵋楣媚【溜一口】本组四字同眉声，字音相同请放心。水旁岸边三点湄，四大名山有峨嵋。门头横木叫门楣，女子妩媚姿容美。词语湄（水边，岸旁）嵋峨嵋山（在四川）楣门楣（门框上边的横木）媚妩媚媚世（讨好世俗）媚外（对外国人奉承巴结）：崇洋媚外哞眸侔【溜一口】牟声三字皆mou音，口旁哞哞牛叫声。目旁眸子是

2、眼睛，单人相侔同相等。Subdirect_Price()''定义变量DimcRowsAsInteger'总行数DimcColumnsAsInteger'总列数DimHEADERCOLORINDEXAsInteger'表头的背景色DimcTempAsInteger'临时计数DimsTempStringAsString'临时字符串变量DimiAsInteger'临时计数DimjAsInteger'临时计数DimrowIndexAsInteger'临时指示处理到哪里DimcolIndexAsInteger'临时指示处理到哪里D

3、imtempRndColorAsInteger'临时生成的颜色DimTABLENAMEAsString'待处理的表名DimcolorIndexAsString'颜色索引名字'表头的背景色HEADERCOLORINDEX=15colorIndex=36'颜色从33开始是比较浅的颜色TABLENAME="direct_Price"'关闭所有弹出的警告消息Application.DisplayAlerts=False'设置需要处理的单元表Sheets(TABLENAME).Select'取单元表的总列数与总行数cRows=Sh

4、eets(TABLENAME).UsedRange.Rows.CountcColumns=Sheets(TABLENAME).UsedRange.Columns.Count'''''选择所有的单元格Range(Cells(1,1),Cells(cRows,cColumns)).Select'设置该表中所有单元行高为11.25Selection.RowHeight=11.25'设置该表中所有单元行高为11.25Selection.RowHeight=11.25'设置所有的边框Selection.Borders(xlDiag

5、onalDown).LineStyle=xlNoneSelection.Borders(xlDiagonalUp).LineStyle=xlNone