胡迪的博客

Sub 作业题方法一()'' 作业题方法一 Macro''Dim iCol As Integer, iColor As Integer '定义变量Columns(2).Interior.ColorIndex = 2 '将第2列的颜色设置为白色iColor = 1 '设置颜色索引值的初始值For iCol = 2 To 57 If Cells(iCol, 1) >= 0 Then '如果当前单元格的值>=0 Cells(iCol, 2).Interio

（1）vba 字符串换行的几种方法VBA中字符换行显示需要使用换行符来完成。下面是常用的换行符            'chr(10) 可以生成换行符            'chr(13) 可以生成回车符            'vbcrlf 换行符和回车符            'vbCr 等同于chr(10)            'vblf 等同于chr(13)

Sub 九九乘法表制作()Dim a!, b!For a = 1 To 9    For b = 1 To 9         If b > a Then        Sheet10.Cells(a, b) = ""        Else        Sheet10.Cells(a, b) = b & "*" & a & "=" & a * b       

同时不可能,依次可以,你可以新建一个sub c()call acall bend sub 运行宏c就会依次调用a和b

VBA入门的基础语句　　选择当前活动的工作簿:　　ThisWorkbook.Activate　　如果选择其他工作簿，注意该工作簿一定是打开的，并且不要忘记加上后缀“.xls” ，例如：　　Windows("Totol.xls").Activate　　选择一个工作表：　　Sheets("Balance").Activate.　　选择

如：要求清空sheet2表，保留表头（表头为A1至H1，表头为连续的）从第二行开始往下的非空单元格的全部内容，因为不知道非空区域大小，要求用VBA代码写1、清空单元格内容:sheets("sheet2").Range("2:65536").ClearContents2、删除单元格的内容:sheets("sheet2").Range("2:65536").Delete

一、用VBA代码清除单元格里的内容Range("a1:d10").ClearContents '清除A1:D10区域的公式/值Range("a1:d10").Clear'全清(值,格式,批注)代码如下：Sub clear()range("a1:d10").clearcontentsend Sub二、用VBA代码清除单元格的格式代码如下：Sub m()cell