用excel处理数据的时候,无论是使用VBA还是函数,查找和引用都是两大主要的工作,VBA中的find系列的方法(find.findnext.Range.FindPrevious)返回range对象,可以同时实现查找和引用,因此非常有用,下面列举一些常见的find的用法: Sub Find1() '在某列查找 Dim k k = Range("A:A").Find("A").Row MsgBox k End Sub =========================
最近公司HR和Finance想算员工的工作天数,想让我帮忙写些VBA,自己从网上找了下代码,自己再改改,以下来自网络. 计算两个日期之间的工作日,用VBA,因量大,最好用数组做 Sub kk() Dim arr, i&, j&, m& arr = Sheet2.Range("b3:f4") To UBound(arr) m = ) ) Next arr(i, ) = m Next Sheet2.Range() = arr End Sub 根据他提供的方法,其实就
如上图,查找A列的数据在D,F列是否存在,如果存在背景色变绿,如果不存在则A列的背景色变红. 直接贴上代码: Private Sub CommandButton1_Click() Call lookUpAToDF End Sub Public Sub lookUpAToDF() Dim a, d, f As Long 'Count of non-empty data in colum A,D,F a = Application.WorksheetFunction.CountA(Range("A:
作者:iamlaosong 目录里面保存有面单扫描的图像文件,文件名称为邮件号码.如今想收集这些邮件号码,由于量非常大,不可能一个一个的截取,仅仅能通过程序实现.假定,当前工作表B列里放的是存放这些图像文件的目录.以下的程序能够讲这些图像文件的邮件号码取出来: Sub findname() Dim fs, f, f1, fc, mydir maxrow = Sheets("邮件号码").UsedRange.Rows.Count If maxrow >= 2 Then Sheets
由于工作需要,笔者这两天使用了一下MongoDB.真的很不习惯!但是确实好用,命令比mysql和sqlserver简单很多.在这里整理一些MongoDB的基本操作命令分享出来. 客户端的安装就不说了,笔者是shell通过服务器连接的MongoDB进行操作的,直接进入正题. show dbs:显示数据库列表 show collections:显示当前数据库中的集合(类似关系数据库中的表) show users:显示用户 use <db name>:切换当前数据库,这和MS-SQL里面的意思一样
using MongoDB.Bson; using MongoDB.Driver; using MongoDB.Driver.Builders; using NationalUnion.AdGallery.Model; using NationalUnion.Common.Utility; using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Threa
初学时,有了想法却完全不知道该从何下指,此序列将抛砖引玉,与大家共同学习进步. 一个程序的初始,必然是启动. 我的要求: 1.应用程序保持单例: 2.从配置文件加载一些基础数据进行初始化: 3.显示软件的LOGO页面: 4.判断应用程序是否有更新: 4.进入用户登录界面: 5.用户成功登录后显示主界面. 如上图,基本达成目标,这个项目也是很简单的结构: 看窗体名称就知道各自的用途了.主要的Program.cs代码如下: static class Program { public static b