颂风侯 发表于 2024-12-27 18:11:10

VBA正则表达式

如果一个单元格发生改变，单元格的字符串如果包含类似于"133x4","133x4.5","45*4.5"这些类型的数据，将该单元格所在行的K列单元格赋值为"Φ？？*？？"数据；

FishC 发表于 2024-12-27 18:11:21

可以在工作表的代码区域使用如下VBA代码实现这一功能：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim regex As Object
    Dim matches As Object
    Dim cellValue As String
    Dim result As String

    ' 仅处理单个单元格的更改
    If Target.Cells.Count > 1 Then Exit Sub
   
    ' 创建正则表达式对象
    Set regex = CreateObject("VBScript.RegExp")
    ' 设置要匹配的模式
    regex.Pattern = "(\d+)()(\d+\.?\d*)"
    regex.IgnoreCase = True
    regex.Global = False
   
    ' 获取单元格的值
    cellValue = Target.Value
   
    ' 判断单元格值是否符合正则表达式
    If regex.Test(cellValue) Then
      Set matches = regex.Execute(cellValue)
      ' 构造目标格式
      result = "Φ" & matches(0).SubMatches(0) & "*" & matches(0).SubMatches(2)
      ' 将结果赋值给K列的对应单元格
      Target.EntireRow.Cells(1, 11).Value = result
    End If
End Sub

请按照以下步骤添加并使用这段代码：

1. 打开Excel文件。
2. 右键点击表格标签，选择“查看代码”。
3. 在VBA编辑器中复制粘贴上述代码。
4. 保存并关闭VBA编辑器。

这样，在目标工作表中任意单元格发生更改时，都会对数据进行正则匹配，并将结果自动填充到该行的K列。

以上回复来自 FishC AI 小助理，如未能正确解答您的问题，请继续追问。
页: [1]
查看完整版本: VBA正则表达式