ChatGPT与Excel结合_编写VBA宏

先来解释下什么是Excel vba宏

Excel VBA宏(Visual Basic for Applications)是一种用于在Microsoft Excel中自动化和扩展功能的编程语言。VBA允许用户编写自定义的脚本或宏,以便通过执行一系列指令来自动完成特定任务。

使用Excel VBA宏,你可以创建和编辑工作表、处理数据、执行计算、生成报表、自定义用户界面等。通过编写VBA代码,你可以利用Excel的各种功能和对象模型,以及相关的函数和方法,实现更高级的操作和自定义功能。

VBA宏可以通过录制宏的方式生成初始代码,也可以手动编写代码来实现更复杂的功能。你可以在Excel中的"开发者"选项卡中访问VBA编辑器,其中可以编写、修改和运行VBA宏。

借助Excel VBA宏的强大功能,用户可以提高工作效率、简化重复性任务,并根据自己的需求进行定制化操作。

🐇才知道原来excel也可以写代码,打开方式是:在开发工具中选择VB宏
在这里插入图片描述那怎么用ChatGPT与Excel结合来编写VBA宏呢?

案例1

💕比如我的需求是:写一个基本的Excel vba宏,用于将表格中的第3行到第9行每一行数据转换为一个新的工作簿
在这里插入图片描述
VBA宏如下:

Sub SplitRowsToNewWorkbooks()Dim sourceSheet As WorksheetDim newWorkbook As WorkbookDim newRow As RangeDim rowIndex As Long' 设置源工作表Set sourceSheet = ThisWorkbook.ActiveSheet' 创建新工作簿Set newWorkbook = Workbooks.Add' 循环复制行数据到新工作簿For rowIndex = 3 To 9' 复制当前行数据sourceSheet.Rows(rowIndex).Copy' 在新工作簿中粘贴数据newWorkbook.Sheets(1).Cells(rowIndex - 2, 1).PasteSpecial Paste:=xlPasteAllNext rowIndex' 清除剪贴板内容Application.CutCopyMode = False' 保存新工作簿newWorkbook.SaveAs "路径\文件名.xlsx" ' 替换为你想要保存的路径和文件名' 关闭新工作簿newWorkbook.Close' 提示完成信息MsgBox "已将行数据分割为新的工作簿并保存。"
End Sub

请将代码中的"路径\文件名.xlsx"替换为你希望保存的路径和文件名。运行该宏后,会将第3行到第9行的每一行数据复制到一个新的工作簿,并将其保存在指定的路径下。完成后会弹出一个提示框,显示操作已完成。

操作如下:
1️⃣
在这里插入图片描述
2️⃣需要注意修改代码的行数列数表格数,确定没啥问题
在这里插入图片描述3️⃣
在这里插入图片描述
4️⃣在这里需要注意“将代码中的"路径\文件名.xlsx"替换为你希望保存的路径和文件名”
在这里插入图片描述
5️⃣改完路径就会弹窗(要关闭这个弹窗才可以打开新的excel表格文件哦)
在这里插入图片描述
6️⃣执行完,打开刚刚设置的路径文件,程序执行pass~~
在这里插入图片描述

🐇虽然chatGPT没有理解我的命令是“每一行”生成新表格,但“回炉再造”一遍就好,重要的是学会ChatGPT与Excel结合来编写VBA宏


案例2

💕又比如我的需求是:编写一个Excel VBA宏,将工作薄,每个工作表中的图片,移动到A1单元格上

    Dim ws As WorksheetDim shp As Shape    ' 循环遍历所有工表For Each ws ThisWorkbook.Worksheets' 遍历当前工作表的所有形状(图片)For Each shp In ws.Shapes' 判断形状是否为图片类型Ifp.Type = msoPicture Then' 将图片移动到A1单元格位置shp.Top = ws.Range("A1").Topshp.Left = ws.Range("A1").LeftEnd IfNext shpNext ws' 提示完成信息MsgBox "已将所有图片移动到A1单元格位置。"
End Sub

运行该宏后,它会遍历工作薄中的每个工作表,并将每个作表中的图片移动到A1单元格的位置。在移动图片之后,会弹出一个提示框显示操作已完成。

请注意,宏只会处理工作表中的图片形状,对于其他类型的形状(如图表等),需要根据实际情况进行适的修改。

这个操作也类似上面的。


案例3

💕我的需求是:编写一个Excel VBA宏,删除当前Excel工作簿里边所有的图片

Sub DeleteAllPictures()Dim ws As WorksheetDim shp As Shape' 循环遍历所有工作表For Each ws In ThisWorkbook.Worksheets' 遍历当前工作表的所有形状(图片)For Each shp In ws.Shapes' 判断形状是否为图片类型If shp.Type = msoPicture Then' 删除图片shp.DeleteEnd IfNext shpNext ws' 提示完成信息MsgBox "已删除所有图片。"
End Sub

运行该宏后,它会遍历当前Excel工作簿中的每个工作表,并删除每个工作表中的所有图片。在删除图片之后,会弹出一个提示框显示操作已完成。

请注意,宏只会处理工作表中的图片形状,对于其他类型的形状(如图表等),需要根据实际情况进行适当修改。


🐇代码不需要理解,可以跑,实现作用就好啦~~~
🐇不过看懂代码对大家应该很简单

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.rhkb.cn/news/17531.html

如若内容造成侵权/违法违规/事实不符,请联系长河编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

Cursor--基于ChatGPT的辅助编程软件

Cursor--基于ChatGPT的辅助编程软件 简述下载安装软件使用感想 简述 Cursor是一款与OpenAI合作并且基于ChatGPT的新一代辅助编程软件,不用科学上网,使用简单。 下载安装 下载网址: https://www.cursor.so/步骤: 1.打开网址&am…

为什么很多公司选择在年底裁员?

裁员是每年年底都无法避免的话题,尤其是今年,显得更为突出。裁人的速度也是一次次被刷新:有的上午还在过需求,下午就通知走人;有的吃个午饭回来就已经没有打开电脑的权限了…其中还有不少是处于实习阶段的应届毕业生&a…

美国最大运营商裁员4.4万人,作为普通的程序员,我们该如何面对互联网裁员浪潮?

近日,面对难看的财务报表,美国最大的通讯运营商、市值2200亿美金的Verizon,遣散了4.4万名老员工。 在国内,解决了80%就业的中小企业也遭遇了新一轮生存困境…社会很残酷,追求稳定的人都被时代抛弃,有远见的…

JobShow裁员加班实况

如何写一份好的简历? 写在前面 在内推的时候很多同学问到如何能够让自己的简历更出彩,在帮助修改简历的过程中,发现了一些通用的问题,简单写个帖子总结下,如有错误请批评指正 格式 好的简历能够让HR一眼看到最重要的…

上了RPA,裁员40%,公司盈利了

作者| Mr.K 编辑| Emma 来源| 技术领导力(ID:jishulingdaoli) E总是一家电商公司老板,在淘宝、京东、拼多多、抖音、快手都有店铺,经营3C数码类商品。每年营业额有几个亿,按毛利25%计算,也有大几千万了,但…

一知名公司裁员,网友爆料称裁 80%…

大家好~ 最近的瓜真的是一个接一个,这次彻底麻了,吃着薇娅逃税的瓜的同时,蘑菇街开始裁员了,而且这次技术是大规模的裁员。 第一时间上脉脉去看,果然已经有对应的讨论了。80%是真的夸张~ 然后得到结论基本上是&#…

想辞职了,IT部门地位低,在公司天天被业务压制,成了取数机器

最近被业务搞烦了,一天到晚除了让我取数就是找我解决报表问题。我自己一堆开发任务没做完,整天就是被业务打断,导致一年了自己技术丝毫没提升。最重要的是,做的事情完全不被认可,业务只当你是工具人,老板也…

谷歌裁员细节曝光:高绩效员工、开源主管被裁,61岁程序员在线求职,有人60天找不到工作就被遣返...

文章来源:量子位 | 公众号 QbitAI 大家好!我是韩老师。 最近几个月,裁员似乎已经成为了科技巨擘们的代名词,不禁让人们对于经济发展的前景感到担忧。 其中,谷歌母公司 Alphabet 此前宣称,变化的经济现状迫使…

Google率先宣布取消部分offer,新一轮裁员潮真的来了?

目前美国累计确诊病例数已超过33万,每天2万的新增病例,还不知何时能减缓。受此影响,本该offer满天飞的季节,却面临着“裁员降薪、冻结offer”的境遇。 早前,Google就已经率先宣布取消部分在match阶段的实习pending of…

疫情之下德国公司纷纷裁员,程序员呢?

有一个好消息,和一个坏消息,先听哪个? 我们先听坏消息吧。 1坏消息 南德约有20%的公司正在裁员,或正在裁员的路上。 根据德国Ifo经济研究所的一项调查,巴符州和巴伐利亚州有约20%的公司已经决定裁员,疫情危…

裁员先兆?腾讯员工吐槽:公司发起PIP,PCG的鹅们,自求多福吧

前言:如今的我们身处一个信息爆炸的时代,各类八卦新闻、小道消息更是如此。在我们的印象中,“八卦”似乎总是跟“女人”挂钩。但笔者可以明确的告诉你,职场男士在吃饭、茶歇、网聊或者发短信时八卦也不差于女人。“八卦”看似是某…

辞退“脚踏两家公司”的工程师后,CEO被网暴!

几日前,软件公司 Canopy CEO Davis Bell 在自己的 Linkedln 上发布了一篇短文,声称自己公司刚刚辞退了两名身兼多份全职工作的员工。不过网友似乎并不买账,反对的声音非常多,甚至还对其进行“死亡威胁”。 全职打多份工&#xff0…

jvm崩溃的原因_JVM崩溃时:如何调查最严重错误的根本原因

jvm崩溃的原因 当应用程序崩溃时,您可以学到什么? 我认为,“后见之明是20 /”是最喜欢的短语之一托马斯罗梅尔 ,工程ZeroTurnaround的副总裁。 好吧,我实际上不确定在他的短语中占什么位置,但是我已经听过…

做外贸怎么找客户

现在国内贸易内卷非常严重,很多商家都转向海外市场了,总结而言,目前所有做外贸的人,核心的点就是要找到重点意向客户,今天就和大家分享一下目前市面上外贸找客户的几种方法。 主动出击式开发外贸客户 1、参加展会找外贸…

chatGPT入世,外贸企业如何充分利用?

当今时代,随着互联网的不断发展和普及,越来越多的外贸企业开始意识到数字化转型的重要性。数字化转型不仅可以提高企业的生产效率和质量,更可以提升企业在全球市场的竞争力。在数字化转型的过程中,将ChatGPT和AI数字人相结合是一种…

ChatGPT 做PPT只要3分钟?

ChatGPT 这个风口,我们普通人应如何抓住机会逆袭。 让我们一起来了解一下吧! 如何三分钟搞定一份 PPT,只需要三个步骤。和我一起来操作一遍吧! 这里会教大家如何使用ChatGPTMindShow自动生成PPT。 一、获取PPT大纲 我们首先要…

ChatGPT让Python再次伟大!

ChatGPT的爆火改变了很多东西,就与多年前移动互联网的普及一样,我们正处于AI改变世界的前夜。 在OpenAI为其推出了GPT-4语言模型后,ChatGPT的回答准确性有了极大提高,也具备了更高水平的识图能力,这让ChatGPT成为了“…

“盗窃”而来的 3000 亿单词?ChatGPT 摊上事了,遭索赔 30 亿美元!

省时查报告-专业、及时、全面的行研报告库 省时查方案-专业、及时、全面的营销策划方案库 【免费下载】2023年5月份全网热门报告合集 普通人如何利用ChatGPT变现赚钱? 无需翻墙,无需注册,ChatGPT4直接使用 ChatGPT提词手册,学完工…

OpenAI推企业版ChatGPT,英伟达造AI安全卫士

GPT现在已经进入了淘金时代。虽然全球涌现出成千上万的大模型或ChatGPT变种,但一直能挣钱的人往往是卖铲子的人。 这不,围绕暴风眼中的大模型,已经有不少企业,开始研究起了大模型的“铲子”产品,而且开源和付费两不误…

chatgpt赋能python:Python如何赚钱?

Python如何赚钱? Python是一种广泛使用的高级编程语言,它可以用于 Web 开发、数据分析、人工智能等领域,因此它也是一种非常值得学习且有前途的编程语言。但是,Python也可以用来赚钱。在本文中,我们将介绍Python如何赚…