《excel常用秘籍1.docVIP

始浏览-利用Excel数据有效性和Countif函数限制某列输入重复值 Excel教程　当我们使用EXCEL输入数据的时候，难免遇到所输入的数据是唯一性的数据，这个时候，也不可避免输入了大量数据之后，由于难于检查，在不知不觉中输入重复的数据； 　　比如，输入身份证时，由于是一大串数字，更难于检查所输入的数据是否存在重复！ 　　针对这种数据量非常大却又不能错的工作，我们该如何解决问题呢？ 方法是有的，请遵循下面的操作包您满意，下面以输入姓名为例！如何有雷同之处，稍加修改，就是您的了！　如下图，A列是用来输入姓名的； 首先选择整个A列，然后执行操作：“数据”→”有效性”；弹出如下的对话框！ 上图中，切换到“设置”选项卡，在“允许”那里选择“自定义”；之后在公式那里输入“=(COUNTIF(A:A,A1)=1)”，这样就就行了，点击确定按钮即可完成； 　　如果您想设置更人性化的错误提示，请将选项卡切换到“出错警告”； 　如上图，想怎么输入错误提示信息都可以； 　　都设置好了，就点击“确定”确认并退出，之后在A列单元格尝试着输入重复姓名吧，看看，当在A7单元格输入“陆青山”的时候，就提示错误了，因为数据已重复了嘛！A列内容第一次输入或之后修改，B列只显示第一次输入内容的日期 请教：A列输入内容或几天后修改内容，B列自动显示当时的日期和时间，且B列的日期和时间不随系统时间的变化而变化。从坛子里找到如下VBA，但不能完全满足要求，因为A列内容再次修改时，B列对应当时的日期和时间 自动变成了修改日期了 Private Sub Worksheet_Change(ByVal Target As Range)当A1单元格输入数据后,B1单元格记录下A1单元格输入数据的时间.并且以后时间不会改变,当删除A1单元格的数据后B1单元格数据为0,A1再次记录数据后B1重新计算A1单元格当前输入数据的时间.? ? If Target.Count 1 Or Target.Column 1 Then Exit Sub? ? Application.EnableEvents = False? ? If Target = Then? ?? ???Target.Offset(0, 1) = ? ? Else? ?? ???If Target.Offset(0, 1) = 0 Or Target.Offset(0, 1) = Then Target.Offset(0, 1) = Now? ? End If? ? Application.EnableEvents = TrueEnd Sub Excel—“撤销工作表保护密码”的破解并获取原始密码 ------------------------------------------------------------------------------------------ Option Explicit Public Sub AllInternalPasswords() Breaks worksheet and workbook structure passwords. Bob McCormick probably originator of base code algorithm modified for coverage of workbook structure / windows passwords and for multiple passwords Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1) Modified 2003-Apr-04 by JEM: All msgs to constants, and eliminate one Exit Sub (Version 1.1.1) Reveals hashed passwords NOT original passwords Const DBLSPACE As String = vbNewLine vbNewLine Const AUTHORS As String = DBLSPACE vbNewLine _ Adapted from Bob McCormick base code by _ Norman Harker and JE McGimpsey Const HEADER As String = AllInternalPasswords User Message Const VERSION As String = DBLSPACE Vers