Skip to content

Instantly share code, notes, and snippets.

@KotorinChunChun
KotorinChunChun / 01_Win32API_DeclareConverter.vba
Created Oct 21, 2019
Win32APIのDeclare文を自動的に64bit対応コードに変換するプログラム
View 01_Win32API_DeclareConverter.vba
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
KotorinChunChun / 01_Win32API_DeclareTo64bit.vba
Created Oct 21, 2019
Win32APIのDeclare文を自動的に64bit対応コードに変換するユーザーフォーム
View 01_Win32API_DeclareTo64bit.vba
Rem VBA Declare宣言 64bit対応変換ツール
Rem
Rem 新規で作成したユーザーフォームのコードに貼り付けで使用する
Rem
Option Explicit
Private Const GWL_STYLE = (-16)
Private Const WS_THICKFRAME = &H40000
@KotorinChunChun
KotorinChunChun / outlook_path_hyperlink.vba
Last active Aug 23, 2020
20191021_Outlookでメール受信者がローカルパスをクリックできるようにするマクロ
View outlook_path_hyperlink.vba
@KotorinChunChun
KotorinChunChun / outlook_path_hyperlink_unc.vba
Last active Aug 23, 2020
Outlookでメール受信者がローカルパスをクリックできるようにするマクロ2
View outlook_path_hyperlink_unc.vba
@KotorinChunChun
KotorinChunChun / SheetsCopy.vba
Last active Aug 23, 2020
戻り値のある複数シートをコピーする関数
View SheetsCopy.vba
Rem --------------------------------------------------
Rem戻り値のある複数シートをコピーする関数
Rem
Rem えくせるちゅんちゅん
Rem 2019/10/26
Rem https://www.excel-chunchun.com/entry/vba-sheet-copy
Rem
Rem SheetsCopy
Rem 戻り値のある複数シートをコピーする関数
Rem
@KotorinChunChun
KotorinChunChun / Sheet.vba
Last active Jan 5, 2020
20200105_Excelの日付入力時に年末年始の時期だけ年数を書き換えるイベントマクロ
View Sheet.vba
Option Explicit
'Excelの日付入力時に年末年始の時期だけ年数を書き換えるイベントマクロ
'基本方針
' 1. Excelではセルにmm/dd形式で入力した時に今年が自動補完されるが、
' 今月が1月で入力が12月の場合、前年に戻す
' 今月が12月で入力が1月の場合、来年に進む
' という自動補完に変更する。
'
@KotorinChunChun
KotorinChunChun / DevUtilities.vba
Last active Feb 28, 2020
プロシージャ自身の名前を示すPROC_NAME定数を更新する
View DevUtilities.vba
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
KotorinChunChun / AppMain.bas
Last active Feb 28, 2020
WorkGroupBlocker - 作業グループ禁止アドイン
View AppMain.bas
Rem
Rem 作業グループ禁止アドイン メインモジュール
Rem
Rem 2020/02/18 : 初回版
Rem 2020/02/27 : Gist公開用調整
Rem
Rem @KotorinChunChun
Rem
Option Explicit
Option Private Module
@KotorinChunChun
KotorinChunChun / FuncExcel_Partial.bas
Created Feb 28, 2020
特定のエクセルウィンドウだけを並べて表示する関数
View FuncExcel_Partial.bas
'特定のエクセルウィンドウだけを並べて表示する
'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
KotorinChunChun / RegApp.cls
Last active Apr 18, 2020
VBAのレジストリ操作の拡張クラス
View RegApp.cls
'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_
You can’t perform that action at this time.