Question

为什么此代码不起作用。任何人都可以帮助简单的代码？我写这样的代码：

Private sub cmbStart_click()
Dim bro as application
Dim bre as integer
Dim bru as control

For bre = 1 to 42
Set bru = controls("cmb" &  bre).caption
Set bro = application.worksheetfunction.vlookup(bre, sheets("keg").range("c2:f300"),4,0)
  If bro = "es" then
    Controls("cmb" & bre).backcolor = rgb(255,0,0)
  Else
  Controls("cmb" & bre).backcolor = rgb(255,0,0)
 End if
Next bre
End sub

Answer 1

Vlookup()未返回应用，因此将bro声明为Application毫无意义。

简单

Dim bro As Variant
'...
bro = Application.Worksheetfunction.Vlookup(bre, sheets("keg").Range("c2:f300"),4,0)

同样，没有理由声明bru是控件。标题只是String。

因此：

Dim bru As String
'...
bru = controls("cmb" &  bre).caption

VBA主要是使用对象的命令式语言。你似乎试图把一切都变成一个对象。

我无法测试代码，但上面的内容更像VBA。

如果这不能解决问题，您需要更多地了解代码代码不起作用。简单地报告它不起作用是没有用的。

应用程序功能与代码相关的问题

1 个答案: