简单实用与实际工作的附件

wujing1982

非常实用  可惜访问率不是很高呀  值得大家学习的 顶起

wyf22006

以上附件都是学习和平时工作时找资料用的,查看时直接点击、选取,复制用好了,不用密码的

流欣枫

先收藏了，多谢楼主分享。

wyf22006

hyperlink函数可以做到

如果A2是工作表名,那么B2输入公式:
=hyperlink("#"&A2&"!A1",A2)
改公式会生成一个到A2名字的工作表A1单元格的超链接
这个公式更通用一点，防治工作表名中有空格

=HYPERLINK("#'"&A1&"'!A1",A1)
知道你会有这一问，已经为你准备好了！

愿借高人的方法助你一臂之力！
一张工作簿里有好多工作表，手工一个一个做连接却相当麻烦，两步实现目录生成。   

1.宏3.0取出各工作表的名称，方法：   
ctrl+f3出现自定义名称对话框，取名为X，引用位置栏输入：   
=MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,100)   
确定   

2.HYPERLINK函数批量插入连接，方法：   
插入目录表格（一般为第一个sheet）   
在A2单元输入公式=HYPERLINK("#'"&INDEX(X,ROW())&"'!A1",INDEX(X,ROW()))   
A2单元向下填充，直到出错为止，目录就生成了。   

这是大家目前使用后发现超级连接最好的!!!！

wyf22006

=SUM(条件1*条件2*……*求和区域)——多条件求和，数组公式，按三键。

=SUMPRODUCT(条件1*条件2*……*求和区域)——多条件求和，普通公式，不用按三键。

=SUM(条件1*条件2*……*条件n)——多条件计数，数组公式，按三键。

=SUMPRODUCT(条件1*条件2*……*条件n)——多条件计数，普通公式，不用按三键

编辑数组公式的方法：

选择一个公式单元》编辑》定位》定位条件》选“当前数组”》确定》多单元同时修改公式

wyf22006

用单元格内容--修改工作表名称(适合几百张工作表的名称修改)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$2" And Target <> "" Then '如果单元格地址为 $C$2 并且 单元格不为空
        Me.Name = Target.Value '用单元格的内容命名工作表
    End If
End Sub
多工作表操作只显示一个工作表,增加运行速度

Sub 按钮1_单击()

            
             Sheets("sheet1").Visible = -1
             Sheets("sheet1").Activate
    Sheets("sheet2").Visible = 0
    Sheets("sheet3").Visible = 0
End Sub
Sub 按钮2_单击()
         Sheets("sheet2").Visible = -1
             Sheets("sheet2").Activate
    Sheets("sheet1").Visible = 0
    Sheets("sheet3").Visible = 0
End Sub
Sub 返回首页()
            
            Sheets("sheet1").Visible = -1
            Sheets("sheet1").Activate
            Sheets("sheet2").Visible = 0
              Sheets("sheet3").Visible = 0
            
    End Sub
Sub 按钮3_单击()
     Sheets("sheet3").Visible = -1
             Sheets("sheet3").Activate
    Sheets("sheet1").Visible = 0
    Sheets("sheet2").Visible = 0
End Sub

获取工作表的代码:(shtname宏名)

Sub shtname()
Dim i As Integer, sht As Worksheet
i = 1
For Each sht In Worksheets
    Cells(i, 1) = sht.Name
    i = i + 1 '让写入名称的单元格下移一行
Next
End Sub
快速修改工作表名代码(在A列单元格写入工作表名,然后运行宏就可以了)

Sub bb()
    For i = 1 To Worksheets.Count
        If Worksheets(i).Name <> "Sheet1" Then
            j = j + 1
            Worksheets(i).Name = Worksheets("Sheet1").Cells(j, 1)
        End If
    Next i
End Sub

nathen

很实用！收藏了，多谢楼主！留个记号，以便日后查询。

wyf22006

多列提取不重复的值的公式在论坛上很多,但这个公式我感觉是最短的

[ 本帖最后由 wyf22006 于 2010-10-17 18:34 编辑 ]

ppss110119

留下手印 仔细学习 感谢楼主

小小yu

好热心的楼主，多谢分享！