|
|
|
|
| ****************************************
| | 2021/11/12 | 《DocHub环境依赖软件的安装》 |
|
计算机（右键-属性）---高级系统设置---高级---环境变量 Path %SystemRoot%\system32;%SystemRoot%;%SystemRoot%\System32\
Wbem;%SYSTEMROOT%\System32\WindowsPowerShell\v1.0\;C:\
Program Files\LibreOffice\program;C:\Program Files\Calibre2;C:\pdf2svg;C:\
Program Files\ImageMagick-7.0.8-Q16
（要全部连起来，不分行）
1.将Libreoffice 加入到 Windows系统环境 Path 变量。 我这里Windows的安装路径是:
C:\Program Files\LibreOffice
加入到系统环境变量中的 Path 变量值：
C:\Program Files\LibreOffice\program
2.这里，我的安装路径是：
C:\Program Files\Calibre2
所以这里，我将上面的路径加入到系统的 Path 系统变量中。 3.我这里，pdf2svg 的位置如下：
C:\pdf2svg
然后把这个路径加入到 Windows系统的 Path 环境变量中。
(解压之后，将 64位 的版本，文件夹改名pdf2svg后直接放到C盘。) 4.在这里，我的安装路径如下：
C:\Program Files\ImageMagick-7.0.8-Q16
则把上述路径，添加到系统的环境变量之中。
在终端(cmd)执行如下命令，查看版本号，能查到版本号，即表示安装成功。
1.soffice --version
2.ebook-convert --version
3.pdf2svg
4.magick --version
如果查看不到版本号或者提示命令不存在，请检查 Libreoffice 是否已经安装并且配置了 Libreoffice 的系统环境变量。
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2021/11/11 | 《永硕E盘，百度网盘》 |
|
永硕E盘-网盘 账号：su-yuan.ys168.com 登录密码：4269259 改成了：2222 后台管理密码：1360*****00hjt
百度网盘 账号：1360***2500 密码：426*****jt *********************************** 账号：189****9126 密码：426*****jt
永硕E盘-网盘注册信息
绑定电话：18966759126 用户姓名：fghgfh 电话号码： 63851265||1356546151544 QQ号码:无 请输入联系QQ 联系地址:846532 身份证号码：610100123456789 |
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2021/11/8 | 《新云账号》 |
|
天翼云（2021-11-8） IP：218.78.81.204 账号：lk2lklk@163.com 密码：4269259hjt@
远程登录密码：A4269259hjt
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2021/9/13 | 《澳科大学生账号密码》 |
|
B2004462 610104200209081624
https://oas.must.edu.mo/admission/Login.do
18966759126@sina.cn hyw0908
澳科大网上选课系统 https://www.must.edu.mo/student 学生帐号密码 2009853YB111002 qy@5x5Ht 13609192500@Hyw
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2021/9/11 | 《电信光猫登陆超账号密码》 |
|
电信天翼光猫登陆超级密码 最高权限 账号：useradmin密码：nE7jA%5m
新安装的电信光猫：ZXHN G7615TV2-XG 中兴光猫
账号：useradmin 普通设置密码：A4269259hjt
账号：useradmin 超密：qGc#7BPuQHM9
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2021/9/3 | 《网上共青团·智慧团建：》 |
|
https://zhtj.youth.cn/zhtj/
账号：hyw身份证号 密码：683125hyw
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2021/8/12 | 《伯索后台安装软件下载网址》 |
|
Windows PC端管理后台下载：http://download.plaso.cn/dev-prod/plaso_boss3.30.340.exe
MAC电脑网页版管理后台： https://www.plaso.cn/static/boss
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2021/5/14 | 《vba中下拉菜单》 |
|
vba中下拉菜单 设置好窗体里的 都可以，但Private Sub UserForm_Initialize()不能变。
Private Sub UserForm_Initialize() ComboBox1.List() = Array("稿件名称", "工作做类型", "页码", "日期") End Sub
Private Sub UserForm_Initialize() ComboBox1.AddItem "男" ComboBox1.AddItem "女" End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem "你添加的内容"
End Sub
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2021/5/11 | 《vba程序，生成边框》 |
Sub 边框线() ActiveSheet.UsedRange.Borders.LineStyle = 1 End Sub 添加一个细的、黑色线条框线，以围绕活动工作表上使用的单元格。
Sub 加边框() Range("a1").CurrentRegion.Borders.LineStyle = 1 End Sub 改进：a1为赋值x VBA中有，range("A1")、cells（1,1），[A1]这三种选择对象的方法 所以，把 Range("a1")换成了cells（x,1）
Cells(x, 1).CurrentRegion.Borders.LineStyle = 1 备注：x的赋值有别的语句 参考：收费+支出
**************************
以下是将当前活动工作表中使用的范围的边框样式设置为1的VBA代码： Sub SetBorders()
Dim ws As Worksheet
' 设置当前活动工作表
Set ws = ActiveSheet
' 将使用的范围的边框样式设置为1
ws.UsedRange.Borders.LineStyle = 1
End Sub 参考：老师结算系统 |
|
|
|
|
|
|