为什么VBA正在读取我的ElseIf语句而不执行它下面的代码？
VBA（Visual Basic for Applications）是一种用于Microsoft Office应用程序的编程语言，可以帮助用户自定义和自动化Office应用程序的功能。VBA中的条件语句（如If-ElseIf-Else语句）用于根据特定条件执行不同的代码块。
当VBA读取If-ElseIf-Else语句时，它将逐行检查条件，并执行满足条件的第一个代码块。如果条件不满足，则继续检查下一个条件，直到找到满足条件的代码块或者执行完所有的条件语句。如果没有满足条件的代码块，VBA会跳过整个If-ElseIf-Else语句，继续执行后面的代码。
那么为什么VBA可能会读取ElseIf语句而不执行其下面的代码呢？以下可能是导致该问题的原因和解决方法：
- 条件不满足：在判断条件中可能存在错误，导致条件判断结果始终为False。请检查条件是否正确，并确保条件满足执行相关的代码块。
- 上一条件已满足：如果前面的条件已经满足并执行了相应的代码块，那么VBA将跳过后续的ElseIf语句。如果您希望所有条件都被检查，请使用多个独立的If语句。
- 条件顺序问题：如果多个条件的顺序不正确，可能导致某个条件永远不会被满足。请检查条件的顺序，并确保其按照预期的顺序进行判断。
- 代码逻辑错误：可能存在代码逻辑错误，使得执行到ElseIf语句时出现了跳转或其他错误。请检查代码逻辑，并确保没有逻辑错误导致问题。
希望以上解释和建议能够帮助您解决VBA中ElseIf语句不执行的问题。如果您需要进一步的帮助或有其他问题，请随时提问。
相关·内容
2回答
在VBA中，我一直收到“Else without if”错误，而我显然没有这个问题。有人知道怎么修吗？它将我带到以elseif开头的elseif语句，下面的memb=“白金”是我的代码：
ElseIf memb = "Platinum" Then d = 0.01
ElseIf memb = "Black" Then d = 0.03
End If
If st >= min Then cb = st * d Else cb = 0
End If
If cb >= thresh Then MsgBox ("cb is greater th
浏览 3提问于2017-04-21得票数 1
我正在尝试将单元格6列更改到迭代的右侧。下面的vba似乎没有出现任何错误，但是当我运行Sub时，没有任何更新。有什么想法吗？
Sub RemoveDate()
Dim state
Dim dat
Dim cell As Range
Dim LastRow As Long
Sheets("RawData").Select
LastRow = Range("A" & Rows.Count).End(xlUp).Row
'If cell in column J is = state then change the cell 6 columns
浏览 5提问于2015-12-02得票数 0
回答已采纳
例:如果输入为1712，则输出为：
1712年是闰年。
例:如果输入为1913，则输出为：
1913年不是闰年。
integer inputYear
inputYear = Get next input
if inputYear / 4 == 0
Put inputYear to output
Put " is a leap year." to output
elseif inputYear / 400 == 0
Put inputYear to output
Put " is a leap year." to output
浏览 3提问于2020-07-16得票数 0
第一个问题:对于device_id是2的情况，输出是2，但在任何其他情况下，输出仍然是2。为什么会这样？
if ($line == "IMEI 358998018395510\r\n"){
$device_id = 1;
}elseif($line == "IMEI 352924028650492\r\n"){
$device_id = 3;
}else {
$device_id = 2;
}
第二个问题:我想用下面的语句替换上面的else语句：
..
elseif ($line == "$GPVTG,0
浏览 0提问于2010-10-28得票数 0
我有一个电子表格，通过If/ElseIf链和Application.Intersect监视8个不同列的变化，类似于下面的示例。根据列的不同，代码设计为采取不同的操作，例如接收粘贴的数据并将其转换，只粘贴值或可能更改行中其他单元格的值。
If Not Application.Intersect(Target, ChangeNum) Is Nothing Then
' Do some stuff
ElseIf Not Application.Intersect(Target, TransType) Is Nothing Then
' Do different stu
浏览 2提问于2015-05-08得票数 0
回答已采纳
我正在尝试编写一个简单的宏来将日期格式mm/dd/yy更改为月份的全名。这是我在VBA中使用days VBA的经验。我遗漏了这里的错误
Sub ChangeDate()
Dim Last As Integer
Last = Cells(Rows.Count, 1).End(xlUp).Row
Dim Counter As Integer
For Counter = 2 To Last
Dim Month As String
Month = Left(Worksheets("Sheet1").Cells(Coun
浏览 0提问于2017-10-25得票数 0
我有数以万计的数据需要从远程客户端插入到MySQL InnoDB表中。客户端(Excel VBA over MySQL ODBC connector通过ADO)既可以生成一个CSV并执行LOAD DATA LOCAL INFILE，也可以准备一个庞大的INSERT INTO ... VALUES (...), (...), ...语句并执行该语句。
前者需要一些来克服 (它只在系统区域设置的默认代码页中编写CSV，在许多情况下是单字节字符集，因此非常有限)；但建议它可能比后一种方法快20倍(为什么？)，后者也“感觉”由于SQL命令过长而不太稳定。
我还不能对这两种方法进行基准测试，但我非常有兴
浏览 4提问于2012-04-03得票数 1
回答已采纳
1回答
我是全新的编程，目前正在努力学习vba。我有一个问题，为每个循环，我试图运行的地方，我退出我的循环太快。我有一个范围，我想测试它们是否存在某些值，如果有，我想删除该列。但它只对条件进行了一次测试，然后退出循环。一定会很感激在这方面的任何帮助！
For Each cell In ActiveSheet.Range("S1:AA1")
If ActiveCell.Value = "Actual" Then
ActiveCell.EntireColumn.Delete
ElseIf ActiveCell.Value = &#
浏览 0提问于2016-09-09得票数 1
回答已采纳
我认为我的代码是好的，但它显示类型错配后，我运行它，有人能帮忙吗？(类型错配来自性别部分)
Sub tuitioncal()
Dim Name As String
Dim Gender As String
Dim LocalID As String
Dim CreditUD As Integer
Dim GenderAbb As String
Dim tuitionFee As Double
Dim uniFee As Double
Dim totalFee As Double
Name = InputBox("E
浏览 4提问于2020-04-21得票数 0
回答已采纳
如果我们在下面的(错误)示例中设置(obs=0)数据集选项，请解释为什么不处理数据步骤语句？
data temp;
x=0;
run;
data wrong;
set temp(obs=0);
x=1;
y=1;
output;
y=2;
output;
run;
data right;
set temp(obs=1);
x=1;
y=1;
output;
y=2;
output;
run;
我通常希望work.wrong和work.right具有相同的输出。
浏览 3提问于2015-02-27得票数 0
回答已采纳
1回答
我不需要在MS access vba中对分数和成绩进行硬编码，而是如何将这些值放入表中并从表中访问它们？这样，当分数范围发生变化时，我就不必返回到vba代码并更新它。我只需更新表中的值，代码将只获取分数范围，并在字段中分配正确的分数。请协助...
Private Sub MarkScored_Exit(Cancel As Integer)
Dim mScore As Integer
mScore = Nz(Forms![frmAssessmentDetails]![subfrmAcademicAssessment]![MarkScored])
If mScore >= 0 And m
浏览 3提问于2016-07-28得票数 0
2回答
我有VBA代码，用当前日期检查输入的日期，并以适当的颜色填充单元格，并检查colomn "F"是否为空，它将为D、E、F列着色。
问题是，到目前为止，我有21条记录，但系统只显示19条记录，即使2行在F列中不是空的。
代码：
Private Sub CommandButton1_Click()
Dim i As Long
For i = Range("C5000").End(xlUp).Row To 2 Step -1 'Range upto 5000, chnge this as per your requirment'
If I
浏览 3提问于2017-10-19得票数 0
我基本上想知道通过单独的elseif if语句枚举所有可能的条件和将它们组合成一个语句是否有区别(除了可读性之外)。
示例1：
if($x == 0)
{
(condition A)
}
elseif($x == 1)
{
(condition A)
}
elseif($x == 2)
{
(condition A)
}
else
{
(condition B)
}
示例2：
if($x == 0 || $x == 1 || $x == 2)
{
(condition A)
}
else
{
(condition B)
}
显然，示例2的可读性更
浏览 1提问于2014-09-13得票数 0
2回答
条件型错配
、、、
我是VBA的新手，但我一直在编写大量的C#。我在这里的问题是，我一直在我的VBA函数中得到“运行时错误13.类型错配”错误。
我正在从access中的Table中提取数据，然后尝试过滤其中的一些数据。
我的功能如下：
Function FlowType(deliveryAdrID As String, deliverType As String, note As String) As String
If (note = "*J") Then
FlowType = "Weekend"
ElseIf (deliveryAdrID =
浏览 0提问于2014-06-11得票数 0
回答已采纳
我试图制作一个简单的VBA程序，它要求用户输入他们的血压，并根据这个数字输出一条信息，说明您是否有高血压、低血压、正常血压或临界血压。这是我所拥有的；
Dim bPressure As Integer
bPressure = InputBox("Please type in your blood pressure")
If bPressure <= 120 Then
MsgBox ("Your blood pressure is normal")
ElseIf bPressure <= 129 Or bPr
浏览 3提问于2020-10-19得票数 1
回答已采纳
2回答
当$A$5的值等于"Company 2“时，我需要这个宏来隐藏某些列。下面的查询成功隐藏了列，但没有执行print循环。设置这个的正确方法是什么？
Sub PrintAll()
Dim BrokerCell As Range
Dim TotalCell As Range
Dim Rng As Range
Dim Wks As Worksheet
Set Wks = Worksheets("PRINT PAGE")
If Range("$A$5").Value = "Company 1" Then
Set Rn
浏览 2提问于2013-10-08得票数 0
回答已采纳
1回答
我正在对一大列字符串进行数据质量检查。姓氏)，并希望查看它们是否包含数字。
到目前为止，我尝试过的VBA代码应该是直接的:如果LastName字段包含1或2(依此类推)之后，如果ReasonCode = 3，结果就会显示"Contains a ReasonCode“。
然而，在像'marshall‘这样的情况下，它仍然填充“包含一个数字”
ElseIf LastName Like "*#*" Or FirstName Like "*#*" Then
ReasonCode = 3
End If
ElseIf ReasonCode = 3 Th
浏览 4提问于2019-05-01得票数 0
下面这小段vba在单元格B2中返回所需的值。我想通过将范围更改为("A:A")和("B:B")，我可以让它在整个电子表格中运行。然而，当我尝试它时，它不能运行。完整的列表有15个国家，所以向下复制B列的IF函数将不起作用。任何帮助都将不胜感激。提前谢谢。
Sub test()
Dim Country As String, ID As Integer
Country = Range("A2").Value
If Country = "France" Then
ID = 1
浏览 0提问于2014-02-27得票数 0
2回答
我已经替换了以下可怕的Excel公式(值和名称已被替换)：
=IF(AND(SourceTable[@Field1]="Value1",SourceTable[@Field2]="Value2"),"Result1",
IF(SourceTable[@Field2]="Value3","Result2",
IF(AND(SourceTable[@Field1]="Value4",SourceTable[@Field3]="Value5"),"Resul
浏览 0提问于2014-07-03得票数 7
回答已采纳
我使用的是以下VBA - Else-If代码：
If ActiveSheet.Range(range_name).Value < "8.50%" Then
ActiveSheet.Shapes.Range(Array(shape_name)).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(192, 0, 0)
.Transparency = 0
.Solid
End With
浏览 4提问于2013-10-30得票数 0
回答已采纳
2回答
对于糟糕的术语，很抱歉，我想不出合适的词来描述这个问题，所以这个例子应该更有用。
我正在轮询一个API服务器，并返回一个JSON对象，我使用json_decode将其转换为PHP对象。
以xml格式返回结果的示例如下：
在这个结果中，booking->字段下有多个字段子集，每个字段都有自己的标签和值。我需要处理这些，并将正确的字段值赋给正确的变量，并且我不能保证每次轮询API服务器时，这些字段的顺序都是相同的。
在我写这篇文章时，我的想法是这样的：
foreach($decoded->booking->fields->field as $field){
if($f
浏览 0提问于2014-12-02得票数 0
1回答
如果这是一个基本的问题，很抱歉，但我是VBA的新手，在过去的两周里一直在学习这门语言。我正在尝试用PowerPoint制作一个学习资源。 我做了一个很好的宏，当它在幻灯片之外运行时，它似乎工作得很好。(我通常只是在VBA Editor中按下F5来查看代码在做什么。)但是，当我尝试在幻灯片放映正在运行时运行宏时(使用操作按钮)，它不能按预期工作。更准确地说，它似乎停止运行，并且不显示任何错误或提供宏停止的原因。 我试着在谷歌上搜索这个话题，但什么也找不到。如果任何人能提供任何原因或建议任何信息来源，为什么在幻灯片放映时宏的工作方式与不运行时不同，我将非常感激。是否有任何标准做法来确保在运行幻灯
浏览 4提问于2020-07-02得票数 0
请注意，这是我编写的第一个VBA代码之一。我写的是一个循环和If函数的混合体。如果代码发现一个空单元格，它应该遍历列(“AC”)。它查看相同的行，但在列D中。列D将有350个可能的值。如果D列的值是“350个可能值中的一个”，那么给出"EU“ElseIf...这对所有350人来说都是继续的 Dim i As Long
i = 1
Do While Cells(i, "AC").Value <> ""
If Cells(i, "D").Value = "OPP-1305-9066" Then
浏览 15提问于2019-03-13得票数 0
我是StackOverflow和VBA的新手。除了用VBA从头开始编写代码之外，我是Excel的所有方面的专家。
我尝试做的是将索引中的颜色应用于包含特定术语的单元格的内部。这就是我所拥有的：
Sub ConditionalFormatting()
Do Until ActiveCell = ""
If ActiveCell = "STAR DISTRICT" Then
ActiveCell.Interior.ColorIndex = 50
ElseIf ActiveCell = "STAR SCHOOL" Then
ActiveCell.I
浏览 0提问于2012-06-28得票数 1
回答已采纳
2回答
我对VBA非常陌生，我也想不出如何才能做到这一点。我有一个列(K列)，在K1中有一个标题。我每天都会收到这个电子表格，它有不同的行数。列K的编号从0到100。我需要高亮显示某些行的某些颜色，这取决于列K中的值，这是我到目前为止所拥有的，但它只是向下，使每一列红色字体。我需要它循环通过k2到最后一个K单元格的一个值，并改变每一行的字体颜色。
Columns("K").Select
Dim firstCell As Integer
Dim finalCell As Integer
firstCell = Range("K2")
finalCell = Range(&
浏览 7提问于2014-01-31得票数 2
回答已采纳
我有VBA代码，将用户输入的日期与当前日期进行比较，并以适当的颜色填充背景。一切都很好。
现在我需要使系统检查所选行的F列中的单元格是否为空，我需要将列D、E、F着色为灰色。
代码：
Private Sub CommandButton1_Click()
Dim i As Integer
For i = Range("C5000").End(xlUp).Row To 2 Step -1 'Range upto 5000, chnge this as per your requirment'
If IsEmpty(Cells(i
浏览 6提问于2017-10-18得票数 0
回答已采纳
对不起，这是一个关于PHP中条件句的非常基本的问题
If {}
elseif {}
else {}
如果if条件为真，PHP是否仍会评估elseif，看看是否也是真的？
浏览 2提问于2011-06-21得票数 0
回答已采纳
5回答
VBA中的左函数
、、
我有一个通过power-shell生成的输出文件，该文件提供了共享的转储，并具有以下格式的权限：
我希望在VBA中编写一个模块，在该模块中，我可以将原始数据放在一个名为“输入和乐趣”的表中，因此输出如下所示：
我对VBA非常陌生，但是修改一些代码提供了我的Stackoverflow社区，我已经做到了这一点：
Sub PathAccessSplit()
Dim wsFrom, wsTo As Worksheet
Dim rowFrom, rowTo, lastRow As Long
Dim cellVal As String
Set wsFrom = Sheets(
浏览 8提问于2015-11-10得票数 1
回答已采纳
我对vba代码有个问题。我不知道为什么，但它去掉了公式前面的等号.也许有人知道怎么修？
以下是Excel工作表的完整源代码：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Target.Cells
If Not Intersect(c, Range("X:AI")) Is Nothing Then
If c > Range("H" & c.Row).Value Or c
浏览 4提问于2016-11-16得票数 3
回答已采纳
1回答
PHP回波打印语言构造
、、、、
在一个任务中，我在运行php脚本时遇到了页面处理的问题。当通过另一个php页面提交时，它输出了实际的php代码，但是它自己工作得很好。
我有一个html登录页面，它通过提交按钮提交，而不是表单提交要求。这将提交给login.php。另外，我有一个testBalance.php，它检查我的服务器上的一个文件balance.txt，它只是有一个金额(1000)。getBalance.php中的testBalance.php调用一个函数来返回这里的金额。
问题是，当我单独运行testBalance.php时，工作得很好。显示“帐户余额: 1000.00”，但当我尝试将testBalance.php设
浏览 1提问于2014-11-12得票数 0
回答已采纳
8回答
在VBA中是否有相当于python "pass“的代码，只是在代码中什么都不做呢？
例如：
For Each ws In ThisWorkbook.Sheets
If ws.Name = "Navy Reqs" Then
ws.Select
nReqs = get_num_rows
Cells(1, 1).Select
If ActiveSheet.AutoFilterMode Then Cells.AutoFilter
Selection.AutoFilter
ElseIf
浏览 4提问于2017-10-17得票数 7
回答已采纳
1回答
一维变型阵列VBA
、、、
通常，对于单个值的更改管理，我有一个很好的宏，现在可以为多维数组编写一个宏，但需要能够在不使用错误处理的情况下进行区分。
当目标只有一个单元时，还有其他的工作要做吗？下面的错误处理处理了这个问题，但我认为它是“草率的”。关于更好的方法的建议很受欢迎。
Sub Dims(target As Variant)
Dim varData As Variant
Dim i As Integer
Dim j As Integer
varData = target
On Error GoTo Err
For i = 1 To UBound(varData, 1)
For j = 1 To U
浏览 1提问于2017-11-29得票数 1
回答已采纳
3回答
我对php中的switch不是很熟悉，但是我听说如果你的代码有很多其他的东西，最好使用switch。我试着把下面的代码改成switch，但由于我在每一个elseif上都检查了两个或三个值，所以似乎使用elseif而不是switch对我来说更合乎逻辑(也许我错了)。
所以我的问题是，你对下面的代码有什么建议？Elseif还是switch？
如果我想把代码改成switch，你能给我一些提示吗？
提前谢谢你！
(顺便说一下，block_check和report_check是复选框，reported_msg是文本)
public function block_user(){
if(isset(
浏览 0提问于2012-06-27得票数 1
回答已采纳
1回答
无法获取合计金额和已支付金额的状态。付费状态功能不能正常工作。请看下面的图片。
以下是我的代码
$total_amount = $row->total;
$paid = $row->paid_amount;
if($paid > '0.00'){
echo '<span class="label label-warning">Partial</span>';
} elseif($total_amount != $paid) {
echo '<span class="la
浏览 13提问于2019-10-24得票数 0
回答已采纳
我需要使用VBA来确定传递给Excel公式的参数数量。例如，假设一个单元格包含公式=MyFunc($A$1，"xyz"，SUM(1,2，COUNT(C1:C12))，IF(B1>2,1,0))。那么counter函数应该返回4。VBA是否包含用于此的内置函数，或者是否有人有一个正则表达式的示例可以计算此值？
更新：
谢谢你，user225626和Charles。我发现的一个问题是，当存在包含逗号的带引号的字符串参数时；这些逗号会导致参数数量增加。我已经修改了Charles的代码来解决这个问题。
Public Function CountFormulaArguments(s
浏览 0提问于2010-04-12得票数 1
回答已采纳
1回答
我通常使用Python编程，但对于任务，我使用Simulink。我想知道为什么上面的elseif梯形图没有随着时间的推移产生变量IP3的增量增加。我认为它应该做的是返回0.01，直到t= 500，然后返回0.03，直到t= 1000，然后返回0.1，直到1500，1到2000，然后返回10。顺便说一句，很抱歉，我同时更新了变量。
浏览 0提问于2017-06-13得票数 1
1回答
我知道在编译源代码时，编译器会以不同的方式对待if/elseif/else和switch语句，从而使switch语句至少与相应的switch语句一样有效，而且通常更有效。这通常是通过在编译时构建在运行时使用的跳转表来完成的。但是，对于解释型语言(未编译)，使用switch语句是否会显著提高效率？当然，解释器不能预先构建跳转表来提高switch语句的效率。
与相应的一组if/elseif/else语句相比，解释器处理switch语句的方式是否可以提高switch语句的效率？
浏览 3提问于2013-03-16得票数 1
回答已采纳
我需要使用循环删除电子表格中的列，而不是手动硬编码这些列。然而，我得到的只是一个非常没有帮助的下一个，没有错误。
Sub test()
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Dim colNum2 As Integer
colNum2 = 1
For x = 1 To 32
If Range("A1").Value = "Order No." Then
Next colNum
ElseIf Range(
浏览 6提问于2016-03-17得票数 1
回答已采纳
1回答
select查询运行良好(access 2013)。一旦我将它更改为交叉表，它就会给出错误“条件表达式中的数据类型不匹配”。我使用交叉表值中的vba函数作为表达式。我的表中没有空值，并且尝试使用变量作为我的数据类型。
VBA
enter code here
'assumes that the rate is monthly
Public Function payFrequency(frequency As String, rate As Currency) As Currency
If frequency = "BI-WEEKLY" Then
payFreque
浏览 1提问于2015-10-19得票数 2
回答已采纳
2回答
我刚开始用excel vba编写代码，我正在接收编译错误，没有For.....however，我有一个for和a next，请告诉我我做错了什么，请看下面的代码，谢谢！
Dim i As Integer
For i = 19 To 49
If Cells(3, i) > 499999 Then
Cells(4, 3) = 499999
ElseIf Cells(3, i) < 499999 Then
Cells(4, 3) = Cells(3, i)
End If
If Cells(4, 3) < 4999
浏览 2提问于2016-02-01得票数 0
回答已采纳
2回答
如果条件cout << c << endl的语句求值为true，为什么？
下面的代码运行时没有显示错误。我不明白为什么会发生这种事。
#include <iostream>
using namespace std;
int main()
{
int c = 0;
if (cout << c << endl) {
c++;
}
cout << c <<endl;
return 0;
}
还有，为什么我不需要分号呢？
浏览 5提问于2020-07-26得票数 0
我有这样的代码，它使"products2“基于Integer "Aa”的小写或大写。"Aa“是一个单元格，它要么是89%到94.9999%，在这种情况下，产品应该是小写，要么是95%到100%，在这种情况下，它将是大写(其他)。如何设置If语句的格式以使其做到这一点？
If Aa = <89% and >94.9999% Then
Products2 = Chr(J + Asc("a"))
MsgBox "Products2 = " & Prod
浏览 2提问于2015-08-13得票数 0
回答已采纳
2回答
我下面的代码不工作
<?php
//Laat homepage zien als het leeg is
if(!isset($_GET['page']))
{
include 'includes/view/homepage.php';
echo $index;
}
elseif(empty($_GET["page"]))
{
include 'includes/view/homepage.php';
echo $index;
}
//Laat uitleg zien van hypixel api
elseif(isse
浏览 0提问于2016-02-23得票数 0
回答已采纳
尝试修复我的电子表格，在N列中粘贴一个公式，基于A列的值。本质上，如果单元格A6 = "Text 1"，那么单元格N6 = "Formula 1"，如果单元格A7 = "Text 2"，那么单元格N7 = "Formula 2"，然后让这个循环遍历所有行。 在VBA中非常业余，所以过多的搜索给了我下面的信息。 Sub Test()
lr = Cells.Find("*", Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row
浏览 13提问于2021-07-21得票数 3
3回答
我在名为123.asp (123.asp?School=NewEnglishSchool&Batch=1&AcademicYear=2)的页面中获取了三个值
School = Request.QueryString("School")
Batch = Request.QueryString("Batch")
AcademicYear = Request.QueryString("AcademicYear")
我有一个简单的查询，形式类似于下面的“select*strSqlData= MyTable gender="male
浏览 4提问于2017-04-17得票数 1
1回答
我正在开发一个VBA应用程序，当我从下拉列表(使用数据验证创建)中选择一个选项时，一些列应该自动填充。如果我从每个单元格的下拉列表中选择一个选项，它就可以正常工作。但是，如果我将一个选项拖到几行上，则只填充顶部行的数据，而其他行的数据则不填充。我该怎么处理这个？这是我在Worksheet_Change函数下的代码
Private Sub Worksheet_Change(ByVal Target As range)
If Target.Column = 22 Then
ThisRow = Target.Row
On Error GoTo ExitSub
If Targe
浏览 2提问于2015-03-04得票数 0
回答已采纳
2回答
考虑下面的例子。
public static void main(String[] args) {
try{
throw new NullPointerException();
} finally{
throw new ClassCastException();
}
}
这只会抛出一个ClassCastException，并且NullPointerException会被抑制。这在Java SE6中也是可能的。那么，为什么仅在JavaSE7中强调被抑制的异常。我在这里错过了什么？
浏览 3提问于2016-11-01得票数 2
回答已采纳
我正在尝试在VBA中提出一个解决方案，我想要做的是激活这个文件中的每个标签，并根据不同的要求激活每个标签的特定单元格。然而，对于以下语句，我的代码不起作用： wkbk1.ws.Activate 它说对象不支持这个属性或方法(不知道为什么，我的ws是工作表，对吗？) 我的代码是： For Each ws In wkbk1.Worksheets
wkbk1.ws.Activate ' error here
If wkbk1.ws.Name = "Page" Then
wkbk1.ws.Range("B2").Select
ElseIf wkbk1.ws.N
浏览 41提问于2019-05-09得票数 1
我正在做一个VBA项目，以确定公司的PE是否太高。我对vba比较缺乏经验，但是，我找不到我的代码有任何错误，为什么excel总是返回一个object required错误？如果有人能帮我，谢谢！
Dim i As Long, pe As Long
Dim result As String
For i = 4 To 10
pe = Sheet1.Range("C" & i).Value
If pe >= 85 Then
result = "high"
ElseIf pe >= 75 Th
浏览 92提问于2020-02-25得票数 0
在我的Excel宏中，我想尝试在一些嵌套的if- VBA语句中创建"fall fall“。但我也希望能像正常的if- well语句一样工作。
我下面的解决方案似乎奏效了。这种方法有什么问题吗？
我知道使用Goto是不受欢迎的，但这是我唯一能想到的解决问题的方法。
If fallThrough = True Then GoTo Cr1
If fallThrough = False and criteria = crit1 Then
Cr1:
'MsgBox "Criteria 1"
ElseIf fallThrough = Tr
浏览 0提问于2017-10-31得票数 2
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
