0

コードを正しく取得しようとしていますが、ある時点で失敗します: 一番上のセルに書き込まれた値に応じてセルを下のセルと結合する Excel シートがありますが、結合されたセルから値が削除されると、iセルのマージを解除したいです。コードを少しきれいに保つためにサブを使用しようとしています(適切なルールはわかりませんが、試してみます):

Public Sub LetItMerge(Target As Object)  
    If Target.Value = Empty Then  
            Call unMergeCell(Target)          
    Else  
            If (Target.Value = VV Then Call MergeCell(Target)  
    End If  
End Sub
Sub unMergeCell(m As Object)
    m.Resize(1, 1).UnMerge
    m.Borders(xlInsideHorizontal).LineStyle = XlLineStyle.xlContinuous
End Sub
Sub MergeCell(n As Object)
        n.Resize(2).Merge                   'merge cells
        n.VerticalAlignment = xlCenter      'center text
        n.HorizontalAlignment = xlCenter    'center text
End Sub
4

1 に答える 1