
5.MS VBA
沐NeMo
简简单单,平平安安。朴朴素素,快快乐乐。开开心心过好每一天!
展开
-
Access数据库:常见的VBA问题,FQA三。
Access数据库:常见的VBA问题,FQA三。LinesToPoints 方法请参阅 应用于 示例 特性 将度量单位从行转换为磅(1 行 = 12 磅)。以 Single 类型返回转换结果。expression.LinesToPoints(Lines)expression 可选。该表达式返回一个 Application 对象。Lines Single 类型,必需。将转原创 2008-07-19 19:53:00 · 1052 阅读 · 0 评论 -
Excel VBA应用:单元格的字母自动大写转换等操作
Private Sub Worksheet_SelectionChange(ByVal Target As Range)'所有单元格进行字母大写转换' Application.EnableEvents = False' Target = VBA.UCase(Target)' Application.EnableEvents = True'B2上面一个单元格:B原创 2013-03-22 11:07:12 · 3230 阅读 · 0 评论 -
Access很好用的报表快照Snapshot View(snp文件)
Access写数据库程序,还是蛮有用的。快捷、方便,容易上手。报表快照文件Snapshot View.snp原创 2011-03-03 10:51:00 · 4129 阅读 · 0 评论 -
VBA陈旧的代码:在VBA中操作Excel内容二
代码有的是来自网络,包括csdn。有的是自己的。呵呵。Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.Worksheetdim XXXSet xlApp = CreateObject("Excel.Application")Set xlBook = NothingSet xlSheet原创 2008-06-07 22:14:00 · 1298 阅读 · 0 评论 -
VBA陈旧的代码:在VBA中操作Excel内容一
VBA陈旧的代码:VBA in Access、Excel、Word最喜欢的是用:Access。我在csdn里面回复别人的提问。现在把每一个工作簿的第一个表的第5行第7列的单元格数据写入一个新工作簿New.xls的表"new"中,该怎么做呢,我只是举了一个简单例子以说明问题,请高手指教,万分感谢!!!要先引用 Excel libraryDim xlApp As Excel.Appli原创 2008-06-07 22:07:00 · 930 阅读 · 0 评论 -
VBA陈旧的代码:Access 2 Excel (VBA+ADO)
在Access中,新建一个窗体。在一个按钮下运行下面的代码:连接的是C:/test.mdb有一个表1Dim xlApp As New Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.WorksheetDim TmpStr As StringDim Cnn As ADODB.Connection原创 2008-06-07 22:00:00 · 1132 阅读 · 0 评论 -
VBA陈旧的代码:Excel点滴
怎样用vba自动填充excel某列为空白处的数据为上一个单元格的数据?里面的空白处太多,用手工拉,或者编辑--向下填充的话工作量太大没有装excel简单写了一下楼主自己完善。Sub ttt()Dim reg As RangeSet reg = ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks)For Each nx In reg nx.V原创 2008-06-07 22:22:00 · 894 阅读 · 0 评论 -
VBA:今天早上写的一个简单窗体,删除关系表中的旧数据
今天早上写的一个简单窗体,删除关系表中的旧数据。没有对非法数据的处理。界面如下:下面是代码:呵呵。Option Compare DatabasePrivate Sub CmdDelete_Click() Call DeleteOldData(Me.Text0)End SubFunction DeleteOldData(YearStr)Dim Sql, Sqlo, SqlmDi原创 2008-05-28 14:39:00 · 1329 阅读 · 0 评论 -
access数据库:常见的VBA问题,FQA一。
先在VBA中引用"Microsoft Office 10.0 Object Library"以上的版本.只用ado列出所有的表:Public Function listalltable() Dim rstSchema As ADODB.Recordset Dim strCnn As String Set cnn2 = CurrentProject.Conn原创 2008-07-19 19:43:00 · 2329 阅读 · 0 评论 -
Access数据库:常见的VBA问题,FQA四。
檢查資料庫的連結;如果連結是正確的,則傳回 [真]。Public Function CheckLinks(Table As TableDef) As Boolean Dim rst As Recordset On Error Resume Next Set rst = CurrentDb.OpenRecordset(Table.Name) If Err = 0 Then原创 2008-07-19 19:55:00 · 1824 阅读 · 0 评论 -
Access数据库:常见的VBA问题,FQA二。
ChDir 语句改变当前的目录或文件夹。语法ChDir path必要的 path 参数是一个字符串表达式,它指明哪个目录或文件夹将成为新的缺省目录或文件夹。path 可能会包含驱动器。如果没有指定驱动器,则 ChDir 在当前的驱动器上改变缺省目录或文件夹。说明 ChDir 语句改变缺省目录位置,但不会改变缺省驱动器位置。例如,如果缺省的驱动器是 C,则下面的语句将会改变驱原创 2008-07-19 19:52:00 · 1220 阅读 · 0 评论 -
垃圾的地方审计局的人员来用一下电脑Excel就中毒。
前两天电脑都好好的。什么问题都没有。Excel也正常。今天发现有点不对劲。开打原有Excel文件,会多出一个Book1出来,原来的文档也打开,但是活动Sheet总是最后一个。修复一下excel还是有问题。怀疑是前两天那个什么垃圾神经审计局的人员说要打印一份资料,插上U盘,说要调安全级别到低才可以打开他的文件。垃圾的审计局。现在肯定是Excel中毒了。垃圾的审计局。打开看看xls原创 2013-04-25 16:55:53 · 1701 阅读 · 0 评论