经验直达：
- excel中vb编程
- excel里编入vb代码
一、excel中vb编程
【excel里编入vb代码 excel中vb编程】Sub o()
k = (Cells(8, 7) - Cells(2, 7)) / (Cells(8, 6) - Cells(2, 6))
Mink = kMinx = Cells(8, 6): Miny = Cells(8, 7)
Maxk = kMaxx = Cells(8, 6): Maxy = Cells(8, 7)
x = Cells(2, 6): y = Cells(2, 7)
For i = 1 To 6
For j = i1 To 7
k = (Cells(li, 7) - Cells(lj, 7)) / (Cells(li, 6) - Cells(lj, 6))
If k < Mink Then Mink = k: Minx = Cells(li, 6): Miny = Cells(li, 7)
If k > Maxk Then Maxk = k: Maxx = Cells(1i, 6): Maxy = Cells(li, 7)
Next j
Next i
Cells(9, 6) = Maxk: Cells(9, 7) = MinkMaxb = Miny - Mjnk * Minx: Cells(10, 6) = MaxbMinb = Maxy - Maxk * Maxx: Cells(10, 7) = Minbn = Cells(2, l)
For i = 1 To n
k = Cells(2, 2)
b = Cells(2, 3)
min2 = 0
For j = 1 To 7
min2 = min2(Cells(lj, 7) - (k * Cells(lj, 6)b)) * (Cells(lj, 7) - (k * Cells(lj, 6)b))
Next j
If i = 1 Then Min = min2: kk = k: bb = b
If min2 < Min Then Min = min2: kk = k: bb = b
Next i
Cells(3, 2) = kk: Cells(3, 3) = bb
Cells(3, 4) = Min
End Sub
如上面，如果不出现分母为0时，程序不会报错的 。
二、excel里编入vb代码
先点击“开发工具”-“插入”-“表单控件”-“按钮”，用鼠标拖出一个按钮，在弹出来的“指定宏”对话框点击“新建”，输入如下代码：
Sub 按钮1_Click()
If Rows(8).Hidden = True And Rows(10).Hidden = True And Rows(12).Hidden = True Then
Rows(8).Hidden = False
Rows(10).Hidden = False
Rows(12).Hidden = False
Else
Rows(8).Hidden = True
Rows(10).Hidden = True
Rows(12).Hidden = True
End If
End Sub