VBA | 时鹏亮的blog

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[......]

有时需要指定行高，VBA如何实现呢？一行代码即可：

Rows(hang).RowHeight = 110

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

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

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

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

有时Excel需要添加个按钮直接调用宏，那么如何添加按钮呢？方法如下：

[……]

假设A列是完整的名字，复姓不考虑：
B列公式：

=MID(A1,1,1)

C列公式：

=SUBSTITUTE(A1,B1,"")

这样就提取好了，B列是姓氏，C列就是名字。[……]

还记得3月6日总结的遍历指定列的所有行的代码吗？

For hang = 2 To ActiveSheet.UsedRange.Rows.Count '遍历第2行到当前表总行数
A = Cells(hang, lie)
Next

在这个循环里是在当前激活的Sheet下使用的，如何读取[……]

以下函数可以解码UTF-8地址的中文关键词。

Function URLDecode(ByVal strIn)  
        URLDecode = ""  
        Dim sl : sl = 1  
        Dim tl : tl = 1

时鹏亮的blog