-
本版专家分：0结帖率 0% -
求大佬看一看我这段代码哪里有问题
Sub test()
Dim date_ As String
Dim range_ As Range
Dim i As Integer
Dim range2 As Range
date_ = "201801"
Set range_ = Range(Cells(8, 1), Range("A8").End(xlDown))
Do While date_ <> "201813"
Set range2 = rowaa(range_, date_)
date_ = date_ + 1
Loop
End Sub
以下是函数
Public Function rowaa(range_ As Range, date_ As String)
For Each i In range_
If Not (i.Value Like ("*" & date_ & "*")) Then
Exit For
End If
Set rowaa = i
Next
End Function
在do while第二遍运行到Set range2 = rowaa(range_, date_)的时候他提示报错 要求对象。
-
本版专家分：0
-
- 签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
-
-
不知道理解的对不对：
我的理解是楼主想在A8单元格往下的A列里面，依次找到包含“201801”，“201802”,..., "201812" 的所有字符格当中最后出现的那个，并返回该字符。
如果是这样，那么有两处可能可以修改：
1、Dim range2 As Range 改成： Dim range2 As String 或者直接不写range2的dim
理由：rowaa的返回值存储到range2变量中，而rowaa的返回值是个string
2、函数rowaa的循环，如果按照楼主的写法
If Not (i.Value Like ("*" & date_ & "*")) Then
Exit For
那么如果在A8格没有出现包含date_的形状，就直接退出循环，不再遍历A8向下的单元格
所以建议改成：
For Each i In range_
If (i.Value Like ("*" & date_ & "*")) Then
rowaa = i
End If
Next
最后附上程序：
Public Function rowaa(range_, date_)
For Each i In range_
If (i.Value Like ("*" & date_ & "*")) Then
rowaa = i
End If
' Debug.Print rowaa
Next
End Function
Sub test()
Dim date_ As String
Dim range_ As Range
Dim i As Integer
Dim range2 As String
date_ = "201801"
' Sheets("Sheet1").Activate
Set range_ = Range(Cells(8, 1), Range("A8").End(xlDown))
Do While date_ <> "201813"
range2 = rowaa(range_, date_)
Sheets("Sheet1").Range("A1") = range2
date_ = date_ + 1
' Debug.Print date_
Loop
End Sub
本人最近在刻苦钻研VBA，今天看了程序也是报错很多次，总结出来什么时候要用set来给变量赋值：
给对象变量（如：range，worksheet，collection）赋值才要用Set；普通变量（如integer, string）赋值不用（其实给普通变量赋值是用let，不过let可省略）
所以本程序中只有在 range_ 那里需要用set赋值。
希望有所帮助，感谢你的问题，让我今天学到很多，笔芯。
- VBA数组VBA数组VBA数组
VBA数组VBA数组VBA数组VBA数组VBA数组
- VBA动态数组VBA动态数组VBA动态数组VBA动态数组
VBA动态数组VBA动态数组VBA动态数组VBA动态数组VBA动态数组VBA动态数组VBA动态数组VBA动态数组VBA动态数组
- ExcelVBA操作MySQL
1. ExcelVBA操作MySQL之一——准备工作 2. ExcelVBA操作MySQL之二——链接MySQL 3. ExcelVBA操作MySQL之三——有关用户名和密码的操作 4. ExcelVBA操作MySQL之四——创建数据库和表 5. ExcelVBA操作MySQL之五——...
- excel 2016VBA配套资源
VBA VBA VBA VBA VBA VBA VBA VBA VBA VBA VBA VBA VBA VBA VBA VBA VBA VBA VBA VBA VBA VBA VBA VBA
- vba 设置边框样式vba 设置边框样式vba 设置边框样式
vba 设置边框样式vba 设置边框样式vba 设置边框样式
- VBA帮助VBA帮助
VBA帮助。很有用的东东啊，欢迎大家下载啊。快快快。VBA帮助VBA帮助VBA帮助VBA帮助VBA帮助
- vba返回数组类型vba返回数组类型vba返回数组类型
vba返回数组类型vba返回数组类型vba返回数组类型vba返回数组类型vba返回数组类型vba返回数组类型
- vba 调用oracle 存储过程vba 调用oracle 存储过程vba 调用oracle 存储过程vba 调用oracle 存储过程
vba 调用oracle 存储过程vba 调用oracle 存储过程vba 调用oracle 存储过程vba 调用oracle 存储过程vba 调用oracle 存储过程
- 让wps支持vba
从Microsoft Shared和SYSTEM32中提取vba及其依赖的基本文件，复制并设置注册表后， 即可让WPS 2012使用VBA7。 运行批处理脚本SET.BAT可自动复制和设置。在WIN XP中双击SET.BAT即可。在Win7中， 需在SET.BAT上点...
- 从零开始学Excel VBA
《从零开始学Excel VBA》主要分为6篇，包括Excel VBA准备篇、Excel VBA基础篇、Excel VBA对象模型篇、Excel VBA用户界面设计篇、Excel VBA高级应用篇、Excel VBA综合实例篇。Excel VBA准备篇从VBA的发展历史、Excel ...
- 搞定简单VBA编程
10个excel VBA实例教程，为初级的人作为兴趣入门课程，也可以为有基础的人开拓自己的视野。从基础的知识，到实战性的功能，甚至连接数据库，二维码扫描等等。
- Excel VBA语法与应用手册
《Excel VBA语法与应用手册》内容简介：Excel VBA是一种简单易学的编程语言，《Excel VBA语法与应用手册》将引导读者从零开始全面掌握Excel VBA。通过《Excel VBA语法与应用手册》的学习用户可以了解Excel VBA的基础...
- VBA manual（微软官方VBA手册）
VBA manual 英文原版 微软官方出品 简单清楚 VBA编程入门最好的书籍
- 从零开始学Excel.VBA
本书主要分为6篇，包括Excel VBA准备篇、Excel VBA基础篇、Excel VBA对象模型篇、Excel VBA用户界面设计篇、Excel VBA高级应用篇、Excel VBA综合实例篇。Excel VBA准备篇从VBA的发展历史、Excel 2007和Excel宏讲起，...
- Excel VBA网抓教程【你学得会】
内首套系统化专业化的Excel VBA网抓培训视频。 杨老师通过《Excel VBA网抓教程【你学得会】》的课程教你如何进行网抓。包括web控件，QueryTable，公式，系统组件等方法去抓取数据，以实例带动，逐步深入。 此网抓...
- wps的vba宏插件
VBA组件可以让office使用宏插件功能，wps vba宏插件的名字叫VBA for WPS Office，vba6.3提取自WPS2012专业增强版。 wps装上VBA7.0宏就可以支持office一些vba功能了，它名字就叫VBA for WPS Office。VBA是指Visual ...
- vba用户自定义类型vba用户自定义类型vba用户自定义类型
vba用户自定义类型vba用户自定义类型vba用户自定义类型vba用户自定义类型
- 7.1版本VBA插件(WPS2019可用)
7.1版本VBA插件，WPS2019等软件使用宏所需的外部依赖。 VBA7.1安装方法： 1.第一步安装运行时库：目录下（第一步：运行时库）安装对应文件vcredist_x86 2.第二步安装Vba组件项：目录下（第二步：Vba组件）Vba71....
- vba 项目实践实例
这是我自己看了一些vba的资料很久以后，突然公司说需要做一个excel的智能表格，然后满公司找有没有会做的人，万幸的是她们找到了我，我接了下来，这是我学习vba一来亲自动手写的第一个较为复杂为有全面的项目，里面...
- vba自定义类型返回函数vba自定义类型返回函数
vba自定义类型返回函数vba自定义类型返回函数vba自定义类型返回函数