teratail
回答率
85.48%
質問するログイン新規登録
トップに関する質問Excel[VBA] 入力フォームに一項目を入力で他を自動で表示されるようにしたい。

編集履歴

質問編集履歴

4

コードの編集

2018/05/27 04:32

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -6,7 +6,7 @@
6
6
 
7
7
  ### 前提・実現したいこと
8
8
 
9
- UserForm1のナンバーに、
9
+ UserForm1の確認ボタンに、
10
10
 
11
11
  1～10が入力されたら、下に記載のB15～D15、
12
12
 
@@ -16,7 +16,7 @@
16
16
 
17
17
 
18
18
 
19
- 数字を入力してもエクセルに反映しません。
19
+ 確認ボタンを押してもエクセルに反映しません。
20
20
 
21
21
  詳しい方、ご指摘いただきたくお願いいたします。
22
22
 
@@ -24,61 +24,37 @@
24
24
 
25
25
  ```ここに言語を入力
26
26
 
27
- Option Explicit
27
+ Private Sub OKボタン_Click()
28
28
 
29
29
 
30
30
 
31
- Private Sub OKボタン_Click()
31
+ If (ナンバー.Text) = "" Then
32
32
 
33
- If ナンバー.Text = "" Then
33
+ MsgBox "ナンバーが間違っています。"
34
34
 
35
- MsgBox "ナンバーが間違っています。"
35
+ Exit Sub
36
36
 
37
- Exit Sub
38
-
39
- End If
37
+ End If
40
38
 
41
39
 
42
40
 
43
- Sub if_jirei_4()
41
+ If (ナンバー.Text) >= 1 And (ナンバー.Text) <= 10 Then
44
42
 
45
- ElseIf ナンバー.Text >= 10 Then
43
+ Range("A3:C3").Value = Range("B15:D15").Value
46
44
 
47
- Range("A3:C3").Value = "B15:D15"
45
+ ElseIf (ナンバー.Text) >= 11 And (ナンバー.Text) <= 20 Then
48
46
 
49
- ElseIf ナンバー.Text >= 11 Then
47
+ Range("A3:C3").Value = Range("B16:D16").Value
50
48
 
51
- Range("A3:C3").Value = Range("B16:D16").Value
49
+ Else
52
50
 
51
+ '
52
+
53
- End If
53
+ End If
54
54
 
55
55
 
56
56
 
57
-
58
-
59
- ElseIf ナンバー.Text >= 1 Then
60
-
61
- Range("A3:C3").Value = "B15:D15"
62
-
63
- ElseIf ナンバー.Text >= 20 Then
64
-
65
- Range("A3:C3").Value = Range("B16:D16").Value
66
-
67
- End If
68
-
69
-
70
-
71
-
72
-
73
- End Sub
57
+ End Sub
74
-
75
-
76
-
77
- Private Sub CommandButton1_Click()
78
-
79
-
80
-
81
- End Sub
82
58
 
83
59
 
84
60
 

3

コードの変更

2018/05/27 04:32

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -16,13 +16,19 @@
16
16
 
17
17
 
18
18
 
19
+ 数字を入力してもエクセルに反映しません。
20
+
21
+ 詳しい方、ご指摘いただきたくお願いいたします。
22
+
23
+
24
+
19
25
  ```ここに言語を入力
20
26
 
21
27
  Option Explicit
22
28
 
23
29
 
24
30
 
25
- Private Sub 確認ボタン_Click()
31
+ Private Sub OKボタン_Click()
26
32
 
27
33
  If ナンバー.Text = "" Then
28
34
 
@@ -32,42 +38,48 @@
32
38
 
33
39
  End If
34
40
 
35
-
41
+
36
42
 
37
43
  Sub if_jirei_4()
44
+
45
+ ElseIf ナンバー.Text >= 10 Then
46
+
47
+ Range("A3:C3").Value = "B15:D15"
48
+
49
+ ElseIf ナンバー.Text >= 11 Then
50
+
51
+ Range("A3:C3").Value = Range("B16:D16").Value
52
+
53
+ End If
54
+
55
+
56
+
57
+
38
58
 
39
59
  ElseIf ナンバー.Text >= 1 Then
40
60
 
41
61
  Range("A3:C3").Value = "B15:D15"
42
62
 
43
- ElseIf ナンバー.Text >= 11 Then
63
+ ElseIf ナンバー.Text >= 20 Then
44
64
 
45
- Range("A3:C3").Value = "B16:D16"
65
+ Range("A3:C3").Value = Range("B16:D16").Value
46
66
 
47
67
  End If
48
68
 
49
69
 
50
70
 
51
-
52
71
 
53
- ElseIf ナンバー.Text >= 10 Then
54
72
 
55
- Range("A3:C3").Value = "B15:D15"
56
-
57
- ElseIf ナンバー.Text >= 20 Then
58
-
59
- Range("A3:C3").Value = "B16:D16"
60
-
61
- End If
73
+ End Sub
62
74
 
63
75
 
64
76
 
65
-
77
+ Private Sub CommandButton1_Click()
78
+
79
+
66
80
 
67
81
  End Sub
68
82
 
69
83
 
70
84
 
71
85
  ```
72
-
73
- 思うように動いてくれないので、ご教示いただきたくお願いいたします。

2

コードの記載

2018/05/26 22:50

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -1,55 +1,73 @@
1
- ![](ac40c7ccb824e758200b296602bcfbe2.jpeg)
1
+ ![イメージ説明](6f2cc0e197c744555e99bceecca32c44.jpeg)
2
+
3
+
2
4
 
3
5
 
4
6
 
5
7
  ### 前提・実現したいこと
6
8
 
9
+ UserForm1のナンバーに、
7
10
 
11
+ 1～10が入力されたら、下に記載のB15～D15、
8
12
 
9
- 入力フォームに、　番号1～10、11～20など、
13
+ 11～20が入力されたら、B16～D16のデータを
10
14
 
11
- 以下の数字を入力したら、社名・商品名・型番が自動で表示をされるようにしたいです。
15
+ 上のA3からC3に表示させたい。
12
16
 
13
17
 
14
18
 
15
- (例)
19
+ ```ここに言語を入力
16
20
 
17
- 番号 社名 商品名 型番
18
-
19
- 1～10 A 〇▽ AAAAA
21
+ Option Explicit
20
-
21
- 11～20 B ×■ BBBB
22
22
 
23
23
 
24
24
 
25
+ Private Sub 確認ボタン_Click()
25
26
 
27
+ If ナンバー.Text = "" Then
26
28
 
27
- 現在、入力フォームを作成し、ボタンを押して表示されるようにしました。
29
+ MsgBox "ナンバーが間違っています。"
30
+
31
+ Exit Sub
32
+
33
+ End If
34
+
35
+
36
+
37
+ Sub if_jirei_4()
38
+
39
+ ElseIf ナンバー.Text >= 1 Then
40
+
41
+ Range("A3:C3").Value = "B15:D15"
42
+
43
+ ElseIf ナンバー.Text >= 11 Then
44
+
45
+ Range("A3:C3").Value = "B16:D16"
46
+
47
+ End If
28
48
 
29
49
 
30
50
 
51
+
52
+
31
- Private Sub Label1_Click()
53
+ ElseIf ナンバー.Text >= 10 Then
54
+
55
+ Range("A3:C3").Value = "B15:D15"
56
+
57
+ ElseIf ナンバー.Text >= 20 Then
58
+
59
+ Range("A3:C3").Value = "B16:D16"
60
+
61
+ End If
62
+
63
+
64
+
65
+
32
66
 
33
67
  End Sub
34
68
 
35
69
 
36
70
 
37
- Private Sub TextBox2_Change()
71
+ ```
38
72
 
39
- End Sub
40
-
41
-
42
-
43
- ======
44
-
45
-
46
-
47
- Sub 入力フォーム_Open()
48
-
49
- 入力フォーム.Show
50
-
51
- End Sub
52
-
53
-
54
-
55
- 番号だけを入力し、下3つを自動で表示されるようにしたい。
73
+ 思うように動いてくれないので、ご教示いただきたくお願いいたします。

1

画像の追加

2018/05/26 08:04

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -1,8 +1,12 @@
1
+ ![](ac40c7ccb824e758200b296602bcfbe2.jpeg)
2
+
3
+
4
+
1
5
  ### 前提・実現したいこと
2
6
 
3
7
 
4
8
 
5
- 入力フォームに、1～10、11～20など、
9
+ 入力フォームに、　番号1～10、11～20など、
6
10
 
7
11
  以下の数字を入力したら、社名・商品名・型番が自動で表示をされるようにしたいです。
8
12