当前位置:首页 > 资讯 > 正文内容

在excel中如何使用vba?(excel vba视频教程)

3个月前 (05-28)资讯74

大家好,今天小编关注到一个比较有意思的话题,就是关于excel vba视频教程的问题,于是小编就整理了1个相关介绍excel vba视频教程的解答,让我们一起看看吧。

  1. 在excel中如何使用vba?

在excel中如何使用vba?

VBA算得上是Excel的顶级应用技术了,使用VBA几乎可以解决99.99%的Excel应用问题,本问题也不例外。通过VBA遍历同一路径下的所有文档,查找文档中的的特定内容,并把对应值提取出来。具体图文演示如下:

在excel中如何使用vba?(excel vba视频教程)

在excel中如何使用vba?(excel vba视频教程)

在excel中如何使用vba?(excel vba视频教程)

在excel中如何使用vba?(excel vba视频教程)

在"悟空问答\在excel中如何使用vba"这个文件夹路径下有几个文档,如题所描述,各文档中不同位置上的相同内容对应不同值,现在需要批量提取这个对应值,比如提取到测试工作薄里,效果如下图所示。

在excel中如何使用vba?(excel vba视频教程)

实现以上功能的VBA代码如下:

Sub VBA应用()

Dim mypath As String, file As String

Dim wb As Workbook

Dim rng As Range

mypath = ThisWorkbook.Path

Application.ScreenUpdating = False

Application.DisplayAlerts = False

file = Dir(mypath & "\*.xlsx")

Do While Len(file) > 0

If file <> ThisWorkbook.Name Then

Workbooks.Open mypath & Application.PathSeparator & file, False

Set wb = ActiveWorkbook

Set rng = wb.Sheets(1).UsedRange.Find("测试").Offset(0, 1)

If rng Is Nothing Then

Exit Do

Else

n = n + 1

With ThisWorkbook.Sheets(1)

.Cells(n + 1, 2) = rng.Value

.Cells(n + 1, 3) = Left(file, Len(file) - 5)

End With

End If

file = Dir

wb.Close

End If

Loop

Set wb = Nothing

Application.ScreenUpdating =True

Application.DisplayAlerts = True

End Sub

在excel中如何使用vba?(excel vba视频教程)

代码放入测试工作薄VBE编辑界面的模块中,按F5运行即可提取到各文档中测试对应的值。欢迎关注@Excel泥瓦匠,Excel学习,E路有你!

我记得大一的时候学过excel的,但是多年没用,后来毕业了出来工作,才知道excel的重要性。然后一步步的自学,到现在应该来说excel算是入门了。

我记得那会学Excel是在我要自学网学习的,里面的教程很全面,讲的也很好,那会从excel基础到excel函数,到excel vba基础,坚持了大概半年左右。到现在连接数据库,统计数据,办公室关于excel的问题都能解决。

很多人也知道excel的重要性,但是没办法坚持学习,为什么呢?我觉得最重要的一点就是没能学以致用,大家可能觉得跟老师说的一样,老一套,但是如果你能今天学习,明天用到工作上,领导认可,同事佩服,那自然学习热情高涨,越学越有劲

位置可以随机,但是相对位置一定要固定,且关键的单元格最好是唯一的,这样可以通过Range搜索或者用数组也可以,然后用offset定位到你要的数据进行读取,操作就可以了。

我是爱尚聊IE,欢迎关注我。这种方法我不建议使用VBA进行操作,当然VBA能实现,但是一旦引入的Excel被更改名字或者删除了,这样势必会导致数据丢失。

以下我通过vlookup的函数来告诉你如何将A表格数据导入到B表格数据内。

函数为vlookup(查找值,查找区间,0或者1)

首先,你需要保证A和B单元格的查找项一致。也就是上面括号内的第一个要一致。

然后查找区间选择A表格,因为是将A数据导入B数据,然后选择0,进行精确查找,这样的话,这个数据就会查找到了。

同时!

如果你为了以后数据丢失,你可以先复制这个查找到的数据,然后粘贴为文字格式,这样即使A数据表数据变化,也不会导致B数据表变化。

具体可以参照下图

在excel中如何使用vba?(excel vba视频教程)

VBA相当于Excel的内层语言,你需要了解一般的语言结构,例如怎么触发一段语句,怎么写循环语句,条件语句,怎么跳出循环......总之需要有点计算机语言基础,但不需要特别精通。我相信你具备上述条件,然后仔细看看我的百度经验[傻瓜都会用VBA]后,一定会写VBA。加油💪

到此,以上就是小编对于excel vba视频教程的问题就介绍到这了,希望介绍关于excel vba视频教程的1点解答对大家有用。

分享给朋友:

“在excel中如何使用vba?(excel vba视频教程)” 的相关文章

2021款宝骏560长宽高是多少?(宝骏560车长多少米?)

2021款宝骏560长宽高是多少?(宝骏560车长多少米?)

大家好,今天小编关注到一个比较有意思的话题,就是关于宝骏560长宽高是多少的问题,于是小编就整理了4个相关介绍宝骏560长宽高是多少的解答,让我们一起看看吧。2021款宝骏560长宽高是多少?宝骏560车长多少米?2016年宝骏跟2015宝骏560车长一样吗?宝骏560新款2022款车身尺寸?202...

电视49m是多少寸?(49寸电视长宽高是多少?)

电视49m是多少寸?(49寸电视长宽高是多少?)

大家好,今天小编关注到一个比较有意思的话题,就是关于49寸电视长宽高是多少的问题,于是小编就整理了5个相关介绍49寸电视长宽高是多少的解答,让我们一起看看吧。电视49m是多少寸?49寸电视长宽高是多少?49显示屏尺寸?49寸电视长宽高是多少?49寸电视,长宽各多少?电视49m是多少寸?49寸电视,4...

大学学生宿舍床多大?(大学宿舍有凳子吗?)

大学学生宿舍床多大?(大学宿舍有凳子吗?)

大家好,今天小编关注到一个比较有意思的话题,就是关于宿舍板凳长宽高多少的问题,于是小编就整理了4个相关介绍宿舍板凳长宽高多少的解答,让我们一起看看吧。大学学生宿舍床多大?大学宿舍有凳子吗?宿舍架子床的尺寸是多少?宿舍座椅推荐?大学学生宿舍床多大?大学生宿舍床一般情况下都是单人床,多数是以900mm×...

有没有适合成年人穿的轮滑鞋?(轮滑鞋的尺码要怎么选?)

有没有适合成年人穿的轮滑鞋?(轮滑鞋的尺码要怎么选?)

大家好,今天小编关注到一个比较有意思的话题,就是关于成人轮滑鞋长宽高多少的问题,于是小编就整理了3个相关介绍成人轮滑鞋长宽高多少的解答,让我们一起看看吧。有没有适合成年人穿的轮滑鞋?轮滑鞋的尺码要怎么选?旱冰鞋的尺寸要和平常穿的鞋子一样大,还是小一点?有没有适合成年人穿的轮滑鞋?在国内被广大轮滑爱好...

crv和锋兰达尺寸长宽高?(本田crv车身长度高度、宽度?)

crv和锋兰达尺寸长宽高?(本田crv车身长度高度、宽度?)

大家好,今天小编关注到一个比较有意思的话题,就是关于crx长宽高是多少的问题,于是小编就整理了4个相关介绍crx长宽高是多少的解答,让我们一起看看吧。crv和锋兰达尺寸长宽高?本田crv车身长度高度、宽度?2023款途观和2023款crv尺寸?2019crv尺寸长宽高多少?crv和锋兰达尺寸长宽高?...

2017年4月20日我国第一艘航空母舰是什么?(中国第一艘高空母舰是?)

2017年4月20日我国第一艘航空母舰是什么?(中国第一艘高空母舰是?)

大家好,今天小编关注到一个比较有意思的话题,就是关于国产航母长宽高多少米高的问题,于是小编就整理了3个相关介绍国产航母长宽高多少米高的解答,让我们一起看看吧。2017年4月20日我国第一艘航空母舰是什么?中国第一艘高空母舰是?中国首艘国产航母能比泰坦尼克号大吗?2017年4月20日我国第一艘航空母舰...