エクセルのマクロについて
エクセルでセルや結合セルに丸を付ける質問はどれも見ましたが私にとって難題なものがありましたので、教えて下さい。
結合セルをマクロを使用して丸を付けるものがありますが、どなたか教えては頂けないでしょうか。初心者です、すいません。
1、ダブルクリックで結合セルに文字上に丸(太さ0.75)がつく。
2、ダブルクリックでそのセルから丸が消える。
同じ操作で1,2が繰り返される。
さらにここでもう一つ。
同シート内の※別の場所の結合セルに【データ】の【入力規制】で(リスト)を選択し、リスト内に【■,○,空白,】等の内容を含んでいます。
この上の二つがどちらもちゃんと使える方法が分かりません。
教えては頂けないでしょうか。
ちなみに参考までにマクロはこれを使っています。
正しいマクロを教えて下さい。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Shp As Shape
Cancel = True
If ActiveSheet.Shapes.Count <> 0 Then
For Each Shp In ActiveSheet.Shapes
If Target.Address = Shp.TopLeftCell.Address Then
Select Case Shp.Line.DashStyle
Case 1: Shp.Delete: Exit Sub
Case 4: Shp.Delete: Exit Sub
End Select
End If
Next
End If
With ActiveSheet.Shapes.AddShape(msoShapeOval, Target.Left, Target.Top, Target.Width, Target.Height)
.Fill.Visible = msoFalse
.Line.Weight = 0.75
End With
End Sub
これと入力規制を使おうとしたら、マクロがデバックになってしまい使用できません。
入力規制は残ったままですが、マクロが使えなくなってしまいました。
解決策、何か違うところ、教えて下さい。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんにちわ
Line.DashStyleの値が、-2「マイナス2」のとき、エラーになっていたので、
先に判定するようにしました。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Shp As Shape
Cancel = True
If ActiveSheet.Shapes.Count <> 0 Then
For Each Shp In ActiveSheet.Shapes
Select Case Shp.Line.DashStyle
Case 1, 4
If Split(Target.Address, ":")(0) = Shp.TopLeftCell.Address Then
Shp.Delete
Exit Sub
End If
End Select
Next
End If
With ActiveSheet.Shapes.AddShape(msoShapeOval, Target.Left, Target.Top, Target.Width, Target.Height)
.Fill.Visible = msoFalse
.Line.Weight = 0.75
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Excel(エクセル) Excel2019 マクロを使用し画像を貼り付けした際のリンク切れについて 2 2022/11/15 16:14
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Visual Basic(VBA) エクセル VBAについて 2 2022/05/16 16:33
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
セルをクリック⇒そのセルに入力された文字を○で囲む
Excel(エクセル)
-
Excel Vbaを使って 結合セルをダブルクリックでチェックマークしたいのですが手順を教えてくださ
Excel(エクセル)
-
エクセルマクロで結合されたセルをダブルクリックで指定文字を入力
Excel(エクセル)
-
-
4
VBAで丸をつけたいです。
その他(プログラミング・Web制作)
-
5
セルをクリック⇒そのセルに入力された文字を○で囲む
Excel(エクセル)
-
6
エクセル初心者
Excel(エクセル)
-
7
エクセルでセルをクリックして“○”や✔マークを入力
Excel(エクセル)
-
8
VBA 図形○を入れる座標の取り方
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
メッセージボックスのOKボタ...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
一つのTeratermのマクロで複数...
-
EXCELのVBAでRange("A1:C4")を...
-
Excel VBAからAccessマクロを実...
-
ExcelのVBA。public変数の値が...
-
ソース内の行末に\\
-
ピボットテーブルでの毎回可変...
-
特定文字のある行の前に空白行...
-
ExcelVBAでPDFを閉じるソース
-
マクロの連続実行
-
TERA TERMを隠す方法
-
エクセルに張り付けた写真のフ...
-
VBA初心者 Ctrl+での操作、ボタ...
-
TeraTermマクロの文字列結合
-
エクセルのマクロについて教え...
-
エクセル マクロ 指定日の指定...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
エクセルに張り付けた写真のフ...
-
他人が作ったマクロの理解
-
ExcelVBAでPDFを閉じるソース
-
TERA TERMを隠す方法
-
エクセルで別のセルにあるふり...
-
マクロ実行時、ユーザーフォー...
-
Excel VBAからAccessマクロを実...
-
EXCELのVBAでRange("A1:C4")を...
-
TeraTermマクロの文字列結合
-
PDF出力マクロについて。マクロ...
-
#defineの定数を文字列として読...
-
エクセルのマクロをセルの値に...
-
wordを起動した際に特定のペー...
おすすめ情報