IssacNew

摘要： Sub FreezeTopRowAllSheets() Dim ws As Worksheet ' 遍历所有工作表 For Each ws In ThisWorkbook.Worksheets ' 激活工作表 ws.Activate ' 冻结首行 ActiveWindow.FreezePanes = 阅读全文

摘要： For that you can use the TopMost Property of MsgBox (Number 262144) MsgBox("Hello there", 262144, Title:="Out of focus") Edit: Another way to accompli 阅读全文

摘要： 可能是：你的网络屏蔽了需要连接的网站，更换手机流量热点即可解决 阅读全文

摘要： Private Sub Button_ImportBasicData_Click(sender As Object, e As EventArgs) Handles Button_ImportBasicData.Click ' 创建文件对话框对象 Dim openFileDialog As New 阅读全文

摘要： 按下fn + 右边的win键 即可解决。如下图所示。 阅读全文

摘要： 巨大的坑，该代码来自于acadauto_2014--AutoCAD2014 ActiveX Reference Guide.chm 但是存在一个巨大的bug。 '获取所有的打印输出的图纸尺寸的名称 ，但是事前必须设置【打印机对象】也就是 Layouts("Model").ConfigName = " 阅读全文

摘要： 解决方案：加一个time.sleep(1)即可 阅读全文

摘要： @echo off setlocal enabledelayedexpansion rem 输入的时间 set "time_input=00:07:07.1" rem 解析时间 for /f "tokens=1-4 delims=:.," %%a in ("%time_input%") do ( s 阅读全文

摘要： 解决方案：一般是公司网络或者学校网络的问题，更换手机使用的数据流量热点无线网络即可。 阅读全文

摘要： 1 代码部分 代码功能：实现使用sumatra打开指定pdf指定页码 代码： Sub OpenPDFatPage() Dim PDFFile As String Dim PageNumber As Long Dim SumatraPath As String 'PDF文件路径 PDFFile = " 阅读全文