摘要：You can achieve this in Excel using the IF function. Here’s how you can do it: Select the cell where you want the result to appear (let’s say D1). Ent
阅读全文
摘要：参考：Object model (Word VBA reference) 功能说明 <<<< Description >>>> 代表窗口或窗格中的当前所选内容。所选内容代表文档中选定（或突出显示）的区域，如果文档中没有选定任何内容，则代表插入点。每个文档窗格只能有一个 Selection 对象，并且
阅读全文
摘要：官方帮助：Excel 函数（按字母顺序列出） 官方帮助：Excel 函数（按类别列出） 参考：EXCEL常用函数大全 功能说明 此函数用于在条件为真时返回一个值，条件为假时返回另一个值。 IF(logical_test, value_if_true, [value_if_false]) ◈ logi
阅读全文
摘要：参考：C#通过OLEDB读写Excel2013显示到datagrid控件，修改数据集并更新excel2013 解决：未在本地计算机上注册“Microsoft.ACE.OLEDB.12.0”提供程序。（AccessDatabaseEngine.exe） 目录： 1. System.Data.OleDb
阅读全文
摘要：前面写了一篇博文是关于 C# 操作 Excel 的文章，但是里面有些中规中矩，搞的我不知道怎么写了，所以另开一帖。。 注意：基本应用如下所示！ ※ 表格赋值方法：（总结下来，就是后面带着“.Value”就不会出错了） 1、用 Cells[rowIndex, columnIndex] 来赋值 2、用
阅读全文
摘要：通过查找关键字，然后删除整段文字的实现！Sub 删除查找含关键词的行() Dim KeyWord As String KeyWord = InputBox("请输入关键词（词长不限，中英均可）：", "关键词设置", "") If KeyWord = "" Then Exit Sub Selection.HomeKey wdStory Do With Selection.Find .Text = KeyWord .Wrap = wdFindStop .Forward = True ...
阅读全文
摘要：1、数据类型2、日期和时间函数（可能非VB）3、函数4、常用语句举例1、数据类型：Stab Me!!!Boolean 数据类型：日期数据类型：...2、日期和时间函数（可能非VB）：Stab Me!!!Date 函数：Now 函数：...3、函数：Stab Me!!!Len 函数：返回一个包含字符串中的字符数或存储某个变量所需的名义字节数的整数。MsgBox 函数：在对话框中显示消息，等待用户单击按钮，然后返回一个整数，指示用户单击了哪个按钮。AppActivateAscAscWBeepCallByNameCBoolCByteCCharCDateCDblCDecChDirChDriveChoo
阅读全文
摘要：Excel Object Model： Application Object (Excel): Stab Me!!! Font Object (Excel): Stab Me!!! Worksheet Object (Excel): Stab Me!!! Ref: Visual Basic Lang
阅读全文
摘要：51CTO原文地址：http://mcdelfino.blog.51cto.com/all/2058744[转载] 为小7文件夹右键添加“复制到”“移动到”【转】 2012-01-10[原创] Excel VBA 循环“我中毒了~” 2011-10-18[原创] Excel VBA 实现电子钟 2011-10-18[转载] 利用win7自带的远程协助 2011-10-09[原创] win+R system32 中部分程序名称 2011-10-09[原创] ArcGIS相关问题及解决 2011-09-14[转载] 遥感影像下载网址 2011-09-12[原创] ERDAS 9.2安装教程 20.
阅读全文
摘要：MSDN - Visual Basic：http://msdn.microsoft.com/zh-cn/library/2x7h1hfk.aspxMSDN - VB 语句：http://msdn.microsoft.com/zh-cn/library/865x40k4.aspx原文链接：http://blog.csdn.net/alexbnlee?viewmode=contents用Excel VBA实现多文件夹内文件加入表头 & 遍历文件（2011-11-18 19:17）指数的十六进制很规则（2011-11-17 20:59）Python数据类型——序列(字符串，列表，元组)（20
阅读全文
摘要：我们“老板”让我记录 http://www.cjh.com.cn/ 上面的长江水文数据！此网站有个变态的事情就是数据只是在一段时间内才有，例如：我是要记录早晨8时的数据，而此数据一般只出现在早晨8时和早晨9时之间，一旦到了9时之后，数据可能就要更新了，最开始的时候，我都是早晨起来用 Weibo 截图发布来记录，知道有一天我突发奇想，我还是写个程序吧，于是此程序就出现了！首先看看预览吧！基本思路：提取网页中的文字，通过特征字符来查找需要的信息！将查找的有用信息添加到 List 中！将 List 中的数据导入到 DataGridView 或是 Excel 中！遇到的问题：刷新网页的时候，可能弹出广
阅读全文
摘要：Sub OpenCloseArray() Dim MyFile As String Dim Arr(100) As String Dim count As Integer MyFile = Dir("F:\Desktop\98、99年\" & "*.xls") '修改文件夹路径 count = count + 1 Arr(count) = MyFile Do While MyFile <> "" MyFile = Dir I...
阅读全文
摘要：---------------------------------------------------------------------------------------------------------●·● 目录： Microsoft.Office.Interop.Excel 命名空间A...
阅读全文
摘要：文件夹2.wind_numerical_excello中有多个文件夹，每个文件夹中都有不定数目的Excel表格实现通过VBA，为每个Excel文件加入一个表头，即：插入一行，然后加入内容Sub jiabiaotou() Dim fs, f, fds, fd, fls, fl Set fs = CreateObject("scripting.filesystemobject") Set f = fs.getfolder("F:\桌面\2.wind_numerical_excello") Set fds = f.subfolders For Each fd
阅读全文
摘要：随机文件随机文件中每一个记录定长，并设置记录号，记录号从1开始。存取记录时，只要说明所需记录的编号，系统就以此算出记录所在位置，然后加以写入或读出初步认识 建立一个随机文件，文件中包含10个记录，每个记录由一个数(1至10)的平方、立方和开方根三个数值组成，以该数作为记录号Private Type Numval Square As String Cube As String SqrRoot As StringEnd TypePublic nv As NumvalSub dksjflsd() Open ThisWorkbook.Path & "\data5.tx...
阅读全文
摘要：1.打开文件(Open)Open 文件名 [For模式][Access 存取类型][锁定]As [#]文件号[Len=记录长度] 说明：(1)文件名；(2) 模式用于指定文件访问的方式，包括： Append——从文件末尾添加 Binary——二进制文件 Input——顺序输入（输入给自己，从txt中取出） Output——顺序输出（输出到txt中） Random——随机存取方式(3)文件号(或称文件缓冲区) (4)存取类型：访问文件的类型，为Read(只读)、Write(只写)、Read Write(读写) (5)锁定：限制其他用户或其他进程对文件进行读写操作 Shared(共享)、L...
阅读全文
摘要：我们可能会经常要将一个文件夹中的所有文件都遍历一遍，然后进行修改，下面就介绍用Dir函数实现遍历*.xlsx文件的方法Dir 函数返回一个 String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。语法Dir[(pathname[, attributes])]第一个参数即是文件的地址，第一次引用的时候要标注，第二次用的时候就不必指出了，下面举个例子，遍历下面文件夹中的Excel2010文件，然后输出文件的名字~批量遍历某类文件(*.xlsx)Sub OpenAndClose() Dim MyFile As String Dim s As ...
阅读全文
摘要：来源：http://blog.csdn.net/alexbnlee/article/details/69242071 → 实现标准的“打开”对话框，并获取用户文件名，而不必真正打开任何文件。获取文件的FullName表达式.GetOpenFilename(FileFilter,FilterIndex,Title, ButtonText, MultiSelect)FileFilter：过滤文件Title：标题MultiSelect：可以多选Sub Stop1() Dim fileInformation As String Dim fi As Workbook fileInfor...
阅读全文
摘要：来源：http://blog.csdn.net/alexbnlee/article/details/6923787→用户自定义数据类型需要使用Type语句Type lianxiren name As String sex As String age As Integer phone As String address As String department As StringEnd TypeSub AddressList() Dim record As lianxiren record.name = "Alex" record.sex =...
阅读全文
摘要：来源：http://blog.csdn.net/alexbnlee/article/details/6917800数组：定义数组： Dim arr(30 To 50) As Single 定义数组，从30到50，定义为浮点型~ arr(30) = 34.3产生随机数，但是随机数要不同（1到20之间产生10个不同的随机数） Sub sdlkfjl() For i = 1 To 10 Cells(1, i) = Int(1 + Rnd() * 19) '给个随机数 For j = 1 To i - 1 ...
阅读全文
