Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

20678 / 76732

←次へ　｜　前へ→


	【61467】Re:カーソルの動きがおかしい

りん

- 09/5/11(月) 19:50 -


	引用なし

	パスワード

タッちゃんさん、こんばんわ。

>Auto_Openで、下記の設定をしました。
>　 With ActiveSheet
>　　　.ScrollArea = "A1:I59"　　　　　　　 'スクロール可能領域
>　　　.Protect UserInterfaceOnly:=True　　 'プロテクト
>　　　.EnableSelection = xlUnlockedCells　 'ロックセルは非選択
>　 End With
>この設定の下では、Tabキーを押せば、保護の指定が無いセルを右から左に
>移動し、I列の次は１行下の(保護指定がなければ)A列に移動します。
>所が、なぜか数箇所のみI列から次に移動しない行があります。
>→キーでも同じ現象になります。

範囲内で保護がかかっているセルが残っているとかはないでしょうかね。

このマクロを実行したあとで、
Sub Auto_Open()
　 With ActiveSheet
　　　.ScrollArea = "A1:I59"　　　　　　　 'スクロール可能領域
　　　.EnableSelection = xlUnlockedCells　 'ロックセルは非選択
　　　.Protect UserInterfaceOnly:=True　　 'プロテクト
　 End With
End Sub

チェック用に着色(途中にいくつか保護セルをいれてあるので着色確認)
Sub test()
　 Dim r1 As Range, s1 As String
　 For Each r1 In ActiveSheet.Range("A1:I59")
　　　If r1.Locked = True Then
　　　　 r1.Interior.ColorIndex = 38 'ピンク色
　　　End If
　 Next
End Sub
何か関連がありそうですか？

あとは、SelectionChangeイベントで何か設定していたりしませんか。

こちらでは上記マクロで、特に問題なく動きました(WinXP & XL2003)。
念のため、後ほど(Win7 & XL2007)でも試してみますね。

1 hits

▼

【61466】カーソルの動きがおかしい タッちゃん 09/5/11(月) 19:00