电脑使用上面的一些小技巧、源码备忘录、分享

以下说明的疑问或建议可发邮件咨询交流 dragonballcn@qq.com
　
一.自动备份文件
　1.创建一个文本文档，后缀改成.bat，编辑内容：
　
@echo off
copy "D:\源目录\源文件.xxx(后缀)" "D:\存放目录\新文件名-%Date:~0,4%%Date:~5,2%%Date:~8,2%-%Time:~0,2%%Time:~3,2%-%Time:~6,2%%Time:~9,2%.xxx后缀"
　
　代码说明：日期-时间-秒毫秒，参考示例：新文件名-20220101-0800-3097.xxx(后缀)
　上面是直接备份(复制)文件，压缩率大的大文件也可使用压缩包：（调用7zip）
　
@echo off
"C:\Program Files\7-Zip\7z.exe" a "D:\存放目录\新文件名%Date:~0,4%%Date:~5,2%%Date:~8,2%%Time:~0,2%%Time:~3,2%%Time:~6,2%%Time:~9,2%.zip" "D:\源目录\源文件.xxx(后缀)"
　
　
　2.创建一个任务计划，管理面板或开始菜单，搜索“计划任务”或“任务计划”，或计算机管理里面。
　触发器，可设置每次登录时（自用电脑）或凌晨固定时间（服务器），也可根据自己的情况设置，文件打开状态下也是能够备份的；
　操作，设置启动程序，浏览加载上面创建的.bat文件。
　
　3.也可随时进行手动备份：把文件创建快捷方式拖到开始菜单或桌面、或其他自己经常接触到的界面。
　
　
　
　
　
二.win7开机启动卡在win窗口加载页面（开机启动速度慢）
　1.设备管理器，查看-显示隐藏设备，禁用或卸装那些带有感叹号的设备。
　2.拔掉一些USB设备，打印机等。
　
　
　
　
　
三.mysql导入导出
　1.导出
cmd
cd C:\MySQL目录\bin
mysqldump -u root -p 表名 > 导出自定义文件名.sql
输入密码

如果有报错的话试一下“.\mysqldump”

（若mysql在D盘的话，先进入D盘）
cmd
d:
cd D:\MySQL目录\bin

　2.导入
cmd
cd C:\MySQL目录\bin
mysql -u root -p --default-character-set=utf8(字符编码) 表名 < 源文件.sql
输入密码
　
　
　
　
　
四. 复制粘贴成文本格式
　为了实现：从文档外部复制数据粘贴成文本格式，从excel内部复制数据粘贴成原格式。
新方法：添加顶部快捷方式，用alt+1，alt+2来实现，excel内部的是“值[粘贴值]”，外部的是“只保留文本[粘贴并只保留文本]”，在所有命令中找下（首字拼音排序）。（自定义快速访问工具栏-其他命令-从下列位置中选择命令-所有命令-最下面找“只”“值”字开头的）
　
-------以下过期------
　录制宏，编辑宏，设置快捷方式V或其他
　宏内容：
Sub 粘贴纯文本()
　　On Error GoTo paste
　　ActiveSheet.PasteSpecial Format:="HTML", NoHTMLFormatting:=True
　　Exit Sub
paste:
　　ActiveSheet.Paste
End Sub
------------------
代码说明：
Sub 粘贴纯文本() '宏名称，可自定义，默认是“宏1、宏2等”
On Error GoTo paste '如果出现错误跳转到“paste”语句，名称可自定义，与下面的保持一致。
Format:="HTML", NoHTMLFormatting:=True '没有格式的文本，直接用Format:="文本"的话有时候出现的空行会多一些。只有该语句的话，从excel内部复制的内容粘贴会报错，粘贴的语句不一样。
Exit Sub '如果上面不报错的话直接结束语句，否则会继续执行下面的语句。
ActiveSheet.Paste '直接粘贴原格式，如果需要也粘贴成文本格式的话，用下面另一行代码，也可自行录制宏来查看代码：
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
　
　
　
　
五、excel宏 不同表格自动排序
　录制的宏里面带有工作表名称ActiveWorkbook.Worksheets("Sheet1")，不一定适用其他工作表。
　宏内容：

Sub 排序()
　　Dim paixu As Range
　　Set paixu = Range("A2:P999")
　　paixu.Sort Key1:=Range("A1"), Order1:=xlAscending, _
　　　　　　　Key2:=Range("B1"), Order2:=xlAscending, _
　　　　　　　Header:=xlNo, SortMethod:=xlPinYin
End Sub

---------
代码说明：
Range("A2:P999")：要排序的范围。
Range("A1")：以“A1”为第1排序字段升序排序，若第一排序里面相同的地方以“B1”为第2排序字段升序排序，若需降序改为：xlDescending。
Header:=xlNo：是否包含标题。
　
　
　
　
六.新版H5表格边框宽度设置
　2022新版淘宝详情页编辑，以前设置的 border="0" 没用了，表格出现了1px的宽度，需要用 style="border-width: 0.0px;"，而且table、td里面都要定义一遍。居中也在style里面定义：td style="text-align: center;border-width: 0.0px;"
　
　
　
　
　
七、Windows 11 + Office 365，打开第二个excel时比较慢，要4-5秒
参考来源：https://blog.csdn.net/anjiongyi/article/details/127890454
注册表：
计算机\HKEY_CLASSES_ROOT\Excel.Sheet.12\shell\Open\ddeexec
计算机\HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Open\ddeexec
更改值为：[open("%1" /ou "%u")]
具体说明可参考上面的链接。