| |
お返事ありがとうございます
大変親切に教えていただいて本当にありがとうございます
助かります
F1（ＴＯＰ）とG1（１つ前）のｾﾙを押すとその機能が使えるようにしたいのですが
教えていただいたのをやったのですが
どこの数値をドコに入力していいのかがわかりません・・・
こんなに丁寧に親切に教えていただいてるのに申し訳ございません
変える場所、自分で変更すべき場所はどこか教えていただけると幸いです
お手数ですがお願いできればと思います
よろしくお願いします
▼とおりすぎ さん：
>Private 最初 As Range
>Private 一つ前 As Range
>
>Sub 検索Sample()
> Dim R As Range
> Dim 検索 As Range
>
> 'ChartSheetがActiveだったりするとエラーになるので
> On Error Resume Next
> Set R = ActiveCell
> Set 検索 = ActiveSheet.UsedRange.Find("適当に変えてくれ")
> On Error GoTo 0
> If 検索 Is Nothing Then
> MsgBox "見つからなかった"
> Exit Sub
> End If
> If 最初 Is Nothing Then
> Set 最初 = R
> End If
> Set 一つ前 = R
> Application.Goto 検索
>End Sub
>
>Sub 一つ前に戻る()
> If 一つ前 Is Nothing Then Exit Sub
> Application.Goto 一つ前
>End Sub
>
>Sub 最初に戻る()
> If 最初 Is Nothing Then Exit Sub
> Application.Goto 最初
>End Sub
>
>Sub Reset_cell()
> Set 最初 = Nothing
> Set 一つ前 = Nothing
>End Sub
|
|
a
- 11/8/19(金) 12:18 -
