This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 ---------------------------------------------------------------------------------------------------- |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Rem VBA Declare宣言 64bit対応変換ツール | |
Rem | |
Rem 新規で作成したユーザーフォームのコードに貼り付けで使用する | |
Rem | |
Option Explicit | |
Private Const GWL_STYLE = (-16) | |
Private Const WS_THICKFRAME = &H40000 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Rem -------------------------------------------------- | |
Rem ■Outlookでメール受信者がローカルパスをクリックできるようにするマクロ | |
Rem | |
Rem えくせるちゅんちゅん | |
Rem 2019/10/21 | |
Rem https://www.excel-chunchun.com/entry/outlook-path-hyperlink | |
Rem | |
Rem -------------------------------------------------- | |
Option Explicit |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 -------------------------------------------------- |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Rem -------------------------------------------------- | |
Rem ■戻り値のある複数シートをコピーする関数 | |
Rem | |
Rem えくせるちゅんちゅん | |
Rem 2019/10/26 | |
Rem https://www.excel-chunchun.com/entry/vba-sheet-copy | |
Rem | |
Rem SheetsCopy | |
Rem 戻り値のある複数シートをコピーする関数 | |
Rem |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Option Explicit | |
'Excelの日付入力時に年末年始の時期だけ年数を書き換えるイベントマクロ | |
'基本方針 | |
' 1. Excelではセルにmm/dd形式で入力した時に今年が自動補完されるが、 | |
' 今月が1月で入力が12月の場合、前年に戻す | |
' 今月が12月で入力が1月の場合、来年に進む | |
' という自動補完に変更する。 | |
' |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Rem | |
Rem 作業グループ禁止アドイン メインモジュール | |
Rem | |
Rem 2020/02/18 : 初回版 | |
Rem 2020/02/27 : Gist公開用調整 | |
Rem | |
Rem @KotorinChunChun | |
Rem | |
Option Explicit | |
Option Private Module |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
'特定のエクセルウィンドウだけを並べて表示する | |
'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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
'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_ |
OlderNewer