Excel VBA質問箱 IV

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

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


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

20374 / 76735

←次へ　｜　前へ→


	【61782】Re:「入力規則　リストから選ぶ」のセルを作成したらVBAがエラーになった

n - 09/6/3(水) 20:03 -


	引用なし

	パスワード

参考です。 Sub test() 　　Dim L As Line 　　With ActiveSheet 　　　　On Error Resume Next 　　　　Set L = .Lines("B13F17") 　　　　On Error GoTo 0 　　　　If L Is Nothing Then 　　　　　　.Unprotect 　　　　　　With .Range("B13:F17") 　　　　　　　　.Worksheet.Lines.Add(.Left, .Top + .Height, _ 　　　　　　　　　　　　　　　　　　 .Left + .Width, .Top).Name = "B13F17" 　　　　　　End With 　　　　　　.Protect 　　　　Else 　　　　　　L.Visible = Not L.Visible 　　　　　　Set L = Nothing 　　　　End If 　　End With End Sub 固定範囲内に斜線を作成＆削除の繰り返し...ではなく固有の名前をつけた斜線の表示/非表示、という考え方で良ければ。