エクセル マクロ 初心者です

質問

エクセルマクロ初心者です。
以下の２つの
Private Sub Worksheet_Change(ByVal Target As Range)を１つのシートで実行させたいのですが、
当方、初心者なので組み合わせ方が分かりません。
よろしくお願いします。

===No1===
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target = StrConv(Target, vbUpperCase)
Application.EnableEvents = True
End Sub

===No2===
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ans As Integer

If Target.Count = 1 Then
Ans = MsgBox("コピーは禁止!!", vbCritical)
MsgBox "データを消去します。"
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
End If
If Target.Count = 1 Then
Exit Sub
Else
MsgBox “複数セルのコピー禁止！"
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
End If
End Sub
------------
上記の２つを１つのシートで動作させたいのですが、うまくいきません。
単体では、動作します。

回答No.2

okormazd · ベストアンサー

質問の趣旨は明確ではないが、たぶん下記のようにやりたいのかなと思う。
入力の範囲は特定していない。
特にコピー元の特定はわからないから、Excelからのコピーだけはできないようにしてあるつもり。

Private Sub Worksheet_Change(ByVal Target As Range)

f = True
For Each c In Target
If c <> "" Then f = False
Next
If f Then Exit Sub

With Application
.EnableEvents = False
If Target.Count > 1 Then
MsgBox "複数セルへの入力はダメです。"
.Undo
.CutCopyMode = False
.EnableEvents = True
Exit Sub
End If

If .CutCopyMode <> False Then
MsgBox "コピーは禁止!!" & Chr(10) & "データを消去します。"
.Undo
.CutCopyMode = False
Else
Target = StrConv(Target, vbUpperCase)
End If
.EnableEvents = True
End With

End Sub

お礼

私が期待した通りの動作でした。
情報不足で申し訳ありませんでした。
ご回答いただきました内容を理解するため頑張っていきます。

本当に助かりました。
ありがとうございました。

回答No.1

WindFaller

見た感じ、イベントで、MsgBox を出すのは、あまりうまくありませんから、本当に実用に耐えるものかどうかはなんとも言えませんが、テスト段階でしょうか？

1> Target = StrConv(Target, vbUpperCase)
2>"コピーは禁止!!",

これらは、同じセル（列）で行おうとしているのでしょうか？
そもそも、これをお使いなろうとしているExcelのバージョンはいくつなのでしょうか？
それによっても、コードが変わるのではないかと思います。

補足

excel 2010を使用しています。

No1はcaps lockで入力規則でABCなどの『半角英数』大文字を入力させたいため、「a」と入力されたら「A」に強制変換。

No2は他のシートやブックからのコピー防止です。
１つのセルのみと２つ以上セルをコピーしようとした時にキャンセルさせるためです。

私を含めて初心者が多いので、この２つの条件が必要と思いお願いしたところでした。
よろしくお願いします。