小白求教！在这组代码如何改动会在不同的列调用日期控件

平淡无为

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'If Target.Cells.Count > 1 Then Exit Sub
    If Not Application.Intersect(Range("g11:g18"), Target(1).MergeArea(1)) Is Nothing Then
        Calendar1.Left = Target(1).MergeArea(1).Left + Target(1).MergeArea(1).Width
        Calendar1.Top = Target(1).MergeArea(1).Top + Target(1).MergeArea(1).Height
        Calendar1.Visible = True
        ' select Today's date in the Calendar
        Calendar1.Value = Date
    ElseIf Calendar1.Visible Then Calendar1.Visible = False
    End If

End Sub

liulang0808

(Range("g11:g18"), Target(1).MergeArea(1))
红色字体对应的区域调整看看

平淡无为

liulang0808 发表于 2023-6-20 07:11
(Range("g11:g18"), Target(1).MergeArea(1))
红色字体对应的区域调整看看

谢谢！我试了，只能在单列或在连续列都可以显示，那如何做到不同列显示呢，比如我只想在A和C列显示日期控件，不想在B列显示日期控件。请赐教！

liulang0808

平淡无为 发表于 2023-6-20 07:22
谢谢！我试了，只能在单列或在连续列都可以显示，那如何做到不同列显示呢，比如我只想在A和C列显示日期控 ...

If Not Application.Intersect(Union(Columns(1), Columns(3)), Target(1).MergeArea(1)) Is Nothing Then
没有附件内容，猜一下吧

平淡无为

liulang0808 发表于 2023-6-20 07:42
If Not Application.Intersect(Union(Columns(1), Columns(3)), Target(1).MergeArea(1)) Is Nothing The ...

大神非常感谢您的指点，按照您的方法非常成功！