1樓：慶年工坊
迴圈完全是多餘的
public function test1(x as range) as string
dim a as string
dim b as string
dim c as string
dim i as integer
a = abs(mid(x, 1, 1) - mid(x, 2, 1))
b = abs(mid(x, 1, 1) - mid(x, 3, 1))
c = abs(mid(x, 2, 1) - mid(x, 3, 1))
test1 = a & b & c
end function
2樓：矽谷少年
public function test1(x as range) as string
dim a as string
dim b as string
dim c as string
dim i as integer
a = abs(mid(x, 1, 1) - mid(x, 2, 1))
b = abs(mid(x, 1, 1) - mid(x, 3, 1))
c = abs(mid(x, 2, 1) - mid(x, 3, 1))
for i = 1 to 65536
if x = worksheets(2).cells(2, i).select then
worksheets(2).cells(2, i + 2).value = a & b & c
end if
next i
test1 = a & b & c
end function
首先，**不換行說明問題就寫的很馬虎
sub test1()
dim a as string
dim b as string
dim c as string
dim i as integer
x = [a1]
a = abs(mid(x, 1, 1) - mid(x, 2, 1))
b = abs(mid(x, 1, 1) - mid(x, 3, 1))
c = abs(mid(x, 2, 1) - mid(x, 3, 1))
for i = 1 to 100
if x = worksheets(2).cells(2, i) then
s = a & b & c
worksheets(2).cells(2, i + 2) = s
end if
next i
end sub
這個是可以得到正確結果的。function不知道為什麼不行，我也好納悶。
如何用vba在excel中自定義函式
我是來學習的，因為我不太清楚什麼是插值 什麼是直線 什麼是線性 我猜測直線插值，就是按比例插值 如果這裡猜測錯了，樓主就不用往下看了,但請指教 150焓值 266.36 132.43 200 100 150 100 132.43 199.395 自定義公式為 function forecastii ...
excel怎樣自定義設定公式計算
在結果單元格輸入 等號加你的公式，不用 括號 全部換成 括號 系統會從內部括號逐步向外計算。直接輸入。m1 n1 m2 n2 n1 n2 輸入完畢。回車即出答案。excel中怎麼設定公式的自動計算和手動計算 excel中怎麼設定公式的自動計算和手動計算如下 1.我們點選檔案選項，開啟開始頁面。2.在...
如何自定義ios中的控制元件，如何自定義iOS中的控制元件
育知同創教育 自定義ios中的控制元件的設計方法 1 首先建立了一個圖形上下文，然後設定了一下陰影。通過cgcontextsetshadowwithcolor方法，可以設定如下內容 上下文偏移量 此處不需要 模糊值 該值是通過引數控制的 使用當前的角度除以20，當使用者與此控制元件互動時，以此獲得一...