【分享】SoSo工具集9.0 不一样的Excel插件

huanglicheng

cherry81 发表于 2020-10-24 14:22
发现了一个小问题：文本填充=》提取选定范围不重复数据 功能第一行数据无论与后面的数据是否重复都进行了保 ...

嗯有可能是这样的

duzeman

发现快速跳转的那个十字箭头，在当前工作表内没关闭情况下，保存后再打开会消失不见，按一下图标会提示工具已关闭，还得再点一下才能用。
另外在工作表筛选状态下，点上箭头无法快速返回第一行，按键盘上的ctrl+home可以回到第一行

duzeman

在工作表第一行，即标题行冻结状态下，按上箭头也无法快速跳转至第一行，按ctrl+home可以

huanglicheng

duzeman 发表于 2020-10-29 16:20
发现快速跳转的那个十字箭头，在当前工作表内没关闭情况下，保存后再打开会消失不见，按一下图标会提示工具 ...

好的，谢谢你的意见。消失的问题确实存在。无法快速返回第一行 暂时还没有测试出来

duzeman

能修改上箭头的功能吗？详见图片

huanglicheng

duzeman 发表于 2020-10-30 09:31
能修改上箭头的功能吗？详见图片

好的 我知道了 我下一版会把这处改好

深蓝_夏

huanglicheng 发表于 2020-2-10 18:53

你好，我在引用sovlookup 索引后如果最后输入ROW（），返回还是一个数值。而且如果（）内有具体行数，返回值是两个，但是在同一单元格并且连接起来了。

my3022

请教一下楼主，能不能增加像在百度输入框中输入时能自动联想的小工具吗，这样可以规范输入，不会因为不小心同一个名字输入时出错，最好自己能自定义输入的词库

my3022

在百度中了个“如何用vba做出类似百度搜索那样的逐步提示模糊查询下拉列表框？”，把里面的代码复制增加到我的工具中也没反应，我对于这些只是简单会做些表格，所以求楼主大大在你的SOSO工具里做个这种插件，万分感谢！！！

附代码如下：
'定义一个公共的数组变量，用于存放所有列表框项目
Public arr
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim oSP As Shape
    '所有列表项数组
    arr = Array("张飞", "关羽", "刘备", "赵云", "诸葛亮", "水星", "张苞", "关平", "孙权", "孙坚", "孙策")
    '只选中一个单元格时触发
    If Target.CountLarge = 1 Then
        '定义触发的单元格行列条件
        If Target.Column = 1 And Target.Row > 1 Then
            '满足条件先显示文本框，隐藏列表框
            With Me
                Set oSP = .Shapes("TextBox1")
                With oSP
                    .Visible = msoCTrue
                    .Left = Target.Offset(0, 1).Left
                    .Top = Target.Top
                    .Height = Target.Height * 1.5
                    .Width = Target.Width
                End With
                  Set oSP = .Shapes("ListBox1")
                  oSP.Visible = msoFalse
            End With
        Else
             '不满足条件就不显示文本框和列表框
            With Me
                Set oSP = .Shapes("TextBox1")
                oSP.Visible = msoFalse
                Set oSP = .Shapes("ListBox1")
                oSP.Visible = msoFalse
            End With
        End If
    Else
        '不满足条件就不显示文本框和列表框
        With Me
            Set oSP = .Shapes("TextBox1")
            oSP.Visible = msoFalse
            Set oSP = .Shapes("ListBox1")
            oSP.Visible = msoFalse
        End With
    End If
End Sub
Private Sub TextBox1_Change()
    '读取筛选后的列表框项目数组
    Dim sText As String
    sText = TextBox1.Text
    arrList = VBA.Filter(arr, sText)
    With ListBox1
        .Clear
        .List = arrList
    End With
    '显示列表框
    With Me
        Set oSP = .Shapes("ListBox1")
        With oSP
            .Visible = msoCTrue
            .Left = TextBox1.Left
            .Top = TextBox1.Top + TextBox1.Height
            .Height = TextBox1.Height * 5
            .Width = TextBox1.Width
        End With
    End With
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    '双击列表框中的列表项将内容填入当前活动单元格中，同时隐藏列表框
    Dim oRng As Range
    Set oRng = Excel.ActiveCell
    oRng.Value = ListBox1.Value
    ListBox1.Visible = False
    '清空文本框内容
    TextBox1.Text = ""
End Sub

huanglicheng

my3022 发表于 2020-11-2 11:09
请教一下楼主，能不能增加像在百度输入框中输入时能自动联想的小工具吗，这样可以规范输入，不会因为不小心 ...

这个你可以试试 单元格 批注 模块下 【快速录入已有内容】。看是否有效。