admin 发布的文章

代码如下：

Sub DeletePW()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True
ActiveSheet.Unprotect
End Sub

使用方法：鼠标右键点击工作表标签，选择“查看代码”，把上面的代码粘贴到代码框中，点击菜单进行代码即可。

=(A1-INT((A1-0.5)/页数)*页数-1)*每张纸成绩条数量+INT((A1-0.5)/页数)+1

如设置每张纸打印5张成绩条，共打印12张纸，那么公式就是：

=(A1-INT((A1-0.5)/12)*12-1)*5+INT((A1-0.5)/12)+1

其中，A1为原学号，公式的结果为打印时的排序序号。

=5*(ROUNDUP(MOD(B2-0.5,12),0)-1)+ROUNDUP((B2-0.5)/12,0)

这个公式也可以。

公式如下：

=(MID(SUBSTITUTE(TRIM(J2),CHAR(9),""),7,4)&"/"&MID(SUBSTITUTE(TRIM(J2),CHAR(9),""),11,2)&"/"&MID(SUBSTITUTE(TRIM(J2),CHAR(9),""),13,2))*1

解释：

  1. trim函数的作用是把身份证号码前后的空格删除。
  2. substitute函数的作用是把身份证前后的tab空格替换为空值，即删除tab空格。
  3. mid函数的作用是从文本中按设定开始位置和文本长度来截取文本。
  4. 最后的*1作用是把截取的文本数字化，因为日期本质上是数字序列。

补充：
不要忘记把单元格格式设置为“日期”。

生成方法

使用以下命令可以生成40位的随机密码：
openssl rand -bash64 30

原理解释

上面的命令为 openssl 随机生成 30 字节的二进制文件，但二进制文件对人类的读写不友好，所以采用 base64 编码方式对这 30 字节的随机文件进行编码，生成40位字符在A~Z,a~z,0~9,/,+,=范围的密码。

- 阅读剩余部分 -

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5