質問編集履歴
3
文章の訂正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,11 +1,20 @@
|
|
|
1
1
|
A1を1行目として考える。
|
|
2
2
|
A1に"1"と記入する。
|
|
3
|
+
(1列分)
|
|
3
4
|
|
|
4
5
|
A2を2行目として考える。
|
|
5
6
|
2行目をA2:"2",B2:"3",C2:"4",D2:"5",E2:"6",F2:"7”,G2:"8"と記入する。
|
|
7
|
+
(7列分)
|
|
6
8
|
|
|
7
9
|
A3を3行目として考える。
|
|
8
|
-
3行目をA3:"9",B3:"10",C3:"11",D3:"12",E3:"13",F3:"14",G3:"15",H3:"16",J3:"17",K3:"18",L3:"19",M3:"20"
|
|
10
|
+
3行目をA3:"9",B3:"10",C3:"11",D3:"12",E3:"13",F3:"14",G3:"15",H3:"16",J3:"17",K3:"18",L3:"19",M3:"20"~"27"と記入する。
|
|
11
|
+
(19列分)
|
|
9
12
|
|
|
13
|
+
4行目以降↓
|
|
14
|
+
4行目
|
|
15
|
+
(37列分)
|
|
16
|
+
5行目
|
|
17
|
+
(61列分)
|
|
18
|
+
|
|
10
19
|
このようなプログラムをVBAで作る際には、
|
|
11
20
|
どのようなプログラムを書けば良いのでしょうか。
|
2
数値に誤り
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -2,10 +2,10 @@
|
|
|
2
2
|
A1に"1"と記入する。
|
|
3
3
|
|
|
4
4
|
A2を2行目として考える。
|
|
5
|
-
2行目をA2:"2",B2:"3",C2:"4",D2:"5",E2:"6",F2:"7”と記入する。
|
|
5
|
+
2行目をA2:"2",B2:"3",C2:"4",D2:"5",E2:"6",F2:"7”,G2:"8"と記入する。
|
|
6
6
|
|
|
7
7
|
A3を3行目として考える。
|
|
8
|
-
3行目をA3:"
|
|
8
|
+
3行目をA3:"9",B3:"10",C3:"11",D3:"12",E3:"13",F3:"14",G3:"15",H3:"16",J3:"17",K3:"18",L3:"19",M3:"20"
|
|
9
9
|
|
|
10
10
|
このようなプログラムをVBAで作る際には、
|
|
11
11
|
どのようなプログラムを書けば良いのでしょうか。
|
1
問題を明確にした。
title
CHANGED
|
@@ -1,1 +1,1 @@
|
|
|
1
|
-
VBAで入力する方法
|
|
1
|
+
【VBA初心者】Excel vbaで数値入力する方法
|
body
CHANGED
|
@@ -1,51 +1,11 @@
|
|
|
1
|
-
|
|
1
|
+
A1を1行目として考える。
|
|
2
|
-
|
|
2
|
+
A1に"1"と記入する。
|
|
3
3
|
|
|
4
|
-
ここに質問の内容を詳しく書いてください。
|
|
5
|
-
VBAの練習で、自分の考えた（途中までの）アルゴリズムを起動できるようにしたい。
|
|
6
|
-
＞アルゴリズム
|
|
7
|
-
1. 開始
|
|
8
|
-
2. 円の内径を入力する。既定値をR= 30mmとする。
|
|
9
|
-
3. 小さい円(筒)の外径を入力する。既定値をT= 0.3mmとする。
|
|
10
|
-
|
|
4
|
+
A2を2行目として考える。
|
|
11
|
-
|
|
5
|
+
2行目をA2:"2",B2:"3",C2:"4",D2:"5",E2:"6",F2:"7”と記入する。
|
|
12
|
-
6. 筒の間の距離を入力する。K=R(mm)/2K+1(個)
|
|
13
|
-
7. 変数に初期値を代入する。層番号L = 0, 層内番号n = 1, 基準点番号c = 1
|
|
14
|
-
8. (0,0)に0_1番の筒を配置する。x = 0, y = 0
|
|
15
|
-
9. エクセルの［L + 1 ： 2n］にx、［L+ 1 ： 2n + 1］にyを書き込む。
|
|
16
|
-
10. 層番号と層内番号を設定する。L = L + 1, n = 1
|
|
17
|
-
11. 基準点をL_on番の位置とする。もしエクセルの［L ： 2c］が空なら10へ戻る。
|
|
18
6
|
|
|
19
|
-
### 発生している問題・エラーメッセージ
|
|
20
|
-
|
|
7
|
+
A3を3行目として考える。
|
|
21
|
-
|
|
8
|
+
3行目をA3:"8",B3:"9",C3:"10",D3:"11",E3:"12",F3:"13",G3:"14",H3:"15",J3:"16",K3:"17",L3:"18",M3:"19"
|
|
22
9
|
|
|
23
|
-
strData = InputBox("円の内径(mm)を入力する。")
|
|
24
|
-
If StrPtr(strData) = 0 Then
|
|
25
|
-
MsgBox "入力がキャンセルされました。", vbExclamation
|
|
26
|
-
ElseIf strData = "" Then
|
|
27
|
-
MsgBox "値が未入力です。", vbExclamation
|
|
28
|
-
Else
|
|
29
|
-
MsgBox "既定値を" & strData & "(mm)とする。", vbInformation
|
|
30
|
-
End If
|
|
31
|
-
End Sub
|
|
32
|
-
|
|
33
|
-
|
|
34
|
-
2以降が分かりません。
|
|
35
|
-
正直これで合ってるのかも分からない状態です。
|
|
36
|
-
```
|
|
37
|
-
エラーメッセージ
|
|
38
|
-
```
|
|
39
|
-
|
|
40
|
-
### 該当のソースコード
|
|
41
|
-
|
|
42
|
-
```ここに言語名を入力
|
|
43
|
-
VBA
|
|
44
|
-
```
|
|
45
|
-
|
|
46
|
-
### 試したこと
|
|
47
|
-
VBAの練習問題を参考にしてみようと試みた。
|
|
48
|
-
|
|
49
|
-
### 補足情報（FW/ツールのバージョンなど）
|
|
50
|
-
Excel
|
|
51
|
-
こ
|
|
10
|
+
このようなプログラムをVBAで作る際には、
|
|
11
|
+
どのようなプログラムを書けば良いのでしょうか。
|