質問編集履歴
4
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -6,6 +6,7 @@
|
|
|
6
6
|
ヘルプを開けると「http://o15・・・（長いので省略）を開くことができません。インターネットサーバーまたはプロキシサーバーが見つかりませんでした。」とでます。
|
|
7
7
|
なお、参照設定は「visual basib for applications」、「Microsoft Excel 15.0 object library」、「Microsoft Office 15.0 object library」の３つにチェックを入れてます。
|
|
8
8
|
|
|
9
|
+
|
|
9
10
|
なお、ネット環境にない状態で作業しています（上記のようにプロキシサーバー等が見つからない旨のエラーが出たため、もしかして関係あるのかな？と思いまして。。）
|
|
10
11
|
|
|
11
12
|
どのようにすればよいでしょうか。。。
|
3
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -48,4 +48,4 @@
|
|
|
48
48
|
|
|
49
49
|
なお、使用しているのはExcel2013、Windowsは10です。
|
|
50
50
|
|
|
51
|
-
エラーが出た箇所は上記のPrivate Sub ListBox1_DblClick(ByVal Cancel As MSForms.
|
|
51
|
+
エラーが出た箇所は上記のPrivate Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBooleanです。
|
2
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -28,7 +28,9 @@
|
|
|
28
28
|
|
|
29
29
|
End Sub
|
|
30
30
|
|
|
31
|
+
エラー箇所ここから
|
|
31
|
-
|
|
32
|
+
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
|
|
33
|
+
エラー箇所ここまで
|
|
32
34
|
wb.Worksheets(UserForm1.ListBox1.Value).Copy After:=ThisWorkbook.Worksheets("sheet2")
|
|
33
35
|
|
|
34
36
|
wb.Close
|
|
@@ -46,4 +48,4 @@
|
|
|
46
48
|
|
|
47
49
|
なお、使用しているのはExcel2013、Windowsは10です。
|
|
48
50
|
|
|
49
|
-
エラーが出た箇所は上記
|
|
51
|
+
エラーが出た箇所は上記のPrivate Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean_です。
|
1
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -13,11 +13,12 @@
|
|
|
13
13
|
|
|
14
14
|
以下、入力したコードです。
|
|
15
15
|
|
|
16
|
+
```
|
|
16
17
|
Private wb As Workbook
|
|
17
18
|
Private FileName As String
|
|
18
19
|
|
|
19
20
|
Private Sub UserForm_Initialize()
|
|
20
|
-
FileName=Application.GetOpenFilename(filefilter:=
|
|
21
|
+
FileName=Application.GetOpenFilename(filefilter:="Excelファイル,*.xls*",MultiSelect:=False)
|
|
21
22
|
|
|
22
23
|
Set wb = Workbooks.Open(FileName)
|
|
23
24
|
Dim sh As Worksheet
|
|
@@ -27,8 +28,8 @@
|
|
|
27
28
|
|
|
28
29
|
End Sub
|
|
29
30
|
|
|
30
|
-
|
|
31
|
+
**__Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean__**)
|
|
31
|
-
wb.Worksheets(UserForm1.ListBox1.Value).Copy After:=ThisWorkbook.Worksheets(
|
|
32
|
+
wb.Worksheets(UserForm1.ListBox1.Value).Copy After:=ThisWorkbook.Worksheets("sheet2")
|
|
32
33
|
|
|
33
34
|
wb.Close
|
|
34
35
|
Set wb = Nothing
|
|
@@ -38,6 +39,11 @@
|
|
|
38
39
|
End Sub
|
|
39
40
|
|
|
40
41
|
|
|
42
|
+
```
|
|
43
|
+
|
|
44
|
+
|
|
41
45
|
エラーが出た後は、誤字がないか確認し、参照設定は１つ追加しました。（初めは「Microsoft Office 15.0 object library」がチェックついてなかったためです。）
|
|
42
46
|
|
|
43
|
-
なお、使用しているのはExcel2013、Windowsは10です。
|
|
47
|
+
なお、使用しているのはExcel2013、Windowsは10です。
|
|
48
|
+
|
|
49
|
+
エラーが出た箇所は上記太字かつ斜字部分Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean_です。
|