"宋体","幼圆")(Int(Rnd()*3))EndWithNextiNextrEndSub我没有你那些字体，随便选的，你要学懂rnd、int函数的随机数上下限使用。

录制宏其实很简单，视图>宏>录制宏>在名称框给宏定义个名字>确定，然后开始设置你所需要的字体大小，一步一步的完成后点击停止录制，然后你查看宏，点到你定义的名字上双击或运行宏，也就得到你在录制时所要得到的效果，...

1、录制宏：“工具”→“宏”→“录制新宏”，然后像平时操作一样设置字体大小、颜色、背景色或其他操作。录制完成后点击录制宏工具条中的“￭”按钮结束。2、编辑宏：“工具”→“宏”→“宏”，然后选中刚才录...

录制宏其实很简单，视图>宏>录制宏>在名称框给宏定义个名字>确定，然后开始设置你所需要的字体大小，一步一步的完成后点击停止录制，然后你查看宏，点到你定义的名字上双击或运行宏，也就得到你在录制时所要得到的效果，...

读取或设置属性Range("A1").Characters([Start][,Lenth]).Font.ColorindexRange("A1").Characters([Start][,Lenth]).Font.Color例如下例设置A1的第一个字符为红色Range("A1").Characters(1,1).Font.Colorind

Range("a1").Font.Size=18这个语句是设置A1单元格字体大小为18的。

解决办法：1.用ALT+F11打开代码窗口然后删除WORKBOOK或者该WORKSHEET里边的宏代码。2.按F5，定位条件→选对象→确定，把图表对象删除。3.修改注册表来预防系统默认自动缩放字体。对于已经存在错误的工作表，可以通过修改图表格式-...

IfAsc(Mid(str1,i,1))>AndAsc(Mid(str1,i,1))<91OrAsc(Mid(str1,i,1))>96AndAsc(Mid(str1,i,1))<123OrAsc(Mid(str1,i,1))>47AndAsc(Mid(str1,...

是不是真的？

Suba()ForEachrngInUsedRangeIfInStr(1,LCase(rng),"over",3)>0Theni=InStr(1,LCase(rng),"over",3)+4Forj=iToLen(rng)IfMid(rng,j,1)Like"...