• 设备
    • 今日
    • 0

    VBA编程备忘录2

    VBA编程备忘录2 1.读取sheet页【原始数据】中的B列只取唯一值,并将维一值写入到sheet页【批量处理】A列中 Subonly_data() DimmRng$,D,c SetD=CreateObject("scripting.dictionary")'因MSSQL防注入安全问题,这里的Create与Object之间是没有空格才是正确 ForEachcInSheets("原始数据").Range("B2:B9999") IfNotD.exists(c.Value)ThenD.Addc.Value,"" Nextc Sheets("批量处理").Range("

    阅读全文 1 °

    [ 图 ] 删除office2019多余未激活授权信息

    删除office2019多余未激活授权信息 如上图,只有第一个【产品已激活】的2019许可是有效的,其它,如:2016及需要激活的2019,都是多余,那如何删除这些没用信息? 1.以管理员身份,用命令模式,进入目录:c:\Windows\System32 2.查看默认安装目录的office授权信息: cscript"C:\ProgramFiles\MicrosoftOffice\Office16\ospp.vbs"/dstatus ------我电脑显示信息如下------ Microsoft(R)WindowsScriptHostVersio

    阅读全文 5 °

    打开Excel2016文件都是灰色空白页,但再一次把文件拖进去又可以正常显示​​

    打开Excel2016文件都是灰色空白页,但再一次把文件拖进去又可以正常显示​​ 原因: 安装过多个不同版本office导致版本冲突; 解决办法: 1.进入注册表找到,算机\HKEY_CLASSES_ROOT\Excel.SheetX目录(X可能du是5/8/12,其中5,8,12分别代表office97,office2013和office2016) 2.再打开相应目录下面的shell/Open/command 3.修改右面默认值,即将最后的/dde改为"%1"即可

    阅读全文 36 °