'●指定したシート内のセルに変更があった場合実行される
'sheet1をダブルクリックしworksheetとChangeを選択する
'セル1〜15行目1〜3列目に変更があった場合実行
'A1〜A10をコピーしD1へ張り付ける
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <= 15 And Target.Column <= 3 Then
Range("A1:A10").Copy Range("D1")
End If
End Sub
Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then
Worksheets(1).Range("B2").Value = OptionButton1.Caption
ElseIf OptionButton2.Value = True Then
Worksheets(1).Range("B2").Value = OptionButton2.Caption
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (Target.Row = 1 And Target.Column = 3) Then End 'C1セルにアクティブしたら次の処理へ
' If Not (Target.Row >= 1 And Target.Column <= 2 And Target.Row >= 2 And Target.Column <= 3) Then End 'B1:C2 内のセルにアクティブしたら次の処理
UserForm1.Show
End Sub
'#If VBA7 Then
Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '←64bitではPtrSafeを付けることが重要！
'#Else
'Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
'#End If
プリントスクリーンを実行させるソース
Private Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const KEYEVENTF_EXTENDEDKEY As Long = &H1
Private Const KEYEVENTF_KEYUP As Long = &H2
Private Const fKEYDOWN = KEYEVENTF_EXTENDEDKEY
Private Const fKEYUP = KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP
Sub Sample()
keybd_event vbKeySnapshot, 0&, fKEYDOWN, 0&
keybd_event vbKeySnapshot, 0&, fKEYUP, 0&
'貼り付け処理
End Sub
ファイルを開く
CreateObject("Shell.Application").ShellExecute "C:\Users\Documents\test01.pdf"
Sub PDF読み取り()
CreateObject("Shell.Application").ShellExecute "C:\Users\Documents\test.pdf"
Sleep 1000
SendKeys ("^a"), True
Sleep 500
SendKeys ("^c"), True
Sleep 3000
SendKeys ("^q"), True
Sleep 2000
Windows("vba.xlsm").Activate
Sheets("Sheet4").Activate
Sleep 2000
ActiveSheet.Paste Destination:=Range("B4")
'Sleep 3000
'SendKeys ("^V"), True
End Sub
Sub PDFからTEXT抜き取り()
CreateObject("Shell.Application").ShellExecute "C:\Users\Documents\test01.pdf"
Sleep 3000
SendKeys ("^a"), True
Sleep 500
SendKeys ("^c"), True
Sleep 500
SendKeys ("^q"), True
Sleep 2000
End Sub