Bingosniper - 博客园

2022年1月25日

摘要：一、点击“宏”→“录制宏”，出现“录制新宏”窗口，在“宏名”定义一个名称，点击“确定”退出；二、再点击开发工具中的“宏”，选择定义的宏名称并点击“编辑”，打开“Microsoft Visual Basic”编辑器，用如下内容替换右侧窗口中的所有代码并保存； 1 Sub PasswordBreake 阅读全文

posted @ 2022-01-25 09:00 Bingosniper 阅读(1271) 评论(1) 推荐(1) 编辑

2020年12月23日

Excel中文转拼音

摘要：一、打开Excel 按Alt + F11 进入 VB编程模式，选择 “模块” 二、把下面的代码复制粘贴到 “通用” 下方的空白处 Function pinyin(p As String) As String '************************************* '版本说明阅读全文

posted @ 2020-12-23 12:40 Bingosniper 阅读(539) 评论(0) 推荐(0) 编辑

2020年4月14日

EXCEL2019将同一文件夹下的所有Excel表格合并到一个表格中

摘要： Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpd 阅读全文

posted @ 2020-04-14 13:19 Bingosniper 阅读(4988) 评论(0) 推荐(0) 编辑

2018年12月5日

Office 365/Office 2016变更更新通道

摘要：修改方式如下1.下载 Office 2016 管理模板文件 (ADMX/ADML)，对应自己安装的版本下载X86还是X642.打开admx文件夹，将其中所有文件复制到 %systemroot%/PolicyDefinitions ，语言文件只要复制中文即zh-cn3.运行，输入gpedit.msc4 阅读全文

posted @ 2018-12-05 19:52 Bingosniper 阅读(2570) 评论(1) 推荐(1) 编辑

2018年10月22日

常用网址

该文被密码保护。阅读全文

posted @ 2018-10-22 21:34 Bingosniper 阅读(3) 评论(0) 推荐(0) 编辑

2018年10月19日

Windows Server 2012 R2修改网络属性

摘要：依次进入【控制面板】→【系统和安全】→【管理工具】→【本地安全策略】→【网络列表管理器策略】→【网络（名称可能不同，依据当前名称为准）】→【网络位置】，修改为专用或者公用即可。阅读全文

posted @ 2018-10-19 11:03 Bingosniper 阅读(2603) 评论(0) 推荐(0) 编辑

2018年10月18日

常用工具下载地址

摘要：一、Notepad++ https://notepad-plus-plus.org/download/ 二、Everything https://www.voidtools.com/downloads/ 阅读全文

posted @ 2018-10-18 15:54 Bingosniper 阅读(117) 评论(0) 推荐(0) 编辑

中心机房管理制度

摘要：为科学、有效地管理中心机房，保证网络系统安全、高效运行和使用，结合中心网络结构及运行情况，特制定如下制度，请遵照执行。一、机房日常管理 1.管理目标是保证中心机房设备与信息的安全，保障机房具有良好的运行环境和工作环境。 2.机房日常管理指定专人负责。 3.无关人员未经批准不得进入机房，更不得动用机阅读全文

posted @ 2018-10-18 11:10 Bingosniper 阅读(260) 评论(0) 推荐(0) 编辑

修改Win7、Win8、server2012等远程桌面端口及防火墙规则

摘要：所有操作均在注册表中完成，修改完以后，重启机器即可。 1、修改端口号修改1： HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp\PortNumber修改2： HKEY_LOCAL 阅读全文

posted @ 2018-10-18 10:52 Bingosniper 阅读(414) 评论(0) 推荐(0) 编辑

常用的EXCEL公式

摘要：一、判断某个数据与某个区域数据是否重复 =IF(ISERROR(MATCH(A1,C1:C5,0)),"不重复","重复") 二、批量删除单元格最后两位 =SUBSTITUTE(A2,RIGHTB(A2,2),"",1) 三、批量替换身份证后四位为* =mid(c2,1,len(C2)-4)&"** 阅读全文

posted @ 2018-10-18 08:59 Bingosniper 阅读(560) 评论(0) 推荐(0) 编辑