VBA | 时鹏亮的blog

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

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

ActiveSheet.Pictures.Insert(Filename).SelectSet 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 ShapeDim xRg As RangeDim 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[......]

B="SDFSDdsfsdf"
A=LCase(B)

把B转换成小写字母赋值给A

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

遍历[……]

时鹏亮的blog