KotorinChunChun

Rem Win32APIのDeclare文を自動的に64bit対応コードに変換するプログラム
Rem
Rem ■公開先
Rem
Rem えくせるちゅんちゅん
Rem 2019/10/20
Rem VBAでWin32APIの64bit対応自動変換プログラムを作ってみた
Rem https://www.excel-chunchun.com/entry/vba-64bit-declare-convert
Rem
Rem ----------------------------------------------------------------------------------------------------

KotorinChunChun

Rem VBA Declare宣言 64bit対応変換ツール
Rem
Rem 新規で作成したユーザーフォームのコードに貼り付けで使用する
Rem

Option Explicit

Private Const GWL_STYLE = (-16)
Private Const WS_THICKFRAME = &H40000 

KotorinChunChun

Rem --------------------------------------------------
Rem ■Outlookでメール受信者がローカルパスをクリックできるようにするマクロ
Rem
Rem  えくせるちゅんちゅん
Rem  2019/10/21
Rem  https://www.excel-chunchun.com/entry/outlook-path-hyperlink
Rem
Rem --------------------------------------------------

Option Explicit

KotorinChunChun

Rem --------------------------------------------------
Rem ■Outlookでメール受信者がローカルパスをクリックできるようにするマクロ2
Rem
Rem  パスをUNC表記に置き換えることでハイパーリンク化されるようにする案
Rem
Rem  えくせるちゅんちゅん
Rem  2019/10/22
Rem  https://www.excel-chunchun.com/entry/outlook-path-hyperlink-2
Rem
Rem --------------------------------------------------

KotorinChunChun

Rem --------------------------------------------------
Rem ■戻り値のある複数シートをコピーする関数
Rem
Rem  えくせるちゅんちゅん
Rem  2019/10/26
Rem  https://www.excel-chunchun.com/entry/vba-sheet-copy
Rem
Rem  SheetsCopy
Rem    戻り値のある複数シートをコピーする関数
Rem

KotorinChunChun

Option Explicit

'Excelの日付入力時に年末年始の時期だけ年数を書き換えるイベントマクロ

'基本方針
' 1. Excelではセルにmm/dd形式で入力した時に今年が自動補完されるが、
'     今月が1月で入力が12月の場合､前年に戻す
'     今月が12月で入力が1月の場合､来年に進む
'   という自動補完に変更する。
'

KotorinChunChun

Option Explicit

'vbeProcedureオブジェクトを作成してそれらのコレクションを返す
'モジュール中のコードを解析し、モジュール内のプロシージャ情報をリストアップする
Private Function getProcedures(codeMod As CodeModule) As Collection
    Dim StartLine As Long
    Dim ProcName As String
    Dim lastProcName As String
    Dim lastProcKind As vbext_ProcKind
    Dim procs As New Collection

KotorinChunChun

Rem
Rem 作業グループ禁止アドイン メインモジュール
Rem
Rem 2020/02/18 : 初回版
Rem 2020/02/27 : Gist公開用調整
Rem
Rem @KotorinChunChun
Rem
Option Explicit
Option Private Module

KotorinChunChun

'特定のエクセルウィンドウだけを並べて表示する
'https://twitter.com/KotorinChunChun/status/1228606400768593920?s=20
Sub ExcelWindowArrange(targets, arrange_style As XlOrientation)
    Const PROC_NAME = "ExcelWindowArrange"

    Dim win As Window
    Dim obj As Variant
    
    'targetsを解析：整列対象のWindowコレクションを準備
    Dim arrangeWindows As Collection: Set arrangeWindows = New Collection

KotorinChunChun

'RegApp 1.レジストリアプリケーション管理
'HKEY_CURRENT_USER\Software\VB and VBA Program Settings\[AppName]
Option Explicit

Public AppName As String

Public Function section(Section_ As String) As RegSec
    Set section = New RegSec
    Set section.App = Me
    section.section = Section_