teratail
回答率
85.47%
質問するログイン新規登録
トップに関する質問Userform1のソースコードでUserform2のボタンを押した時・・・というIF文を作りたいです。

編集履歴

質問編集履歴

5

2019/09/10 10:24

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -38,7 +38,7 @@
38
38
 
39
39
  userform2_hantei = 0
40
40
 
41
- Call func1()
41
+ Call userform2_hantei()
42
42
 
43
43
  If userform2_hantei = 1 Then
44
44
 
@@ -58,11 +58,7 @@
58
58
 
59
59
  ```
60
60
 
61
- Dim userform2_hantei As Integer
61
+ Function userform2_hantei(userform2_hantei As Integer)
62
-
63
-
64
-
65
- Function func1()
66
62
 
67
63
 
68
64
 

4

2019/09/10 10:24

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -46,6 +46,10 @@
46
46
 
47
47
  ElseIf
48
48
 
49
+
50
+
51
+ End Sub
52
+
49
53
  ```
50
54
 
51
55
 

3

2019/09/10 10:10

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -32,6 +32,10 @@
32
32
 
33
33
  ```
34
34
 
35
+ Dim userform2_hantei As Integer
36
+
37
+
38
+
35
39
  userform2_hantei = 0
36
40
 
37
41
  Call func1()
@@ -50,6 +54,10 @@
50
54
 
51
55
  ```
52
56
 
57
+ Dim userform2_hantei As Integer
58
+
59
+
60
+
53
61
  Function func1()
54
62
 
55
63
 

2

2019/09/10 10:09

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -50,14 +50,18 @@
50
50
 
51
51
  ```
52
52
 
53
- Private Sub yes_Click()
53
+ Function func1()
54
54
 
55
+
56
+
55
- Function func1()
57
+ If yes_Click Then
56
58
 
57
59
  userform2_hantei = 1
58
60
 
61
+ ElseIf
62
+
63
+
64
+
59
65
  End Function
60
66
 
61
- End Sub
62
-
63
67
  ```

1

2019/09/10 10:06

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -15,3 +15,49 @@
15
15
  If Form_UserForm2.yes_Click Then
16
16
 
17
17
  ```
18
+
19
+
20
+
21
+
22
+
23
+ 追記
24
+
25
+ 下記のようにも試しましたがうまくいきませんでした。
26
+
27
+
28
+
29
+
30
+
31
+ ユーザーフォーム1の記述
32
+
33
+ ```
34
+
35
+ userform2_hantei = 0
36
+
37
+ Call func1()
38
+
39
+ If userform2_hantei = 1 Then
40
+
41
+ 処理
42
+
43
+ ElseIf
44
+
45
+ ```
46
+
47
+
48
+
49
+ ユーザーフォーム2の記述
50
+
51
+ ```
52
+
53
+ Private Sub yes_Click()
54
+
55
+ Function func1()
56
+
57
+ userform2_hantei = 1
58
+
59
+ End Function
60
+
61
+ End Sub
62
+
63
+ ```