VBA Select Case插入

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"

誰能告訴我我在做什么錯？ 我是VBA新手，為我的Uni Dissertation編寫代碼。

Answer 1

Select Case ActiveCell.TextPart = ""

這將選擇該比較的布爾結果。 如果TextPart為空， TextPart true ，隨后的Case ActiveCell.TextPart = "Cat I(a)"絕對不能成為“ case”。

如果要在TextPart上選擇：

Select Case ActiveCell.TextPart
    Case "Cat I(a)"
        If Range("A2").Value = 1 then ActiveCell.Offset (0,1).Insert.Value "1"