Excel | 时鹏亮的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需要添加个按钮直接调用宏，那么如何添加按钮呢？方法如下：

启动Excel，右键点击帮助
自定义功能区勾选开发工具后点击确定
开发工具标签下的插入-表单控件，选择第一个按钮，绘制大小
点击右上新建，可以编辑按钮对应的宏指令

[……]

有时候，下载下来的表格，明明设置了单元格格式是日期，格式也设置成斜杠/,却依然不变化，还是短横杠-，这时候该这样操作一下就好了。

首先将该列数字格式设置成你想要的格式
然后将该列数值复制到记事本里面
然后再贴回来，格式就变成本来该有的样子了

[……]

有时候，数据透视表计算字段，可能不小心弄错了，想删除掉，怎么操作呢？

1. 点击透视表任意地方，选择分析-字段与项目-计算字段
2. 下拉选中想要删除的列名
3. 点击右侧删除即可

[……]

有时候，统计数据太多，会显得横坐标太密集，此时想隔一天显示，或者隔多天显示横坐标，却不影响数据应该怎么做呢？

点击横坐标轴，选择设置坐标轴格式
然后设置间隔即可，如下图，我设置了间隔2天

[……]

有的时候做数据表，只想显示前几名的数据或者占比，这该怎么办呢？其实很简单

点在数据标签上，这时候会默认选中所有标签

2. 然后再点一下你想要删掉的数据标签，选中删除即可

其实非常简单，只是第一步人家默认全选中，好像要显示全部显示，要删除全部删除[……]