BlogJava-Java,永远不敢言精通-随笔分类-VBAhttp://www.blogjava.net/crazycoding/category/46060.htmlGod helps those who help themselves. zh-cnWed, 08 Sep 2010 15:28:39 GMTWed, 08 Sep 2010 15:28:39 GMT60VBA实用代码节选http://www.blogjava.net/crazycoding/archive/2010/09/08/331418.htmlYing-erYing-erWed, 08 Sep 2010 10:15:00 GMThttp://www.blogjava.net/crazycoding/archive/2010/09/08/331418.htmlhttp://www.blogjava.net/crazycoding/comments/331418.htmlhttp://www.blogjava.net/crazycoding/archive/2010/09/08/331418.html#Feedback0http://www.blogjava.net/crazycoding/comments/commentRss/331418.htmlhttp://www.blogjava.net/crazycoding/services/trackbacks/331418.html'/////////////////////////////////////////////////////////////
'            -ワークシート内のデータの初期化を行う-
'/////////////////////////////////////////////////////////////
Function CmdClear()
    Dim sakiSH As Worksheet
    Beep
        Set sakiSH = ThisWorkbook.Sheets(2) '転記先のシート
        sakiSH.Range("A4:O1000").ClearContents
        sakiSH.Range("A4:O1000").Clear
        Set sakiSH = Nothing
End Function
'/////////////////////////////////////////////////////////////
'paintCellsLine
'使い方：
'    Dim startCell As Range
'    Dim endCell   As Range
'    Set startCell = Workbooks(1).Sheets(2).Cells(4, 1)
'    Set endCell   = Workbooks(1).Sheets(2).Cells(48, 9)
'    Call paintCellsLine(startCell, endCell)
'@param startCell
'@param endCell
'/////////////////////////////////////////////////////////////
Function paintCellsLine(startCell As Range, endCell As Range)
    With Range(startCell, endCell)
        For i = 7 To 12
            .Borders(i).LineStyle = xlContinuous
        Next
    End With
End Function

VBA连DB
Dim sqlStr As String
            sqlStr = getSqlStr()
        Dim connection As New ADODB.connection
        Dim resultSet As ADODB.recordSet
        Dim connStr As String
            connStr = "Provider=SQLOLEDB;Server=127.0.0.1;Database=BMS;Trusted_Connection=yes;Uid=sa;Pwd="
            connection.Open connStr
            Set resultSet = New ADODB.recordSet
            resultSet.Open sqlStr, connection

Dictionary的使用（add Microsoft Scripting Runtime.）
Dim dict

' 创建Dictionary
Set dict = CreateObject("Scripting.Dictionary")

' 增加项目
dict.Add "A", 300
dict.Add "B", 400
dict.Add "C", 500

' 统计项目数
n = dict.Count

' 删除项目
dict.Remove ("A")

' 判断字典中是否包含关键字
dict.exists ("B")

' 取关键字对应的值，注意在使用前需要判断是否存在key，否则dict中会多出一条记录
Value = dict.Item("B")

' 修改关键字对应的值,如不存在则创建新的项目
dict.Item("B") = 1000
dict.Item("D") = 800

' 对字典进行循环
k = dict.keys
v = dict.Items
For i = 0 To dict.Count - 1
  key = k(i)
  Value = v(i)
  MsgBox key & Value
Next

' 删除所有项目
dict.Removeall

VBA编程黄金法则：
录制宏，修改录制的宏为己所用



Ying-er 2010-09-08 18:15 发表评论
]]>VBA时间函数http://www.blogjava.net/crazycoding/archive/2010/09/08/331415.htmlYing-erYing-erWed, 08 Sep 2010 09:32:00 GMThttp://www.blogjava.net/crazycoding/archive/2010/09/08/331415.htmlhttp://www.blogjava.net/crazycoding/comments/331415.htmlhttp://www.blogjava.net/crazycoding/archive/2010/09/08/331415.html#Feedback0http://www.blogjava.net/crazycoding/comments/commentRss/331415.htmlhttp://www.blogjava.net/crazycoding/services/trackbacks/331415.htmlNow 返回一个 Variant (Date)，根据计算机系统设置的日期和时间来指定日期和时间。
Date 返回包含系统日期的 Variant (Date)。
Time 返回一个指明当前系统时间的 Variant (Date)。
Timer 返回一个 Single，代表从午夜开始到现在经过的秒数。
TimeSerial(hour, minute, second) 返回一个 Variant (Date)，包含具有具体时、分、秒的时间。
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]]) 返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目
Second(time) 返回一个 Variant (Integer)，其值为 0 到 59 之间的整数，表示一分钟之中的某个秒
Minute(time) 返回一个 Variant (Integer)，其值为 0 到 59 之间的整数，表示一小时中的某分钟
Hour(time) 返回一个 Variant (Integer)，其值为 0 到 23 之间的整数，表示一天之中的某一钟点
Day(date) 返回一个 Variant (Integer)，其值为 1 到 31 之间的整数，表示一个月中的某一日
Month(date) 返回一个 Variant (Integer)，其值为 1 到 12 之间的整数，表示一年中的某月
Year(date) 返回 Variant (Integer)，包含表示年份的整数。
Weekday(date, [firstdayofweek]) 返回一个 Variant (Integer)，包含一个整数，代表某个日期是星期几

Ying-er 2010-09-08 17:32 发表评论
]]>VBA编程之Application对象http://www.blogjava.net/crazycoding/archive/2010/09/07/331322.htmlYing-erYing-erTue, 07 Sep 2010 08:34:00 GMThttp://www.blogjava.net/crazycoding/archive/2010/09/07/331322.htmlhttp://www.blogjava.net/crazycoding/comments/331322.htmlhttp://www.blogjava.net/crazycoding/archive/2010/09/07/331322.html#Feedback0http://www.blogjava.net/crazycoding/comments/commentRss/331322.htmlhttp://www.blogjava.net/crazycoding/services/trackbacks/331322.html    Application.UserName '返回应用程序的用户名
　　Application.Caller '返回代表调用函数的单元格
　　Application.Caller.Parent.Parent '返回调用函数的工作簿名称
　　Application.StatusBar=”请等待……” '将文本写到状态栏
　　Application.StatusBar=”请等待……” & Percent & “% Completed” '更新状态栏文本，以变量Percent代表完成的百分比
　　Application.StatusBar=False '将状态栏重新设置成正常状态
　　Application.Goto Reference:=Range(“A1:D4”) '指定单元格区域A1至D4，等同于选择“编辑——定位”，指定单元格区域为A1至D4，不会出现“定位”对话框
　　Application.Dialogs(xlDialogFormulaGoto).Show '显示“定位”对话框，但定位条件按钮无效
　　Application.Dialogs(xlDialogSelectSpecial).Show '显示“定位条件”对话框
　　 Application.Dialogs(xlDialogFormatNumber).show '显示“单元格格式”中的“数字”选项卡
　　Application.Dialogs(xlDialogAlignment).show '显示“单元格格式”中的“对齐”选项卡
　　Application.Dialogs(xlDialogFontProperties).show '显示“单元格格式”中的“字体”选项卡
　　Application.Dialogs(xlDialogBorder).show '显示“单元格格式”中的“边框”选项卡
　　Application.Dialogs(xlDialogPatterns).show '显示“单元格格式”中的“图案”选项卡
　　Application.Dialogs(xlDialogCellProtection).show '显示“单元格格式”中的“保护”选项卡
　　注：无法一次显示带选项卡的“单元格格式”对话框，只能一次显示一个选项卡。
Application.Dialogs(xlDialogFormulaGoto).show Range("b2"), True '显示“引用位置”的默认单元格区域并显示引用使其出现在窗口左上角(注：内置对话框参数的使用)
　　Application.CommandBars(1).Controls(2).Controls(16).Execute '执行“定位”话框，相当于选择菜单“编辑——定位”命令
　　Application.Transpose(Array(“Sun”,”Mon”,”Tur”,”Wed”,”Thu”,”Fri”,”Sat”)) '返回一个垂直的数组
　　Application.Version '返回使用的Excel版本号
　　Application.Cursor = xlNorthwestArrow '设置光标形状为北西向箭头
　　Application.Cursor = xlIBeam '设置光标形状为Ⅰ字形
　　Application.Cursor = xlWait '设置光标形状为沙漏(等待)形
　　Application.Cursor = xlDefault '恢复光标的默认设置
　　Application.WindowState '返回窗口当前的状态
　　Application.WindowState = xlMinimized '窗口最小化
　　Application.WindowState = xlMaximized '窗口最大化
　　Application.WindowState = xlNormal '窗口正常状态
　　Application.UsableHeight '获取当前窗口的高度
　　Application.UsableWidth '获取当前窗口的宽度
　　Application.ActiveCell.Address '返回活动单元格的地址(注:返回的是绝对地址)
　　Application.ActivePrinter '返回当前打印机的名称
　　Application.ActiveSheet.Name '返回活动工作表的名称
　　Application.ActiveWindow.Caption '返回活动窗口的标题
　　Application.ActiveWorkbook.Name '返回活动工作簿的名称
　　Application.Selection.Address '返回所选区域的地址
　　Application.ThisWorkbook.Name '返回当前工作簿的名称
　　Application.CalculationVersion '返回Excel计算引擎版本(右边四位数字)及Excel版本(左边两位数字)
　　Application.MemoryFree '以字节为单位返回Excel允许使用的内存数(不包括已经使用的内存)
　　Application.MemoryUsed '以字节为单位返回Excel当前使用的内存数
　　Application.MemoryTotal '以字节为单位返回Excel可以使用的内存数(包括已使用的内存,是MemoryFree和MemoryUsed的总和)
　　Application.OperatingSystem '返回所使用的操作系统的名称和版本
　　Application.OrganizationName '返回Excel产品登记使用的组织机构的名称
　　Application.FindFormat '查找的格式种类
　　Application.ReplaceFormat '替换查找到的内容的格式种类
　　ActiveSheet.Cells.Replace What:=” “, _
Replacement:=” “,SearchFormat:=True,ReplaceFormat:=True '替换查找到的格式
　　Application.Interactive=False '忽略键盘或鼠标的输入
　　Application.Evaluate("Rate") '若在工作表中定义了常量0.06的名称为”Rate”,则本语句将返回值0.06
　　Application.OnUndo “Undo Option”,“Undo Procedure” '选择UndoOption后，将执行Undo Procedure过程

Ying-er 2010-09-07 16:34 发表评论
]]>VBA 连 SQLServer open时 报错：80040e4dhttp://www.blogjava.net/crazycoding/archive/2010/08/30/330293.htmlYing-erYing-erMon, 30 Aug 2010 07:37:00 GMThttp://www.blogjava.net/crazycoding/archive/2010/08/30/330293.htmlhttp://www.blogjava.net/crazycoding/comments/330293.htmlhttp://www.blogjava.net/crazycoding/archive/2010/08/30/330293.html#Feedback0http://www.blogjava.net/crazycoding/comments/commentRss/330293.htmlhttp://www.blogjava.net/crazycoding/services/trackbacks/330293.htmlSub SQLTest()
Dim connection As New ADODB.connection
Dim recordSet As ADODB.recordSet
Dim searchStr As String
Dim connStr As String
Dim currSheet As Worksheet
    connStr = "Provider=SQLOLEDB;Server=127.0.0.1;Database=BMS;Trusted_Connection=yes;Uid=sa;Pwd="
    connection.Open connStr
    Set currSheet = Workbooks(1).Sheets(2)
    Dim sqlStr As String
        sqlStr = "SELECT * FROM M_嬈柋僾儔儞"
        Set recordSet = New ADODB.recordSet
        recordSet.Open sqlStr, connection
        
        Dim i As Integer
        i = 1
        While Not recordSet.EOF
        currSheet.Cells(i, 1).Value = recordSet.Fields(0).Value
        currSheet.Cells(i, 2).Value = recordSet.Fields(1).Value
        recordSet.MoveNext
        i = i + 1
        Wend
End Sub
加上Trusted_Connection=yes



Ying-er 2010-08-30 15:37 发表评论
]]>VBA 学习笔记（1）http://www.blogjava.net/crazycoding/archive/2010/08/26/329963.htmlYing-erYing-erThu, 26 Aug 2010 05:35:00 GMThttp://www.blogjava.net/crazycoding/archive/2010/08/26/329963.htmlhttp://www.blogjava.net/crazycoding/comments/329963.htmlhttp://www.blogjava.net/crazycoding/archive/2010/08/26/329963.html#Feedback0http://www.blogjava.net/crazycoding/comments/commentRss/329963.htmlhttp://www.blogjava.net/crazycoding/services/trackbacks/329963.html阅读全文

Ying-er 2010-08-26 13:35 发表评论
]]>