EXCEL VBA的问题

来源：百度知道编辑：UC知道时间：2024/05/10 11:53:43

Public aim As Worksheet
Private Sub Cancel_Click()
Me.Hide
End Sub

Private Sub OK_Click()
If cop.Value = "" And men.Value = "" Then
MsgBox "至少输入单位名称或联系人中的一项" + _
Chr(10) + "才能建立记录"
Exit Sub
End If

Dim rowindex As Integer
rowindex = aim.Range("A1").CurrentRegion. _
Rows.Count + 1
aim.Cells(rowindex, 1) = cop.Value
aim.Cells(rowindex, 2) = men.Value
aim.Cells(rowindex, 3) = phone.Value
aim.Cells(rowindex, 4) = fox.Value
aim.Cells(rowindex, 5) = add.Value
aim.Cells(rowindex, 6) = judge.Value
aim.Cells(rowindex, 7) = area.Value
aim.Cells(rowindex, 8) = intro.Value

cop.Value = ""
men.Value = ""
phone.Value = ""
fox.Value = ""
add.Value = "

MultiPage 是一个多页控件，不过新添加的控件一般会命名为“MultiPage1”“MultiPage2”这样，你可以选中你的多页控件，然后用鼠标单击一下四周的虚框就可以在属性窗口中查看或修改它的名称。

pages("page1")是它的一个页面对象，“page1”是这个页面的名称，应该把这个改为你的名称。

excel vba 的问题 EXCEL的VBA问题 excel vba ontime的问题 excel中VBA的问题简单的EXCEL VBA问题！关于EXCEL的VBA的问题关于一个excel vba编程的问题 Excel VBA的一个基本问题关于EXCEL中的VBA的问题关于EXCEL中VBA的问题