2025.10.06 08:00令和７年１０月５日 三島神社例大祭令和７年１０月５日 三島神社の例大祭が盛大に行われました。今年は、神輿改修３０年の節目の年です。神輿会の皆様、盛大なる神輿渡御ありがとうございます。
2024.06.23 06:32test PIANO MakeSub PIANO_MAKE_Columns() START_C = 3 Start_Row = 1001 Start_Row = 1 Split_Row = 40 KEY_C = 4' 音楽記号 ♪ ?????♪?? key_n = 52 ActiveWindow.FreezePanes = False Range(Cells(Start_Row, START_C), Cells(Start_Row + 4, START_C + key_n * KEY_C + 5 * KEY_C)).Select' Selection.EntireRow.Delete Selection.Delete ...
2024.06.23 06:30test PIano Play 'MIDI API Private Declare PtrSafe Function midiOutGetNumDevs Lib "winmm" () As Integer Private Declare PtrSafe Function midiOutOpen Lib "winmm.dll" (lphMidiOut As LongPtr, ByVal uDeviceID As Long, ByVal dwCallback As LongPtr, ByVal dwInstance As LongPtr, ByVal dwflags As Long) As Long Private Declare PtrSafe Funct...
2024.05.23 06:26Binary_Open_Module'Sleep API Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) Dim C1_d(1 To 128) As Variant 'Note_column Dim R1_d(1 To 128) As Variant 'Black_key = 1: White_key = 3: Dim E(1 To 32768, 1 To 218) As Variant Dim M_line_MAXSub MM_Format_Line(Optional S_Line) Black_key = 1: White_key = 3: Ca...
2024.04.08 00:00【三島神社】氏子連絡網 チャット招待を始めます令和６年４月8日【三島神社】氏子連絡網 のチャット招待を始めます。匿名で参加でき、個人のアカウントを公開したくない方も参加できます。