别看我就是一只羊
如何下载免费的word、Execl？大家好！请问如何下载免费的w - 爱问知
Microsoft Office 2000 soft.rzzyk.com/Soft/Soft_1733.htm Microsoft Office XP SP3 简体中文版（不需安装光盘） （该版本不需要原Office XP安装光盘）Office XP Service .Microsoft Office 2003 简体中文迷你第4版 Microsoft Office 2003 简体中文最终完美版 4Microsoft Office 2003 简体中文正式版免激活版 office 2003 微软Office2003简体中文免费免激活版（ISO）。
EXCELVBA的问题请下载附件帮忙看看如能帮到我再追加100分 爱问
Sub yueliang1() Application。
ScreenUpdating = False Columns("A:A")。AutoFilter Columns("A:A")。
AutoFilter Field:=1, Criteria1:="=imes", Operator:=xlOr, Criteria2:="=Tipico" Range("A2:A8000")。 Font。
ColorIndex = 5 Columns("A:A")。AutoFilter Field:=1, Criteria1:="=Canbet", Operator:=xlOr, Criteria2:="=Trio" Range("A2:A8000")。
Font。ColorIndex = 5 Columns("A:A")。
AutoFilter Field:=1, Criteria1:="=tsafe" Range("A2:A8000")。Font。
ColorIndex = 5 Columns("A:A")。 AutoFilter Application。
ScreenUpdating = True End Sub 二三四依次为： Sub yueliang2() Dim i, j, N As Integer N = 5 For j = 0 To N - 1 For i = 1 To 200 If Application。 CountIf(Range(Cells(1 + 200 * j, 2), Cells(200 + 200 * j, 2)), Cells(i + 200 * j, 2)) = 1 Then Cells(i + 200 * j, 2)。
Clear Next Next End Sub Sub yueliang3() Dim i, j As Integer For i = 1 To 2799 Step 200 For j = 1 To 2 Range(Cells(i, j), Cells(i + 198, j))。 AutoFilter Selection。
AutoFilter Field:=1, Criteria1:="10", Operator:=xlBottom10Items Range(Cells(i + 1, j), Cells(i + 198, j))。 Font。
ColorIndex = 3 Selection。AutoFilter Next Next End Sub Sub yueliang4() Dim i, j As Integer For i = 1 To 2799 Step 200 For j = 3 To 4 Range(Cells(i, j), Cells(i + 198, j))。
AutoFilter Selection。AutoFilter Field:=1, Criteria1:="10", Operator:=xlTop10Percent Range(Cells(i + 1, j), Cells(i + 198, j))。
Font。ColorIndex = 10 Selection。
AutoFilter Next Next End Sub。
word如何使用vba
1、在Word中打开你需要处理的doc文档；
2、键入ALT+F11;
3、在出现的VBA窗口中，粘贴你下载的代码；
4、把键盘光标放到入口函数中任意一行代码上（如果你不知道是什么地方，可以把代码贴上来看看）；
5、键入F5运行；
6、切换回doc文档窗口看效果。
补充：
哦，可能是因为你目前还没有任何宏所以才看到这样的灰色一片。
那就这样，现在左边的工程里面有个“Normal”吧？展开它后有个“模块”节点吧？在这个“模块”节点上点鼠标右键，选择“插入-模块”。这样右边就会出现代码窗口了。然后再按照上面步骤3-6。
如果还不清楚可以继续补充提问或发我信息。
