teratail
回答率
85.48%
質問するログイン新規登録
トップに関する質問ファイル (TabBarController

編集履歴

質問編集履歴

5

2018/06/30 08:28

投稿

退会済みユーザー
test CHANGED
@@ -1 +1 @@
1
- ファイル 読み取り専用
1
+ ファイル (TabBarController
test CHANGED
@@ -1,105 +1,5 @@
1
- ■実現したいこと
1
+ **ボールドテキスト**前画面で入力したプロフィール情報を画面を移動した先(TabBarControllerの内の一つのView(Profile.swift))に表示したいです。
2
2
 
3
- 下記のファイルを開く処理で読み取り専用にして
3
+ Profile_Setting.swiftのguard let profile = tab.~
4
4
 
5
- ポップアップが出ないようにしたいのですがどうすればよいでしょうか？
5
+ *の部分を何を書けばいいのでしょうか？
6
-
7
-
8
-
9
-
10
-
11
- ReadOnly:=Trueで「名前付き引数がない」といったエラーが出ています。
12
-
13
- ```VBA
14
-
15
-
16
-
17
- Private Sub btn_FileOpen_Click()
18
-
19
- Dim OpenFileName As Variant, Target As Variant
20
-
21
- 'カレントディレクトリを指定
22
-
23
- ChDrive "C"
24
-
25
- ChDir "C:\test"
26
-
27
-
28
-
29
- OpenFileName = Application.GetOpenFilename(FileFilter:="Microsoft Excelブック,*.xls?", _
30
-
31
- MultiSelect:=True)
32
-
33
- If IsArray(OpenFileName) Then
34
-
35
- With Me.BookInput
36
-
37
- .Clear
38
-
39
- 'リストボックスにファイル名を表示
40
-
41
- For Each Target In OpenFileName
42
-
43
- .AddItem Dir(Target)
44
-
45
- Next Target
46
-
47
- 'ファイルのあるフォルダーのパスをラベルに表示
48
-
49
- Me.lblPath.Caption = Replace(OpenFileName(1), .List(0, 0), "")
50
-
51
- End With
52
-
53
- Else
54
-
55
- MsgBox "キャンセルされました"
56
-
57
- End If
58
-
59
-
60
-
61
- End Sub
62
-
63
-
64
-
65
- Private Sub btn_FilePrint_Click()
66
-
67
- Dim wb As Integer
68
-
69
- Dim Fn As Variant, i As Long
70
-
71
- Application.ScreenUpdating = False
72
-
73
- With Me.BookInput
74
-
75
- For i = 0 To .ListCount - 1
76
-
77
- Set wb = Workbooks.Open(Me.lblPath.Caption & .List(i, 0))
78
-
79
- wb.PrintOut 'ブック全体を印刷
80
-
81
- wb.Close
82
-
83
- Next
84
-
85
- End With
86
-
87
-
88
-
89
- End Sub
90
-
91
-
92
-
93
- Private Sub UserForm_Initialize()
94
-
95
- Me.lblPath.Caption = ""
96
-
97
- End Sub
98
-
99
-
100
-
101
- ```
102
-
103
-
104
-
105
- よろしくお願い致します

4

2018/06/30 08:28

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -28,7 +28,7 @@
28
28
 
29
29
  OpenFileName = Application.GetOpenFilename(FileFilter:="Microsoft Excelブック,*.xls?", _
30
30
 
31
- MultiSelect:=True,ReadOnly:=True)
31
+ MultiSelect:=True)
32
32
 
33
33
  If IsArray(OpenFileName) Then
34
34
 
@@ -60,6 +60,44 @@
60
60
 
61
61
  End Sub
62
62
 
63
+
64
+
65
+ Private Sub btn_FilePrint_Click()
66
+
67
+ Dim wb As Integer
68
+
69
+ Dim Fn As Variant, i As Long
70
+
71
+ Application.ScreenUpdating = False
72
+
73
+ With Me.BookInput
74
+
75
+ For i = 0 To .ListCount - 1
76
+
77
+ Set wb = Workbooks.Open(Me.lblPath.Caption & .List(i, 0))
78
+
79
+ wb.PrintOut 'ブック全体を印刷
80
+
81
+ wb.Close
82
+
83
+ Next
84
+
85
+ End With
86
+
87
+
88
+
89
+ End Sub
90
+
91
+
92
+
93
+ Private Sub UserForm_Initialize()
94
+
95
+ Me.lblPath.Caption = ""
96
+
97
+ End Sub
98
+
99
+
100
+
63
101
  ```
64
102
 
65
103
 

3

2018/06/22 08:05

投稿

退会済みユーザー
test CHANGED
@@ -1 +1 @@
1
- GetOpenfilename 読み取り専用
1
+ ファイル 読み取り専用
test CHANGED
File without changes

2

2018/06/22 07:58

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -7,6 +7,8 @@
7
7
 
8
8
 
9
9
 
10
+
11
+ ReadOnly:=Trueで「名前付き引数がない」といったエラーが出ています。
10
12
 
11
13
  ```VBA
12
14
 

1

2018/06/22 07:48

投稿

退会済みユーザー
test CHANGED
@@ -1 +1 @@
1
- Openfilename 読み取り専用
1
+ GetOpenfilename 読み取り専用
test CHANGED
@@ -26,7 +26,7 @@
26
26
 
27
27
  OpenFileName = Application.GetOpenFilename(FileFilter:="Microsoft Excelブック,*.xls?", _
28
28
 
29
- MultiSelect:=True)
29
+ MultiSelect:=True,ReadOnly:=True)
30
30
 
31
31
  If IsArray(OpenFileName) Then
32
32