質問編集履歴
4
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -11,6 +11,8 @@
|
|
|
11
11
|
ヘルプを開けると「http://o15・・・（長いので省略）を開くことができません。インターネットサーバーまたはプロキシサーバーが見つかりませんでした。」とでます。
|
|
12
12
|
|
|
13
13
|
なお、参照設定は「visual basib for applications」、「Microsoft Excel 15.0 object library」、「Microsoft Office 15.0 object library」の３つにチェックを入れてます。
|
|
14
|
+
|
|
15
|
+
|
|
14
16
|
|
|
15
17
|
|
|
16
18
|
|
3
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -98,4 +98,4 @@
|
|
|
98
98
|
|
|
99
99
|
|
|
100
100
|
|
|
101
|
-
エラーが出た箇所は上記のPrivate Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean
|
|
101
|
+
エラーが出た箇所は上記のPrivate Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBooleanです。
|
2
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -58,7 +58,11 @@
|
|
|
58
58
|
|
|
59
59
|
|
|
60
60
|
|
|
61
|
+
エラー箇所ここから
|
|
62
|
+
|
|
61
|
-
|
|
63
|
+
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
|
|
64
|
+
|
|
65
|
+
エラー箇所ここまで
|
|
62
66
|
|
|
63
67
|
wb.Worksheets(UserForm1.ListBox1.Value).Copy After:=ThisWorkbook.Worksheets("sheet2")
|
|
64
68
|
|
|
@@ -94,4 +98,4 @@
|
|
|
94
98
|
|
|
95
99
|
|
|
96
100
|
|
|
97
|
-
エラーが出た箇所は上記
|
|
101
|
+
エラーが出た箇所は上記のPrivate Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean_です。
|
1
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -28,6 +28,8 @@
|
|
|
28
28
|
|
|
29
29
|
|
|
30
30
|
|
|
31
|
+
```
|
|
32
|
+
|
|
31
33
|
Private wb As Workbook
|
|
32
34
|
|
|
33
35
|
Private FileName As String
|
|
@@ -36,7 +38,7 @@
|
|
|
36
38
|
|
|
37
39
|
Private Sub UserForm_Initialize()
|
|
38
40
|
|
|
39
|
-
FileName=Application.GetOpenFilename(filefilter:=
|
|
41
|
+
FileName=Application.GetOpenFilename(filefilter:="Excelファイル,*.xls*",MultiSelect:=False)
|
|
40
42
|
|
|
41
43
|
|
|
42
44
|
|
|
@@ -56,9 +58,9 @@
|
|
|
56
58
|
|
|
57
59
|
|
|
58
60
|
|
|
59
|
-
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
|
|
61
|
+
**__Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean__**)
|
|
60
62
|
|
|
61
|
-
wb.Worksheets(UserForm1.ListBox1.Value).Copy After:=ThisWorkbook.Worksheets(
|
|
63
|
+
wb.Worksheets(UserForm1.ListBox1.Value).Copy After:=ThisWorkbook.Worksheets("sheet2")
|
|
62
64
|
|
|
63
65
|
|
|
64
66
|
|
|
@@ -78,8 +80,18 @@
|
|
|
78
80
|
|
|
79
81
|
|
|
80
82
|
|
|
83
|
+
```
|
|
84
|
+
|
|
85
|
+
|
|
86
|
+
|
|
87
|
+
|
|
88
|
+
|
|
81
89
|
エラーが出た後は、誤字がないか確認し、参照設定は１つ追加しました。（初めは「Microsoft Office 15.0 object library」がチェックついてなかったためです。）
|
|
82
90
|
|
|
83
91
|
|
|
84
92
|
|
|
85
93
|
なお、使用しているのはExcel2013、Windowsは10です。
|
|
94
|
+
|
|
95
|
+
|
|
96
|
+
|
|
97
|
+
エラーが出た箇所は上記太字かつ斜字部分Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean_です。
|