質問編集履歴

2

不正削除の打ち消し

2018/07/02 00:11

投稿

退会済みユーザー
test CHANGED
@@ -1 +1 @@
1
- Swift で静的ライブライの作成と読み込みについて
1
+ VBA リストボックス水平スクロールバー
test CHANGED
@@ -1,23 +1,55 @@
1
- Swift で静的ライブライ作成と読み込みについてご質問させてただきたく思います
1
+ リストボックス複数列(2列)水平スクロールバーを1つけたのですが下記のコードで上手くいきませんでした。
2
2
 
3
+ HorizontalScrollbarプロパティをTrueにすればできると思ったのですが
3
4
 
5
+ ```VBA
4
6
 
5
- 以下のサイトを参考にして「.a」のライブラリを作成しました。
7
+ Private Sub btn_FileOpen_Click()
6
8
 
7
- http://www.cl9.info/entry/2017/11/01/220000
9
+ Dim OpenFileName As Variant, Target As Variant
8
10
 
9
- サイ内の説明では出来上がった「.a」と「.h」を使用したい他のプロジェクトに入れて使用するとの事ですが、
11
+ 'カレンディレクトリを指定
10
12
 
11
- Swiftで作った場合は「.h」がありません。
13
+ ChDrive "C"
12
14
 
15
+ ChDir "C:\test"
13
16
 
17
+ OpenFileName = Application.GetOpenFilename(FileFilter:="Microsoft Excelブック,*.xls?", _
14
18
 
15
- その場合どのように使用すれば良いでしょうか。
19
+ MultiSelect:=True)
16
20
 
21
+ If IsArray(OpenFileName) Then
17
22
 
23
+ With Me.BookInput
18
24
 
19
- 「.a」をそのまま他のプロジェ追加しただけではラブラリ内にアクセスができない状態です。
25
+ 'リストボッファル名を表示
20
26
 
27
+ For Each Target In OpenFileName
21
28
 
29
+ .AddItem Mid(Target,InstrRev(Target,"\")+1)
22
30
 
31
+ Pathname = Replace(Target, Filename, "")
32
+
33
+ .AddItem ""
34
+
35
+
36
+
37
+ BookInput.HorizontalScrollbar = True
38
+
39
+ .List(BookInput.ListCount - 1, 0) = Filename
40
+
41
+ .List(BookInput.ListCount - 1, 1) = Pathname
42
+
23
- よろしくお願いいたします。
43
+ Next Target
44
+
45
+ End with
46
+
47
+ Else
48
+
49
+ MsgBox "キャンセルされました"
50
+
51
+ End If
52
+
53
+ End Sub
54
+
55
+ ```

1

2018/07/02 00:11

投稿

退会済みユーザー
test CHANGED
@@ -1 +1 @@
1
- VBA リストボックス水平スクロールバー
1
+ Swift で静的ライブライの作成と読み込みについて
test CHANGED
@@ -1,79 +1,23 @@
1
- リストボックス複数列(2列)水平スクロールバーを1つけいのですが下記のコードで上手くいせんでした
1
+ Swift で静的ライブライ作成と読み込みについてご質問させていだきたいま
2
2
 
3
3
 
4
4
 
5
+ 以下のサイトを参考にして「.a」のライブラリを作成しました。
5
6
 
7
+ http://www.cl9.info/entry/2017/11/01/220000
6
8
 
7
- HorizontalScrollbarプロパティをTrueにすればできると思ったのですが
9
+ サイト内の説明では出来上がった「.a」と「.h」を使用したい他のプロジェクト入れて使用するとのですが
10
+
11
+ Swiftで作った場合は「.h」がありません。
8
12
 
9
13
 
10
14
 
11
- ろしくお願ます
15
+ その場合どのうに使用すれば良ょうか
12
16
 
13
17
 
14
18
 
15
- ```VBA
19
+ 「.a」をそのまま他のプロジェクトに追加しただけではライブラリ内にアクセスができない状態です。
16
20
 
17
21
 
18
22
 
19
- Private Sub btn_FileOpen_Click()
20
-
21
- Dim OpenFileName As Variant, Target As Variant
22
-
23
- 'カレントディレクトリを指定
24
-
25
- ChDrive "C"
26
-
27
- ChDir "C:\test"
28
-
29
-
30
-
31
- OpenFileName = Application.GetOpenFilename(FileFilter:="Microsoft Excelブック,*.xls?", _
32
-
33
- MultiSelect:=True)
34
-
35
- If IsArray(OpenFileName) Then
36
-
37
- With Me.BookInput
38
-
39
-
40
-
41
- 'リストボックスにファイル名を表示
42
-
43
- For Each Target In OpenFileName
44
-
45
- .AddItem Mid(Target,InstrRev(Target,"\")+1)
46
-
47
- Pathname = Replace(Target, Filename, "")
48
-
49
- .AddItem ""
50
-
51
-
52
-
53
- BookInput.HorizontalScrollbar = True
54
-
55
- .List(BookInput.ListCount - 1, 0) = Filename
56
-
57
- .List(BookInput.ListCount - 1, 1) = Pathname
58
-
59
- Next Target
23
+ よろしくお願いいたします。
60
-
61
-
62
-
63
- End with
64
-
65
- Else
66
-
67
- MsgBox "キャンセルされました"
68
-
69
- End If
70
-
71
-
72
-
73
- End Sub
74
-
75
-
76
-
77
-
78
-
79
- ```