vb运行错误，缺少对象424，怎么办？
Print Text1Dim data As New '执行end if 之前的else没有处理语句，所以那个else也要省了。
运行时错误424 WPS运行时错误424
运行时错误424 WPS运行时错误424
代码中的Label2.Visible = True和Form_Load()代码中的Label2.Visible = False删除 ,同时在Command1_Click()代码中的endif之前加上 print text1.text
Label2这个对象是多余的，删去即可
在窗体上输出文字请使用
Print "计算机等级考试"
Private Sub Command1_Click()
Label1.Visible = False
Text1.Visible = False
Pr.Add Type:=xlValidateList, Formula1:=srivate Sub Form_Load()
Text1.Text = ""
vba 运行时错误424是怎么回事？求大神
Sheets(2).Cells(j, 1) End Sub= j - 2删除 .CommandType = with ActiveWorkbook.Worksheet0
试试
VBA 程序运行时 出现 事实错误 424 要求对象 是怎么回事
这样可以吗UBound(arr, 2), d(arr(0, y)) 这两个好象有问题，没见过这么写的
Dim i As Integer, j As Integer合并成一个宏试试
Sub 生成下拉()
Dim sr As String
Dim sql As String
Dim arr, 根据你的描述，似乎不需要第二个标签，所以可以将Command1_Click()y
Dim d As New Dictionary
arr = data.筛选结果(sql)
For y = 1 To UBound(arr, 2)
d(arr(0, y)) = arr(1, y) & "-" & arr(2, y) & "-" & arr(3, y) & "-" & arr(4, y)
Next y
sr = Join(d.Keys, ",")
.Delete
End With
运行时错误 424 要求对象 vba excel
424是缺少对象，少什么控件加上就行了首先要引用CATIA的库。要 show 进度条首先在 form 上或者 workbooks 里要有一个 program 控件，按照 LZ 源文件应或者直接是当前激活的工作页该命名为 programBarShow，然后才能对这个对象进行作，还有就是此控件需要注册后才能使用。控件原名应该是 Microsoft ProgressBar Control，地址在系统目录下 MSCOMCTL.OCX 里。
EXECL VBA 错误424
End Sub这个程序针对的是word，你可以试试在word下运行应该就没问题了。至于excel，按照你的要求的话想对会麻烦些，因为excel里改字体和颜色之类的属性主要是针对单元格，也就是改一整个单元格的属性要比改一个字符简单的多。
End If一定要改单个字符字体属性的话，需要先定位到单元格，获取单元格的字符串，然后在字符串中找到相应的字符所在位置，按照下面的方式修改。
With ActiveCell.Characters(Start:=1, Length:=1).Font
.FontStyle = "常规"
.Size = 11
.Strikrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Color = -16776961
.TintAndShade = 0
.ThemeFont =窗体上缺少控件CommonDialog1 或者 控件名称不对 xlThemeFontNone
End With 修改“Start:=1, Length:=1”
你好，打开excel 宏的 提示 运行错误 424 要求对象，求助！！！
ActiveSheet.QueryTableIf .Cells(i, 2) <> .Cells(i - 1, 2) Thens.Add(Connection:= _需在控件库中先选择Microsoft Common Dialog Control Version 6.0 才会有CommonDialog控件
如有问题，请补充，谢谢，我会时间解答Excel “运行时错误424，要求对象”该怎么办
[datas].Worksheet 是没有找到这个对象，你可以改成当前激活的工作溥对象with ActiveSh.Underline = xlUnderlineStyleNoneeet.Shadow = False
求助，在VB中CATIA.startcommand命令运行时，报错为实时错误424，要求对象
Command1.Caption = "显示"然后Set aa=createobject("CATIA.xxxWith Range("m6:m25").Validationxxx")或 worksheets(sheet名).UsedRange
然后aa.StartCommand就可以了
运行时错误424 要求对象
==============================labe11.Visible = False这句代码中的标签控件写错了，应该是label1.visible=false,是l不是1。====UsedRange是Sheet的一个属性，因此要指定一个对象。
sql = "Select 定额名称,单价,计价单位,汇报单位,换算系数 from [定额计件$] "如ActiveSheet.UsedRange
excel运行宏错误“424”：要求对象
Next i别人写代码的风格我不怎么看得懂，因为我也是初学。所以我就按我的思路给你写吧。
Sub mysub()
Sheets(2).Cells.Clear
j = 2
For i = 1 To 30
With Sheets(1)
Fo.Name = "Arial"r i = 2 To Sheets(1).[b65536].End(xlUp).Row()
j = j + 1
Sheets(2).Cells(j, 2) = .Cells(i, 2).ValueSheets(2).Cells(2, i + 2) = i
Sheets(2).Cells(j, Day(.Cells(i, 3)) + 2) = .Cells(i, 4).Value
End With
Sheets(2).UsedRange.Columns.EntireColumn.AutoFit
Sheets(2).UsedRange.Rows.EntireColumn.RowHeight = 25
Sheets(2).UsedRange.Select
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Selection.WrapText = True