Question

我正在尝试编写一个选择案例函数，用于确定D列中的文本和单元格A2中的值，并分别取决于文本和值，在活动单元格旁边的列中插入适当的值。

这是我到目前为止所做的事情（显然，这将考虑到D列和A2列中的所有变量）

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "D:D" Then
       Select Case ActiveCell.TextPart = ""
            Case ActiveCell.TextPart = "Cat I(a)" 
                 And Range("A2").Value = 1: 
                 ActiveCell.Offset (0,1).Insert.Value "1"

谁能告诉我我做错了什么？我是我的Uni Dissertation的VBA新手编写代码。

Answer 1

Select Case ActiveCell.TextPart = ""

这将选择该比较的布尔结果。如果true为空，则TextPart为Case ActiveCell.TextPart = "Cat I(a)"，后续的TextPart实际上永远不会是＆＃34;案例＆＃34;。

如果您想选择Select Case ActiveCell.TextPart Case "Cat I(a)" If Range("A2").Value = 1 then ActiveCell.Offset (0,1).Insert.Value "1"：

void foo(bool foobar) {
   size_t i;

   if (foobar) {
      for (i = 0; i < 42; i++) {
         // Do something
      }
   } 
}

VBA Select Case插入

1 个答案: