主题：传统编辑方式

Select Case e.col.name
    Case "第一列","第二列","第三列","第四列","第五列"
        forms("窗口1").Open()
    Case "第六列","第七列","第八列","第九列","第十列"
        forms("窗口1").Open()
End Select