随笔分类 -  Excel

摘要：目的: 移动选中的单元格内, 显示对应图片在宏内插下如下代码:更改注意事项:1. 修改图片目录2. 图片文件格式为jpg , 单元格的内容为图片文件的名称Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo Err '取得文件名 Dim fname As String fname = "D:\IMG\" '此处修改为图片对应的目录　fname = fname& "{1}.jpg" fname = Replace(fname, " 阅读全文

摘要：列非重复计数 =SUMPRODUCT(1/COUNTIF(B2:B9,B2:B9))设置显示格式为“X.0万元”#!.0,"万元"; 阅读全文

摘要：Excel 带有了一个很好用的功能 , 照相机 。 可以很好的对Excel数据表进行排版和输出。 照相机的功能就是将Excel的某一块区域以一张图片的形式保存起来， 但与普通的图片不一样的地方就是，这个图片会随着单元格里的数据变化而变化。 默认这个功能是没有在菜单中显示出来的， 需要在自定义工具栏里，将“照相机”这个功能显示在工具栏才行。 阅读全文

摘要：需求：在Excel中插入图片，文件名在某一行或列，将对应目录下的图片文件插入至下一行。代码： 建立一个宏,将代码复制到宏里,将原来的方法全部覆盖掉Sub 清空图片() '删除当前sheet上所有的图片文件 For Each Shape In ActiveSheet.Shapes Shape.Delete NextEnd SubSub 插入图片()FilePath = "C:\Users\Administrator\Pictures\" '图片文件路径Fill = 0 '插入方式:1:按列插入图片(横向) , 0 按行插入图片(纵向)Row = 3 & 阅读全文