現場に入ったらやる事

作成日時：2024-08-01以前
更新日時：2024-08-01

議事録

• テンプレの準備

設定色々

• pathにサクラエディタのbinを登録する。
• 作業基盤を作る。
  • メモのテンプレートとか準備
  • フォルダ構成とか
• エクセルファイルからデータを抽出する汎用マクロを作る。
• DB定義書からカラムを全部ぶっこぬく
  • 用語集を作る。
  • 論理名/物理名がそのプロジェクトにおける正しい命名であるはず。
    • ユビキタス言語
  • カラム名は容易に変更できない
  • ドキュメントを書くときは論理名、コーディングは物理名に準ずる。
• エクセルのシートを全てA1に揃えて保存するアドインを作る。
  • 念のため。
• DB定義書からDDL/DMLを作成するマクロを作る。

PCのパフォーマンス編(Windows)

• システムのパフォーマンスオプションを「パフォーマンスを優先する」に変更。
  • 「スクリーン フォントの線を滑らかにする」だけ有効に戻す。
• デスクトップの画像を黒一色に変更する。

VBA

全シートをA1に揃えるアドイン

sub main()
  Dim wb As Workbook
  Set wb = ActiveWorkbook

  Dim ws as Worksheet
  For Each ws In wb.Worksheets
    ws.Activate
    ActiveWindow.SmallScroll Down:=-500
    ws.Cells(1, 1).Select
  Next

  wb.Worksheets(1).Activate

画面活性制御

Sub Main()
    On Error GoTo FINALLY_SECTION
    Call SetScreenUpdating(False)
    'ここに処理を書く

FINALLY_SECTION:
    Call SetScreenUpdating(True)
    MsgBox "END:" & Err.Description
END Sub

Sub SetScreenUpdating(ByVal flg As Boolean)
    Application.ScreenUpdating = flg
    Application.DisplayAlerts = flg
End Sub