我想使用 VBA 語句來求解線性方程組

upstairs 方法一次性設定計算公式中的值，並用字串填充，該字串不能用於後續操作。

如果每個統計單元格的相對位置保持不變，則建議以 r1c1 相對格式表示法插入計算公式。 這樣做的好處是，如果您稍後重新格式化它，資料將作為乙個整體進行轉移，並且仍然可以使用。

cells(i, 7).value = cells(9, j) *cells(i, j) +cells(i, 7).value

相反。 cells(i, 7).formular1c1 = "=r[9-" & i & "]c[" & j & "-7]*rc[" & j & "-7]+rc"

相對位移都是填充公式的單元格（i，7）單元格。

請注意，公式中的變數放在引號之外，並使用字串連線符 &. 否則，變數將被識別為字串而不是相應的值。

房東給出的資料位置與程式不匹配，因此無法進行實驗。 如果您有任何問題，請新增或嗨我。 ）

我試過了，房東，修改後可以正確填寫公式，但是計算結果有問題，因為公式不能再重複引用自己的單元格了，不信可以手動填寫公式。

因此，建議重新規劃單元格的使用，在隱藏的角落使用單元格來儲存中間計算（如果有圖表，可以使用隱藏在圖表後面的單元格），並保護這些單元格不被修改。

我幾乎再也無法修改了，修改次數接近上限，有問題最好直接用hi來打我。

請找到VB科學與工程數值演算法。

二進位一次可以嗎？

這很複雜。

對於馬，從 1 開始，每次計算方程右側等於或最接近 的值，通過插值可以得到最接近的解。

不需要 VBA

有兩種方法，一種是自己推導反函式，變為 b=f（a），第二種是求解單個變數，可以在資料模擬分析下找到。

使用單個變數求解，記錄乙個巨集，然後修改 ** 並新增迴圈。

你的公式描述有問題，啊......我不明白......是

讓我們重新表述一下......

你應該使用乙個公式，你可以做到，為什麼要使用VBA？

依賴！ 看完增刊後，我變得更加頭暈目眩......公式不重要？ 重要的是實現方法！ “還有很多變數沒有列出”！

所以現在這告訴你，你可以用VBA編寫乙個計算過程，根據你所知道的公式和變數定義變數，然後讓這些變數取相應單元格的值，然後根據你的公式計算它們，並將結果返回到你需要的地方......

在本例中，如果是兩個變數，則變數 A 是 a 列，b 是過程的結果......

此過程最好定義為功能過程，以便更方便地使用......我現在很聰明，可以這麼說了......

因為你似乎是補充劑的配方，而不是最終的配方！！ 只是乙個宣告，所以我不能做乙個具體的**或其他公式推薦......

祝你好運！

在A1“資料選單”->模擬分析“->單變數解”中輸入公式=Atan（B1）+Atan（B1+1）。

在彈出的對話方塊中，輸入“目標單元格”為“A1”，輸入“目標值”的單元格A1中原填寫的資料，“可變單元格”輸入B1。 單擊“確定”。

剩下的 4 行可以用同樣的方式完成。

有時我們傾向於向VBA的方向思考，而忽略了Excel本身的功能。 除非絕對必要，否則不建議使用 VBA。

公式有問題，這個A完全沒用。

等式 2 可以減少 a，它變為 1=tan（b）+tan（b+1）。

換句話說，無論 A 是什麼，B 都是一樣的。

單擊選單欄中的“配置檔案”;

然後在“模擬分析”下拉選單中選擇“目標搜尋”;

目標儲存網格選擇 $b$3，填寫值 8 作為目標值，為要用未知數字填充的可變儲存單元選擇單元，此處為 $b$1;

單擊“確定”，您將看到答案 2 已自動寫入 $b$1;

通過構造乙個係數矩陣和乙個常數矩陣的增強矩陣，並將初等行變換成最簡單的行矩陣，得到乙個解系統，使不同的常數乘以解系統的列向量，得到基本解系統。

我學習線性代數已經很久了。

如果它被具體證明，我絕對不能把它推出去。

但我知道它是幾個階的矩陣，即幾個正方形。 絕對正確，你可以按照我說的去做，自己推動。

明白，就收養吧，別讓我白幫你。

sub 重複 1 （）。

dim arr, k%, i%, n% '定義變數。

set arr = range("a1").currentregion '將指定的範圍分配給變數 arr（這句話沒用，可以刪除）。

for k = 6 to cells(, 1).end(3).row '將迴圈範圍設定為 6，以表示第一列中包含資料的最大行數。

for i = 6 to cells(, 1).end(3).row '將內部迴圈範圍設定為第一列中包含資料的最大行數 6。

if cells(k, 1) = cells(i, 8) then '如果第一列單元格和第 8 列單元格相等。

cells(k, 5) = cells(k, 5) +1 '然後，計數在對等體的第 5 列中相加。

cells(i, 8). = 3 '將相應列 8 單元格的字型顏色更改為紅色。

cells(k, 1). = 3 '將相應列 1 單元格的字型顏色更改為紅色。

end if '如果判斷，則結束。

next i '返回迴圈 i

next k '返回迴圈 k

end sub '結束該過程。

您給出的**是 A 列和 H 列的比較，而不是 A 列和 C 列的比較。

要比較 C 列和 H 列，請將所有括號中的數字 1 更改為 3 **，如下所示：

sub 重複 1 （）。

dim arr, k%, i%, n% '定義變數。

set arr = range("a1").currentregion '將指定的範圍分配給變數 arr（這句話沒用，可以刪除）。

for k = 6 to cells(, 3).end(3).row '將迴圈範圍設定為 6，以表示第一列中包含資料的最大行數。

for i = 6 to cells(, 3).end(3).row '將內部迴圈範圍設定為第一列中包含資料的最大行數 6。

if cells(k, 3) = cells(i, 8) then '如果第一列單元格和第 8 列單元格相等。

cells(k, 5) = cells(k, 5) +1 '然後，計數在對等體的第 5 列中相加。

cells(i, 8). = 3 '將相應列 8 單元格的字型顏色更改為紅色。

cells(k, 3). = 3 '將相應列 1 單元格的字型顏色更改為紅色。

end if '如果判斷，則結束。

next i '返回迴圈 i

next k '返回迴圈 k

end sub '結束該過程。

sub 重複 1 （）。

dim arr, k%, i%, n% '該變數宣告 arr 是位元組型別的位元組，k、i 和 n 是整數整數

set arr = range("a1").currentregion '設定變數 arr 活動單元格 A1 所在的矩形區域。

for k = 6 to cells(, 1).end(3).row 'k 值從 6 遞增到最後 1 行，資料在第 1 列中，步長為 1

for i = 6 to cells(, 1).end(3).row 'k 值從 6 遞增到最後 1 行，資料在第 1 列中，步長為 1

if cells(k, 1) = cells(i, 8) then '如果第 1 列第 k 行中的單元格等於第 8 列第 i 行中的單元格，則執行以下語句，否則跳過它。

cells(k, 5) = cells(k, 5) +1 '第 5 列中第 k 行中的單元格值等於第 5 列中第 k+1 行中的單元格值。

cells(i, 8). = 3 '將第 8 列中第 I 列的字型顏色編號更改為 3（我記得它似乎是紅色的）。

cells(k, 1). = 3 '將第 1 列中第 k 行的字型顏色編號更改為 3

end if

next i

next k

end sub

if = 1 and > 3 and < 24 then'確定當前範圍是否在列 arng = sheets（"產品資訊").[a1].currentregion

設定 RNG 範圍。

set dic = createobject("")'設定詞典。

for r = 2 to ubound(rng)for c = 2 to ubound(rng, 2)y = rng(r, 1) &" " & rng(1, c)'合併 rng（r， 1） 和 rng（1， c） dic（y） = rng（r， c）。

在字典中寫 y。

next c

next r

rr =for c = 2 to 5

y = cells(rr, 1) &" " & cells(3, c)

替換單元格（rr， 1） &" "& cells（3， c） 寫成 y

cells(rr, c) = dic(y)'將字典 dic（y） 分配給 cells（rr， c）next c

y = cells(rr, 1) &"單價倉儲"

cells(rr, 7) = dic(y)'將 cells（rr， 7） 寫入 dic（y）end if

= false

這句話是關閉系統報警提示。

dim sht as worksheet

將 sht 變數宣告為工作表變數。

對於工作表中的每個 SHT，以遍歷所有工作表。

if not like "主介面" and _not like "變體詳細資訊" and _not like "資料字典" and _not like "固定資產清單"然後，如果它未包含在您要查詢的當前工作表的名稱中"主介面"、"變體詳細資訊" 、"資料字典"、 "固定資產清單"和其他領域。

end if

next

1. 對於“變數”=“初始值”。

to 《運組灊》 [step 〕 句序

條件為 true “exit for]。

下乙個“變數”。

預設情況下，step 設定為“1”，可以省略，step 可以設定為負值。

示例 10：** 下面是最簡單的累加器，將 1 到 10 相加，sub ss（） a = 0

for i = 1

to 10a = a + i

next i

I'I 的意思是在即時視窗中顯示 i 的值，想象一下，i=？ 結束子之後

它也可以寫成：sub ss（） a = 0

for i=10

to 1 step –1

a = a + i

next i

我'想象，我=？ 結束子值為

示例 11：下面是乙個退出的情況，如果 A 大於或等於 5，則迴圈體將被跳轉。

sub ss() a = 0

for i = 1

to 10a = a + i

if a >= 5 then exit for next i