回答編集履歴
1
説明追記
answer
CHANGED
|
@@ -1,13 +1,7 @@
|
|
|
1
|
-
コーディングの勉強の為ということ
|
|
1
|
+
コーディングの勉強の為とということなら、
|
|
2
|
+
例えば、かけ算ボタンなら、下記のようにコードを追加するといいでしょう。
|
|
3
|
+
他の演算ボタンも同様に。
|
|
2
4
|
|
|
3
|
-
そうでないなら、Evaluateメソッドで簡単に実現できます。
|
|
4
|
-
|
|
5
|
-
Evaluateメソッド（文字列の数式を実行します）｜VBA技術解説
|
|
6
|
-
https://excel-ubara.com/excelvba4/EXCEL_VBA_424.html
|
|
7
|
-
|
|
8
|
-
勉強の為とということなら、
|
|
9
|
-
例えば、×ボタンなら、下記のようにコードを追加するといいでしょう。
|
|
10
|
-
|
|
11
5
|
```vba
|
|
12
6
|
Private Sub CommandButton13_Click() '*
|
|
13
7
|
|
|
@@ -40,5 +34,31 @@
|
|
|
40
34
|
ent = 3
|
|
41
35
|
|
|
42
36
|
End Sub
|
|
37
|
+
```
|
|
43
38
|
|
|
39
|
+
このような場合分けは、If文を並べるより、Select Case文の方が読みやすいでしょう。
|
|
40
|
+
|
|
41
|
+
```vba
|
|
42
|
+
Private Sub CommandButton13_Click() '*
|
|
43
|
+
|
|
44
|
+
enzan = True
|
|
45
|
+
num = Val(TextBox1.Text)
|
|
46
|
+
|
|
47
|
+
Select Case ent
|
|
48
|
+
Case 0
|
|
49
|
+
ans = num
|
|
50
|
+
Case 1
|
|
51
|
+
ans = ans + num
|
|
52
|
+
Case 2
|
|
53
|
+
ans = ans - num
|
|
54
|
+
Case 3
|
|
55
|
+
ans = ans * num
|
|
56
|
+
Case 4
|
|
57
|
+
ans = ans / num
|
|
58
|
+
End Select
|
|
59
|
+
|
|
60
|
+
TextBox1.Text = ans
|
|
61
|
+
ent = 3
|
|
62
|
+
|
|
63
|
+
End Sub
|
|
44
64
|
```
|