工作常用

Posted 2020-11-27 chenxiehan

【1】数据文件加密压缩

VBA★生成随机密码，生成bat格式命令并复制到剪切板，在记事本粘贴保存为.bat即可。

Sub rndpwd()
    Randomize (Format(Now(), "yyyymmddhhmmss"))
    comb = Split("0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z", ",")
    For i = 1 To 11
        For j = 0 To 5
            s = s & comb(Rnd() * 61)
        Next j
        k = Format(i, "00")
        If i < 11 Then
            cs = "RAR.exe a -hp" & s & " -x*610403* 61" & k & "Q1.RAR *61" & k & "* 0*"
        Else
            cs = "RAR.exe a -hp" & s & " 610403Q1.RAR *610403* 0*"
        End If
        Cells(i, 1) = cs
        cs = "": s = ""
    Next i
    UsedRange.Copy
End Sub

BAT★需要将Rar.exe和bat文件放在同一目录，或使用RAR.exe绝对路径。加密、剔除。上面生成的格式如下：

@echo off
    RAR.exe a -hpIPLmsm 6101Q2data.RAR 0* *6101*
    RAR.exe a -hpTfrT8s 6102Q2data.RAR 0* *6102*
    RAR.exe a -hpXzMbg0 6103Q2data.RAR 0* *6103*
    RAR.exe a -hpii2p4T 6105Q2data.RAR 0* *6105*
    RAR.exe a -hpn2dx3r 6106Q2data.RAR 0* *6106*
    RAR.exe a -hp18shFX 6107Q2data.RAR 0* *6107*
    RAR.exe a -hpops35X 6108Q2data.RAR 0* *6108*
    RAR.exe a -hpNjsIxG 6109Q2data.RAR 0* *6109*
    RAR.exe a -hpXwvOq8 6110Q2data.RAR 0* *6110*
    RAR.exe a -hpZ89l9P -x*610403* 6104Q2data.RAR 0* *6104*
    RAR.exe a -hpVtOB7P 610403Q2data.RAR 0* *610403*
pause

【2】笔记本无线和有线网卡分别上外网、内网时，利用bat快速打开/关闭网卡。

同时使用无线和有线网卡，可以用route命令删除原默认路由，分别添加内网静态路由和默认路由实现。但在实际使用过程中，感觉内外网响应速度都很慢。

route delete 0.0.0.0
route add 192.168.0.0 mask 255.255.255.0 192.168.0.254 -p
route add 0.0.0.0 mask 0.0.0.0 10.0.0.254 -p

 

@echo off
:loop
    echo 1.打开内网
    echo 2.打开外网
    echo 3.关闭BAT

    set /p in=请选择(1/2/3):
    cls
    if "%in%"=="1" (
        netsh wlan disconnect
        netsh interface set interface 以太网 enabled
    ) else if "%in%"=="2" (
        netsh wlan connect name=CHENZC
        netsh interface set interface 以太网 disabled
    ) else if "%in%"=="3" (
        exit
    )else (
        echo "请输入1-3！"
    )
goto loop

【3】导出问卷，每个值标保留唯一值，且降序排序。

Sub Qsort()
    Application.ScreenUpdating = False
    s = UsedRange.Rows.Count
    For i = 1 To UsedRange.Columns.Count
        Range(Cells(1, i), Cells(s, i)).RemoveDuplicates 1, xlYes
    Next
    For i = 1 To UsedRange.Columns.Count
        Range(Cells(1, i), Cells(s, i)).Sort Cells(1, i), xlDescending
    Next
End Sub

【4】

【5】