VBA快速入门2班【1-70】号第一讲作业上交帖

YYLME · 发表于 2010-12-8 22:02

刚刚忘记上传附件了。。。加在上面了

skslwz · 发表于 2010-12-9 10:52

游客，如果您要查看本帖隐藏内容请回复

[此贴子已经被薄荷蓝于2010-12-11 9:58:22编辑过]

xjqyam · 发表于 2010-12-9 11:08

游客，如果您要查看本帖隐藏内容请回复

xjqyam · 发表于 2010-12-9 11:16

游客，如果您要查看本帖隐藏内容请回复

[此贴子已经被作者于2010-12-9 11:59:40编辑过]

xjqyam · 发表于 2010-12-9 11:57

游客，如果您要查看本帖隐藏内容请回复

作业下载错了，请老师原谅，谢谢

么尤 · 发表于 2010-12-9 19:54

游客，如果您要查看本帖隐藏内容请回复

一把刀 · 发表于 2010-12-10 19:18

游客，如果您要查看本帖隐藏内容请回复

<table width="504" cellspacing="0" cellpadding="0" border="0"><col span="7" width="72" style="width: 54pt;"></col>
<tbody><tr height="19" style="height: 14.25pt;">
 <td height="19" width="288" colspan="4" class="xl22" style="height: 14.25pt; width: 216pt;">录制宏来设置单元格字体格式</td>
 <td width="72" style="width: 54pt;"> </td>
 <td width="72" style="width: 54pt;"> </td>
 <td width="72" style="width: 54pt;"> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;">1录制宏</td>
 <td colspan="2">Sub Macro1()</td>
 <td> </td>
 <td> </td>
 <td> </td>
 <td> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;"> </td>
 <td>'</td>
 <td> </td>
 <td> </td>
 <td> </td>
 <td> </td>
 <td> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;"> </td>
 <td colspan="2">' Macro1 Macro</td>
 <td> </td>
 <td> </td>
 <td> </td>
 <td> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;"> </td>
 <td colspan="4">' 宏由 jason 录制，时间: 2010-12-10</td>
 <td> </td>
 <td> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;"> </td>
 <td>'</td>
 <td> </td>
 <td> </td>
 <td> </td>
 <td> </td>
 <td> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;"> </td>
 <td colspan="2">' 快捷键: Ctrl+s</td>
 <td> </td>
 <td> </td>
 <td> </td>
 <td> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;"> </td>
 <td>'</td>
 <td> </td>
 <td> </td>
 <td> </td>
 <td> </td>
 <td> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;"> </td>
 <td colspan="3">   
 With Selection.Font</td>
 <td> </td>
 <td> </td>
 <td> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;"> </td>
 <td colspan="3">        .Name = "宋体"</td>
 <td> </td>
 <td> </td>
 <td> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;"> </td>
 <td colspan="4">        .FontStyle = "加粗"</td>
 <td> </td>
 <td> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;"> </td>
 <td colspan="3">        .Size = 12</td>
 <td> </td>
 <td> </td>
 <td> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;"> </td>
 <td colspan="4">        .Strikethrough = False</td>
 <td> </td>
 <td> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;"> </td>
 <td colspan="4">        .Superscript = False</td>
 <td> </td>
 <td> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;"> </td>
 <td colspan="3">        .Subscript = False</td>
 <td> </td>
 <td> </td>
 <td> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;"> </td>
 <td colspan="4">        .OutlineFont = False</td>
 <td> </td>
 <td> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;"> </td>
 <td colspan="3">        .Shadow = False</td>
 <td> </td>
 <td> </td>
 <td> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;"> </td>
 <td colspan="5">        .Underline = xlUnderlineStyleNone</td>
 <td> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;"> </td>
 <td colspan="4">        .ColorIndex = xlAutomatic</td>
 <td> </td>
 <td> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;"> </td>
 <td colspan="2">   
 End With</td>
 <td> </td>
 <td> </td>
 <td> </td>
 <td> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;"> </td>
 <td>End Sub</td>
 <td> </td>
 <td> </td>
 <td> </td>
 <td> </td>
 <td> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;">2修改宏</td>
 <td> </td>
 <td> </td>
 <td> </td>
 <td> </td>
 <td> </td>
 <td> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;"> </td>
 <td colspan="3">        .Name = "宋体"</td>
 <td> </td>
 <td> </td>
 <td> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;"> </td>
 <td colspan="4">        .FontStyle = "加粗"</td>
 <td> </td>
 <td> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;"> </td>
 <td colspan="3">        .Size = 12</td>
 <td> </td>
 <td> </td>
 <td> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;"> </td>
 <td colspan="5">        .Underline = xlUnderlineStyleNone</td>
 <td> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;"> </td>
 <td colspan="4">        .ColorIndex = xlAutomatic</td>
 <td> </td>
 <td> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;"> </td>
 <td> </td>
 <td> </td>
 <td> </td>
 <td> </td>
 <td> </td>
 <td> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;">3理解</td>
 <td colspan="4">        .Strikethrough = False</td>
 <td> </td>
 <td> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;"> </td>
 <td colspan="4">        .Superscript = False</td>
 <td> </td>
 <td> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;"> </td>
 <td colspan="3">        .Subscript = False</td>
 <td> </td>
 <td> </td>
 <td> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;"> </td>
 <td colspan="4">        .OutlineFont = False</td>
 <td> </td>
 <td> </td>
</tr>
<tr height="19" style="height: 14.25pt;">
 <td height="19" style="height: 14.25pt;"> </td>
 <td colspan="3">        .Shadow = False</td>
 <td colspan="2">多余代码可删除</td>
 <td> </td>
</tr>
</tbody></table>[/hide]

[此贴子已经被作者于2010-12-10 19:19:56编辑过]

wangxiaoming · 发表于 2010-12-11 17:28

<div style="FLOAT: left;"><img alt="发贴心情" src="http://www.excelpx.com/skins/Default/topicface/face1.gif"/></div>VBA快速入门1班008号wangxiaoming交作业

wangxiaoming · 发表于 2010-12-11 17:36

游客，如果您要查看本帖隐藏内容请回复

[此贴子已经被zhh823543于2010-12-15 12:40:37编辑过]

ANHUIYINAN · 发表于 2010-12-11 21:10

请老师多指教！请同学们多帮助！

游客，如果您要查看本帖隐藏内容请回复

[此贴子已经被zhh823543于2010-12-15 12:40:55编辑过]

		自动登录	找回密码
密码			注册

VBA快速入门2班【1-70】号第一讲作业上交帖

VBA快速入门2班047号skslwz交作业

VBA快速入门2班054号xjqyam交作业

VBA快速入门2班054号xjqyami交作业

VBA快速入门2班008一把刀交作业

VBA快速入门1班008号wangxiaoming交作业

VBA快速入门2班048号:ANHUYINAN交作业