原理：VBA使用Exclel的条件格式功能Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) On Error Resume Next Cells.FormatConditions.Delete ' 清除原有条件格式 With Target.EntireRow.FormatConditi

问题：因为文件格式或扩展名无效。请确定文件未损坏，并且文件的扩展名与文件的格式匹配。新建的工作簿报错信息如下图：因为文件格式或扩展名无效。请确定文件未损坏，并且文件的扩展名与文件的格式匹配。报错原因：注册表里FileName里的值用的是WPS的模板，可是WPS已御载。解决方法：将注册表里的FileName值设为Microsof

Public Function GetInfo(strMoblie As String) As String '创建对象 Dim xmlHttp As Object Set xmlHttp = CreateObject("MSXML2.XMLHTTP") '发送请求 xmlHttp.Open "GET", "http://www.ip138.com:8080...

日常办公中想置顶便笺，可能受制于公司电脑权限，无法下载相关软件。下面这段VBA可能会帮上忙（应该没有哪家公司的电脑不让装office），也可以用这种方法置顶其它窗口。win10中叫便利贴win7叫便笺'查找窗口句柄Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName A...