有时在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[......]

阅读全文

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如何实现呢?一行代码即可:

Rows(hang).RowHeight = 110

上述代码即实现了指定hang的高度为110[……]

阅读全文

有这么个需求,Excel有一列是图片地址,现在需要将图片地址下载成图片。

那么如何处理呢?想来必然是要用VBA宏的。网上搜了下实现,demo代码如下:

Sub URLPictureInsert()
Dim Pshp As Shape
Dim xRg As Range
Dim xCol A[......]

阅读全文