|
▼Kein さん:
>Private Sub Worksheet_Change(ByVal Target As Range)
> With Target
> If .Column > 1 Then Exit Sub
> If IsEmpty(.Value) Then Exit Sub
> If Not Is Numeric(.Value) Then Exit Sub
> On Error Resume Next
> Me.Image1.Picture = ""
> Me.Image1.Picture = _
> LoadPicture("D:\" & Int(.Value) & ".jpg")
> Me.Image1.AutoSize = True
> End With
>End Sub
>
>というように、いったん削除するのが定石だったかな。
これをやってみると
コンパイルエラー 型が一致しませんとで
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column > 1 Then Exit Sub
If IsEmpty(.Value) Then Exit Sub
If Not IsNumeric(.Value) Then Exit Sub
On Error Resume Next
Me.Image1.Picture = ""
Me.Image1.Picture = _
LoadPicture("D:\" & Int(.Value) & ".jpg")
Me.Image1.AutoSize = True
End With
End Sub
の文の""ここが斑点しています。
すみませんがよろしくお願い致します。
|
|