1. vb编写exe程序
有两种方法：
1.右键点击你的工程文件，如工程1.vbp，在弹出的快捷菜单中单击Make，就会在当前文件夹生成工程1.exe可执行文件。
2.打开你的工程文件，点“文件”菜单，选择 生成XXX.EXE，也可生成可执行文件。希望能对你在所帮助。
2. excel vba程序
1、打开一个Excel文件，鼠标右击下面的工作表（如sheet1）。选择“查看代码”，就可以打开VBA编辑界面；
2、选择搜索框的下拉菜单，选择“worksheet”选项功能；
3、选择BeforeDoubleClick，也就是在本工作表鼠标双击（之前），将触发下面的代码程序；
4、选择完成后，这样会看到下面出现了两条代码；这俩条代码其实是在声明一个函数；
5、将鼠标放置在这两行代码之间，这时写上执行语句：Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2)；
6、然后点击保存，回到Excel的原始界面。在cells（1,1）和cells（1,2）中输入两个数值；
7、在sheet1的工作表中，双击鼠标会发现，cells（1,3）的值变成了cells（1,1）和cells（1,2）的和。
3. vb编程excel程序
1.在Excel表格表格的菜单栏上面点击【开发工具】，【Visual Basic】打开VBA编辑器。
2.在VBA编辑器的菜单栏上面点击【插入】，【模块】。
3.在代码框里面输入一下代码：
Sub MatchIput()
Dim i, j, m, k As Long '数据类型定义
Dim msg, style, title, ans
On Error Resume Next '如果运行过程中出错，则忽略
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表
Set mysheet2 = ThisWorkbook.Worksheets("Sheet2") '定义工作表
msg = "该用户信息已经存在，是否替换？"
style = vbYesNoCancel + vbDefaultButton3 '显示 “是” “否” “取消”三个按钮
title = "温馨提示"
m = Application.WorksheetFunction.Match(mysheet1.Cells(2, 2), mysheet2.Range("A1:A1000"), 0)
'计算单元格所在的位置
If m >= 1 Then '如果数据表里面已经存在，则弹出提示窗口，然后进行选择
ans = MsgBox(msg, style, title) '弹出提示
If ans = vbYes Then '如果选择“是”，则原来表格里面的数据将会被替换
For j = 1 To 4 '填充该单元格所在位置的1-4列
mysheet2.Cells(m, j) = mysheet1.Cells(j + 1, 2)
Next
End If
If ans = vbNo Then '如果选择“否”，则在原来表格里面找到空白的单元格写入
For k = 2 To 1000
If mysheet2.Cells(k, 1) = "" Then
For j = 1 To 4
mysheet2.Cells(k, j) = mysheet1.Cells(j + 1, 2)
Next
Exit For
End If
Next
End If
Else '如果不存在，则在原来数据表格里面找到一行空白进行填充
For k = 2 To 1000
If mysheet2.Cells(k, 1) = "" Then
For j = 1 To 4
mysheet2.Cells(k, j) = mysheet1.Cells(j + 1, 2)
Next
Exit For
End If
Next
End If
End Sub
4.回到Sheet1工作表界面，点击菜单栏上面的【插入】，在形状里面选择“矩形”插入到表格上面，然后填充所需的颜色、文字。
5.在已经绘制后的矩形图上面单击右键，选择“指定宏”。
6.在“指定宏”对话框里面选择已经编写的VBA名称，如：MatchIput。
7.在要录入信息的区域录入信息，然后点击“录入”即可录入信息。
8.如果录入的信息（姓名）在原来的表格在原来表格里面已经存在，则会弹出提示信息，之后进行选择。如果选择“是”则执行替换原来的信息；如果选择“否”，则会新增一行信息；如果选择“取消”，则不会录入信息。
4. vb excel编程实例
测试成功，原码：DimxlappAsExcel.Application'Excel对象DimxlbookAsExcel.Workbook'工作簿DimxlsheetAsExcel.Worksheet'工作表DimxlrangeAsExcel.rangePrivateSubCommand1_Click()Setxlapp=CreateObject("excel.application")'第一层Setxlbook=xlapp.Workbooks.Addxlapp.Visible=Truexlbook.sheets(1).range("a1")="新建成功"xlbook.SaveAsApp.Path&"/测试.xls"xlbook.CloseEndSub
5. vb+excel
Excel里按Alt+F11打开Vb编辑器，在里面可以建一个窗体，放入文本框，通过程序来赋值，如sheets("sheet1").range("a1").value=11。
6. excel里的vb编程
你是指利用Excel内置的VBA进行编程还是指用VB编的程序来处理Excel文档或控制Excel？如果是前者，那么你按Alt+F11打开VB界面输入代码即可开始编程。后者则可以把Excel文档或Excel应用程序作为对象进行相应操作。至于具体如何做，那就不是这里一两句话能说清的，甚至一两本书的容量也不一定说得完。
你可以自己查看Excel和VB的相关帮助文档或者到微软的MSDN网站寻求帮助。
- 相关评论
- 我要评论
-