关于个别帖子进入审核状态的说明

qianbin0503

超级版主您好！我有个不情之请，能帮我把这个帖子删掉吗？excel如何实现特定的随机筛选
http://club.excelhome.net/thread-1219441-1-1.html
刚出来实习，上传附件忘记做处理，职场菜鸟考虑太少，里面包含了太多信息，泄露出去会很麻烦，给您工作添麻烦了，非常的感谢~

dhpdssg

qianbin0503 发表于 2015-7-27 12:07
超级版主您好！我有个不情之请，能帮我把这个帖子删掉吗？excel如何实现特定的随机筛选
http://club.excel ...

您可以编辑这个帖子，将附件替换为去隐私的附件。我原以为有删除选项，可能在本站怕用户解决问题后过河拆桥，不给其他人学习机会。论坛可能不允许用户自己删帖

zjdh

这个网站太小心啦！！
隔壁网站没那么多规矩，照样好好的！

不经意的回头

规模越大，被监管力度越大，我们只为技术，控制再严对我们也没什么影响啦

jsahchn

理解，支持

就是来借点料

求审核通过啊

xucuncicero

审核要多久啊，才发现竟然被提示审核了。

向東

Dim v As Variant

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (Target.Column = 5 Or Target.Column = 7) And Target.Row >= 3 Then '范围
        v = Target '提取未更改前的数据
    End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Long
   
    If Target.Column = 7 And Target.Row >= 3 Then '孔数锁定
        r = Target.Row
        If Cells(r, 6) = 1 Then '第六列，进程
          Application.EnableEvents = False '不激活事件
          Target = v '还原数据
          Target.Select
          Application.EnableEvents = True
          MsgBox "此单元格内容已锁定！", vbInformation, "提示"
        End If
        
    ElseIf Target.Column = 5 And Target.Row >= 3 Then '进尺锁定
   
        r = Target.Row
        If Cells(r, 6) = 2 Then '第六列，进程
          Application.EnableEvents = False '不激活事件
          Target = v '还原数据
          Target.Select
          Application.EnableEvents = True
          MsgBox "此单元格内容已锁定！", vbInformation, "提示"
        End If
   
    End If
   
End Sub

e表格学习

理解/支持!这样可以避免别有用心的人破坏论坛.

商ふ君

我想知道为什么我回复别人的纯汉字也需要审核？