Excel可以做什么，Excel工作笔记[全员乱入]

我属于第八种

呃，二楼是我的。
用excel做的东西较多，基本上是基于VBA窗体做的东西。。
1）采购下单。。汇总到采购汇总表，分析到货，应付款、税票，、添修改查供应商 信息、产品信息等
2）生产统计报表。。按条件录入生产数据，汇总到日报表，定单数据，个人工资等
主要的就是以上两个，从刚开始会VBA到现在，共改进了三次,历时一年，，汗。。。。
新学的东西。。递归吧。。历时三天（此处大汗），总算大致明白了香川组合递归的三种组合。唉，实在汗颜，感觉缺的东西太多，有打算从头学习算法和VB，等有能力了开发一套供自己使用的生产排程exe。。。这是我的宏伟目标。。。

呵呵，炸了好多人出来，很满足。等小孩睡了，我贴贴最近的心得。

这几天在用的一个宏，花了我1分钟时间编写，节约若干小时以及误操作的风险，大家猜猜我在什么情况下用？
Sub pastevalue()
Dim c As Range
If Selection.Cells.Count = 1 Then
Selection = Selection.Value
Exit Sub
End If
For Each c In Selection.SpecialCells(xlCellTypeVisible).Cells
c = c.Value
Next
End Sub

再7楼的基础上，因为需要我又添加了几个宏来完成不同的功能。不重复贴了，就放主要的。
2. Right Trim， 这个跟系统打交道多的人都知道是很有用的，可以函数支持的trim没有vba的rtrim好用，所以有了这个。
c = RTrim(c.Value)
3. ToCapital, 因为要load到系统中，标准要求全大写，有的时候用全大写输入看着别扭，就先输入，然后一起改过来。
If Len(c) > 0 Then c = UCase(c.Value)
所以如果有人经常对筛选的数据进行处理的话，以上的宏应该会帮很多忙。自己也可以根据不同的需要来修改。

再贴一个从ftp下文件的吧。
这个是从google里边学到的。可以用vba从网络上下载文件到本地。
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Function DownloadFilefromWeb(sUrl As String, sPath As String, sFile As String)
DownloadFilefromWeb = URLDownloadToFile(0, sUrl, sPath & sFile, 0, 0)
End Function
有了这个以后，问题来了，国外很多公司的防火墙都很严密，ftp的端口是封掉的，所以没有办法通过ftp来下载文件。但是可以通过打开网页，ftp://user:passwrod@domain.com/a.xls 来下载文件。这里就可以用这段代码来进行下载。这里还有个地方就是要建一 webBrowser的控件,然后navigate到那个网址. 并保存. 这样的话下次打开工作表, 这段代码才能工作, 否则的话会失败. 不知道具体原因, 但是估计是Excel调用IE的时候会初始化一些东西.
Sheets(1).WebBrowser1.Navigate strURL

其他几个常用的自定义函数, 平时经常用到.
文件最后更新时间
Function FileLastModified(strFullFileName As String)
FileLastModified = Format(CreateObject("Scripting.FileSystemObject").GetFile(strFullFileName).DateLastModified)
End FunctionFunction
文件大小
FileSize(strFullFileName As String)
FileSize = CreateObject("Scripting.FileSystemObject").GetFile(strFullFileName).Size
End Function

删除所有图片, 写这个代码的原因是, 有的时候数据源是第三方提供的, 他们每次都放个图片在他们的文件里, 但是有的时候一些系统对于有图片的工作表会读取错误, 需要在上传前移除所有的图片.
For i = 1 To ActiveWorkbook.Sheets.Count
If Sheets(i).Shapes.Count > 0 Then
For j = 1 To Sheets(i).Shapes.Count
Sheets(i).Shapes(j).Delete
Next
End If
Next i

好吧，其实我想说，我是个函数控