帮我写一个vba function ，判断输入的单元格是否包含“补强”，如果有就返回1

当然可以！以下是一个VBA函数的示例代码，用于判断输入的单元格是否包含"补强"，如果有就返回1：

Function CheckReinforce(cell As Range) As Integer
    If InStr(1, cell.Value, "补强") > 0 Then
        CheckReinforce = 1
    Else
        CheckReinforce = 0
    End If
End Function

你可以将以上代码复制粘贴到你的VBA编辑器中，并在需要的地方调用该函数。例如，在Excel中添加一个新的模块，然后在单元格中使用`=CheckReinforce(A1)`来判断A1单元格是否包含"补强"。

请注意，该函数使用了VBA的`InStr`函数来判断字符串中是否包含指定的子字符串。如果找到了子字符串，则返回它在字符串中的位置；如果未找到，则返回0。以上代码中，如果找到了"补强"，则返回1，否则返回0。

相关问题

帮我写一个vba function ，判断输入的单元格是否包含“补强”，如果有就返回当前基准单位格，向左偏移2个单位的单元格的值

当然可以！以下是一个VBA函数的示例代码，用于判断输入的单元格是否包含"补强"，如果有就返回当前基准单位格，向左偏移2个单位的单元格的值：

Function GetOffsetValue(cell As Range) As Variant
    Dim baseCell As Range
    Dim offsetCell As Range
    
    ' 判断输入单元格是否包含"补强"
    If InStr(1, cell.Value, "补强") > 0 Then
        ' 获取当前基准单元格
        Set baseCell = Application.Caller
        
        ' 向左偏移2个单位
        Set offsetCell = baseCell.Offset(0, -2)
        
        ' 返回偏移单元格的值
        GetOffsetValue = offsetCell.Value
    End If
End Function

你可以将以上代码复制粘贴到你的VBA编辑器中，并在需要的地方调用该函数。例如，在Excel中添加一个新的模块，然后在单元格中使用`=GetOffsetValue(A1)`来判断A1单元格是否包含"补强"，如果有，则返回A1单元格向左偏移2个单位的单元格的值。

请注意，以上代码中，首先使用了VBA的`InStr`函数来判断输入单元格的值中是否包含"补强"。如果包含，则获取当前基准单元格，然后使用`Offset`方法向左偏移2个单位，最后返回偏移单元格的值作为函数的结果。如果输入的单元格不包含"补强"，那么函数不会返回任何值。

帮我写一个vba function，获取当前基准单位格，向右偏移1个单位的单元格的值

当然可以！以下是一个VBA函数的示例代码，用于获取当前基准单元格，向右偏移1个单位的单元格的值：

Function GetOffsetValue() As Variant
    Dim baseCell As Range
    Dim offsetCell As Range
    
    ' 获取当前基准单元格
    Set baseCell = Application.Caller
    
    ' 向右偏移1个单位
    Set offsetCell = baseCell.Offset(0, 1)
    
    ' 返回偏移单元格的值
    GetOffsetValue = offsetCell.Value
End Function

你可以将以上代码复制粘贴到你的VBA编辑器中，并在需要的地方调用该函数。例如，在Excel中添加一个新的模块，然后在单元格中使用`=GetOffsetValue()`来获取当前基准单元格向右偏移1个单位的单元格的值。

请注意，以上代码中，`Application.Caller`表示调用该函数的单元格，`Offset`方法用于偏移单元格位置，`(0, 1)`表示水平方向上向右偏移1个单位。最后，返回偏移单元格的值作为函数的结果。