vba运行以下命令： SubCaption_Macro() 'ChangestheCaptionpropertyofthefirstwindow Windows(1).Caption="Window1" 'Settingthattheworkbookhaschanged. ActiveWorkbook.Saved=False EndSub

方法/步骤 启动Excel2003（其它版本请仿照操作），打开相应的工作表； 执行“工具→宏→VisualBasic编辑器”命令（或者直接按“Alt+F11”组合键），进入VisualBasic编辑状态； 执行“插入→模块”命令，插入一个新模块。再双击插入的模块，进入模块代码编辑状态； 将代码输入其中； Functionpinyin(pAsString)AsString i=Asc(p)

1.将文字颠倒顺序 复制正常顺序对象→在字体前加@→点击向下旋转文字→点击自动换行 2.制作打钩方框 输入"R"→设置字体为Wingdings2 3.给汉字标注拼音 标注拼音→输入汉字→选择拼音设置→居中→编辑拼音→输入拼音→显示拼音字符 4.插入带音调的拼音 标注带音调的拼音→插入-符号→拉丁语扩充-B→输入带音调的拼音（备注：动图中“们”应为第二声。） 5.用斜线分割单个单元格 选中对象→插入形状（直线）→ALT鼠标快速定