请使用手机微信扫码安全登录

切换账号密码登录

绑定手机号

应国家法规对于账号实名的要求,请您在进行下一步操作前,需要先完成手机绑定 (若绑定失败,请重新登录绑定)。了解更多

不绑定绑定手机号

360官网 | 360商城

推荐论坛版块活动360粉丝商城众测粉丝轰趴馆常见问题
Sub 员工状态()
    Dim A
    Dim i As Integer
    Dim arr
    Sheet2.Range("A3:A65536").Select
    arr = Split("在职|离职", "|")
    For i = 0 To UBound(arr)
        If i = 0 Then
            A = arr(i)
        Else
            A = A & "," & arr(i)
        End If
    Next
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
             xlBetween, Formula1:=A
    End With
End Sub

刘军平_2017 + 1 经验 赞一个!

共 1 个关于求教,我想要选离职时,离职二字变成红色,谢谢的回复 最后回复于 2022-3-14 21:22

评论

直达楼层

七喜先生 VIP认证 超级版主 发表于 2022-3-14 21:22 | 显示全部楼层 | 私信
如果朋友在此没有征集到好的回答,建议这位朋友去360问答社区(http://wenda.so.com/)相关分类中征集回答,360问答社区的平台上不但有非常多的热心网友和牛人们能帮助到你!同时有了满意答案后还能帮助到其他不懂这个问题的人!感谢朋友对360问答支持!友情提示,悬赏征集会助于你问题的快速解决!一旦有能解决朋友问题的答案的时候,朋友要记得采纳,这样会换来更多朋友的帮助!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

360fans_uid50016970 LV1.上等兵

粉丝:0 关注:0 积分:6

精华:0 金币:30 经验:5

最后登录时间:2022-3-12

360商城青铜会员

私信 加好友

最新活动

360云台摄像机9Pro写评论送大奖!

排行榜

热度排行 查看排行
今日 本周 本月 全部
    今日 本周 本月 全部

      内容推荐 热门推荐最新主帖

      扫码添加360客服号,涨知识的同时还有超多福利等你哦

      快速回复 返回顶部 返回列表