第1个回答 2010-12-16
在这个目录C:\Program Files\MATLAB\R2009a\下建一个名为Area.xls的表格,关闭。
注意一定要让扩展名显示 然后再命令窗口运行
header=cell(1,2);
header{1,1}='filename';header{1,2}='Lissajous figure Area';
xlswrite('C:\Program Files\MATLAB\R2009a\Area.xls',header,'A','A1:B1');
Area1=0;ki=1
for i=1:5
Area1=Area1+i;ki=ki+1;
cellnames=['A',num2str(ki),':B',num2str(ki)]
tileH=['c25',num2str(ki)];
data{1,1}=tileH;data{1,2}=Area1;
xlswrite('C:\Program Files\MATLAB\R2009a\Area.xls',data,'A',cellnames);
end本回答被网友采纳
第3个回答 2010-12-16
用EXCEL中的VBA可以实现
Sub CzName()
Dim XlSheet As Worksheet
Dim MCol As Integer, MRow As Integer
Dim MenName As String, QzName As String
Set XlSheet = ActiveSheet '定义当前工作表为活动工作表
'查找名字所在列号,并选中该字段
For Each cel In XlSheet.UsedRange.Rows(1).Cells
If cel.Value = "名字" Then
MCol = cel.Column
XlSheet.Rows(1).Columns(MCol).Select
End If
Next
'弹出对话框输入要查找的名字
MenName = InputBox("请输入您要查找的名字:", , "")
For Each sht In XlSheet.UsedRange.Columns(MCol).Cells
QzName = sht.Value
If QzName = MenName Then
MRow = sht.Row
XlSheet.Rows(MRow).Columns(MCol).Select
End If
Next
'查找不以输入信息时系统自动增加一行将输入信息赋值给单元格
If ActiveCell.Value <> MenName Then
XlSheet.Cells(XlSheet.UsedRange.Rows.Count + 1, MCol).Value = MenName
End If
End Sub本回答被网友采纳