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...