VBA 使えるソースコード

つたないソースコードを載せます。これは、他人の書いたソースコードを読む練習に最適です。初心者の方は、どうしたらきれいになるかなど考えながら活用してください。

2020-01-13から1日間の記事一覧

VBA 学習の方法

まず始めに、このブログ内では、そのまま張り付ければ基本使えるソースコードをのせています。 そこで、このコードを使った学習方法について説明していきます。 ①まずはコピペ ②起動してどーなっているのかを確認 ③なぜこのような結果になるのか考える ④ソー…

VBA 逆行列を求める(関数)

Function A_inverse(a() As Double) As Double()Dim n As IntegerDim i As IntegerDim k As Integer Dim arr1() As DoubleDim A_inv() As DoubleDim x_n() As Double n = UBound(a, 1) ReDim arr1(n, n)ReDim A_inv(n, n)ReDim x_n(n) For i = 1 To n x_n(i)…

VBA Ax=bを求める(関数)

Function Gauss_kai(a() As Double, b() As Double) As Double() Dim n As IntegerDim m As IntegerDim i As IntegerDim j As Integer Dim arr1() As DoubleDim arr2() As DoubleDim arr3() As DoubleDim arr4() As Double n = UBound(a, 1)m = UBound(b) Re…

VBA 後退代入 Ax=b→Ux=yのxを求める(関数)

Function xxx(U() As Double, y() As Double) As Double()Dim i As IntegerDim j As IntegerDim k As Integer Dim n As IntegerDim m As IntegerDim x As Double Dim arrc() As Double 'xxxになる解そのもの n = UBound(U, 1)m = UBound(y) ReDim arrc(n) ar…