27
April
[PR]
×
[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
Public Sub DEL_Kyuin_Button(WS As Worksheet, Target As Range, Target_Address As String, SW As String)
'====================================
' 入力規則ドロップダウンバグ対応
'
' 入力規則があるセルがActiveになった瞬間、ワークシート内の任意のボタンを
' 該当セルに引き寄せるバグが発生
'
' SelectionChangeの時にシステム側で発生するバグのため、事前削除不可能。
' 該当シートのSelectionChangeよりコールする
'
' SW … "0" .Delete
' "1" .Visible = false
'====================================
Dim tgRng As Range
Dim sp As shape
If Target.Address = Range(Target_Address).MergeArea.Address Then
Set tgRng = Target
For Each sp In WS.Shapes
If Not sp.Name Like "Drop Down *" Then
If Not Intersect(Range(sp.TopLeftCell, sp.BottomRightCell), tgRng) Is Nothing Then
Debug.Print sp.Name
WS.Unprotect password:=PassSet
Select Case SW
Case "0": sp.Delete
Case "1": sp.Visible = False
End Select
WS.Protect password:=PassSet
End If
End If
Next
End If
Set tgRng = Nothing
Set sp = Nothing
End Sub
