寒窗轩-谢燕伟的博客

excel无重复排序，如何提取排名前5的学生对应姓名

作者：寒川 发布于：2011-8-16 20:29 Tuesday 分类：计算机

数据内容如下图：

 

定义A2:A11区域为姓名；定义B2:B1区域为总分
2003版本定义方法：插入---名称---定义
2007版本定义方法：公式选项卡---定义名称

C2位置输入
=INDEX(姓名,MATCH(LARGE(总分+1-ROW(总分)/100,ROW($A1)),总分+1-ROW(总分)/100,0))
输完公式后，请按ctrl+shift+enter

D2位置输入
=INDEX(总分,MATCH(LARGE(总分+1-ROW(总分)/100,ROW($A1)),总分+1-ROW(总分)/100,0))
输完公式后，请按ctrl+shift+enter

即得上图结果。

标签: 计算机 excel 无重复排序

评论(5) 引用(0) 浏览(730)

excel表格中页码从第n页开始

作者：寒川 发布于：2010-8-26 17:07 Thursday 分类：计算机

Excel表格中页码如何从第n页开始呢？比如我想打印现来直接就是5、6、7、……、n、……这样子，这个小小的问题把我还真难着了，很少遇到这种情况，但今天遇到了，百度一下，问题解决了，记下来，分享一下：
Excel2003：点击菜单 “ 视图 ”-“ 页眉和页脚 ” ，在 “ 页面设置 ” 对话框中的 “ 页面 ” 里左下角有个 “ 起始页码 ” ，在 “ 自动 ” 里输入 n；再文件—页面设置—页眉页脚—选择第一页，即可。

Ecel2010：点击“页面布局”－>页面设置－>起始页码就OK了，详见下图：

标签: excel 页码 从第

评论(9) 引用(0) 浏览(1744)

利用宏从Word、Excel中提取Flash

作者：寒川 发布于：2010-2-26 17:08 Friday 分类：计算机

今天网上弄到个flash游戏，感觉挺不错的，但是flash被嵌在了excel中，想单独保存出来。百度了一下找到如下宏代码可以实现。
Sub CollectFlashFromExcel()
'
'
' http://huikon.cn
'

'
Dim tmpFileName As String, FileNumber As Integer
Dim myFileId As Long
Dim myArr() As Byte
Dim i As Long
Dim MyFileLen As Long, myIndex As Long
Dim swfFileLen As Long
Dim swfArr() As Byte
 

tmpFileName = Application.GetOpenFilename("office File(*.doc;*.xls),*.doc;*.xls", , "请选择一个包含Flash的Office文档")

 
If tmpFileName = "False" Then Exit Sub

myFileId = FreeFile

Open tmpFileName For Binary As #myFileId

MyFileLen = LOF(myFileId)

ReDim myArr(MyFileLen - 1)
Get myFileId, , myArr()
Close myFileId

Application.ScreenUpdating = False

i = 0

Do While i < MyFileLen

    If myArr(i) = &H46 Then

        If myArr(i + 1) = &H57 And myArr(i + 2) = &H53 Then

            swfFileLen = CLng(&H1000000) * myArr(i + 7) + CLng(&H10000) * myArr(i + 6) + CLng(&H100) * myArr(i + 5) + myArr(i + 4)

            ReDim swfArr(swfFileLen - 1)

            For myIndex = 0 To swfFileLen - 1

                swfArr(myIndex) = myArr(i + myIndex)

            Next myIndex
           Exit Do
        Else
           i = i + 3
        End If
    Else
       i = i + 1
    End If
Loop

 

myFileId = FreeFile

tmpFileName = Left(tmpFileName, Len(tmpFileName) - 4) & ".swf"

Open tmpFileName For Binary As #myFileId

Put #myFileId, , swfArr

Close myFileId


MsgBox "以" & tmpFileName & "名字保存"

End Sub

 

 打开（或新建）一个excel文档，将上述代码输入宏试图中，然后运行，再代开含有flash的excel或word文档就能将flash文档的从word、Excel中提取出来了。

标签: office flash word excel

评论(0) 引用(0) 浏览(1164)