1樓：
private sub worksheet_change(byval target as range)
if target.address(0, 0) = "c3" then
n = 0
for i = 1 to 25
n = n + i ^ 2
if n = target.value then [c5].value = i: exit for
if n > target.value then [c5].value = "無合適值!": exit for
next
end if
end sub
kuangben8 21:00:17
但是如果a列不是自然數呢
kuangben8 21:00:27
可能就有小數了
private sub worksheet_change(byval target as range)
if target.address(0, 0) = "c3" then
n = 0:[c5].value =""
for i = 1 to 25
n = n + (cells(i,"a").value) ^ 2
if n = target.value then [c5].value = i: exit for
if n > target.value then [c5].value = "接近的值：＝" & i : exit sub
next
end if
end sub
精確接近值
private sub worksheet_change(byval target as range)
if target.address(0, 0) = "c3" then
n = 0: [c5].value = ""
for i = 1 to 25
n = n + (cells(i, "a").value) ^ 2
if n = target.value then [c5].value = i: exit for
if n > target.value then
for j = 1 to i - 1
m = m + (cells(i, "a").value) ^ 2
next
[c5].value = "接近的值：＝" & iif(abs(m - target.
value) < abs( n - target.value), i - 1, i): exit sub
end if
next
end if
end sub
2樓：匿名使用者
一下子理解不了意思！能再解釋詳細一點嗎？
如題所說的，c3=50，的確是在（a1的平方+a2的平方+a3的平方+。。。。+a25的平方）的和的範圍內，但是和「我現在想：如果從a1開始，有a1的平方+a2的平方+a3的平方+。。。。
+an的平方=c3中的數值，則在c5中顯示n的值」這句話好像有矛盾，按照我理解的你的意思，從a1開始+到an應該是連續加的，如果，c3=55那麼n=5，因為從a1的平方+a2的平方一直加到a5的平方，c3才會是55，所以n=5.
不知道是不是這個意思
用vb在excel裡做個簡單的小程式，**等！
3樓：剛下了點小雨
是這樣的嗎,建一個模組,在裡面加入以下**:
function grade(js as integer, bs as integer)
if js >= 85 and bs >= 85 thengrade = "優秀"
elseif js < 60 and bs < 60 thengrade = "不合格"
else
grade = "合格"
end if
end function
求excelvba程式設計高手幫我做一個小程式 40
4樓：風一樣的某某某
假設表名分別為sheet1，sheet2，sheet3;如果更改了表名則，sheet1需改為sheets("實際表名")
sub fz()
dim i,j,k
j=1i=1
do while sheet1.cells(i,6)<>""
k=1do while sheet2.cells(k,5)<>""
if sheet1.cells(i,6)=sheet2.cells(k,5) then
sheet3.range( j & ":" & j) =sheet1.range(i & ":" & i)
j=j+1
end if
k=k+1
loop
i=i+1
loop
end sub
如何用excel編個計算的小程式
5樓：匿名使用者
如果運算不是很複雜，用excel自帶的公式就可以完成啦。
1.將計算邏輯寫清楚
2.發貼
3.等高手指點迷津
4.^_^
6樓：
這個很專業，你要把計算方法羅列出來，excel高手們才能為你量衣定做小程式
7樓：哥哥來學習
利用工具裡的巨集來編寫，學習vb程式，應該不難的。
8樓：匿名使用者
你好，請您說明，你要說出計算思路後，我再給你說編的函式公式。達到自帶換算的目的，比如你要1+1+3-5呢，還是8+9-5。總要有個，計算的過程。
你不說計算意圖，再高手也沒用。俗話說的好巧婦「難做無米之催」。或者我可以理解為你是想是做個cpk呢，還是spc.。
9樓：
l樓主您好，用vb比較好
10樓：匿名使用者
建議採用vb程式設計編制這個小子程式，vb學習軟體網上很多的
在EXCEL中如何編寫程式，如何在excel中程式設計？
基本思路 如何在excel中程式設計？一 工具 microsoft office excel二 操作步驟 1.雙擊開啟桌面的excel。2.單擊右上角的office圖示，找到excel選項，單擊開啟。3.勾選在功能區顯示 開發工具 選項卡，單擊確定按鈕完成修改。4.單擊選單欄的開發工具，然後找到vi...
在c51微控制器中編寫開關控制小燈的程式用
org 0000h main mov a,p1 mov p0,a sjmp main include sfr key p1 sfr led p0 main 參考一下以前寫的 在c51微控制器中編寫8個開關控制8個小燈的程式，用c語言和組合語言兩種編寫 用c51是多麼簡單的事情啊。你的每個燈的順序不說...
跪求，在vb環境中編譯生成exe後的程式，退出程式後保留某個變數值或某個控制元件的屬性，真麼才能做到啊
儲存到ini檔案裡面或者登錄檔裡面 跪求各位大蝦，在vb環境中編譯生成exe後的程式，退出程式後儲存命令按鈕當前的背景色屬性，怎麼做到？10 需要自己組織檔案系統，簡單點說，就是需要有專門的檔案來儲存，你想要儲存的資訊。然後，當你這個程式每次啟動時，去讀取這個檔案裡的資訊，然後把讀到資訊通過 實現。...