Private Sub Worksheet_Change(ByVal Target As Range)
(1)If Target.Column <> 4 Then Exit Sub
Target.Offset(0, -3) = Now() ⇒特定のセルに日時自動表示
(2)If Target.Column <> 4 Then Exit Sub
Target.Offset(0, 1) = "DUMMY" ⇒特定のセルにDUMMYと自動表示
(3)If Target.Column = 4 Then
Target.Offset(0, -2) = "1"
Else ⇒特定のセルに１と自動表示
(4)If Target.Column = 35 Then
Target.Offset(0, -2) = "2" ⇒特定のセルに２と自動表示
End If
End If
(5)If Target.Value = "T" Or Target.Value = "t" Then
Target.Value = "田中" ⇒Tと入力すると田中と変換して表示
ElseIf Target.Value = "H" Or Target.Value = "h" Then
Target.Value = "林" ⇒ｈと入力すると林と変換して表示
End If
End Sub
上のようなコードを入力すると(3)と(5)が機能しません。。なぜでしょうか？？コードの表示がまずいのでしょうか？？
Dim a As Integer
Dim inbox As String
Dim Localpath As Variant
Dim c As Range, myFadd As String
Dim flag As Variant
Dim MyShell As Object
Dim Mysh As String
Dim newHour As Variant
Dim newMinute As Variant
Dim newSecond As Variant
Dim waitTime As Variant
Localpath = ThisWorkbook.Path
a = 1
inbox = InputBox("番号")
Do
If inbox = Empty Then
Exit Sub
End If
If inbox = Cells(a, 1) Then
MsgBox ("あります")
Exit Do
Else
a = a + 1
ElseIf Cells(a, 1) <> inbox Then
MsgBox ("ない")
End If
Loop
Set MyShell = CreateObject("WScript.Shell")
MyShell.Run ("AcroRd32.exe /n")
MyShell.Run ("AcroRd32.exe /p") & Localpath & "\" & Myfile & ".pdf"
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
Application.SendKeys "{Enter}", True
'次の使用例は、10 秒を過ぎるとメッセージを表示します。
If Application.Wait(Now + TimeValue("0:00:10")) Then
MsgBox "時間が過ぎました。"
End If
End Sub
ExcelからPDFファイルを検索して印刷したいのですが、
見よう見まねで作ってみたもののエラーが出てしまってよく分かりません。
指摘できるところご指導よろしくお願いします。
