作者:乔山办公网日期:
返回目录:excel表格制作
So easy! 提供思路,具百体代码自度己去写!如还有问困难可以留言!
dim Wb as workbook,Mypath$,Filename$
Mypath去读取答路径,Filename去读取文件名,然回后用Getobject(Filename),再读取数答据就OK了!
宏代码如下百:
Sub Macro1()
Sheets("Sheet1").Select
Columns("A:C").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
再用绘图画个度距问形,鼠标右键点画答好的距形-指定宏-选内Macro1
单击容距形实现
假设:11输在A1开始的合并单元格内,右面的四个数分别在B1:B4
选中B1:B4,条件格式——输入公式B1=$A$1——格式设为“填充蓝色”。
.Offset(0, 1) = Workbooks(MyFile).Sheets(1).Range("D2")
这一句改为zhidao以下专两句即可:
set Ra=Workbooks(MyFile).Sheets(1).cells.find("合计属",,,1)
if not Ra is nothing then .Offset(0, 1) = Workbooks(MyFile).Sheets(1).Range("C"& ra.row)