{"id":5560,"date":"2012-07-11T20:00:00","date_gmt":"2012-07-11T11:00:00","guid":{"rendered":"https:\/\/mint-site.dongurikaigi.com\/?p=5560"},"modified":"2025-02-16T17:07:36","modified_gmt":"2025-02-16T08:07:36","slug":"%e7%94%bb%e6%9c%9f%e7%9a%84%e3%81%aavba%e3%82%92%e8%a6%8b%e3%81%a4%e3%81%91%e3%81%a6%e3%81%97%e3%81%be%e3%81%a3%e3%81%9f%ef%bc%be%ef%bc%be%e7%9b%ae%e3%81%8b%e3%82%89%e9%b1%97%e3%81%a0%e3%82%88","status":"publish","type":"post","link":"https:\/\/mint-site.dongurikaigi.com\/?p=5560","title":{"rendered":"\u753b\u671f\u7684\u306aVBA\u3092\u898b\u3064\u3051\u3066\u3057\u307e\u3063\u305f\uff3e\uff3e\u76ee\u304b\u3089\u9c57\u3060\u3088\uff01"},"content":{"rendered":"\n

\u30a8\u30af\u30bb\u30ebVBA\u306e\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u7f6e\u304f\u3068\u4f7f\u3048\u308b\u3002<\/p>\n\n\n\n

\n\n\n\n\n\n\n\n

‘ Textcalc \u306f\u9577\u3044\u306e\u3067\u3001eg\u306b\u5909\u66f4\u30002008.02.07\u3000By\u3000Norio
‘ —\u5185\u5bb9—
‘ \u8a08\u7b97\u306b\u95a2\u4fc2\u7121\u3044\u6587\u5b57\u3092\u7121\u8996\u3059\u308b
‘ \uff12\u884c\u306b\u307e\u305f\u304c\u308b\u8a08\u7b97\u3092\u884c\u3046
‘ \u6570\u5b57\u3001\u6f14\u7b97\u8a18\u53f7\u3092\u542b\u3080\u30e1\u30e2\u66f8\u304d\u306f\u3001\u5fc5\u305a\u30ab\u30c3\u30b3\u3067\u9589\u3058\u308b
‘ =eg(\u30bb\u30eb\u756a\u53f7\uff09\u3067\u8a08\u7b97
‘\u3000=egs(\u30bb\u30eb\u756a\u53f7,n)\u3067\u56db\u6368\u4f0d\u5165\u8a08\u7b97\u3092\u884c\u3046
‘ =egw(\u30bb\u30eb\u756a\u53f71,\u30bb\u30eb\u756a\u53f72\uff09\u3067\uff12\u884c\u8a08\u7b97
‘\u3000=egws(\u30bb\u30eb\u756a\u53f71,\u30bb\u30eb\u756a\u53f72,n)\u3067\uff12\u884c\u56db\u6368\u4f0d\u5165\u8a08\u7b97\u3092\u884c\u3046
‘ —
‘ \u8457\u4f5c\u6a29\u306fpeace\u6c0f\u306b\u5e30\u5c5e\u3057\u307e\u3059
‘ Textcalc Version1.30 (C)1996-2000, peace
‘
Option Explicit
Private Token As String
Private A1 As String
Private TokenType As Integer ‘1:DELIMITER 2:NUMBER 3:FUNCTION
Private S As String
Private SLen As Integer
Private K, K1, N1, N2, N3 As Integer
Private GP As Integer
Private KAKKO As Integer
Const MAE As String = “.0123456789)”
Const USIRO As String = “\u00b1\u21d2\u3006\u2225\uffe3\uff3f\uff3c\uff5c\u2203\u2642\u2640\u221a.0123456789(“
Const DELIMITA As String = “+-*\/()^”
Const NUMBER As String = “0123456789”
Const OKMOJI As String = “\u00b1\u21d2\u3006\u2225\uffe3\uff3f\uff3c\uff5c\u2203\u2642\u2640\u221a^()*\/+-.0123456789”
Const RAD As Double = 57.2957795130823<\/p>\n\n\n\n

‘ \u95a2\u6570\u306e\u30a8\u30f3\u30c8\u30ea\u30dd\u30a4\u30f3\u30c8
Function eg(S2 As String) As Double ‘textcal\u304b\u3089eg\u306b\u5909\u66f4
S2 = StrConv(S2, vbNarrow)
S2 = StrConv(S2, vbLowerCase)
S2 = Application.Substitute(S2, ” “, “”)
S2 = Application.Substitute(S2, “\u03c0”, “3.14159265358979”)
S2 = Application.Substitute(S2, “pi”, “3.14159265358979”)
S2 = Application.Substitute(S2, “rad”, “57.2957795130823”)
S2 = Application.Substitute(S2, “{“, “(“)
S2 = Application.Substitute(S2, “}”, “)”)
S2 = Application.Substitute(S2, “[“, “(“)
S2 = Application.Substitute(S2, “]”, “)”)
S2 = Application.Substitute(S2, “\u3014”, “(“)
S2 = Application.Substitute(S2, “\u3015”, “)”)
S2 = Application.Substitute(S2, “\u3010”, “(“)
S2 = Application.Substitute(S2, “\u3011”, “)”)
S2 = Application.Substitute(S2, “\u00d7”, “*”)
S2 = Application.Substitute(S2, “\u00f7”, “\/”)
””’No*,\u7b2c*\u3092\u524a\u9664\u3059\u308b””’
S2 = Application.Substitute(S2, “J”, “”)
S2 = Application.Substitute(S2, “no.”, “J”)
S2 = Application.Substitute(S2, “no\u3001”, “J”)
S2 = Application.Substitute(S2, “no”, “J”)
S2 = Application.Substitute(S2, “\u7b2c”, “J”)
S2 = Application.Substitute(S2, “\u203b”, “J”)
N2 = 0
N3 = 0
For K = 1 To Len(S2) ‘J\u306e\u6570\u3092\u6570\u3048\u308b
If Mid(S2, K, 1) = “J” Then N2 = N2 + 1
Next
Do While N2 > 0 ‘”J”\u3068\u6b21\u306e”J”\u53c8\u306f”)”\u306e\u6587\u5b57\u4f4d\u7f6e\u3092\u6c42\u3081\u308b
N1 = InStr(S2, “J”)
If InStr(N1 + 1, S2, “J”) > 0 And InStr(N1 + 1, S2, “J”) <= InStr(N1 + 1, S2, “)”) _
Then N3 = InStr(N1 + 1, S2, “J”) Else N3 = InStr(N1 + 1, S2, “)”)
If InStr(N1 + 1, S2, “J”) = 0 Then N3 = InStr(N1 + 1, S2, “)”)
A1 = “”
For K = 1 To Len(S2) ‘”J”\u3068\u6b21\u306e”J”\u53c8\u306f”)”\u306e\u9593\u306e\u6587\u5b57\u3092\u524a\u9664
If K < N1 Or K >= N3 Then A1 = A1 + Mid(S2, K, 1)
Next K
S2 = A1
N2 = N2 – 1
Loop
””’
S2 = Application.Substitute(S2, “\u00b1”, “”) ‘\u4e0b\u3067\u4f7f\u7528\u3059\u308b\u6587\u5b57\u3092\u524a\u9664\u3057\u3066\u304a\u304f
S2 = Application.Substitute(S2, “\u21d2”, “”)
S2 = Application.Substitute(S2, “\u3006”, “”)
S2 = Application.Substitute(S2, “\u2225”, “”)
S2 = Application.Substitute(S2, “\uffe3”, “”)
S2 = Application.Substitute(S2, “\uff3f”, “”)
S2 = Application.Substitute(S2, “\uff3c”, “”)
S2 = Application.Substitute(S2, “\uff5c”, “”)
S2 = Application.Substitute(S2, “\u2203”, “”)
S2 = Application.Substitute(S2, “\u2642”, “”)
S2 = Application.Substitute(S2, “\u2640”, “”)
S2 = Application.Substitute(S2, “asin”, “\u00b1”) ‘\u4e88\u7d04\u8a9e\u3092\u7279\u6b8a\u6587\u5b57\u306b\u7f6e\u304d\u63db\u3048\u308b
S2 = Application.Substitute(S2, “acos”, “\u21d2”)
S2 = Application.Substitute(S2, “atan”, “\u3006”)
S2 = Application.Substitute(S2, “sin”, “\u2225”)
S2 = Application.Substitute(S2, “cos”, “\uffe3”)
S2 = Application.Substitute(S2, “tan”, “\uff3f”)
S2 = Application.Substitute(S2, “abs”, “\uff3c”)
S2 = Application.Substitute(S2, “int”, “\uff5c”)
S2 = Application.Substitute(S2, “exp”, “\u2203”)
S2 = Application.Substitute(S2, “log”, “\u2642”)
S2 = Application.Substitute(S2, “ln”, “\u2640”)
S2 = Application.Substitute(S2, “\/m3”, “”) ‘\/m3,\/m2,\/m,m2,m3,m4\u3092\u524a\u9664
S2 = Application.Substitute(S2, “\/m2”, “”)
S2 = Application.Substitute(S2, “\/m”, “”)
S2 = Application.Substitute(S2, “m2”, “”)
S2 = Application.Substitute(S2, “m3”, “”)
S2 = Application.Substitute(S2, “m4”, “”)
””’\u4e88\u7d04\u8a9e\u3001\u6570\u5b57\u3001\u6f14\u7b97\u8a18\u53f7\u4ee5\u5916\u3092\u524a\u9664\u3059\u308b””’
A1 = “”
For K = 1 To Len(S2)
For K1 = 1 To Len(OKMOJI)
If Mid(S2, K, 1) = Mid(OKMOJI, K1, 1) Then A1 = A1 + Mid(S2, K, 1)
Next K1
Next K
S2 = A1
S2 = Application.Substitute(S2, “()”, “”)
””’memo\u306e\u524a\u9664\uff08memo\u304c\u6700\u521d\u306b\u3042\u308b\u5834\u5408\uff09””’
If Mid(S2, 1, 1) <> “(” Then GoTo line1
N3 = 0
For K = 1 To Len(S2)
For K1 = 1 To Len(USIRO)
If Mid(S2, K, 1) = “)” And Mid(S2, K + 1, 1) = Mid(USIRO, K1, 1) Then N3 = K
Next
Next
A1 = “”
For K = 1 To Len(S2) ””’memo\u306e”(“\u304b\u3089”)”\u307e\u3067\u306e\u6587\u5b57\u3092\u524a\u9664
If K > N3 Then A1 = A1 + Mid(S2, K, 1)
Next K
S2 = A1
””’memo\u306e\u524a\u9664\uff08memo\u304c\u4e2d\u9593\u53c8\u306f\u6700\u5f8c\u306b\u3042\u308b\u5834\u5408\uff09””’
line1:
A1 = “”
N1 = 0
N2 = 0
For K = 2 To Len(S2) ””’memo\u306e\u6570\u3092\u6570\u3048\u308b
For K1 = 1 To Len(MAE)
If Mid(S2, K, 1) = “(” And Mid(S2, K – 1, 1) = Mid(MAE, K1, 1) Then N2 = N2 + 1
Next
Next
Do While N2 > 0
For K = 2 To Len(S2)
For K1 = 1 To Len(MAE)
If Mid(S2, K, 1) = “(” And Mid(S2, K – 1, 1) = Mid(MAE, K1, 1) Then N1 = K
N3 = InStr(N1 + 1, S2, “)”)
Next
Next
A1 = “”
For K = 1 To Len(S2) ””’memo\u306e”(“\u304b\u3089”)”\u307e\u3067\u306e\u6587\u5b57\u3092\u524a\u9664
If K < N1 Or K > N3 Then A1 = A1 + Mid(S2, K, 1)
Next K<\/p>\n\n\n\n

S2 = A1
N2 = N2 – 1
Loop
””’
S2 = Application.Substitute(S2, “\u00b1”, “asin”) ‘\u4e88\u7d04\u8a9e\u3092\u5143\u306b\u623b\u3059
S2 = Application.Substitute(S2, “\u21d2”, “acos”)
S2 = Application.Substitute(S2, “\u3006”, “atan”)
S2 = Application.Substitute(S2, “\u2225”, “sin”)
S2 = Application.Substitute(S2, “\uffe3”, “cos”)
S2 = Application.Substitute(S2, “\uff3f”, “tan”)
S2 = Application.Substitute(S2, “\uff3c”, “abs”)
S2 = Application.Substitute(S2, “\uff5c”, “int”)
S2 = Application.Substitute(S2, “\u2203”, “exp”)
S2 = Application.Substitute(S2, “\u2642”, “log”)
S2 = Application.Substitute(S2, “\u2640”, “ln”)
S2 = Application.Substitute(S2, “\u221a”, “sqrt”)
KAKKO = 0
GP = 1
S = S2
SLen = Len(S)<\/p>\n\n\n\n

GetToken
eg = sub1(0#)
If (KAKKO <> 0) Then
MsgBox “\u62ec\u5f27\u306e\u6307\u5b9a\u306b\u8aa4\u308a\u304c\u3042\u308a\u307e\u3059\u3002” _
, vbOKOnly + vbExclamation, “EG\u95a2\u6570”
eg = 1 \/ 0 ‘textcalc\u304b\u3089eg\u306b\u5909\u66f4
End If
End Function<\/p>\n\n\n\n

‘ \u52a0\u7b97\u30fb\u6e1b\u7b97\u306e\u51e6\u7406
Function sub1(Value As Double) As Double
Dim Value2 As Double
Dim Token2 As String<\/p>\n\n\n\n

Value = sub2(Value)
While Token = “+” Or Token = “-“
Token2 = Token
GetToken
Value2 = sub2(Value2)
Select Case Token2
Case “+”
Value = Value + Value2
Case “-“
Value = Value – Value2
End Select
Wend
sub1 = Value
End Function<\/p>\n\n\n\n

‘ \u4e57\u7b97\u3001\u9664\u7b97\u306e\u51e6\u7406
Function sub2(Value As Double) As Double
Dim Value2 As Double
Dim Token2 As String
Value = sub3(Value)
While Token = “*” Or Token = “\/”
Token2 = Token
GetToken
Value2 = sub3(Value2)
Select Case Token2
Case “*”
Value = Value * Value2
Case “\/”
Value = Value \/ Value2
End Select
Wend
sub2 = Value
End Function<\/p>\n\n\n\n

‘ \u3079\u304d\u4e57\u306e\u51e6\u7406
Function sub3(Value As Double) As Double
Dim Value2 As Double
Dim Token2 As String
Value = sub4(Value)
While Token = “^”
Token2 = Token
GetToken
Value2 = sub4(Value2)
Select Case Token2
Case “^”
Value = Value ^ Value2
End Select
Wend
sub3 = Value
End Function<\/p>\n\n\n\n

‘ \u5358\u9805\u6f14\u7b97\u5b50\u306e\u51e6\u7406
Function sub4(Value As Double) As Double
Dim Token2 As String
If Token = “+” Or Token = “-” Then
Token2 = Token
GetToken
End If
Value = sub5(Value)
If Token2 = “-” Then
Value = -Value
End If
sub4 = Value
End Function<\/p>\n\n\n\n

‘ \u62ec\u5f27\u306e\u51e6\u7406
Function sub5(Value As Double) As Double
If Token = “(” Then
GetToken
Value = sub1(Value)
GetToken
Else
Value = Atom()
End If
sub5 = Value
End Function<\/p>\n\n\n\n

‘ \u6570\u5024\u306e\u51e6\u7406
Function Atom() As Double
Dim temp As String
Dim i As Integer
Dim Value2 As Double
If TokenType = 3 Then
Atom = Func(Token)
ElseIf TokenType = 2 Then
Atom = Val(Token)
GetToken
End If<\/p>\n\n\n\n

End Function<\/p>\n\n\n\n

‘\u7b97\u8853\u95a2\u6570\u306e\u51e6\u7406
Function Func(str As String) As Double
Dim Value2 As Double
Dim str2 As Double
Select Case str
Case “sin”
GetToken
Value2 = sub4(Value2)
Func = Sin(Value2 \/ RAD)
Case “cos”
GetToken
Value2 = sub4(Value2)
Func = Cos(Value2 \/ RAD)
Case “tan”
GetToken
Value2 = sub4(Value2)
Func = Tan(Value2 \/ RAD)
Case “asin”
GetToken
Value2 = sub4(Value2)
Func = WorksheetFunction.Asin(Value2) * RAD
Case “acos”
GetToken
Value2 = sub4(Value2)
Func = WorksheetFunction.Acos(Value2) * RAD
Case “atan”
GetToken
Value2 = sub4(Value2)
Func = Atn(Value2) * RAD
Case “abs”
GetToken
Value2 = sub4(Value2)
Func = Abs(Value2)
Case “int”
GetToken
Value2 = sub4(Value2)
Func = Int(Value2)
Case “exp”
GetToken
Value2 = sub4(Value2)
Func = Exp(Value2)
Case “log”
GetToken
Value2 = sub4(Value2)
Func = Log(Value2) \/ Log(10#) ‘”\/ Log(10#)”\u3092\u8ffd\u52a0
Case “ln” ‘\u8ffd\u52a0
GetToken ‘\u8ffd\u52a0
Value2 = sub4(Value2) ‘\u8ffd\u52a0
Func = Log(Value2) ‘\u8ffd\u52a0
Case “sqrt”
GetToken
Value2 = sub4(Value2)
Func = Sqr(Value2)
Case Else
MsgBox “\u95a2\u6570 ” + str + ” \u306f\u5b9a\u7fa9\u3055\u308c\u3066\u3044\u307e\u305b\u3093\u3002” _
, vbOKOnly + vbExclamation, “EG\u95a2\u6570”
Func = 1 \/ 0
End Select
End Function<\/p>\n\n\n\n

‘ \u30c8\u30fc\u30af\u30f3\u306e\u5207\u51fa\u3057
Function GetToken()
Dim i As Integer<\/p>\n\n\n\n

If GP > SLen Then
Token = “”
Exit Function
End If
If InStr(DELIMITA, Mid(S, GP, 1)) <> 0 Then
Token = Mid(S, GP, 1)
TokenType = 1
GP = GP + 1
If Token = “(” Then ‘\u62ec\u5f27\u306e\u30c1\u30a7\u30c3\u30af
KAKKO = KAKKO + 1
ElseIf Token = “)” Then
KAKKO = KAKKO – 1
End If
ElseIf InStr(NUMBER, Mid(S, GP, 1)) <> 0 Then
For i = GP To SLen
If InStr(DELIMITA, Mid(S, i, 1)) <> 0 Then
Exit For
End If
Next
Token = Mid(S, GP, i – GP)
TokenType = 2
GP = i
Else
For i = GP To SLen
If InStr(DELIMITA, Mid(S, i, 1)) <> 0 Then
Exit For
End If
Next
Token = Mid(S, GP, i – GP)
TokenType = 3
GP = i
End If
End Function<\/p>\n\n\n\n

‘ \u56db\u6368\u4e94\u5165\u8a08\u7b97
Function egs(S2 As String, kurai As Integer) As Double
egs = Application.Round(eg(S2), kurai)
End Function
‘ \uff12\u884c\u306e\u8a08\u7b97
Function egw(G1 As String, G2 As String) As Double
egw = eg(G1 + G2)
End Function
‘ \uff12\u884c\u56db\u6368\u4e94\u5165\u8a08\u7b97
Function egws(G1 As String, G2 As String, kurai As Integer) As Double
egws = Application.Round(eg(G1 + G2), kurai)
End Function<\/p>\n","protected":false},"excerpt":{"rendered":"

\u30a8\u30af\u30bb\u30ebVBA\u306e\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u7f6e\u304f\u3068\u4f7f\u3048\u308b\u3002 ‘ Textcalc \u306f\u9577\u3044\u306e\u3067\u3001eg\u306b\u5909\u66f4\u30002008.02.07\u3000By\u3000Norio‘ —\u5185\u5bb9—‘ \u8a08\u7b97\u306b\u95a2\u4fc2\u7121 […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"swell_btn_cv_data":"","footnotes":""},"categories":[237],"tags":[1188],"class_list":["post-5560","post","type-post","status-publish","format-standard","hentry","category-excel","tag-vba"],"_links":{"self":[{"href":"https:\/\/mint-site.dongurikaigi.com\/index.php?rest_route=\/wp\/v2\/posts\/5560","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/mint-site.dongurikaigi.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/mint-site.dongurikaigi.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/mint-site.dongurikaigi.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/mint-site.dongurikaigi.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=5560"}],"version-history":[{"count":1,"href":"https:\/\/mint-site.dongurikaigi.com\/index.php?rest_route=\/wp\/v2\/posts\/5560\/revisions"}],"predecessor-version":[{"id":31867,"href":"https:\/\/mint-site.dongurikaigi.com\/index.php?rest_route=\/wp\/v2\/posts\/5560\/revisions\/31867"}],"wp:attachment":[{"href":"https:\/\/mint-site.dongurikaigi.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=5560"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/mint-site.dongurikaigi.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=5560"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/mint-site.dongurikaigi.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=5560"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}