Colorful Life²⁰¹⁰

前提：机器上当然要状有EXCEL了

将下面的代码直接放到VIEW的一个ACTION按钮上就行了

这个还包含了前一篇的进度条的功能

实现有两种方法，第一种比较简单，就是在status栏里print出文本，不过这个方法比较笨，但是很保险，基本上不会出什么问题。代码如下：

REM "From Erden Eruc @ NGSINC"

Dim i As Integer
Dim s As String
     
'Is this 100 meter dash? no it is a meter with 100 dashes :)
     
s = "--------------------------------------------"&_
"--------------------------------------------------------"
For i = 1 To 100
  s = Left( Chr(1) & s, 100 )
  If i<10 Then
    Print "Percent Done:    "& Str(i)&"% - " & s 
  Elseif i = 100 Then
    Print "Percent Done:"& Str(i)&"% - " & s
  Else
    Print "Percent Done:  "& Str(i)&"% - " & s
  End If
Next
Print "Percent Done: 100% - Job complete..."

另一种就是NOTES本身带的那种图形界面的，这个当然对用户比较友好，但由于NOTES并没有公开这个API，我们就不得不自己来调用了，如下面代码，使用下面的代码有一定风险，如果是在DEBUG模式，或是使用过程中出错了，那么整个NOTES客户端会被lock住，所以使用下面代码的时候，一定要加异常处理，确保代码最后一句一定要被执行。

最近用VBA写了不少工作 上用的工具，一些常用或是容易出错的拿出来分享一下

1、检查一个XLS里是否存在指定SHEET页

Function SheetExists(ByVal wb As Workbook, ByVal SheetName As String) As Boolean
' returns TRUE if the sheet exists in the active workbook
    SheetExists = False
    On Error GoTo NoSuchSheet
    If Len(wb.Sheets(SheetName).Name) > 0 Then
        SheetExists = True
        Exit Function
    End If
NoSuchSheet:
    SheetExists = False
End Function