いつもお世話になります。
WIN7 EXCELL2010 です。
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$A$1" Then Sh.Name = Target.Range("A1").Value
End Sub
ThisWorkbook に上記のマクロに下記のマクロを追加したいのですが、
End Sub の ところを End If End With などに変えたのですがうまくゆきません。
御指導お願いできませんでしょうか。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim myRange As Range
Set myRange = Intersect(Target, Range("M3:V27"))
If Not myRange Is Nothing Then
Select Case Target.Value
Case ""
Target.Value = "○"
Case "○"
Target.Value = "●"
Case Else
Target.ClearContents
End Select
Cancel = True
End If
End Sub
宜しくお願いいします。
単純に繋げればよいです。
処理の系統が違うのでどちらもEnd Subで完了させる必要があります。
（自動で区切りが入ります。）
ただ、
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
でなく、
Private Sub WorkBook_sheetBeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
では？
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/images/related_qa/c205_1_thumbnail_img_sm.png)
お礼
ありがとうございました。 ご指摘を頂いたのを実行しましたが作動しなくなり元に戻しました。