通达信股票交易软件的用法——数据导出后的几个处理方案(附VBA宏代码)

置顶精品

通达信交易软件

下载后双击解压即可使用

净利润断层

自定义版面是一个全新的设计思路，重在及时发现当日业绩公告日出现跳空高开的介入时机，版面下载链接：

YS.sp https://www.alipan.com/s/ES4s9qxi4sD 点击链接保存，或者复制本段内容，打开「阿里云盘」APP ，无需下载极速在线查看，视频原画倍速播放。

该公司发布业绩预告当日并没有出现跳空，而是在次日出现跳空，这也正好符合净利润断层战法当日或次日出现跳空的定义。

今日分享

经过几轮的对话

得到了几个比较满意的表格处理效果，分享给有需要的读者

代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    ‘禁止多选单元格，避免报错

    If Target.Count > 1 Then Exit Sub

    Dim rng As Range, cel As Range, rng1 As Range

    ‘==================== 清除所有颜色 ====================

    Cells.Interior.ColorIndex = xlNone

    Cells.Interior.Pattern = xlNone

    ‘==================== 功能1：十字高亮（行+列） ====================

    Target.EntireColumn.Interior.Color = RGB(255, 210, 210) ‘淡红色列

    Target.EntireRow.Interior.Color = RGB(255, 210, 210)   ‘淡红色行

    Target.Interior.ColorIndex = xlNone                   ‘选中单元格取消颜色

    ‘==================== 功能2：相同值批量高亮 ====================

    Set rng = [a1].CurrentRegion ‘A1区域数据范围

    ‘判断是否点击在数据区域内

    If Not Intersect(rng, Target) Is Nothing Then

        Set rng1 = Target

        ‘遍历区域，匹配相同值

        For Each cel In rng

            If cel.Value = Target.Value Then

                Set rng1 = Union(rng1, cel)

            End If

        Next cel

        ‘匹配到的单元格统一上色（浅蓝色）

        If Not rng1 Is Nothing Then rng1.Interior.ColorIndex = 8

    End If

End Sub

代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Count > 1 Then Exit Sub

    ‘清除所有原有底色

    Cells.Interior.ColorIndex = xlNone

    ‘十字行列表高亮

    Union(Target.EntireRow, Target.EntireColumn).Interior.Color = RGB(200, 230, 250)

    ‘你原版原生 点击高亮所有相同重复项

    Dim rng As Range, cel As Range, rng1 As Range

    Set rng = [a1].CurrentRegion

    If Intersect(rng, Target) Is Nothing Then Exit Sub

    Set rng1 = Target

    For Each cel In rng

        If cel.Value = Target.Value Then

            Set rng1 = Union(rng1, cel)

        End If

    Next

    If Not rng1 Is Nothing Then rng1.Interior.ColorIndex = 8

End Sub

代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

      Cells.Interior.Pattern = xlNone

      Target.EntireColumn.Interior.Color = RGB(255, 210, 210)

      Target.EntireRow.Interior.Color = RGB(255, 210, 210)

      Target.Interior.Color = xlNone

End Sub

代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

Dim rng As Range, cel As Range, rng1 As Range

Set rng = [a1].CurrentRegion

If Intersect(rng, Target) Is Nothing Then Exit Sub

rng.Interior.ColorIndex = xlNone

Set rng1 = Target

For Each cel In rng

If cel.Value = Target.Value Then

Set rng1 = Union(rng1, cel)

End If

Next

If Not rng1 Is Nothing Then rng1.Interior.ColorIndex = 8

End Sub

代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With Target

‘清除工作表单元格的背景色

.Parent.Cells.Interior.ColorIndex = xlNone

‘设置选中区域所在行的背景色

.EntireRow.Interior.Color = RGB(200, 230, 230)

‘设置选中区域所在列的背景色

.EntireColumn.Interior.Color = RGB(200, 230, 250)

End With

End Sub

代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    ‘禁止多选

    If Target.Count > 1 Then Exit Sub

    Dim rng As Range, cel As Range, rng1 As Range

    Set rng = [a1].CurrentRegion

    ‘清空所有颜色

    Cells.Interior.ColorIndex = xlNone

    ‘不在数据区域就退出

    If Intersect(rng, Target) Is Nothing Then Exit Sub

    ‘==================== 十字高亮 ====================

    Target.EntireColumn.Interior.Color = RGB(255, 210, 210) ‘列淡红

    Target.EntireRow.Interior.Color = RGB(255, 210, 210)    ‘行淡红

    ‘==================== 相同值上色 ====================

    Set rng1 = Target

    For Each cel In rng

        If cel.Value = Target.Value Then

            Set rng1 = Union(rng1, cel)

        End If

    Next

    If Not rng1 Is Nothing Then rng1.Interior.ColorIndex = 8 ‘浅蓝色

    ‘==================== 核心：选中项本身 不上色 ====================

    Target.Interior.ColorIndex = xlNone

End Sub

不会输入代码的看视频