最近在学习<菜鸟谈VBA最最基础入门<原创>>,其中第22节有一个VBA编程作业,实现对花名册进行分类. 自己花了点时间,自己丫丫学步,终于实现出来. 在原创聚集地cnblogs发布出来,鼓励自己的一点一滴的进步. Sub mysub() Dim i As Long Dim MAX As Long MAX = [A65536].End(xlUp).Row For i = 3 To MAX If Cells(i, 8) = "清镇" Then Select Cas…
生病了,一点一滴的积累,慢慢康复,今年十月,我就 2 周岁了. 以下代码完成了excelhome中留的作业 http://club.excelhome.net/forum.php?mod=viewthread&tid=470603&page=22#pid3114744 Sub mysub() Dim start As Double start = Timer '在这里添加你的代码 For i = 2 To 8 For j = 3 To Sheets(i).[B65536].End(xlUp…
标题:Open Document 和 Open XML安全性(OpenOffice.org and MS Office 2007) 摘要,OpenDocument 和 Open XML 都是 Office 打开文件的一种新格式.OpenDocument 是 ISO 标准,由 OpenOffice.org 和 Sun StarOffice 推广.Open XML 是 Microsoft Office 2007 文档的新格式,即 ECMA 标准.这两种格式具有相同的基本原则:ZIP 存档中的 XML…
原创:用VBA实现将鼠标选择的单元格按照指定格式合并并复制到剪切板 一.主要实现以下功能:1.用鼠标选择单元格(可谓连续单元格,也可为不连续的)后,按照要求格式“证件号码:+选定内容+“,”+”选定内容“等等进行合并2.合并后的内容,直接复制到剪切板二.代码示例: Sub TestA() Set a = New DataObject '情况存放合并结果的单元格内容 Range("B2") = "" '开始合并选择单元格的内容 For Each C In Select…