Excel VBA質問箱 IV

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

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


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

648 / 76735

←次へ　｜　前へ→


	【81752】Re:行のを削除・行の挿入について

TDS - 21/4/25(日) 13:55 -


	引用なし

	パスワード

▼sinzo さん：
>検証願います。
>
>Option Explicit
>Dim ListCnt
>
>Private Sub Worksheet_Change(ByVal Target As Range)
>Dim c
>Dim Rng, Rng2
>
>Set Rng = ActiveCell
>Set Rng2 = Intersect(Rng, Range("1:16"))
>
>If Rng2 Is Nothing Then Exit Sub
>　　Set c = CommandBars("Standard").Controls(14)
>　　If ListCnt < c.ListCount Then　　'履歴がふえたら
>　　　　If c.TooltipText = "元に戻す(&U) クリア (Ctrl+Z)" Then
>　　　　　　MsgBox "クリアをキャンセルします。"
>　　　　　　Application.Undo
>　　　　End If
>　　End If
>　　ListCnt = c.ListCount
>
>End Sub

sinzo さんご回答ありがとうございます。
行の削除・行の挿入でなっかったですが、
入力欄の削除などできないようにするようですが、勉強になりました。
ありがとうございますm(__)m

16 hits

▼

【81734】行のを削除・行の挿入について TDS 21/4/21(水) 15:49