如何在excel 插入vba 代码？

Question

在论坛问了人要了个excel 代码，但不知正确的插入代码的方式，有没哪位可以给个具体方法？ 代码如下
Sub 设置格式()
Dim sht As Worksheet, Rng As Range
For Each sht In ThisWorkbook.Worksheets
For Each Rng In sht.Range("E6:E36")
If Rng.Value < 4 And Rng <> "" Then
Rng.Interior.Color = RGB(235, 238, 108)
Else
Rng.Interior.Color = xlNone
End If
Next
Next
End Sub

Answer 1

打开excel，Alt+F11，打开VBA编辑器，左侧工程，找到你需要插入代码的表格，如sheet1，右键查看代码，把代码拷进去

保存，点运行，就是那个三角小箭头

追问

为何我按照这个步骤后出现这样？ 我要每个工作表都能自动实现一个功能，E6 往下的单元格少于4的都高亮显示

追答

需要在ThisWorkbook中放入代码：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim sht As Worksheet, rng As Range

For Each sht In ThisWorkbook.Worksheets

    For Each rng In sht.Range("E6:E36")

        If rng.Value < 4 And rng <> "" Then

            rng.Interior.Color = RGB(235, 238, 108)

        Else

            rng.Interior.Color = xlNone

        End If

    Next

Next

End Sub

Answer 2

•方法一:利用INSRET方法基本方法,如下面的代码所示。 Sub MyInSertRows_1() Dim i As Integer For i = 1 To 3 Sheets ("Sheet1")....
•方法二:还可以使用引用多行的方法,如下面的代码所示。 Sub MyInSertRows_2() Sheets("Sheet1"...
•方法三:也可以直接指定相应行再调整行数后插入空行,如下面的示例代码: Sub MyInS...