excelvb编程
Ⅰ vb编写excel程序
结束时，用这句：xlapp.quit set xlapp=nothing set xlbook=nothing set xlsheet=nothing
最近我在做的工程就用到，正好用此方法解决了问题。祝你好运！
Ⅱ 怎样利用Excel进行VB编程
ConstC1=10'连续数调整值
ConstC2=15'非连续数调整值
ConstS=10'设定连续范围
Subprocess()
Dima,i!,j!,d!,n
Range("A1").Sortkey1:=Range("A1"),order1:=xlAscending
a=WorksheetFunction.Transpose(Range("A1:A"&[A65536].End(xlUp).Row))
Fori=1ToUBound(a)
d=a(i)+S
Forj=iToUBound(a)
Ifj+1>UBound(a)ThenExitFor
Ifa(j+1)>dThenExitFor
Next
Ifi=jThen'非连续数
a(i)=a(i)-C2
Else'连续数
n=a(i)-C1
Fork=iToj
a(k)=n
Next
i=j
EndIf
Next
Range("B1").Resize(UBound(a))=WorksheetFunction.Transpose(a)
EndSub
Ⅲ 用VB在excel中编程
打开开发工具窗口，然后新建一个模块就可以写vb代码了
或者按住alt+F11就打开vba编辑窗口了。
Ⅳ excel VBA编程
用下面代码
Private Sub Worksheet_Change(ByVal Target As Range)
Dim m As String
If Target.Row = 1 And Target.Column = 1 Then
m = Target.Value
With Sheets("Sheet2").Rows(m).Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Sheets("Sheet2").Rows(m).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Sheets("Sheet2").Rows(m).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Sheets("Sheet2").Rows(m).Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
End If
End Sub
代码放在
Excel怎样快速多表查找数据列表
Ⅳ EXCEL中VB编程
应该是这样吧？
Sub aa()
For i = 1 To WorksheetFunction.CountA([A:A])
Cells(i, 3) = Abs(Cells(i, 2) - Cells(i, 1)) '这里改动了，你说是B列减A列
Next i
End Sub
那要看你准备在什么样的事件下触发这代码。如果最一般的，手动执行，就插入-模块，把代码写在里面。返回EXCEL，点开宏菜单，执行它，或设定快捷键来操作，都在宏菜单下
Ⅵ excel vb代码编写
在EXCEL中录制一个宏，并指定快捷键（例如Ctrl+g），修改该宏的VBA模块代码如下：
1、声明段：
"shell32.dll"Alias"ShellExecuteA"(ByValhwndAsLong,_
ByVallpOperationAsString,ByVallpFileAsString,_
ByVallpParametersAsString,ByVallpDirectoryAsString,_
ByValnShowCmdAsLong)AsLong
ConstSW_SHOWNORMAL=1
2、代码段（宏名不需要更改，只需要粘贴过程内的代码）
SubMacro1()
'
'Macro1Macro
'
'快捷键:Ctrl+g
'
ConstFILE_PATH="D: 01-1"
ConstFILE_EXT=".jpg"
DimpageAsString
DimfilenameAsString
DimRetAsLong
page=Trim(InputBox("请输入图片编码：","输入",1))
IfLen(page)>0Then
filename=FILE_PATH&page&FILE_EXT
IfDir(filename)=""Then
MsgBox"指定的文件"&filename&"不存在！"
Else
Ret=ShellExecute(0,"open",filename,vbNullString,Environ("windir"),SW_SHOWNORMAL)
EndIf
EndIf
EndSub
Ⅶ excel表用VBA编写程序
根本就不用VBA，直接用函数就可以做到！
一个IF判断复合语句+求和函数/求和函数就可以了，至于函数，在帮助里查一下就解决了！
Ⅷ Excel VBA编程
Sub学生成绩转换()
DimscoreAsInteger,levelAsString
score=Val(InputBox("输入学生的成绩：","学生成绩转换"))
Ifscore<0orscore>100Then'这里不能用and，一个数不可能既<0同时又>100
MsgBox"输入有误，请输入0~100的数",vbOKOnly,"学生成绩转换"
Else
Ifscore>=85Then
level="A"
ElseIfscore>=75Then
level="B"
ElseIfscore>=65Then
level="C"
ElseIfscore>=60Then
level="D"
Else
level="F"
EndIf
MsgBox"学生成绩等级为："&level,vbOKOnly,"学生成绩转换"
EndIf
EndSub
Ⅸ 如何在EXCEL里用VB编程用VB操作，不用公式了
公式和VBA其实各有各的适用情况，当然大部分的情况下公式能完成的VBA都能完成，不过VBA也有缺点，就是需要触发，很多情况下，由于没有触发条件，你需要点击按钮或手工运行VBA。而公式的优点就是能自动重算。这个情况在数据删除时特别明显，因为VBA对行列或区域删除不敏感。还有就是VBA会降低Excel应用的安全性，这个也是平时要特别注意的。