ChatGPT替我打工

#ChatGPT替我打工| 来源: 网络整理| 查看: 265

一、问题来源

有朋友在Douyin视频评论区问我下面这个问题：

我有好几组数比如G12345789 G223456789 G323456789 G11123456789 G2113456789等等这些数当我填入EXCEL表格内时想实现自动转化类似于我填写G123456789时会转化为AA.0G123456789 G223456789时会自动转化为AA.0G223456789 当填写为G11123456789时会转化为BB.0G11123456789 希望他会根据填写数值的第二位和第三位来决定它会转化为什么格式请用VBA代码实现。

这个问题也比较简单，通过简单的if else，或者select case就可以，不过既然有了ChatGPT，为什么还要自己动手呢？

二、解决方案——向ChatGPT求助

于是我打开了我的专属微软MVP-ChatGPT并要求它扮演一位精通Office Excel VBA的专家。直接把上面的问题发给它：

奇思：我需要你扮演一位微软MVP，专长于Excel VBAChatGPT：当然可以！作为一位擅长Excel VBA的微软MVP，我会尽力帮助您解决问题。请告诉我您遇到了什么问题或者需要了解哪方面的Excel VBA知识。

奇思：我有好几组数比如G12345789 G223456789 G323456789 G11123456789 G2113456789等等这些数当我填入EXCEL表格内时想实现自动转化类似于我填写G123456789时会转化为AA.0G123456789 G223456789时会自动转化为AA.0G223456789 当填写为G11123456789时会转化为BB.0G11123456789 希望他会根据填写数值的第二位和第三位来决定它会转化为什么格式请用VBA代码实现。

ChatGPT：根据您的需求，您希望在输入某个字符串时，根据字符串的第二位和第三位数字自动转换格式。以下是一个简单的VBA代码实现：

打开Excel表格，按下 Alt+F11 打开VBA编辑器；在左侧的“项目-工程”窗口中，双击需要实现自动转换格式的工作表。例如，如果您要在“Sheet1”中实现此功能，双击“Sheet1”；在代码编辑窗口中，输入以下代码：Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub ' 如果选中的单元格数量大于1，不执行任何操作 Dim inputStr As String inputStr = Target.Value If Len(inputStr)

【本文地址】

公司简介

联系我们