質問編集履歴
5
タイトル修正
title
CHANGED
|
@@ -1,1 +1,1 @@
|
|
|
1
|
-
VBA 関数で計算式を呼び出すやり方
|
|
1
|
+
VBAでの電卓作成 関数で計算式（足し算、引き算、割り算、掛け算）を呼び出すやり方
|
body
CHANGED
|
File without changes
|
4
情報の補足
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -124,4 +124,28 @@
|
|
|
124
124
|
### 補足情報（FW/ツールのバージョンなど）
|
|
125
125
|
|
|
126
126
|
・+は1，-は2，×は3，÷は４にして条件分岐しています
|
|
127
|
-
・作っているのは電卓です TextBoxには押した数値キーの数字(num)と演算結果(ans)が出ます
|
|
127
|
+
・作っているのは電卓です TextBoxには押した数値キーの数字(num)と演算結果(ans)が出ます
|
|
128
|
+
・下記が四則演算を関数化する前の演算の部分の書き方です。こちらだと正常に動きます。
|
|
129
|
+
|
|
130
|
+
Private Sub CommandButton11_Click() '足し算
|
|
131
|
+
|
|
132
|
+
enzan = True
|
|
133
|
+
num = Val(TextBox1.Text)
|
|
134
|
+
|
|
135
|
+
Select Case ent
|
|
136
|
+
Case 0
|
|
137
|
+
ans = num
|
|
138
|
+
Case 1
|
|
139
|
+
ans = ans + num
|
|
140
|
+
Case 2
|
|
141
|
+
ans = ans - num
|
|
142
|
+
Case 3
|
|
143
|
+
ans = ans * num
|
|
144
|
+
Case 4
|
|
145
|
+
ans = ans / num
|
|
146
|
+
End Select
|
|
147
|
+
|
|
148
|
+
TextBox1.Text = ans
|
|
149
|
+
ent = 1 '-は2，*×は3，÷は4 後は同じ記述
|
|
150
|
+
|
|
151
|
+
End Sub
|
3
文法の修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -34,6 +34,8 @@
|
|
|
34
34
|
num = Val(TextBox1.Text)
|
|
35
35
|
|
|
36
36
|
Select Case ent
|
|
37
|
+
Case 0
|
|
38
|
+
ans = num
|
|
37
39
|
Case 1
|
|
38
40
|
ans = ans + num
|
|
39
41
|
Case 2
|
2
質問の補足
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -12,7 +12,9 @@
|
|
|
12
12
|
### 発生している問題・エラーメッセージ
|
|
13
13
|
|
|
14
14
|
```
|
|
15
|
-
演算キーを押すと0になる
|
|
15
|
+
・演算キーを押すとTextBoxが0になる。
|
|
16
|
+
・足し算は+0という形になるから答えは一応合っているが、掛け算、割り算、引き算の0が加算されるため
|
|
17
|
+
答えが0になる。
|
|
16
18
|
```
|
|
17
19
|
|
|
18
20
|
### 該当のソースコード
|
1
足し算の文法の修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -70,12 +70,13 @@
|
|
|
70
70
|
|
|
71
71
|
End Sub
|
|
72
72
|
|
|
73
|
-
Private Sub CommandButton11_Click() '足し算 +キー
|
|
73
|
+
Private Sub CommandButton11_Click() '足し算 +キー ※ 9/13修正
|
|
74
|
-
|
|
74
|
+
|
|
75
|
-
|
|
75
|
+
ent = 1
|
|
76
|
+
Dim r As Double
|
|
76
|
-
|
|
77
|
+
r = func(ent)
|
|
77
|
-
TextBox1.Text =
|
|
78
|
+
TextBox1.Text = r
|
|
78
|
-
|
|
79
|
+
|
|
79
80
|
End Sub
|
|
80
81
|
|
|
81
82
|
'+、×、÷ボタンも上記と同様 1，2，3，４で条件分岐
|