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應用的安全性，這個也是平時要特別注意的。