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

这几天在用的一个宏，花了我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

各位, 大家也都晒晒最近的工作啊. 各种不限.

夜深了，大家明天见，欢迎各种留言。

猫神让我想起了一个让我抓狂的旧事。因为澳大利亚的时间是，月日年，美国是日月年，最初录制宏的时候，保存的csv文件日期格式都是错的因为默认的是美国格式，尝试过各种方法来绕开这个问题，直到前两年才发现saveas有个local属性，设置成local=true就会按你系统的默认格式保存

最近用excel做了一个文件控制, 基本上包括3个功能,
1, 从网页下载文件, 包括ftp, 还有需要post信息的下载.
2, 从lotus note下载附件, 不知道lotus note的朋友, lotus note就是IBM的邮件 = outlook
3, 按日期检查文件是否已经下载以及最后编辑时间

熬夜到早上4点多, 希望明天一切正常. 16412条数据.

上午陪了会儿小孩, 现在来上班了, 项目组还在配置系统, 不知道什么时候可以开始测试. 现在处于无聊阶段, 估计也不会用Excel作些什么新的东西. @青水蛙鸣 @雪儿浪漫想 @温柔小兔 @zipall 今天你们都用excel了么? 来留点儿日至吧.

无聊中, 贴个关于打印的技巧. 出于各种原因, 有很多人经常需要把表格里部分的内容打出来. Excel提供了一个很方便的功能, 打印选中区域. 选取选项后就可以只输出想要的部分. 还有就是有的时候经常单元格过宽, 即使横向打印也会被分成两页, 如果只有一页的话, 简单的办法就是去打印预览, 页面设置, 尺寸选择试配到一页的宽, 一页高就好了.

不知道有没有人学金融, 或者做这行的, 推荐一本基础的书籍, 虽然是英文版, 不过我很喜欢. Financial Products - An Instroduction using Mathematics and Excel, 作者Bill Dalton, Cambridge出版. 里边的例子简单易懂, 涵盖了基本的金融基础知识. 是澳大利亚AFMA机构的推荐书籍, 如果你报名他们的Mathematics课程会送一本. (好像3天, 两千多刀)
http://www.afma.com.au/learning/ce/workshops/app-fin-maths.html