HOME 検索 索引 もくじ 関数目次 前ページへ 次ページへ
タイトル欄のアドレスは、 エクセルファンクラブ
の該当する頁へのリンク先です。
詳しい事は、こちらのお願い
をご覧になってください。
81 フォルダ内の全てのファイル名の一覧を書き出すには?
82 選択しているオブジェクトの種類を取得するには?
83 アクティブセルのページ数を取得するには?
84 ファイルを開く際、パスワードを要求させるには?
85 セルが選択されているかどうか、判定するには?
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
81 | フォルダ内の全てのファイル名の一覧を書き出すには? |
Sub ファイル名作成() Dim BookName As String, PathName As String Dim a As String, i As Integer a = Application.InputBox(Prompt:="書き出すファイルの拡張子を入力してください。", _ Default:=".xls", Type:=2) If Left(a, 1) <> "." Then a = a & "." If Range("A1").Value = "" Then MsgBox "A1セルに、フォルダのフルパスを入れてください" ElseIf Right(Range("A1"), 1) <> "\" Then PathName = Range("A1").Value & "\" Else PathName = Range("A1").Value End If BookName = Dir(PathName & "*" & a) Columns("B").ClearContents Do Until BookName = "" i = i + 1 Cells(i, 2) = Left(BookName, Len(BookName) - 4) BookName = Dir() Loop End Sub このコードの使い方は、マクロの使い方(1)標準モジュールにあります。 |
|
82 | 選択しているオブジェクトの種類を取得するには? |
Sub test() MsgBox TypeName(Selection) & "が選択されています" End Sub このコードの使い方は、マクロの使い方(1)標準モジュールにあります。 |
|
83 | アクティブセルのページ数を取得するには? http://www.ae.wakwak.com/~efc21/cgi-bin/wwwlng.cgi?print+200208/02080127.txt 「ActiveCellから現在ページを取得するには?」 【VBAラウンジ】 |
Sub miko_test() Dim Lastpage As Long, Lastpage2 As Long, p As Integer, pp As Integer Dim LastR As Long, LastC As Integer, i As Integer, j As Integer Dim Nrow As Long, NLrow As Long, Ncol As Integer, NLcol As Integer Dim Crow As Long, Ccol As Integer Application.ScreenUpdating = False '画面の動きを固定 Crow = Selection.Row '選択セルの行番号 Ccol = Selection.Column '選択セルの列番号 '正しく改ページ位置を取得する為、一旦改ページプレビューにする ActiveWindow.View = xlPageBreakPreview '縦方向最終改ページ数取得 Lastpage = ActiveSheet.HPageBreaks.Count '横方向最終改ページ数取得 Lastpage2 = ActiveSheet.VPageBreaks.Count '入力済み最終行、最終列取得 With ActiveSheet.UsedRange LastR = .Row + .Rows.Count - 1 LastC = .Column + .Columns.Count - 1 End With Ncol = 1 p = 0 'ページ数カウント初期値 '横方向改ページ分繰り返し For j = 1 To Lastpage2 + 1 If j = Lastpage2 + 1 Then If Ncol > LastC Then Exit For NLcol = LastC Else NLcol = ActiveSheet.VPageBreaks(j).Location.Column - 1 End If Nrow = 1 '縦方向改ページ分繰り返し For i = 1 To Lastpage + 1 If i = Lastpage + 1 Then If Nrow > LastR Then Exit For NLrow = LastR Else NLrow = ActiveSheet.HPageBreaks(i).Location.Row - 1 End If p = p + 1 'ページ数カウント If Crow >= Nrow And Crow <= NLrow Then If Ccol >= Ncol And Ccol <= NLcol Then pp = p End If End If Nrow = NLrow + 1 Next Ncol = NLcol + 1 Next MsgBox "選択中のセルは、" & pp & " ページ目です" '改ページプレビュー、画面の固定を戻す ActiveWindow.View = xlNormalView Application.ScreenUpdating = True End Sub このコードの使い方は、マクロの使い方(1)標準モジュールにあります。 |
|
84 | ファイルを開く際、パスワードを要求させるには? |
【ファイル】【名前を付けて保存】【ツール】【全般オプション】でパスワードを設定します。 | |
85 | セルが選択されているかどうか、判定するには? |
If
TypeName(Selection) = "Range" Then MsgBox "セルが選択されています" Else MsgBox "セルは選択されていません" End If このコードの使い方は、マクロの使い方(1)標準モジュールにあります。 |
|
86 | |
87 | |
88 | |
89 | |
90 | |
91 | |
92 | |
93 | |
94 | |
95 | |
96 | |
97 | |
98 | |
99 | |
100 | |