都内SEのプログラミング勉強と雑記

2008年より都内でSEをしてます。業務システムをリプレイスし続けてきました。ここでは主にjavaやその周辺技術関連を紹介予定。学ぶことリスト:https://docs.google.com/spreadsheets/d/1G4lUqbHxsMf4PGgeRVe1ZL3JTOjlSTrqsJYe1CKz9UY/edit?usp=sharing

vba

設定シートの情報で繰り返しブックを開き、全シートの値を元に新規ブック作成するVBAひな形

vba

設定シートの情報で繰り返しブックを開き値編集しつつ新規ブック作成するひな形 Excelの新規ブックを開き、リボンの「開発 > Visual Basic」を開いて開発モジュールを挿入し以下のソースを張り付ける。 以下のソース内に記載しているが新規ブックのシート内…

Excel VBA With句のおさらい

vba

With句を使うと以下のように可読性をあげることができる。 また、毎回オブジェクトの参照がなくなる(?)ためか多少の速度改善も見込める。 繰り返し処理が多い場合や少しでもコーディング量が多くなる場合には積極的に使っていきたい。 'With句 '以下のよ…

vbaで開いているExcelに読み取り専用を推奨するオプションをつけるサンプルコード

'''''''''''''''''''''''''''''''''''''''''' ' 現在のブックに読み取り専用推奨するオプションをつける '''''''''''''''''''''''''''''''''''''''''' Sub addReadOnlyOption() rc = MsgBox(ActiveWorkbook.name & "に読み取り専用を推奨するオプションをつ…

VBAでExcelファイルの読み取り専用属性をつけたり外すサンプルコード

'ファイル属性値の一覧 '0 :標準ファイル '1 :読み取り専用ファイル '2 :隠しファイル '4 :システムファイル '8 :ディスクドライブボリュームファイル '16 :ファルダ/ディレクトリ '32 :アーカイブファイル '64 :リンク/ショートカット '128:圧縮フ…

VBAでExcelファイルを読み取り専用で開き直すサンプルコード

久しぶりにExcelVBAと戯れているのでメモレベルでかきかき。 '''''''''''''''''''''''''''''''''''''''''' ' 現在のブックを読み取り専用で開き直す '''''''''''''''''''''''''''''''''''''''''' Sub readOnlyOpen_NoSave() rc = MsgBox(ActiveWorkbook.name…

follow us in feedly