junior_one

  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

2019年8月8日

摘要: ExcelVBA引用单元格区域在使用ExcelVBA进行编程时,我们通常需要频繁地引用单元格区域,然后再使用相应的属性和方法对区域进行操作。所谓单元格区域,指的是单个的单元格、或者是由多个单元格组成的区域、或者是整行、整列等。下面,我们设定一些情形,以问答的形式对引用单元格区域的方式进行归纳。 问题 阅读全文
posted @ 2019-08-08 15:06 junior_one 阅读(1649) 评论(0) 推荐(0)

2019年2月27日

摘要: 员工信息查询的例子 构造这样一个实例:某企业员工信息,包含姓名、性别、出生年月、政治面貌、学历学位等,每个员工的信息组合成一条记录,所有员工信息整合在一个Excel数据表中。样式如下: 图中信息均为随机虚构,请勿对号入座。 该表中只有10名员工信息,且员工信息相对较少,因此直观上看还是比较简洁的。但 阅读全文
posted @ 2019-02-27 15:22 junior_one 阅读(7148) 评论(0) 推荐(1)

2019年2月13日

摘要: SUBSTITUTE函数 在文本字符串中用 new_text 替代 old_text。如果需要在某一文本字符串中替换指定的文本,请使用函数 SUBSTITUTE;如果需要在某一文本字符串中替换指定位置处的任意文本,请使用函数 REPLACE。 语法 编辑 SUBSTITUTE(text,old_te 阅读全文
posted @ 2019-02-13 14:10 junior_one 阅读(487) 评论(0) 推荐(0)

2019年1月29日

摘要: Sub test1() Set Sy = GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem") For Each WG In Sy MsgBox "工作组" & WG.Workgroup Next End Sub Sub test2() Set Sy = GetObject("winmgmts... 阅读全文
posted @ 2019-01-29 16:26 junior_one 阅读(498) 评论(0) 推荐(0)

2018年12月13日

摘要: Private Sub Worksheet_Activate() Dim d As Object Dim arr Dim x As Integer Set d = CreateObject("scripting.dictionary") arr = Sheet1.Range("a2:a" & Sheet1.Cells(Rows.Count, 1).End(xlUp).Row) For x = ... 阅读全文
posted @ 2018-12-13 17:18 junior_one 阅读(248) 评论(0) 推荐(0)

2018年10月31日

摘要: 效果图 一级下拉菜单 =OFFSET($A$1,,,,COUNTA($1:$1)) 二级下拉菜单 =OFFSET($A$2,,MATCH(J6,$1:$1,0)-1,COUNTA(OFFSET($A$2,,MATCH(J6,$1:$1,0)-1,100,)),) 注意点: (1)offset公式位移 阅读全文
posted @ 2018-10-31 13:45 junior_one 阅读(289) 评论(0) 推荐(0)

2018年9月25日

只有注册用户登录后才能阅读该文。 阅读全文
posted @ 2018-09-25 13:42 junior_one 阅读(6) 评论(0) 推荐(0)

只有注册用户登录后才能阅读该文。 阅读全文
posted @ 2018-09-25 11:49 junior_one 阅读(7) 评论(0) 推荐(0)

2018年9月21日

摘要: 一、应用实例 二、使用说明 2、语法 MsgBox(Prompt[,Buttons][,Title][,Helpfile,Context]) 参数说明: (1)Prompt,必需的参数,为字符串,作为显示在消息框中的消息文本。其最大长度约为1024个字符,由所用字符的宽度决定。如果prompt的内容 阅读全文
posted @ 2018-09-21 17:52 junior_one 阅读(879) 评论(0) 推荐(0)