حل معادله چند مجهولی با vba

[Mialde8080]

سلام دوستان
کسی میتواند جواب سوال منو بده با تشکر از شما عزیزان
سوال:
بطور مثال معادله مجهولی زیرا در نظر بگیرید
a₁₁X₁ +a₁₂X₂+……+a₁₉X₉ = b₁
a₂₁X₁ +a₂₂X₂+……+a₂₉X₉ = b₂
. . . . . . . . . . . . .
a₉₁X₁ +a₉₂X₂+……+a₉₉X₉ = b₉

با این شرایط که:

در Sheet 1 وارد کنیم:
a11 را در سلول A1 و a12 در سلول B1 و ....
a21 را در سلول A2 و a22 در سلول B2 و ....
........
.......
در Sheet 2 وارد کنیم:
b1 را در سلول A1
b2 را در سلول A2
....
....

در Sheet 3 (قسمت مهم سوالم)
با قرار دادن یکی Key Button و استفاده از Vba code معادله حل شود(بدون استفاده از فرمولهای Minverse و MMult)
بطوریکه جواب X1 در سلول A1 و جواب X2 در سلول A2 و ... بنشیند.

به فایل پیوست نگاهی بندازید ببینید مشکل چیست( جوابی که میگیرم اشتباه است)

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.