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で質問しましょう!
似たような質問が見つかりました
- Windows 10 Windows11タスクバーやエクスプローラー、スタートメニュー 動画全画面時にカーソルが見えない 1 2022/04/08 00:03
- Excel(エクセル) エクセルVBA 任意のセルの選択時、指定のセルの値を表示 1 2023/04/21 08:13
- 教育学 エクセルで小数点以下を四捨五入について教えてください。 2 2023/04/05 17:33
- Excel(エクセル) 表計算ソフトcalcにおいて、1時間10分を1.1と表記する方法とそれらを集計する方法は? 4 2022/04/06 16:54
- Chrome(クローム) Google ChromeでカーソルあわせるとURLが左下に表示されるようになってしまいました、非表 1 2022/05/08 17:13
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/16 14:36
- モニター・ディスプレイ 「.cur」のアイコン表示について 4 2023/03/04 10:21
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- Excel(エクセル) エクセルにサムネイル画像組み込み 2 2022/09/02 17:13
- Excel(エクセル) エクセル、画像ファイル名の書かれたセル(複数個所)に画像を一括で表示させる方法 1 2023/04/19 00:19
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
エクセルのアクティブセルを非表示にするには
Excel(エクセル)
-
EXCEL VBAのユーザーフォームに引数を渡す方法について
Excel(エクセル)
-
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
-
4
【VBAユーザーフォームで閉じるボタンを表示したくない】
Visual Basic(VBA)
-
5
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
6
特定のキーを押すまでループさせるにはどうすればよいですか。
Visual Basic(VBA)
-
7
Excelでスクロールを禁止する方法は?
Excel(エクセル)
-
8
Excelマクロ、フォーム入力での矢印移動禁止
Excel(エクセル)
-
9
VB6,リストボックスの特定行の色変更は可能?
Visual Basic(VBA)
-
10
エクセルで別ブックをバックグラウンドでオープンする方法
Excel(エクセル)
-
11
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
12
VBA ユーザーフォームのChangeイベントを停止したい
Access(アクセス)
-
13
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
14
ExcelVBA EnableプロパティがFalseの時に文字の色を変えたくない
Visual Basic(VBA)
-
15
【VB2008】 マウス操作の一時的無効化
Visual Basic(VBA)
-
16
矢印(左右)キーでイベントを発生させたい。
Visual Basic(VBA)
-
17
UserForm1.Showでエラーになります。
工学
-
18
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
19
VBAでユーザーフォームの表示を確認
Visual Basic(VBA)
-
20
XL:BeforeDoubleClickが動かない
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
Excelで空白セル直前のセルデー...
-
エクセルVBA 配列からセルに「...
-
【Excel VBA】一番右端セルまで...
-
EXCEL VBA 文中の書式ごと複写...
-
Excel UserForm の表示位置
-
入力規則のリスト選択
-
特定の色のついたセルを削除
-
VBA 複数条件の分岐処理の上手...
-
DataGridViewで指定したセルの...
-
DataGridViewのフォーカス遷移...
-
エクセルのカーソルを非表示に...
-
指定した文字から指定した文字...
-
DataGridViewでグリッド内に線...
-
Rangeの範囲指定限界
-
エクセルの選択範囲のセルの値...
-
Excel VBA 同じ処理を複数回行...
-
エクセルの合計を自動で表示さ...
-
Excel VBA IF文がうまく動作し...
-
Excelのセルから日付情報を取得...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
エクセルVBA 配列からセルに「...
-
VBA 複数条件の分岐処理の上手...
-
Excelで空白セル直前のセルデー...
-
Excel UserForm の表示位置
-
EXCEL VBA 文中の書式ごと複写...
-
特定の色のついたセルを削除
-
VBA にて、条件付き書式で背景...
-
VBAでユーザーフォームにセル値...
-
【VBA】写真の貼り付けコードが...
-
【Excel VBA】一番右端セルまで...
-
Excel VBAでCheckboxの名前を変...
-
エクセルの合計を自動で表示さ...
-
【VBA】【ユーザーフォーム_Lis...
-
VBA:日付を配列に入れ別セルに...
-
Excel VBA IF文がうまく動作し...
-
下記のマクロの説明(意味)を...
-
入力規則のリスト選択
-
C# DataGridViewで複数選択した...
-
関数の引数でrangeを指定したとき
おすすめ情報