主题：右键点击某列的单元格时候，显示特定的快捷菜单

右键点击某列的单元格时候，比如“第一列”下方的任意一行的第一列的单元格，显示特定的快捷菜单

If _Role = "销售部同事" Or _Role = "销售部经理" Or _Role = "超级管理员" Then
If  e.Table.Current("belonguser") <> "公海" Then '如果是Cell菜单
e.ContextMenu = ContextMenus("单位转入公海") '显示快捷菜单"菜单A"
ElseIf  e.Table.Current("belonguser") = "公海" Then '如果是Cell菜单
e.ContextMenu = ContextMenus("单位转出公海") '显示快捷菜单"菜单A"
Else
End If
End If

我现在是这样写的，要怎么修改