VBA代码编写技巧

VBA代码编写技巧的相关文章

• 
  能够修改Word命令的VBA代码

  标签：电脑入门

  在WORD中，我们可以通过修改WORD命令的方法，来方便地为WORD控件指定用户自定义的过程，完成或者转移(禁用)相应的内置方式.它的原理是利用相应宏名来置换过程的方法.在下面的三个部分中，我们可以体会其中的相同点与不同点。 Sub Example() Dim i As CommandBarControl For Each i In Application.CommandBars.FindControls If i.ID = 4 Then i.OnAction = "MySub" ’指定宏名 End If ...[ 查看全文 ]

  xiao心的春天

  11
• 
  解析使用C++编写无错代码的方法技巧

  标签：编程语言 网络编程

  编写无错代码的最好方法是把防止错误放在第一位。 1、while语句后面的空语句问题?   while语句是一个循环语句，有时候需要空语句有时不需要空语句。为了避免出现误用用语句 我们规定在while使用空语句的时候才用下列方式： while(*pchTo++ = *pchFrom)     NULL; 使用NULL的好处在于编译程序不会为NULL语句产生任务的代码，因为NULL只是个常量。 2、使用lint来查出编译程序漏掉的错...[ 查看全文 ]

  傲冰雪白杨树

  201
• 
  编写安全的ASP代码

  标签：ASP

  ASP中数据库的安全是一个很严肃的问题。很多代码的编写者意识到了这类问题，并且小心翼翼地对他们认为有问题的地方做了补救，但常见的情况是要么没有穷尽所有的可疑地点，要么这种补救逻辑上有误。对于一个耐心且嗅觉灵敏的攻击者来说，这种意义上的补救措施和没有任何补救措施没有本质上区别。   下面罗列的是一些可能出现的问题：有些是常见易犯的错误，有些根本就是逻辑上有问题。看看你是不是...[ 查看全文 ]

  悠然护肤顾问

  21
• 
  VBA全选word当前页代码

  标签：电脑入门

  下面的代码的功能是，全选word文档的当前页，注意，是当前页，即插入条所在的页，而不是全文。 Dim CurrentPageStart As Long, CurrentPageEnd As Long, myRange As Range Dim Currentpage As Integer, Pages As Integer On Error Resume Next Currentpage = Selection.Information(wdActiveEndPageNumber) Pages = Selection.Information(wdNumberOfPagesInDocument) CurrentPageStart = Selection.Go...[ 查看全文 ]

  幸运的洋28

  91
• 
  excel按筛选颜色的VBA代码

  标签：电脑入门

  在excel中，使用可视化的简单操作方法，是很难根据颜色来筛选的，因此，我们只能使用VBA代码来实现。 以下代码的功能是：除首行外，将当前单元格所在列数据与当前单元格不同颜色的行隐藏起来，数据首行为标题列。 如果你有其它的需求，请自行修改代码。 Sub FilterColor() Dim UseRow, AC UseRow = Cells.SpecialCells(xlCellTypeLastCell).Row If ActiveCell.Row UseRow Then MsgBox "超出范围...[ 查看全文 ]

  风雪00000000

  21
• 
  Excel简体繁体转换的VBA代码

  标签：电脑入门

  在Excel中，没有简体和繁体文字之间的转换功能。 但是Word却有此功能，因此，我们可以在Excel中通过VBA代码调用Word的繁体和简体功能，实现在Excel中的简体繁体转换的功能。 下面就是与此相关的VBA代码，希望对你有帮助。 Sub JFZH() Dim wd As Word.Application Set wd = New Word.Application With wd.Documents.Add .Sections(1).Range.Text = Sheet1.Cells(1, 1).Text " .Sections(1).Range.Selec...[ 查看全文 ]

  如何呢_

  441
• 
  vba调用Word对话框的代码

  标签：电脑入门

  以下的代码，就是vba调用Word对话框的代码 Sub GetDialogs() Dim i As Integer On Error Resume Next With Application .ScreenUpdating = False For i = 1 To 10000 Selection.InsertAfter "对话框" & i & "：" & .Dialogs(i).CommandName & vbCrLf Next .ScreenUpdating = True End With End Sub [ 查看全文 ]

  未来路怎么走过

  51
• 
  一份代码编写标准

  标签：ASP

  一、通用源代码格式规则 1.1 开发工具 推荐使用Microsoft  公司的Visual InterDev 来书写ASP 代码，使用Macromedia ? 公司的Dreamweaver 来书写HTML代码，也可以使用UltraEdit、ASPEdit 2000等开发工具。 1.2 缩进空格 缩进空格是指在每一级有两到四个空格。不要在源代码中保留TAB字符，这是因为TAB字符会随着不同用户的不同设置和不同的资源管理工具（打印、文档、版本控制等）而代表不同的宽度...[ 查看全文 ]

  單飛雪°

  41
• 
  excel双击列标题自动排序的VBA代码

  标签：电脑入门

  通过以下的VBA代码，将其放到工作表的双击事件中，就能取到双击工作表的列标题(双击列的名字)，当前列自动进行排序。 比如，将代码放在如下的事件中： Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub 代码如下： Dim YouRg As Range If Target.Column = Me.Cells (1,1).CurrentRegion.Columns.Count And Target.Row = 1 Then If Target.Column mnColumn Then mnColumn = T...[ 查看全文 ]

  轩昂恬静及

  291
• 
  在.NET下编写中文代码程序

  在.NET下编写中文代码程序 郑佐2005-3-9 一年前，有一次在用Access数据库编程的时候，通过VS.NET数据设计器向导生成数据层代码，查看生成的代码，发现有许多中文，原来数据库中的表名和字段名用的就是中文，程序正常运行，查看相关文档才知道原来VS.NET默认的编码是UTF-8。不久前在一篇blog上看到讲易语言，所以干脆用VS.NET写一些中文代码来玩一下，结果就像平常写程序一样没有什么区别。 有点怪怪的味道...[ 查看全文 ]

  闫小岩1314

  21
• 
  如何通过VBA代码来滚动Excel的窗口

  标签：电脑入门

  ①滚动行 Worksheets("Sheet1").Activate ActiveWindow.ScrollRow = 14 代码解释：上述代码的功能是，先激活Sheet1，将其作为活动工作表，然后，自动拖动垂直滚动条，将第14行拖到第一行的位置，即第一行至第13行将被拖到窗口中的上面，并看不到，而第14行则显示在可视窗口的最上面(在可视范围的第一行位置)。 与之相关的知识： 在Excel中，ScrollRow 属性的功能为返回或设置指定窗格或窗口最...[ 查看全文 ]

  lt沐小沫

  21
• 
  更有效率的编写CSS代码

  标签：Web开发

  如何编写CSS代码才能更有效率？这是许多网页制作者与开发者都关心的问题。大概没有什么魔法，可以保证一下就把你的样式表缩小到百分之多少，但合理的 CSS 编码与组织技巧，的确能够帮助你的更有效率地写出更清晰高效的代码，自然，样式表大小的缩减还能减少下载的时间。  一、排版： 1.关键词和操作符之间加适当的空格。 2.相对独立的程序块与块之间加空行 3.较长的语句、表达式等...[ 查看全文 ]

  Ming1989zz

  21
• 
  养成Flash ActionScript代码编写好习惯

  标签：flash教程

  每个人玩Flash一段时间后，都会形成自己的一套Flash ActionScript代码编写习惯。好的代码编写习惯可以尽可能避免低级失误和不必要的麻烦，从而加速开发进程，提高开发质量。火山现在虽然只是业余爱好者，但两年的积累，再加上“火山之家”的开发，也自然而然的形成了火山特色的开发习惯。这些习惯从某种程度反映了我现在的开发水平，所以它基本上都是围绕着小型、快捷、面向过程的开发模式形成的，很多地...[ 查看全文 ]

  Me兽人博士

  11
• 
  DHTML编写经得起考验的可移植代码

  标签：Html CSS布局 Div+CSS XHTML

  动态HTML（DHTML）技术——实际上是多项技术的组合，包括CSS、DOM和JavaScript——为Web设计者提供了多种选择，能让他们向其网页中添加动态菜单和各种导航的小玩意。但是，这些技术也带来臃肿的代码，导致浏览器互不兼容的问题和向老平台移植性的丢失。简而言之，用于HTML代码编写的动态选择越多，出现错误代码的可能性也就越大。但是只要遵照一些简单的编写原则，你可以保证自己代码的健壮性和高度的可移植性...[ 查看全文 ]

  勤奋的教育学者

  31
• 
  将文本转换为电子邮件的VBA代码

  标签：电脑入门

  以下代码可循环访问一列范围数据，并将每个条目转换为一个电子邮件地址。 Dim convertRng As Range "Change the range to suit your need. Set convertRng = Range("Z1:Z99") Dim rng As Range For Each rng In convertRng If rng.Value "" Then ActiveSheet.Hyperlinks.Add rng, "mailto:" & rng.Value End If Next rng [ 查看全文 ]

  迷茫的榴莲妹

  41
• 
  vba操作Excel经典的通用的代码之一

  标签：电脑入门

  MyColumn=Target.Column获取活动单元格所在的列号 MyRow=Target.Row获取活动单元格所在的行号 工作表名.UsedRange.Rows.Count指定工作表已使用的行的总数 工作表名.UsedRange.Columns.Count指定工作表已使用的列的总数 工作表名.Cells(行号, 列号).Value获取指定工作表某个单元格的值 Worksheets(m).Cells(i, j).Value使用通用的序号方法，调用某个工作表的某个单元格的数据 for i=1 to Worksheets.Cou...[ 查看全文 ]

  伊朗的老淑女

  111
• 
  编写跨浏览器兼容的CSS代码

  标签：平面设计 海报设计 广告设计 画报设计 签名设计 服装设计 名片设计 画册设计 版式设计 商标设计

  作为 Web 设计师，你的网站在各种浏览器中有完全一样的表现是很多人的目标，然而这是一个永远无法真正实现的目标，很多人认为，完美的跨浏览器兼容并不必要，这样说虽然没错，但在很多情形，一种近似的兼容还是很容易实现的，本文讲的是各种跨浏览器兼容的 CSS 编码准则和技巧。 理解 CSS 盒子模型 如果你想实现不需要很多奇巧淫技的跨浏览器兼容的 CSS 代码，透彻地理解 CSS 盒子模型是首要事情，CSS ...[ 查看全文 ]

  龙武大

  21
• 
  编写一个asp代码执行器

  标签：ASP

    保存为runasp.asp运行。账号密码admin，登陆后输入代码就可执行了！！ <% @ LANGUAGE="VBSCRIPT" % <%Option Explicit response.buffer=true dim Spassword,SUserName     SUserName="admin"     Spassword="admin" dim SQLMutiStr dim i dim action     action=request.querystring("action") IF action="GetCode" then '---------TOT  ...[ 查看全文 ]

  4204

  271
• 
  vba窗体在运行的时候动态添加控件的代码

  标签：电脑入门

  一、动态添加CommandButton命令按钮 Dim mc As CommandButton Static k k = k + 1 Set mc = Me.Controls.Add("Forms.Commandbutton.1") mc.Caption = k mc.Top = Me.Controls(k - 1).Top + Me.Controls(k - 1).Height Me.Controls.Remove "Commandbutton1" 二、动态添加文本框 Set myText = Controls.Add( "VB.TextBox ", "myTextBox ") With myText .Vi...[ 查看全文 ]

  爱笑的无名小强

  451
• 
  Delphi编写组件封装asp代码的基本步骤

  标签：ASP

       如果你想脱离asp爱好者的水平，那么你就应该学会为asp编写组件。我在google上搜索了一下，Delphi编写asp组件的文章一共就几篇，所以今天写了这篇Delphi编写asp组件的基础文章，希望对新手有点帮助。     开始吧，让我们一起编写一个”hello world!”的示例。我这里用的是Delphi 7。     1.文件-新建-其他-ActiveX-ActiveX Library,然后保存成showdll.d...[ 查看全文 ]

  淡定人生86627

  691