teratail
回答率
85.48%
質問するログイン新規登録
トップに関する質問VBA リストボックス 行移動

編集履歴

質問編集履歴

4

不正削除の打ち消し

2018/07/02 00:13

投稿

退会済みユーザー
test CHANGED
@@ -1 +1 @@
1
- htmlファイルからSearchBarで検索・表示
1
+ VBA リストボックス 行移動
test CHANGED
@@ -1,5 +1,79 @@
1
- LINE(WEBView)からリンクURLパスにパラメータ(?openExternalBrowser=1)をつけて立ち上げた外部ブラウザから、表示していたLINEページに戻る手段があればご教授頂けないでしょうか？
1
+ リストボックス内の行をボタンで上に移動させる際に、一番上の行を選択して移動ボタンを押した際に何も起こらないようにしたいのですが、移動したファイルがリストボックスから消えてしまいます。
2
2
 
3
+ よろしくお願い致します
3
4
 
5
+ ```VBA
4
6
 
7
+ Private Sub btn_FileOpen_Click()
8
+
9
+ Dim OpenFileName As Variant, Target As Variant
10
+
11
+ 'カレントディレクトリを指定
12
+
13
+ ChDrive "C"
14
+
15
+ ChDir "C:\test"
16
+
17
+ OpenFileName = Application.GetOpenFilename(FileFilter:="Microsoft Excelブック,*.xls?", _
18
+
19
+ MultiSelect:=True)
20
+
21
+ If IsArray(OpenFileName) Then
22
+
23
+ With Me.BookInput
24
+
25
+ 'リストボックスにファイル名を表示
26
+
27
+ For Each Target In OpenFileName
28
+
5
- LINEディベロッパーサイトなどみましたが、そういったurlスキームが見当たらなかった為質問させて頂きました。
29
+ .AddItem Mid(Target,InstrRev(Target,"\")+1)
30
+
31
+ Pathname = Replace(Target, Filename, "")
32
+
33
+ .AddItem ""
34
+
35
+ .List(BookInput.ListCount - 1, 0) = Filename
36
+
37
+ .List(BookInput.ListCount - 1, 1) = Pathname
38
+
39
+ Next Target
40
+
41
+ End with
42
+
43
+ Else
44
+
45
+ MsgBox "キャンセルされました"
46
+
47
+ End If
48
+
49
+ End Sub
50
+
51
+ Private Sub btn_Fileup_Click()
52
+
53
+ Dim n As Long, buf1 As String, buf2 As String
54
+
55
+ On Error Resume Next
56
+
57
+ Dim n As Long, buf1 As String, buf2 As String
58
+
59
+ n = BookInput.ListIndex ''(1)現在選択されている位置を記憶する
60
+
61
+ buf1 = BookInput.List(n, 0) ''(2)現在選択されているデータを記憶する
62
+
63
+ buf2 = BookInput.List(n, 1) ''(2)現在選択されているデータを記憶する
64
+
65
+ BookInput.RemoveItem n ''(3)現在選択されている位置のデータを削除する
66
+
67
+ BookInput.AddItem "", n - 1 ''(4)1つ上の位置に行を追加する
68
+
69
+ BookInput.List(n - 1, 0) = buf1 ''(4)1つ上の位置にデータを追加する
70
+
71
+ BookInput.List(n - 1, 1) = buf2 ''(4)1つ上の位置にデータを追加する
72
+
73
+ BookInput.ListIndex = n
74
+
75
+ Exit Sub
76
+
77
+ End Sub
78
+
79
+ ```

3

2018/07/02 00:13

投稿

退会済みユーザー
test CHANGED
@@ -1 +1 @@
1
- VBA リストボックス 行移動
1
+ htmlファイルからSearchBarで検索・表示
test CHANGED
@@ -1,105 +1,5 @@
1
- リストボックス内の行をボタンで上に移動させる際に、一番上の行を選択して移動ボタンを押した際に何も起こらないようにしたいのですが、移動したファイルがリストボックスから消えてしまいます。
1
+ LINE(WEBView)からリンクURLパスにパラメータ(?openExternalBrowser=1)をつけて立ち上げた外部ブラウザから、表示していたLINEページに戻る手段があればご教授頂けないでしょうか？
2
2
 
3
3
 
4
4
 
5
- よろしくお願い致します
6
-
7
-
8
-
9
-
10
-
11
- ```VBA
12
-
13
-
14
-
15
- Private Sub btn_FileOpen_Click()
16
-
17
- Dim OpenFileName As Variant, Target As Variant
18
-
19
- 'カレントディレクトリを指定
20
-
21
- ChDrive "C"
22
-
23
- ChDir "C:\test"
24
-
25
-
26
-
27
- OpenFileName = Application.GetOpenFilename(FileFilter:="Microsoft Excelブック,*.xls?", _
28
-
29
- MultiSelect:=True)
30
-
31
- If IsArray(OpenFileName) Then
32
-
33
- With Me.BookInput
34
-
35
-
36
-
37
- 'リストボックスにファイル名を表示
38
-
39
- For Each Target In OpenFileName
40
-
41
- .AddItem Mid(Target,InstrRev(Target,"\")+1)
5
+ LINEディベロッパーサイトなどみましたが、そういったurlスキームが見当たらなかった為質問させて頂きました。
42
-
43
- Pathname = Replace(Target, Filename, "")
44
-
45
- .AddItem ""
46
-
47
- .List(BookInput.ListCount - 1, 0) = Filename
48
-
49
- .List(BookInput.ListCount - 1, 1) = Pathname
50
-
51
- Next Target
52
-
53
-
54
-
55
- End with
56
-
57
- Else
58
-
59
- MsgBox "キャンセルされました"
60
-
61
- End If
62
-
63
-
64
-
65
- End Sub
66
-
67
-
68
-
69
- Private Sub btn_Fileup_Click()
70
-
71
-
72
-
73
- Dim n As Long, buf1 As String, buf2 As String
74
-
75
- On Error Resume Next
76
-
77
- Dim n As Long, buf1 As String, buf2 As String
78
-
79
- n = BookInput.ListIndex ''(1)現在選択されている位置を記憶する
80
-
81
- buf1 = BookInput.List(n, 0) ''(2)現在選択されているデータを記憶する
82
-
83
- buf2 = BookInput.List(n, 1) ''(2)現在選択されているデータを記憶する
84
-
85
- BookInput.RemoveItem n ''(3)現在選択されている位置のデータを削除する
86
-
87
- BookInput.AddItem "", n - 1 ''(4)1つ上の位置に行を追加する
88
-
89
- BookInput.List(n - 1, 0) = buf1 ''(4)1つ上の位置にデータを追加する
90
-
91
- BookInput.List(n - 1, 1) = buf2 ''(4)1つ上の位置にデータを追加する
92
-
93
- BookInput.ListIndex = n
94
-
95
-
96
-
97
- Exit Sub
98
-
99
- End Sub
100
-
101
-
102
-
103
-
104
-
105
- ```

2

2018/06/30 08:50

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -88,7 +88,7 @@
88
88
 
89
89
  BookInput.List(n - 1, 0) = buf1 ''(4)1つ上の位置にデータを追加する
90
90
 
91
- BookInput.List(n - 1, 1) = buf2 ''(
91
+ BookInput.List(n - 1, 1) = buf2 ''(4)1つ上の位置にデータを追加する
92
92
 
93
93
  BookInput.ListIndex = n
94
94
 

1

2018/06/30 06:28

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -74,7 +74,21 @@
74
74
 
75
75
  On Error Resume Next
76
76
 
77
- n = BookInput.ListIndex ''(1)現在選択されている位置を記憶する buf1 = BookInput.List(n, 0) ''(2)現在選択されているデータを記憶する buf2 = BookInput.List(n, 1) ''(2)現在選択されているデータを記憶する BookInput.RemoveItem n ''(3)現在選択されている位置のデータを削除する BookInput.AddItem "", n - 1 ''(4)1つ上の位置に行を追加する BookInput.List(n - 1, 0) = buf1 ''(4)1つ上の位置にデータを追加する BookInput.List(n - 1, 1) = buf2
77
+ Dim n As Long, buf1 As String, buf2 As String
78
+
79
+ n = BookInput.ListIndex ''(1)現在選択されている位置を記憶する
80
+
81
+ buf1 = BookInput.List(n, 0) ''(2)現在選択されているデータを記憶する
82
+
83
+ buf2 = BookInput.List(n, 1) ''(2)現在選択されているデータを記憶する
84
+
85
+ BookInput.RemoveItem n ''(3)現在選択されている位置のデータを削除する
86
+
87
+ BookInput.AddItem "", n - 1 ''(4)1つ上の位置に行を追加する
88
+
89
+ BookInput.List(n - 1, 0) = buf1 ''(4)1つ上の位置にデータを追加する
90
+
91
+ BookInput.List(n - 1, 1) = buf2 ''(
78
92
 
79
93
  BookInput.ListIndex = n
80
94