1樓：萬年金剛鑽
const c1 = 10 '連續數調整值const c2 = 15 '非連續數調整值const s = 10 '設定連續範圍
sub process()
dim a, i!, j!, d!, n
range("a1").sort key1:=range("a1"), order1:=xlascending
a = worksheetfunction.transpose(range("a1:a" & [a65536].end(xlup).row))
for i = 1 to ubound(a)d = a(i) + s
for j = i to ubound(a)if j + 1 > ubound(a) then exit forif a(j + 1) > d then exit fornext
if i = j then '非連續數
a(i) = a(i) - c2
else '連續數
n = a(i) - c1
for k = i to j
a(k) = n
next
i = j
end if
next
range("b1").resize(ubound(a)) = worksheetfunction.transpose(a)
end sub
2樓：
'假如a陣列存放你已經排好序的資料
for i=1 to ubond(a)
d=a(i)+10
for j=i+1 to ubond(a)if a(j)>d then exit fornext j
if j=i+1 then '沒有特殊情況a(i)=a(i)-15
else
for k=i to j-1 '出現了特殊情況a(k)=a(i)-10
next i
i=j-1
end if
next i
怎樣利用excel進行vb程式設計
3樓：萬年金剛鑽
const c1 = 10 '連續數調整值const c2 = 15 '非連續數調整值const s = 10 '設定連續範圍
sub process()
dim a, i!, j!, d!, n
range("a1").sort key1:=range("a1"), order1:=xlascending
a = worksheetfunction.transpose(range("a1:a" & [a65536].end(xlup).row))
for i = 1 to ubound(a)d = a(i) + s
for j = i to ubound(a)if j + 1 > ubound(a) then exit forif a(j + 1) > d then exit fornext
if i = j then '非連續數
a(i) = a(i) - c2
else '連續數
n = a(i) - c1
for k = i to j
a(k) = n
next
i = j
end if
next
range("b1").resize(ubound(a)) = worksheetfunction.transpose(a)
end sub
4樓：
'假如a陣列存放你已經排好序的資料
for i=1 to ubond(a)
d=a(i)+10
for j=i+1 to ubond(a)if a(j)>d then exit fornext j
if j=i+1 then '沒有特殊情況a(i)=a(i)-15
else
for k=i to j-1 '出現了特殊情況a(k)=a(i)-10
next i
i=j-1
end if
next i
5樓：匿名使用者
你是指利用excel內建的vba進行程式設計還是指用vb編的程式來處理excel文件或控制excel？如果是前者，那麼你按alt+f11開啟vb介面輸入**即可開始程式設計。後者則可以把excel文件或excel應用程式作為物件進行相應操作。
至於具體如何做，那就不是這裡一兩句話能說清的，甚至一兩本書的容量也不一定說得完。你可以自己檢視excel和vb的相關幫助文件或者到微軟的msdn**尋求幫助。
vb程式設計開啟和關閉excel檔案
6樓：鉸筆刀
直接按alt+f11不就行了。
或者點選左上角的圓形按鈕，」常用「第三行」在功能區顯示開發工具選項卡「勾上，在開發工具選項卡左邊第一個按鈕就是~
如何在vb中開啟excel
7樓：皮蛋粯子粥
visual basic開發工具模式可以直接從excel**中進入，不需要另外開啟。
具體步驟：
1、在電腦上桌面上找到excel**圖示，雙擊開啟。
2、開啟excel軟體後，點選左上角按鈕。
3、點選後會彈出一個選單，在選單中點選excel選項按鈕。
4、然後在彈出的對話方塊中勾選自定義功能區中的「開發工具」。
5、然後點選右下方確定按鈕。
6、點選確定後，會返回excel頁面。
7、然後在excel上方的導航欄中點選開發工具按鈕。
8、然後在開發工具頁面，點選visual basic選項。
9、點選後就會進入visual basic開發模式。
10、點選左側導航欄中的excel中的sheet**，就可以在visual basic中開啟了。
如何在excel裡用vb程式設計用vb操作，不用公式了
8樓：萬年金剛鑽
公式和vba其實各有各的適用情況，當然大部分的情況下公式能完成的vba都能完成，不過vba也有缺點，就是需要觸發，很多情況下，由於沒有觸發條件，你需要點選按鈕或手工執行vba。而公式的優點就是能自動重算。這個情況在資料刪除時特別明顯，因為vba對行列或區域刪除不敏感。
還有就是vba會降低excel應用的安全性，這個也是平時要特別注意的。
vb程式設計計算VB程式設計計算
第一種 對比計算privatesub mand1 click timer1.enabled truetimer1.interval 1 計算一次用時量endsubprivatesubform load text2.text 0 計算方法初始化text3.text 0 計算開始初始化text4.tex...
vb程式設計題目，VB程式設計題目
private sub mand1 click if len text1 2 thentext1 left text1,2 end if end sub private sub mand2 click text1 end sub private sub form load label1.captio...
VB程式程式設計，什麼是VB程式設計？
private sub command1 click dim t x y z t val text1.text if t 100 or len text1.text 3 then msgbox 輸入的數字不符合要求 vbinformation exit sub end if z t mod 10 y...