如何在excel中用vb？
你是指用Excel内置的VBA编程还是用VB处理Excel文档或控制Excel？如果是前者，那么可以按AltF11打开VB界面，输入代码开始编程。后者可以以Excel文档或Excel应用程序为对象进行相应的操作。至于怎么做，这里不是一两句话就能说清楚的，甚至一两本书的容量也不一定说得完。
你可以自己查Exc
excelvba获取文本框的值怎么获取啊？
类似于表单控件，可以使用以下方法:在文本框获得焦点的每个事件中，将文本框的名称赋给X(X应该是全局变量)，比如privatetextbox1_gotfocus()xsub。
vba录入语句？
1/8点击Excel表格菜单栏上的【开发工具】，【VisualBasic】打开VBA编辑器。
2/8点击VBA编辑器菜单栏上的[插入]和[模块]。
3/8在代码框中输入代码:
子匹配端口()
Dimi，j，m，kAsLongamp#39数据类型定义
模糊消息、样式、标题、回复
如果在操作过程中出现错误，忽略它。
设置工作表1(#34工作表1#34)和#39定义工作表。
设置工作表2(#34工作表2#34)和#39定义工作表。
Msg#34该用户信息已经存在。您想替换它吗？#34
显示三个按钮:是，否和取消。
标题#34提示#34
m(mysh:A1000#34)，0)
Amp#39计算细胞的位置。
如果mgt1Thenamp#39如果已经存在于数据表中，会弹出一个提示窗口，然后进行选择。
Ansmsgbox(消息，样式，标题)amp#39弹出提示
如果ansvbYes那么amp#39If"是的"被选中，原始表中的数据将被替换。
对于j1至4，amp#39填充单元格所在的1-4列。
mysheet2。细胞(m，j)mysheet1。细胞(j1，2)
然后
如果…就会结束
Ifansvbnotthenamp#39If"不"被选中时，将在原始表格中找到空白单元格进行写入。
对于k2到1000
如果我的sheet2。单元格(k，1)#34#34然后
对于j1至4
mysheet2。细胞(k，j)mysheet1。细胞(j1，2)
然后
为...退出
如果…就会结束
然后
如果…就会结束
否则如果它不t不存在，在原始数据表中找一个空行来填写。
对于k2到1000
如果我的sheet2。单元格(k，1)#34#34然后
对于j1至4
mysheet2。细胞(k，j)mysheet1。细胞(j1，2)
然后
为...退出
如果…就会结束
然后
如果…就会结束
末端接头
4/8返回到Sheet1工作表界面，单击菜单栏上的[插入]，选择"矩形"在形状中插入它到表格中，然后填入所需的颜色和文字。
右键单击绘制的矩形并选择"指定宏。
6/8选择已经写在"指定宏对话框，如:MatchIput。
7/8在要输入的区域中输入信息，然后单击Enter输入信息。
8/8如果输入的信息(名称)已经存在于原始表格中，将弹出提示信息，然后进行选择。
如果选择是，将替换原有信息；如果选择否，将增加一行新信息；如果选择“取消”，将不会输入任何信息。