☆マクロのサンプル
'Sheet1ここから
'/////////////////////////////////////////////
Private Sub PCTimecode()
Columns("A:E").ColumnWidth = 6
Columns("E:F").ColumnWidth = 9
Columns("G:G").ColumnWidth = 37
With Range("A1", "G1")
.HorizontalAlignment = xlCenter
End With
Range("A1") = "OK/NG"
Range("B1") = "S#"
Range("C1") = "Cut"
Range("D1") = "Take"
Range("E1") = "In"
Range("F1") = "Out"
Range("G1") = "Note"
Range("A1:G1").Select
With Selection.Interior
.ColorIndex = 8
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Range("A2").Select
ActiveWindow.FreezePanes = True
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Output only "E:F"(Put out this line if you do not need.)
If Target.Column = 5 Or Target.Column = 6 Then Exit Sub
Call OutputTimecode(Target)
End Sub
'/////////////////////////////////////////////
'Sheet1ここまで
'Module1ここから
'/////////////////////////////////////////////
'######################################################
'VBA source code to receive Timecode from "PCTimecode"
'Albert Garden
'######################################################
Option Explicit
Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" ( _
ByVal hwndParent As Long, _
ByVal hwndChildAfter As Long, _
ByVal lpClassName As String, _
ByVal lpWindowName As String _
) As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _
ByVal hWnd As Long, _
ByVal Msg As Long, _
ByVal wParam As Long, _
ByVal lParam As Any _
) As Long
Private Const WM_GETTEXT = &HD
Public Sub OutputTimecode(ByVal Target As Range)
'The source below this should not renew it.
Dim hWindow As Long
Dim rl As Long
Dim buf As String * 12
'get app window hwnd
hWindow = FindWindowEx(0, 0, "PCTimecode", vbNullString)
If hWindow <> 0 Then
'get app text box hwnd
hWindow = FindWindowEx(hWindow, 0, "edit", vbNullString)
If hWindow <> 0 Then
rl = SendMessage(hWindow, WM_GETTEXT, Len(buf), ByVal buf)
Target.Value = Left(buf, 11) 'xx:xx:xx:xx
Else
MsgBox "PCTimecode error. orz"
End If
Else
MsgBox "PCTimecode is not found. orz"
End If
End Sub
'/////////////////////////////////////////////
'Module1ここまで |
