装置vba 宏 插件 Visual Basic for Application 物联网app开发

app

粘贴代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim selectedText As String
    Dim cell As Range
    
    ' 得到选中单位格的文本
    selectedText = Trim(Target.Text)
    
    ' 确保选中的是文本而不是空缺或其他本色
    If Len(selectedText) > 0 Then
        ' 轮回遍历统统这个词责任表的每个单位格
        For Each cell In ActiveSheet.UsedRange
            ' 查验单位格文本是否与选中的文本疏浚
            If cell.Text = selectedText Then
                ' 将疏浚的文本高亮袒露
                cell.Interior.Color = RGB(255, 255, 0) ' 这里使用黄色算作高亮袒露的神采，不错阐述需要变嫌神采
            Else
                ' 取销其他单位格的高亮袒露神采
                cell.Interior.ColorIndex = xlNone
            End If
        Next cell
    Else
        ' 取销统统单位格的高亮袒露神采（若是未选华文本）
        ActiveSheet.Cells.Interior.ColorIndex = xlNone
    End If
End Sub

图片物联网app开发

 

一区（01-12）：上期一区开出3个奖号：05 07 10，最近10期一区开出奖号总数为：20个。本期关注1个一区号码：03。

图片

  

图片

本站仅提供存储做事，物联网软件开发开发价格统统本色均由用户发布，如发现存害或侵权本色，请点击举报。

• WPS
• VBA
• 物联网app开发
• 金山
• 宏代码