Excel VBAでコードを書いているときに、 「ファイルが見つかりません」 というエラーに遭遇しました。 いやいや、ファイルはちゃんとそこにあるのに…！（涙） 試しにイミディエイトウィンドウ（表示されない場合は Ctrl+G）に、次のように入力してみます。 workbooks.open filename:=Thisw...

田中先生のコラムより、「DisplayFormat」で見ればいいことがわかりました。 「Excel 2007のSortオブジェクト」 あと、インストラクターのネタ帳さんの 条件付き書式の数式を取得するExcelマクロ から、数式を引っ張り出して、確認用に使用させていただきました。...

自分用です。 ウィンドウをＡ１に持って行く方法 Sub MoveWindowToA1() ' A1セルをアクティブにして表示位置を移動 Application.Goto Reference:=Range("A1"), Scroll:=True End Sub Sub ScrollToA1(...

エクセルvbaを使用し、同じフォルダ内のファイルで、一番行数が多いシート名と行数を取得し、ファイル名と共に記入します。 マクロファイル内に「集計」シートを作ってください。 また、1行目のＡ-Ｃ列に、ブック名、シート名、行数と入れてください。 2行目からはじめます。 参考サイトさん ファイルの一覧を取得する 最終行・最終...

自分用です。 参考にさせていただいたサイトさんです Sub ルビをカッコ付きに変換_ExcelVBAからWord操作() Dim wdApp As Object Dim wdDoc As Object Dim myField As Object Dim myCode As String ' Wordアプリ...

自分用です。タイトル通りです。 Sub CopyWordTableCellToExcelCell() Dim wdApp As Object ' Word.Application Dim wdDoc As Object ' Word.Document Dim wordFilePath As Stri...

自分用です。 ファイル名に空白が入っていれば取るようにします。 直下のフォルダと更に下のフォルダがあり、更に下のフォルダには回覧板まとめという語を含みます。 今日ファイルが更新された時点で取ります。 Option Explicit Dim monitoringDone1 As Boolean Dim monitorin...

自分用です。 乱数で３ケタコードを出力します。 すべて違う数値を組み合わせる、ぞろ目にしない、123，456などにしない、最後を0にしないという条件です。 Sub ランダムな3桁コードを付ける() Dim シート名 As String シート名 = "コード一覧" Dim 新規シート As Work...