![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VBA
自塾
这个作者很懒,什么都没留下…
展开
-
2020-12-07
在工作中经常需要批量调整word中图片的尺寸,这可以用VBA来解决。请看代码:Sub tupian() For i = 1 To ActiveDocument.InlineShapes.Count If i = 1 Or i = 9 Then ActiveDocument.InlineShapes(i).Width = 360 ActiveDocument.InlineShapes(i).Height = 210 Else Activ原创 2020-12-07 17:30:41 · 108 阅读 · 0 评论 -
利用VBA在Excel中批量画图
有很多图要画的时候要崩溃的,必须上VBA来解决。比如现在有个Excel数据表,研究五个竞争对手,每个竞争对手都生产有四种设备,每个设备都有可能具有8个效果中的几个。现在要研究五个竞争对手的专利情况。要用饼图来表示五个竞争对手在某种设备的某个效果方面分别有几篇相关专利。原数据表如下:每个设备对应的每个效果都要画一个饼图,用来表示五个竞争对手的情况。代码如下:Sub pie()Dim x, y, z As Integer '定义三个整数便于计算Set WK = ThisWorkbook.Sheets原创 2020-09-16 18:43:05 · 8726 阅读 · 0 评论 -
如何把Excel中的文字保存为txt文件?
使用Python做NLP任务的时候,经常会清洗数据,做成txt文件,每一行代表一篇文章。但是,采用pd.read_csv(‘新华社数据.csv’, encoding = ‘GB2312’, error_bad_lines=False) 这种方法会出现报错,无法识别位置XXX处的字符。而csv文件是可以用Excel打开的,作为备选,可以从Excel中提取文本。VBA代码如下:Sub zhuantx...原创 2020-03-30 23:09:10 · 1144 阅读 · 0 评论