WPS中利用VB实现简单快速的录入工作

　1、打开WPS表格程序，切换到“开发工具”选项卡，点击“说明”按钮，此时将打开说明窗口。

2、此此将d出“说明”窗口，在此根据实际需要点击“专业版”或“商业版”链塌腔燃接按钮，并在d出的如图所示。

3、此时将打开WPS专业版程序，待下载完成后，就会发现WPS开发工具选项变成可用状态。

4、点击“VB编辑器”进入VBA环境，在此就可以使用WPS更加强大的扩展功能啦。在此小编以创建自定义函数为例，讲解一下VB编辑环境的具体使用方法。

5、右击“WPS表格”对象，从d出的右键菜单中选择“插入”-》“模块”项来插入一个用户模块。

6、在团虚此模块编辑界面中，输入以下代码：

Function 求最大值(i As Integer, j As Integer)

If i >j Then

求最大值 = i

Else:

求最大值 = j

End If

End Function

7、最后返回WPS表格界面圆岩，输入公式“=求最大值(3,5)”，即可得输出结果“5”。

Dim a(6) As String

Dim b(6) As Integer

Dim c As String

Dim d As Integer

Dim e As Boolean

Dim n As Integer

Private Sub Command1_Click()

If n <= 6 Then

a(n) = InputBox("灶谨请输入姓名")

b(n) = InputBox("请输入分数")

n = n + 1

Else

n = 0

c = MsgBox("提尺辩含示：已到人数上限", vbOKCancel, "提示")

End If

End Sub

Private Sub Command2_Click()

Cls

For i = 0 To 5

e = True

For j = 0 To 5

If b(j) <陵笑 b(j + 1) Then

c = a(j)

a(j) = a(j + 1)

a(j + 1) = c

d = b(j)

b(j) = b(j + 1)

b(j + 1) = d

e = False

End If

Next j

If e Then

Exit For

End If

Next i

For i = 0 To 5

Print a(i), b(i)

Next i

n = 0

End Sub

望采纳。。。。

把ACCESS在局域网郑吵兄专门有台电脑共享,然后在VB程序中指定这个文件的碰斗目录,然后在其他机器把该共享的目录映射为本地磁盘Z(越后面的盘符越好),把程序的数据库路径改为 z:/数喊袭据库名就可以啦.

---