YujiFukami’s gists

YujiFukami / 日時カウントダウンタイマー

Last active June 29, 2025 21:56

	<!DOCTYPE html>
	<html lang="ja">
	<head>
	<meta charset="UTF-8">
	<title>カウントダウンタイマー</title>
	<style>
	body {
	font-family: "Arial", sans-serif;
	text-align: center;
	padding-top: 40px; /* ページ上部の余白を指定（調整可能） */

YujiFukami / 簡易業務改善の効果シミュレーター

Created June 23, 2025 07:56

	<!DOCTYPE html>
	<html>
	<head>
	<meta charset="UTF-8">
	<style>
	body {
	font-family: 'Segoe UI', sans-serif;
	font-size: 15px;
	background-color: #f5f7fa;
	margin: 30px;

YujiFukami / MakeSpinButtonUpDown

Last active April 25, 2025 00:31

	'MakeSpinButtonUpDown ・・・元場所：IkiAddin.ModOther
	'MakeSpinButtonLeftRight・・・元場所：IkiAddin.ModOther
	'Make__SpinButton ・・・元場所：IkiAddin.ModOther
	'GetSelectionCell ・・・元場所：IkiAddin.ModCell
	'OffsetCell ・・・元場所：IkiAddin.ModCell
	'F_InputBox ・・・元場所：IkiAddin.ModMessage
	'GetCellName ・・・元場所：IkiAddin.ModCell
	'AddCodeToModule ・・・元場所：IkiAddin.ModVBIDE
	'GetAllCodeModuleInBook ・・・元場所：IkiAddin.ModVBIDE
	'ChangeValueCell ・・・元場所：IkiAddin.ModCell

YujiFukami / InputPictureCell

Created April 18, 2025 02:18

	'InputPictureCell・・・元場所：IkiAddin.ModShape
	'GetShapeByName ・・・元場所：IkiAddin.ModShape

	'宣言セクション※※※※※※※※※※※※※※※※※※※※※※※※※※※
	'-----------------------------------
	'元場所:IkiAddin.ModShape.EnumPicturePosition
	Public Enum EnumPicturePosition
	vb00中央 = 0
	vb01左上 = 1
	vb02左中央 = 2

YujiFukami / PushValueArray2DRow

Created April 1, 2025 08:22


	'PushValueArray2DRow・・・元場所：IkiAddin.ModArray
	'ExpandArray2DRow ・・・元場所：IkiAddin.ModArray
	'IsArray2D ・・・元場所：IkiAddin.ModArray
	'IsArray2DStart1 ・・・元場所：IkiAddin.ModArray

	Public Function PushValueArray2DRow(ByRef Array2D As Variant, _
	ParamArray Values() As Variant) _
	As Variant
	'二次元配列の行方向に値を追加する

YujiFukami / ScrollListBoxByMouse

Created February 14, 2025 02:45

	'------------------------------------------------------------------------------------
	' モジュール: ScrollListBoxByMouse
	' 概　要 : リストボックスに対して「右クリック + ドラッグ」で疑似的にスクロール
	' させる機能を提供し、Shiftキーを押している場合は高速スクロールを行う。
	' さらに、Shiftキー押下時のスクロール倍数をオプショナル引数で可変にする。
	'
	' 【使い方】
	' 1) このコードを標準モジュールまたはユーザーフォームのコードモジュールに貼り付ける。
	' 2) リストボックスの MouseDown / MouseMove / MouseUp イベントで、それぞれ本モジュールの
	' ScrollListBoxByMouse_MouseDown / ScrollListBoxByMouse_MouseMove / ScrollListBoxByMouse_MouseUp

YujiFukami / MakeCommandBtns

Created February 6, 2025 08:35

	Public Sub MakeCommandBtns(ByRef TargetForm As UserForm, _
	ByRef RowCount As Long, _
	ByRef ColCount As Long, _
	ByRef Height As Double, _
	ByRef Width As Double, _
	Optional ByRef HeadStr As String = "Btn", _
	Optional ByRef StartTop As Double = 10, _
	Optional ByRef StartLeft As Double = 10, _
	Optional ByRef GapHeight As Double = 3, _
	Optional ByRef GapWidth As Double = 3)

YujiFukami / S_りゅうりゅうさん課題

Last active January 27, 2025 07:56

	Option Explicit

	'S_りゅうりゅうさん課題・・・元場所：VBAProject.Module1
	'S_りゅうりゅうさん課題用2 ・・・元場所：VBAProject.Module1
	'S_りゅうりゅうさん課題用1 ・・・元場所：VBAProject.Module1
	'S_りゅうりゅうさん課題用3 ・・・元場所：VBAProject.Module1
	'S_りゅうりゅうさん課題用4 ・・・元場所：VBAProject.Module1
	'ConvStrArray1DLong ・・・元場所：VBAProject.Module1
	'ShowValueArray1D ・・・元場所：VBAProject.Module1
	'ClipText ・・・元場所：IkiAddin.ModClipboard

YujiFukami / S_りゅうりゅうさん課題

Created January 27, 2025 03:48

	Option Explicit

	'S_りゅうりゅうさん課題用1・・・元場所：VBAProject.Module1
	'S_りゅうりゅうさん課題用2・・・元場所：VBAProject.Module1
	'S_りゅうりゅうさん課題用3・・・元場所：VBAProject.Module1
	'ConvStrArray1DLong ・・・元場所：VBAProject.Module1
	'ShowValurArray1D ・・・元場所：VBAProject.Module1
	'ClipText ・・・元場所：IkiAddin.ModClipboard
	'AddArray1DValue ・・・元場所：VBAProject.Module1
	'SubtractionArray1DValue ・・・元場所：VBAProject.Module1

YujiFukami / ShowMessageMacroRegistShapes

Created January 22, 2025 02:25


	'ShowMessageMacroRegistShapes・・・元場所：IkiAddin.ModOther
	'ExtractArray2D ・・・元場所：IkiAddin.ModArray
	'IsArray2D ・・・元場所：IkiAddin.ModArray
	'IsArray2DStart1 ・・・元場所：IkiAddin.ModArray
	'DPA ・・・元場所：IkiAddin.ModImmediate
	'GetDimensionArray ・・・元場所：IkiAddin.ModArray
	'DebugPrintArray1D ・・・元場所：IkiAddin.ModImmediate
	'DebugPrintArray ・・・元場所：IkiAddin.ModImmediate
	'Make__ArrayWithNum ・・・元場所：IkiAddin.ModImmediate

AERO_IKI YujiFukami