vba求助

颂风侯

做一个VBA程序，当一个单元格J2内容发生改变时，如果单元格中包含类似于"133x4","133x4.5","45*4.5"这些类型的数据，将该单元格所在行的K列单元格赋值为"Φ？？*？？"数据；

FishC

你可以使用下面的VBA代码实现这个功能。代码利用 `Worksheet_Change` 事件来监控单元格 J2 的变化，当其内容发生变化并匹配指定格式时，会更新相同行的 K 列单元格。

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim regex As Object
   
3.     Dim matches As Object
   
4.     Dim matchPattern As String
   
5. 
   
6.     ' 检查目标单元格是否为 J2
   
7.     If Not Intersect(Target, Me.Range("J2")) Is Nothing Then
   
8.         ' 正则表达式模式
   
9.         matchPattern = "(\d+)[x*](\d+(\.\d+)?)"
   
10.         
    
11.         ' 创建正则表达式对象
    
12.         Set regex = CreateObject("VBScript.RegExp")
    
13.         With regex
    
14.             .Pattern = matchPattern
    
15.             .Global = False
    
16.         End With
    
17. 
    
18.         ' 执行正则表达式匹配
    
19.         If regex.test(Target.Value) Then
    
20.             Set matches = regex.Execute(Target.Value)
    
21.             ' 如果有匹配项，生成指定格式的字符串
    
22.             If matches.Count > 0 Then
    
23.                 Me.Cells(Target.Row, "K").Value = "Φ" & matches(0).SubMatches(0) & "*" & matches(0).SubMatches(1)
    
24.             End If
    
25.         End If
    
26.     End If
    
27. End Sub

复制代码

将以上代码粘贴到相应工作表的代码窗口中。右键点击工作表标签，选择“查看代码”将代码粘贴进去即可。

使用此代码时，需要确保单元格中的数据格式为 `数字x数字` 或 `数字*数字`，并遵循指定的格式进行替换。

以上回复来自 FishC AI 小助理，如未能正确解答您的问题，请继续追问。