vba快速录入对应学生成绩 如何在excel中用vb？

如何在excel中用vb？你是指用Excel内置的VBA编程还是用VB处理Excel文档或控制Excel？如果是前者，那么可以按Alt F11打开VB界面，输入代码开始编程。后者可以以Excel文档或

如何在excel中用vb？

你是指用Excel内置的VBA编程还是用VB处理Excel文档或控制Excel？如果是前者，那么可以按Alt F11打开VB界面，输入代码开始编程。后者可以以Excel文档或Excel应用程序为对象进行相应的操作。至于怎么做，这里不是一两句话就能说清楚的，甚至一两本书的容量也不一定说得完。

你可以自己查Exc

excelvba获取文本框的值怎么获取啊？

类似于表单控件，可以使用以下方法:在文本框获得焦点的每个事件中，将文本框的名称赋给X(X应该是全局变量)，比如private textbox1 _ gotfocus () x sub。

vba 录入语句？

1/8点击Excel表格菜单栏上的【开发工具】，【Visual Basic】打开VBA编辑器。

2/8点击VBA编辑器菜单栏上的[插入]和[模块]。

3/8在代码框中输入代码:

子匹配端口()

Dim i，j，m，k As Long amp#39数据类型定义

模糊消息、样式、标题、回复

如果在操作过程中出现错误，忽略它。

设置工作表1 (# 34工作表1 # 34)和# 39定义工作表。

设置工作表2 (# 34工作表2 # 34)和# 39定义工作表。

Msg #34该用户信息已经存在。您想替换它吗？#34

显示三个按钮:是，否和取消。

标题#34提示#34

m (mysh:A1000#34)，0)

Amp#39计算细胞的位置。

如果m gt 1 Then amp#39如果已经存在于数据表中，会弹出一个提示窗口，然后进行选择。

Ansmsgbox(消息，样式，标题)amp # 39弹出提示

如果ans vbYes那么amp # 39 If "是的 "被选中，原始表中的数据将被替换。

对于j 1至4，amp#39填充单元格所在的1-4列。

mysheet2。细胞(m，j) mysheet1。细胞(j 1，2)

然后

如果…就会结束

If ans vbnotthen amp # 39 If "不 "被选中时，将在原始表格中找到空白单元格进行写入。

对于k 2到1000

如果我的sheet2。单元格(k，1) #34#34然后

对于j 1至4

mysheet2。细胞(k，j) mysheet1。细胞(j 1，2)

然后

为...退出

如果…就会结束

然后

如果…就会结束

否则如果它不 t不存在，在原始数据表中找一个空行来填写。

对于k 2到1000

如果我的sheet2。单元格(k，1) #34#34然后

对于j 1至4

mysheet2。细胞(k，j) mysheet1。细胞(j 1，2)

然后

为...退出

如果…就会结束

然后

如果…就会结束

末端接头

4/8返回到Sheet1工作表界面，单击菜单栏上的[插入]，选择 "矩形 "在形状中插入它到表格中，然后填入所需的颜色和文字。

右键单击绘制的矩形并选择 "指定宏。

6/8选择已经写在 "指定宏对话框，如:MatchIput。

7/8在要输入的区域中输入信息，然后单击Enter输入信息。

8/8如果输入的信息(名称)已经存在于原始表格中，将弹出提示信息，然后进行选择。

如果选择是，将替换原有信息；如果选择否，将增加一行新信息；如果选择“取消”，将不会输入任何信息。