A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
>自分が消去したいのはカーソルではなくアクティブセルでした。
>この四角いセルを消去、または非表示する方法を知りたいと思います。
それは無理でしょう。消去、または非表示にはできないでしょう。
セルカーソルの黒枠を擬似的に見えないようにすることは可能だと思いますが、それが何の意味があるのかわかりません。マウスで選択すればセル位置はわかるわけだし、行列番号の色を見てもセル位置がわかります。また、カーソルキーで移動すれば、点滅するなどしてセル位置がわかります。
マウスカーソルや行列番号を非表示にしたり、カーソルキーをdesableにしないと完全ではないでしょう。
見た目、アクティブセルが無いようにするには、たとえば、下記イベントでどうでしょう。
Public sname1, sname2
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If sname1 <> Empty Then
ActiveSheet.Shapes(sname1).Delete
End If
If sname2 <> Empty Then
ActiveSheet.Shapes(sname2).Delete
End If
With Target
l = .Left
t = .Top
w = .Width
h = .Height
ActiveSheet.Shapes.AddShape(msoShapeRectangle, l, t, w, h).Select
With Selection.ShapeRange
.Line.Style = msoLineSingle
.Line.ForeColor.SchemeColor = 1
.Line.Weight = 5
.Line.Visible = msoTrue
.Fill.Visible = msoFalse
.Line.Transparency = 0
sname2 = .Name
End With
With ActiveSheet.Shapes
.AddLine(l - 2, t, l + w + 2, t).Select
l1 = Selection.Name
.AddLine(l, t - 2, l, t + h + 2).Select
l2 = Selection.Name
.AddLine(l - 2, t + h, l + w + 2, t + h).Select
l3 = Selection.Name
.AddLine(l + w, t - 2, l + w, t + h + 2).Select
l4 = Selection.Name
.Range(Array(l1, l2, l3, l4)).Select
Selection.ShapeRange.Group.Select
End With
With Selection
.ShapeRange.Line.ForeColor.SchemeColor = 22
.ShapeRange.Line.Weight = 0.25
sname1 = .Name
End With
.Select
End With
End Sub
No.1
- 回答日時:
こんにちは
例えば
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Public Function Mouse_Visible(bFlag As Boolean) As Long
Dim lRet As Long
If bFlag Then
lRet = ShowCursor(1)
Else
lRet = ShowCursor(0)
End If
Mouse_Visible = lRet
End Function
> 黒以外の色を指定の意味がよく判りませんが
以上でよろしいですか
この回答への補足
回答が遅くなりまして申し訳ありません。
自分が消去したいのはカーソルではなくアクティブセルでした。
この四角いセルを消去、または非表示する方法を知りたいと思います。
このアクティブセルの色は黒です。これを白く表示することで見えなくできるのかと思い、黒以外の色指定の方法は?と記載しました。
miyuyuさんの回答でマウスカーソルが消えることを体験でき、これはこれでビックリしています。このソースからなぜ消去できるのまだかわかっていませんが、感激してしまいました。ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
あるあるbotに投稿したけど採用されなかったあるある募集
あるあるbotに投稿したけど採用されなかったあるあるをこちらに投稿してください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルのアクティブセルを非表示にするには
Excel(エクセル)
-
EXCELのセルへ、デジタル時計を表示できますか?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
Excel 範囲指定スクショについ...
-
飛び地セルの空白判定
-
Excel VBAで特定の範囲の空白セ...
-
Excel UserForm の表示位置
-
関数の引数でrangeを指定したとき
-
DataGridViewのフォーカス遷移...
-
CSVファイルを読み込んだらセル...
-
Rangeの範囲指定限界
-
特定の色のついたセルを削除
-
QRコード作成マクロについて
-
【VBA】写真の貼り付けコードが...
-
VBAでユーザーフォームにセル値...
-
マクロ
-
セルの半透明着色処理
-
VBA:日付を配列に入れ別セルに...
-
Excel VBAでCheckboxの名前を変...
-
エクセルのカーソルを非表示に...
-
For~Next ループ内でUnionメソ...
-
エクセルVBAで、セル内のテキス...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
エクセルVBA 配列からセルに「...
-
【Excel VBA】一番右端セルまで...
-
Excel UserForm の表示位置
-
特定の色のついたセルを削除
-
Excelで空白セル直前のセルデー...
-
【VBA】【ユーザーフォーム_Lis...
-
VBA:日付を配列に入れ別セルに...
-
VBA にて、条件付き書式で背景...
-
C# DataGridViewで複数選択した...
-
入力規則のリスト選択
-
Excel VBA IF文がうまく動作し...
-
【VBA】写真の貼り付けコードが...
-
Excel 範囲指定スクショについ...
-
EXCEL VBA 文中の書式ごと複写...
-
Excel VBAでCheckboxの名前を変...
-
EXCEL 2010 VBAでピボットで複...
-
飛び地セルの空白判定
-
エクセルのカーソルを非表示に...
-
CellEnterイベント仕様について
おすすめ情報