Excel | 时鹏亮的blog

最近发生个奇怪的情况，表格第一次双击，会打开空白的Excel，之后再双击才能正常打开文件，就很蠢……之前正常的，印象里可能是升级Office后造成的。

搜了下解决方案，需要人工编辑注册表，方便小白，直接下载文件：Excel 2016修复.rar

解压密码文件名中有写，双击导入注[……]

最近遇到个奇葩情况，所有表格第一次打开，是空白的Excel，要再次双击才能打开表格。每次都要点击两次才行，就很奇怪。

找了下解决办法，整理如下：

有时在VBS Excel 宏 VBA Debug时，需要在循环到指定位置退出方法或函数，如何处理呢？

其实方法很简单，只需要对应指令即可直接退出方法或者函数：

Exit Sub

Exit Function

参考资料
VBA Exit Sub or Function[……]

VBS Excel 宏 VBA有时需要写出一些内容到文件，如何处理呢？

示例代码如下：

Dim filePath As String
filePath = "C:\temp\MyTestFile.txt"

' The advantage of correctly t[......]

比较少见的需求了，不过碰到了就整理下吧。本文整理的代码实现了POST查询功能。

完整示例代码如下：

Private Sub cmdKirimGET_Click()
    Dim strResult As String
    Dim objHTTP As Object
    Dim[......]

最近有个需求是用Excel的VBA 宏发送Cookie的请求。

实测后，将VBS Excel 宏 VBA 发送带Cookie的HTTP请求的实例代码总结如下：

    Dim http
    Set http = CreateObject("Msxml2.Server[......]

VBA中如果有循环处理数据，通常在循环过程中，Excel的表现会是卡死的状态，用户体验并不太好，所以尝试搜了下VBA 宏里面实现延时功能。

示例代码：

'宏顶部声明延时的函数
'Excel 2010 以及之后的版本使用如下声明代码
Public Declare PtrSafe Sub[......]

有时我们需要为Excel中的图片添加超链接，批量的操作肯定少不了VBA宏。

那么如何使用VBA为图片添加链接呢？示例代码如下：

ActiveSheet.Pictures.Insert(Filename).Select
Set shp = Selection.ShapeRange.[......]

有时我们的单元格可能存在一长串的数字，Excel默认会将该单元格显示成科学计数法。而我们预期是想展示成字符串。

那么VBA如何设置指定单元格的长串数字正常显示而不是显示科学计数法呢？

If IsNumeric(Cells(hang, 10).Values) Then
    Ce[......]

偶尔我们指定了行高度后，需要对应行的单元格自动换行，那么VBA如何实现指定范围的行中的单元格自动换行呢？

如下代码即可：

Range("A" & hang & ":R" & hang).WrapText = True[......]

时鹏亮的blog