精华内容
下载资源
问答
  • Sub kuangxian() ...).Select '选择区域 Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft)...

    Sub kuangxian()

    Range("A27:C38").Select '选择区域    

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone    

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone    

    With Selection.Borders(xlEdgeLeft)        

    .LineStyle = xlContinuous        

    .Weight = xlThin        

    .ColorIndex = xlAutomatic    

    End With    

    With Selection.Borders(xlEdgeTop)        

    .LineStyle = xlContinuous        

    .Weight = xlThin        

    .ColorIndex = xlAutomatic    

    End With    

    With Selection.Borders(xlEdgeBottom)        

    .LineStyle = xlContinuous        

    .Weight = xlThin        

    .ColorIndex = xlAutomatic    

    End With    

    With Selection.Borders(xlEdgeRight)      

    .LineStyle = xlContinuous        

    .Weight = xlThin        

    .ColorIndex = xlAutomatic    

    End With    

    With Selection.Borders(xlInsideVertical)        

    .LineStyle = xlContinuous        

    .Weight = xlThin        

    .ColorIndex = xlAutomatic    

    End With    

    With Selection.Borders(xlInsideHorizontal)        

    .LineStyle = xlContinuous        

    .Weight = xlThin        

    .ColorIndex = xlAutomatic    

    End With

    End Sub

     

    展开全文
  • 去年因为工作需要用VBA做了一个下单表,跟大家分享下里面组合控件的组合使用,交互性和操作性都比较...区域LB3代码:Private Sub ListBox3_Click() '区域选择 With Sheet10 rq = .Range("j2:j5").Value'区域 ...

    去年因为工作需要用VBA做了一个下单表,跟大家分享下里面组合框控件的组合使用,交互性和操作性都比较友好,效果见下面GIF动图。

    2edce252eb95aecba797d703a2e405cb.gif

    通过筛选区域和店铺等级让店铺明细动态变化,用了3个ListBox组合框控件实现。

    78133c8cddcd5d8cdb47290f3206f993.png

    区域LB3代码:

    Private Sub ListBox3_Click() '区域选择
     With Sheet10
            rq = .Range("j2:j5").Value'区域
        End With
    With ListBox3 '调整位置到单元格处
            .Top = Sheet1.Cells(15, 1).Top 'listbox的顶端位置
            .Left = Sheet1.Cells(15, 1).Left  'listbox的左端位置
            .Width = 58 '宽度
            .Height = 70 '高度
            .Visible = True '可见
            '.ColumnHeads = True '显示标题行
            .ColumnCount = 1 '三列
            .ColumnWidths = "40" '设置第一列宽度50第二列宽度130……
            .List = rq '数据来源
            .MultiSelect = fmMultiSelectMulti '允许通过鼠标点击的方式进行多选
            .ListStyle = fmListStyleOption '选项按钮设置为方形
        End With
    End Sub

    店铺等级LB2代码:

    Private Sub ListBox2_Click() '店铺等级选择
        
     With Sheet10
            rq = .Range("h2:h5").Value'店铺等级
        End With
    With ListBox2 '调整位置到单元格处
            .Top = Sheet1.Cells(15, 2).Top 'listbox的顶端位置
            .Left = Sheet1.Cells(15, 2).Left  'listbox的左端位置
            .Width = 58 '宽度
            .Height = 70 '高度
            .Visible = True '可见
            '.ColumnHeads = True '显示标题行
            .ColumnCount = 1 '三列
            .ColumnWidths = "40" '设置第一列宽度50第二列宽度130……
            .List = rq '数据来源
            .MultiSelect = fmMultiSelectMulti '允许通过鼠标点击的方式进行多选
            .ListStyle = fmListStyleOption '选项按钮设置为方形
        End With
    End Sub

    店铺明细LB1代码:

    Private Sub ListBox1_Click() '选择区域和等级后自动生成店铺明细
                   Dim prr, orr, irr, urr, yrr
                   Application.DisplayAlerts = False
           With Sheet8
                     R = .Range("f2:h" & .Cells(Rows.Count, "h").End(xlUp).Row).Value
                     prr = R
           End With
                With ListBox3'当筛选区域后
                       For i = 0 To .ListCount - 1
                       If .Selected(i) = True Then
                           kk = kk + 1
                       End If
                       Next
                      If kk = 0 Then Sheet1.ListBox1.Clear: Exit Sub
                    ReDim orr(1 To kk, 1 To 1)
                      kk = 1
                      For i = 0 To .ListCount - 1
                      If .Selected(i) = True Then
                          orr(kk, 1) = .List(i, 0) '勾选后的区域
                          kk = kk + 1
                           End If
                      Next
                End With
                
                With ListBox2'当筛选店铺等级后
                       For ii = 0 To .ListCount - 1
                       If .Selected(ii) = True Then
                           kkk = kkk + 1
                       End If
                       Next
                       If kkk = 0 Then Sheet1.ListBox1.Clear: Exit Sub
                  ReDim irr(1 To kkk, 1 To 1)
                      kkk = 1
                      For ii = 0 To .ListCount - 1
                      If .Selected(ii) = True Then
                          irr(kkk, 1) = .List(ii, 0) '勾选后的等级
                          kkk = kkk + 1
                           End If
                      Next
                End With
                
                For T = 1 To UBound(prr)
                    For t1 = 1 To UBound(orr)
                    If prr(T, 1) = orr(t1, 1) Then
                               kkkk = kkkk + 1
                    End If
                      Next
                Next
                
                If kkkk = 0 Then Sheet1.ListBox1.Clear: Exit Sub
              ReDim urr(1 To kkkk, 1 To 3)
               kkkk = 1
               
               For t2 = 1 To UBound(prr)
                    For t3 = 1 To UBound(orr)
                    If prr(t2, 1) = orr(t3, 1) Then
                    urr(kkkk, 1) = prr(t2, 1)
                    urr(kkkk, 2) = prr(t2, 2)
                    urr(kkkk, 3) = prr(t2, 3)        '按区域筛选后的店铺
                         kkkk = kkkk + 1
                    End If
                      Next
                Next
              
                For t4 = 1 To UBound(urr)
                    For t5 = 1 To UBound(irr)
                    If urr(t4, 2) = irr(t5, 1) Then
                               kkkkk = kkkkk + 1
                    End If
                      Next
                Next
                
                If kkkkk = 0 Then Sheet1.ListBox1.Clear: Exit Sub
              ReDim yrr(1 To kkkkk, 1 To 3)
              kkkkk = 1
                For t6 = 1 To UBound(urr)
                    For t7 = 1 To UBound(irr)
                    If urr(t6, 2) = irr(t7, 1) Then
                    yrr(kkkkk, 1) = urr(t6, 1)
                    yrr(kkkkk, 2) = urr(t6, 2)
                    yrr(kkkkk, 3) = urr(t6, 3)        '按等级筛选后的店铺
                         kkkkk = kkkkk + 1
                    End If
                      Next
                Next
         With ListBox1
            '调整位置到单元格处
            .Top = Sheet1.Cells(20, 1).Top 'listbox的顶端位置
            .Left = Sheet1.Cells(20, 1).Left  'listbox的左端位置
            .Width = 280 '宽度
            .Height = 800 '高度
            .Visible = True '可见
            '.ColumnHeads = True '显示标题行
            .ColumnCount = 3 '三列
            .ColumnWidths = "40;60;180" '设置第一列宽度50第二列宽度130……
            .List = yrr '数据来源
            .MultiSelect = fmMultiSelectMulti '允许通过鼠标点击的方式进行多选
            .ListStyle = fmListStyleOption '选项按钮设置为方形
        End With
        Application.DisplayAlerts = True
    End Sub

    以上3个ListBox代码还需要以下代码进行关联,当区域和店铺等级发生变化LB1发生变化,需要用到change事件,当发生LB3、LB2发生变化LB1就运行。

    Private Sub ListBox3_Change() '等级更新店铺更新
        ListBox1_Click
    End Sub
    
    Private Sub ListBox2_Change() '等级更新店铺更新
       ListBox1_Click
    End Sub

    当以上代码写完后,重新打开表格会发现区域和店铺等级是空的,如下图,因为要运行了ListBox代码后才能进行筛选。

    19092223772583dc37c91ddfb4c9ba58.png

    这里就要加入一个当表格启用时就运行LB3、LB2、LB1代码。此段代码在ThisWorkbook里填写。

    Private Sub Workbook_Open() '在打开工作簿时发生
        Sheet1.setacive   '其中setacive就是我们下一个代码要设置的
    End Sub

    在sheet1里面填写以下代码

    Sub setacive()
        ListBox3_Click
        ListBox2_Click
    End Sub

    这两个段代码组合使用就能实现当表格打开时就运行区域和店铺等级!

    展开全文
  • 去年因为工作需要用VBA做了一个下单表,跟大家分享下里面组合控件的组合使用,交互性和操作性都比较...区域LB3代码:Private Sub ListBox3_Click() '区域选择 With Sheet10 rq = .Range("j2:j5").Value'区域 ...

    去年因为工作需要用VBA做了一个下单表,跟大家分享下里面组合框控件的组合使用,交互性和操作性都比较友好,效果见下面GIF动图。

    70aeff3e2c8f5afd8a151b5196189434.gif

    通过筛选区域和店铺等级让店铺明细动态变化,用了3个ListBox组合框控件实现。

    b44f7657cc3849bd40af7702a8a8fbb6.png

    区域LB3代码:

    Private Sub ListBox3_Click() '区域选择
     With Sheet10
            rq = .Range("j2:j5").Value'区域
        End With
    With ListBox3 '调整位置到单元格处
            .Top = Sheet1.Cells(15, 1).Top 'listbox的顶端位置
            .Left = Sheet1.Cells(15, 1).Left  'listbox的左端位置
            .Width = 58 '宽度
            .Height = 70 '高度
            .Visible = True '可见
            '.ColumnHeads = True '显示标题行
            .ColumnCount = 1 '三列
            .ColumnWidths = "40" '设置第一列宽度50第二列宽度130……
            .List = rq '数据来源
            .MultiSelect = fmMultiSelectMulti '允许通过鼠标点击的方式进行多选
            .ListStyle = fmListStyleOption '选项按钮设置为方形
        End With
    End Sub

    店铺等级LB2代码:

    Private Sub ListBox2_Click() '店铺等级选择
        
     With Sheet10
            rq = .Range("h2:h5").Value'店铺等级
        End With
    With ListBox2 '调整位置到单元格处
            .Top = Sheet1.Cells(15, 2).Top 'listbox的顶端位置
            .Left = Sheet1.Cells(15, 2).Left  'listbox的左端位置
            .Width = 58 '宽度
            .Height = 70 '高度
            .Visible = True '可见
            '.ColumnHeads = True '显示标题行
            .ColumnCount = 1 '三列
            .ColumnWidths = "40" '设置第一列宽度50第二列宽度130……
            .List = rq '数据来源
            .MultiSelect = fmMultiSelectMulti '允许通过鼠标点击的方式进行多选
            .ListStyle = fmListStyleOption '选项按钮设置为方形
        End With
    End Sub

    店铺明细LB1代码:

    Private Sub ListBox1_Click() '选择区域和等级后自动生成店铺明细
                   Dim prr, orr, irr, urr, yrr
                   Application.DisplayAlerts = False
           With Sheet8
                     R = .Range("f2:h" & .Cells(Rows.Count, "h").End(xlUp).Row).Value
                     prr = R
           End With
                With ListBox3'当筛选区域后
                       For i = 0 To .ListCount - 1
                       If .Selected(i) = True Then
                           kk = kk + 1
                       End If
                       Next
                      If kk = 0 Then Sheet1.ListBox1.Clear: Exit Sub
                    ReDim orr(1 To kk, 1 To 1)
                      kk = 1
                      For i = 0 To .ListCount - 1
                      If .Selected(i) = True Then
                          orr(kk, 1) = .List(i, 0) '勾选后的区域
                          kk = kk + 1
                           End If
                      Next
                End With
                
                With ListBox2'当筛选店铺等级后
                       For ii = 0 To .ListCount - 1
                       If .Selected(ii) = True Then
                           kkk = kkk + 1
                       End If
                       Next
                       If kkk = 0 Then Sheet1.ListBox1.Clear: Exit Sub
                  ReDim irr(1 To kkk, 1 To 1)
                      kkk = 1
                      For ii = 0 To .ListCount - 1
                      If .Selected(ii) = True Then
                          irr(kkk, 1) = .List(ii, 0) '勾选后的等级
                          kkk = kkk + 1
                           End If
                      Next
                End With
                
                For T = 1 To UBound(prr)
                    For t1 = 1 To UBound(orr)
                    If prr(T, 1) = orr(t1, 1) Then
                               kkkk = kkkk + 1
                    End If
                      Next
                Next
                
                If kkkk = 0 Then Sheet1.ListBox1.Clear: Exit Sub
              ReDim urr(1 To kkkk, 1 To 3)
               kkkk = 1
               
               For t2 = 1 To UBound(prr)
                    For t3 = 1 To UBound(orr)
                    If prr(t2, 1) = orr(t3, 1) Then
                    urr(kkkk, 1) = prr(t2, 1)
                    urr(kkkk, 2) = prr(t2, 2)
                    urr(kkkk, 3) = prr(t2, 3)        '按区域筛选后的店铺
                         kkkk = kkkk + 1
                    End If
                      Next
                Next
              
                For t4 = 1 To UBound(urr)
                    For t5 = 1 To UBound(irr)
                    If urr(t4, 2) = irr(t5, 1) Then
                               kkkkk = kkkkk + 1
                    End If
                      Next
                Next
                
                If kkkkk = 0 Then Sheet1.ListBox1.Clear: Exit Sub
              ReDim yrr(1 To kkkkk, 1 To 3)
              kkkkk = 1
                For t6 = 1 To UBound(urr)
                    For t7 = 1 To UBound(irr)
                    If urr(t6, 2) = irr(t7, 1) Then
                    yrr(kkkkk, 1) = urr(t6, 1)
                    yrr(kkkkk, 2) = urr(t6, 2)
                    yrr(kkkkk, 3) = urr(t6, 3)        '按等级筛选后的店铺
                         kkkkk = kkkkk + 1
                    End If
                      Next
                Next
         With ListBox1
            '调整位置到单元格处
            .Top = Sheet1.Cells(20, 1).Top 'listbox的顶端位置
            .Left = Sheet1.Cells(20, 1).Left  'listbox的左端位置
            .Width = 280 '宽度
            .Height = 800 '高度
            .Visible = True '可见
            '.ColumnHeads = True '显示标题行
            .ColumnCount = 3 '三列
            .ColumnWidths = "40;60;180" '设置第一列宽度50第二列宽度130……
            .List = yrr '数据来源
            .MultiSelect = fmMultiSelectMulti '允许通过鼠标点击的方式进行多选
            .ListStyle = fmListStyleOption '选项按钮设置为方形
        End With
        Application.DisplayAlerts = True
    End Sub

    以上3个ListBox代码还需要以下代码进行关联,当区域和店铺等级发生变化LB1发生变化,需要用到change事件,当发生LB3、LB2发生变化LB1就运行。

    Private Sub ListBox3_Change() '等级更新店铺更新
        ListBox1_Click
    End Sub
    
    Private Sub ListBox2_Change() '等级更新店铺更新
       ListBox1_Click
    End Sub

    当以上代码写完后,重新打开表格会发现区域和店铺等级是空的,如下图,因为要运行了ListBox代码后才能进行筛选。

    09a07b14c4017fb6474484f72fca20a9.png

    这里就要加入一个当表格启用时就运行LB3、LB2、LB1代码。此段代码在ThisWorkbook里填写。

    Private Sub Workbook_Open() '在打开工作簿时发生
        Sheet1.setacive   '其中setacive就是我们下一个代码要设置的
    End Sub

    在sheet1里面填写以下代码

    Sub setacive()
        ListBox3_Click
        ListBox2_Click
    End Sub

    这两个段代码组合使用就能实现当表格打开时就运行区域和店铺等级!

    展开全文
  • 如下图所示,当我们在百度搜索中搜索关键字时,百度搜索会自动列出含有关键字的搜索历史供下拉选择。类似地,在excel中,也经常遇到类似的需求。希望在excel单元格中输入关键字后列出所有含有该关键字的相关列表...

    如下图所示,

    当我们在百度搜索框中搜索关键字时,百度搜索框会自动列出含有关键字的搜索历史供下拉选择。

    类似地,在excel中,也经常遇到类似的需求。希望在excel单元格中输入关键字后列出所有含有该关键字的相关列表供快速选择。

    要实现上述功能,需要解决以下几个问题:所有的列表项需要集合在数组或者单元格区域中;

    在要实现的单元格区域中触发Worksheet_SelectionChange事件;

    在Worksheet_SelectionChange事件下可以弹出文本框控件用于输入关键字,每输入一个关键字,可以自动筛选列表项数组在列表框控件中列出筛选的结果数组;

    在列表框控件中选择了要输入的列表项后,文本框控件和列表框控件能够隐藏。

    其中文本框控件和列表框控件也可以用组合框控件代替。

    接下来介绍代码的实现过程。

    为了实现上述功能,可以先手动在要实现的工作表中插入一个文本框(默认的名称为TextBox1)和列表框(默认的名称为ListBox1)ActiveX控件,然后在该工作表代码窗口中输入如下的代码:

    '定义一个公共的数组变量,用于存放所有列表框项目Public arrPrivate 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 IfEnd SubPrivate 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 WithEnd SubPrivate 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

    运行代码后的效果如下图所示,输入“张”字,会自动列出含有“张”字的所有列表项。

    展开全文
  • vba笔记

    2019-01-27 00:10:26
    如何用VBA实现这样的功能: ...—就像在Excel公式向导里,用户可以通过点击工作表中的单元格的方式,来输入单元格地址(同时被选择区域周围显示动态虚线) 解决方法:不能直接用 InputBox 函数,而要用 Ap...
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧117 使用RefEdit控件选择区域 12 技巧118 如何注册控件 12 技巧119 遍历控件的方法 12 119-1 使用名称中的变量遍历控件 12 119-2 使用对象类型遍历控件 12 119-3 使用程序标识符遍历控件 12 119-4 使用名称中的...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧117 使用RefEdit控件选择区域 275 技巧118 如何注册控件 276 技巧119 遍历控件的方法 279 119-1 使用名称中的变量遍历控件 279 119-2 使用对象类型遍历控件 281 119-3 使用程序标识符遍历控件 282 119-4 使用...
  • EXCEL VBA常用技巧

    2010-02-09 22:28:27
    VBA常用技巧 目录 第1章 Range(单元格)对象 3 技巧1 单元格的引用方法 3 1-1 使用Range属性 3 1-2 使用Cells属性 4 1-3 使用快捷记号 4 1-4 使用Offset属性 5 1-5 使用Resize属性 6 1-6 使用Union方法 7 1-7 使用...
  • VBA CurrentRegion、UsedRange属性示例

    千次阅读 2019-06-15 09:34:48
    CurrentRegion返回活动单元格所在的周围由空行和空列组成的单元格区域(即通常所说的当前区域),该区域为活动单元格附近不为空的单元格范围,该范围截止区域为空行、空列,以示例说话。  以下试验环境:win7、...
  • 04147设置单元格区域的除对角线以外的全部边框 04148删除单元格区域的全部边框 04149设置单元格的颜色和背景 04150设置单元格的格式 04151设置单元格的对齐方式 04152缩小单元格内容以全部显示 04153设定、删除...
  • 中文版Excel.2007高级VBA编程宝典 1/2

    热门讨论 2012-04-06 16:00:16
    本书的作者是当之无愧的世界级Excel电子表格专家,他为读者倾心打造了这本专著,书中汇聚他15年来使用Excel的所有经验,涵盖Excel应用和VBA编程涉及的方方面面,是经典著作Excel 2003 Power Programming with VBA的...
  • 中文版Excel.2007高级VBA编程宝典 2/2

    热门讨论 2012-04-06 16:41:38
    中文版Excel.2007高级VBA编程宝典 2/2 完整清晰版 PDF ,有目录。共 270MB,分为 2 个分卷 中文版Excel 2007 高级VBA编程 宝典 OFFICE2007 中文版Excel 2007高级VBA编程宝典 原价:99.99元 作者:(美)沃肯巴赫...
  • 自动生成VBA窗体菜单

    2010-08-16 15:23:46
    自动生成VBA窗体菜单 '*************************** '* 菜单类 * '*************************** Option Explicit Private WithEvents MenuBar_MenuItem As MSForms.Label '菜单项 Private WithEvents WorkForm As...
  • 本代码可以实现在Excel中自动计算熵权法权重,另外可以呈现每一步的计算的结果。...3 出现选择对方时,用鼠标选定表格中数据区域(包括指标行,指标标签行,年份列,已及各个指标值区域),按确定即可
  • 算的是红占绿的百分比 难点在保留原数据的情况下,把百分比加在后面。通过公式我是不会,但程序实验也不难。 ... Set range1 = Application.InputBox("选择区域", Type...
  • 可以标识引用区域对重复使用的内容定义名称,方便快速调用单元格数据方便高使用率内容的修改方便VBA中调用表格数据EXCEL定义名称怎么做,定义名称有三种方式第一种.使用名称快速创建,实例定义了名称为"销售额"的...
  • 我在Excel中用VBA以及函数制作了以下日历效果,选单元格区域即返回对应的日期段,请问该效果在JavaScript中如何实现? ![图片说明](https://img-ask.csdn.net/upload/201903/06/1551835309_579420.gif) ----...
  • 方法一:控件、COLUMN、INDEX;方法二:下拉列表、COLUMN、VLOOKUP;方法三:下拉列表、INDEX、MATCH1.利用控件、COLUMN、INDEX函数...【数据源区域选择行标题,【单元格链接】选择与控件同步的单元格(相当于Matc...
  • Excel百宝箱9.0无限制破解版

    热门讨论 2012-02-03 19:05:29
    【反向选择】:选择当前区域中未选择区域 【千年日历】:工单元格中生成千年日期。默认显示本月的日历,可以自由调整年月 【保护公式】:保护当前工作表所有公式,不让人看到公式本身,只能看到公式结果 【生成斜线...
  • Excel百宝箱

    2012-10-27 17:09:21
    【反向选择】:选择当前区域中未选择区域 【千年日历】:工单元格中生成千年日期。默认显示本月的日历,可以自由调整年月 【保护公式】:保护当前工作表所有公式,不让人看到公式本身,只能看到公式结果 【生成斜线...
  • 【反向选择】:选择当前区域中未选择区域 【千年日历】:工单元格中生成千年日期。默认显示本月的日历,可以自由调整年月 【保护公式】:保护当前工作表所有公式,不让人看到公式本身,只能看到公式结果 【生成...
  • 例如选择并计算红色区域,或者选择字号为20、字体为宋体的区域,再如选择加粗且倾斜的区域等等 【选区背景着色】将选择的行进行颜色标示,以突出当前行,有利于数据查看。可以随心所欲地定义颜色,还可以自由调整...
  • 【反向选择】:选择当前区域中未选择区域 【千年日历】:工单元格中生成千年日期。默认显示本月的日历,可以自由调整年月 【保护公式】:保护当前工作表所有公式,不让人看到公式本身,只能看到公式结果 【生成斜线...
  • Excel百宝箱8.0

    2011-06-07 21:32:17
    【反向选择】:选择当前区域中未选择区域 【千年日历】:工单元格中生成千年日期。默认显示本月的日历,可以自由调整年月 【保护公式】:保护当前工作表所有公式,不让人看到公式本身,只能看到公式结果 【生成...
  • excel 工具箱

    2012-01-22 15:04:34
    【多区域复制】:可以在选择区域时进行复制 【按颜色筛选】:让Excel 2003也可以按背景色筛选数据,2007或者2010用户不需要使用  【按颜色排序】:让Excel 2003也可以按背景色排序数据,2007或者2010用户不需要使用 ...
  • EXCEL百宝箱8.0终极版

    2011-11-05 16:48:02
    【反向选择】:选择当前区域中未选择区域 【千年日历】:工单元格中生成千年日期。默认显示本月的日历,可以自由调整年月 【保护公式】:保护当前工作表所有公式,不让人看到公式本身,只能看到公式结果 【生成...
  • arcgis工具

    2012-10-22 22:37:31
    右键点击数据,在环境菜单中选择高级绘制选项(Advanced Drawing Options),用注记的模版图层去遮盖线图层,确定 23.同一图层使用Clip实现图斑的无缝拼接 当一个图斑的边界确定,需要实现两个图斑的无缝拼接时...

空空如也

空空如也

1 2 3 4
收藏数 76
精华内容 30
关键字:

vba区域选择框