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

編集履歴

質問編集履歴

4

コードの編集

2018/05/27 04:32

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
@@ -2,42 +2,30 @@
2
2
 
3
3
 
4
4
  ### 前提・実現したいこと
5
- UserForm1のナンバーに、
5
+ UserForm1の確認ボタンに、
6
6
  1～10が入力されたら、下に記載のB15～D15、
7
7
  11～20が入力されたら、B16～D16のデータを
8
8
  上のA3からC3に表示させたい。
9
9
 
10
- 数字を入力してもエクセルに反映しません。
10
+ 確認ボタンを押してもエクセルに反映しません。
11
11
  詳しい方、ご指摘いただきたくお願いいたします。
12
12
 
13
13
  ```ここに言語を入力
14
- Option Explicit
15
-
16
14
  Private Sub OKボタン_Click()
17
- If ナンバー.Text = "" Then
18
- MsgBox "ナンバーが間違っています。"
19
- Exit Sub
20
- End If
21
15
 
22
- Sub if_jirei_4()
23
- ElseIf ナンバー.Text >= 10 Then
16
+ If (ナンバー.Text) = "" Then
24
- Range("A3:C3").Value = "B15:D15"
17
+ MsgBox "ナンバーが間違っています。"
25
- ElseIf ナンバー.Text >= 11 Then
18
+ Exit Sub
26
- Range("A3:C3").Value = Range("B16:D16").Value
27
- End If
19
+ End If
28
20
 
21
+ If (ナンバー.Text) >= 1 And (ナンバー.Text) <= 10 Then
22
+ Range("A3:C3").Value = Range("B15:D15").Value
23
+ ElseIf (ナンバー.Text) >= 11 And (ナンバー.Text) <= 20 Then
24
+ Range("A3:C3").Value = Range("B16:D16").Value
25
+ Else
26
+ '
27
+ End If
29
28
 
30
- ElseIf ナンバー.Text >= 1 Then
31
- Range("A3:C3").Value = "B15:D15"
32
- ElseIf ナンバー.Text >= 20 Then
33
- Range("A3:C3").Value = Range("B16:D16").Value
34
- End If
29
+ End Sub
35
30
 
36
-
37
- End Sub
38
-
39
- Private Sub CommandButton1_Click()
40
-
41
- End Sub
42
-
43
31
  ```

3

コードの変更

2018/05/27 04:32

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
@@ -7,31 +7,37 @@
7
7
  11～20が入力されたら、B16～D16のデータを
8
8
  上のA3からC3に表示させたい。
9
9
 
10
+ 数字を入力してもエクセルに反映しません。
11
+ 詳しい方、ご指摘いただきたくお願いいたします。
12
+
10
13
  ```ここに言語を入力
11
14
  Option Explicit
12
15
 
13
- Private Sub 確認ボタン_Click()
16
+ Private Sub OKボタン_Click()
14
17
  If ナンバー.Text = "" Then
15
18
  MsgBox "ナンバーが間違っています。"
16
19
  Exit Sub
17
20
  End If
18
-
21
+
19
22
  Sub if_jirei_4()
20
- ElseIf ナンバー.Text >= 1 Then
23
+ ElseIf ナンバー.Text >= 10 Then
21
24
  Range("A3:C3").Value = "B15:D15"
22
25
  ElseIf ナンバー.Text >= 11 Then
23
- Range("A3:C3").Value = "B16:D16"
26
+ Range("A3:C3").Value = Range("B16:D16").Value
24
27
  End If
25
28
 
26
-
29
+
27
- ElseIf ナンバー.Text >= 10 Then
30
+ ElseIf ナンバー.Text >= 1 Then
28
31
  Range("A3:C3").Value = "B15:D15"
29
32
  ElseIf ナンバー.Text >= 20 Then
30
- Range("A3:C3").Value = "B16:D16"
33
+ Range("A3:C3").Value = Range("B16:D16").Value
31
34
  End If
32
35
 
33
-
36
+
34
37
  End Sub
35
38
 
39
+ Private Sub CommandButton1_Click()
40
+
41
+ End Sub
42
+
36
- ```
43
+ ```
37
- 思うように動いてくれないので、ご教示いただきたくお願いいたします。

2

コードの記載

2018/05/26 22:50

投稿

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

1

画像の追加

2018/05/26 08:04

投稿

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