代码人生的小狗窝

一行行枯燥的代码,却描绘出人生的点点滴滴

推荐文章

Excel 2010 VBA实战技能精粹——互动出版网

    Excel 2010 VBA实战技巧精粹——互动出版网这篇是计算机类的优质预售推荐>>>>《Excel 2010 VBA实战技巧精粹》 经典图书《别怕,Excel VBA其实很简单》进阶篇,是VBA学习宝典!Excel Home精锐团队倾力打造。提高效率、化繁为简从本书开始 内容简介 《Excel 2010 VBA实战技巧精粹》内容侧重于Excel VBA使用技巧,旨在帮助Excel VBA的初学者和有一定Excel VBA应用基础、希望进阶的读者。全书精选了251个技巧,辅以深入浅出的剖析,力求让更多希望深入掌握Excel VBA技巧的读者能有较大的收获。 《Excel 2010 VBA实战技巧精粹》分为7篇共计24章,第一篇主要介绍Excel VBA基础知识;第二篇介绍常用的Excel对象的应用技巧;第三篇主要介绍Excel VBA开发过程中交互式

    阅读全文>>

作者:coody分类:【_VBA浏览(1124

2019-12-12

MDNavBarView下拉导航菜单(仿美团领航下拉菜单)

    MDNavBarView下拉导航菜单(仿美团导航下拉菜单)说到下拉导航菜单这个东西用得还真不少,细心算一下做开发以来这样的菜单已经写了第三次了,但基本都是不能复用。感觉特累人。不经意看到同事写一个类似的下拉菜单,但他引用了开源库仿大众菜单的库,大致看了一下,感觉挺不错的,复用性也比较好,但要 是换成别的样式就要去修改代码了,感觉这有点不方便也比较容易出错。于是参照他的大致思路写了一个仿下拉菜单。 具体的实现就不多说了,觉得有意思的话可以下来看看。下面说一下使用方法吧: 1、添加navbarview包下的代码与对应资源 2、布局文件中添加: <com.mr_mo.mdnavbarview.navbarview.MDNavBarView android:id="@+id/mdNavBarView" android:layout_width="match_

    阅读全文>>

作者:coody分类:【_VBA浏览(1804

2019-12-13

VBA将Word文档转换成图片的有关问题

    VBA将Word文档转换成图片的问题程序将选择一页内容,复制,选择性粘贴(增强图源文件)到新的文件中,如此反复完成所有页面 但是程序通不过,该如何修改? Sub ppp()     Dim oldDocument As Document     Dim newDocument As Document     Dim r1 As Range     Dim r2 As Range     Dim rr As Range  

    阅读全文>>

作者:coody分类:【_VBA浏览(2032

2019-12-12

在EXCEL VBA里执行灵便选择

    在EXCEL VBA里执行灵活选择 如图 A列是选择列,当值为1时,表示选中, B列是号码,当B列号码对应的选择列是1时,即为选中, C列是结果, 要求运行宏命令后,将A列为1对应的号码,连续输出到C2单元格里,并以逗号相隔 其中A列哪些会被选中,哪些不会被选中,是灵活的,不是死的,当然选择结果也会是活的 要求给出完整EXCEL VBA代码,谢谢------解决思路----------------------<vb> Sub test()     Dim rg As Range     Dim result As String     Application.ScreenUpdat

    阅读全文>>

作者:coody分类:【_VBA浏览(1056

2019-12-12

【VBA研究】用VBA获得EXCEL任意列有效行数

    【VBA研究】用VBA取得EXCEL任意列有效行数作者:iamlaosong 用VBA对Excel文件进行处理的时候,关键字段的列号编程时往往是不知道的,需要通过参数设定才能知道,因此,我们编程的时候,就不能用这样的语句取有效行数:     lineno = [B65536].End(xlUp).Row          '从下至上找有效行数 上述语句中的列名“B”如果是变量,可以用字符串连接的方式实现,即:     pos_ems = "C"     lineno = Range(pos_ems & "65536").End(xlUp).Row 如果给的是列号,则用下列语句:    pos_ems = 3 &

    阅读全文>>

作者:coody分类:【_VBA浏览(2128

2019-12-12

【VBA研究】VBA数据类型定义跟管控

    【VBA研究】VBA数据类型定义和管控作者:iamlaosong 数据类型是对同一类数据的统称,如文本、日期、数值等。VBA里的数据类型有:字节型(Byte),整数型(Integer),长整数型(Long),单精度浮点型(Single),双精度浮点型(Double),货币型(Currency),小数型(Decimal),字符串型(文本型)(String),日期型(Date),布尔型(Boolean)。 VBA对数据类型定义的管控并不强,比如定义成整数型的变量同样可以赋值字符串,但是如果不注意,就会导致逻辑错误。 通过测试发现,如果一条语句定义多个变量,系统只对最后一个变量进行管控,比如下面的程序是不会报错的,也能实现其功能: Sub tt() Dim ss, a, b, c, d As Integer a = 100 b = 200

    阅读全文>>

作者:coody分类:【_VBA浏览(1054

2019-12-12

用VBA计算WPS 报表ET EXCEL中的行数和列数的多重方法

    用VBA计算WPS 表格ET EXCEL中的行数和列数的多重方法 用VBA计算WPS 表格ET EXCEL中的行数和列数    每种方法中上面的是Excel的行数,下面的是Excel的列数。 方法1: ActiveSheet.UsedRange.Rows.Count ActiveSheet.UsedRange.Columns.Count 缺点:有时可能会比实际数大一些,原因是如果你把最后几行(列)数据清除后(非整行或整列删除), 用这个命令仍返回未清除前的值。就是说现在虽然是空的,但是你曾经用过也算你的。 方法2: ActiveSheet.Range("A65535").End(xlUp).Row ActiveSheet.Range("IV1").End(xlToLeft).Column 可以简写为: ActiveSheet.[A65536].End(xlUp).Row ActiveS

    阅读全文>>

作者:coody分类:【_VBA浏览(1715

2019-12-12

Excel_Vba 上海市证券交易所个股历史各月成交概况

    Excel_Vba 上海证券交易所个股历史各月成交概况Sub 上海证券交易所个股历史各月成交概况() On Error Resume Next Cells.Clear [a1:aa1] = Array("名称", "代码", "年月", "月初开市价", "月末收市价", "成交价最高", "时间", "成交价最低", "时间", "月度总成交量(万股)", "最高", "时间", "最低", "时间", "月度总成金额(万元)", "最高", &qu

    阅读全文>>

作者:coody分类:【_VBA浏览(1471

2019-12-12

请问 AddNew 不能执行的原因

    请教 AddNew 不能执行的原因本帖最后由 oHaoDi 于 2015-03-17 12:20:12 编辑 Sub updataBom()     Dim cnn As New ADODB.Connection     Dim rst As New ADODB.Recordset     Dim dbPath As String     Dim BomTable As String    &nb

    阅读全文>>

作者:coody分类:【_VBA浏览(1776

2019-12-12

求大神,解决此难点,在此跪谢

    求大神,解决此难题,在此跪谢例如: 条件1,有n个数字,n是变量假设n=3。(a,b,c) 条件2,三个数有取值范围。(例如,1-5) 条件3,第一个数总是大于第二个,第二个总是大于第三个数(a>b>c) 罗列出的数组结果就是: a:  5  5  5 ..... 5  4  4  3 b:  4  4  4 ..... 2  3  2  2 c:  3  2  1 ..... 1  2 &n

    阅读全文>>

作者:coody分类:【_VBA浏览(534

2019-12-12

VBA控件ListBox的BoundColumn跟TextColumn用法,Value和Text的用法

    VBA控件ListBox的BoundColumn和TextColumn用法,Value和Text的用法       在使用Excel编写VBA程序时,用到ListBox,然后研究了下它的所有属性。其实这个控件功能很不好用,太老了,最重要的是还不支持鼠标滚轮,很不好操作,但是考虑到兼容性,还是使用它。          其实读取、写入数据用ListBox.List已经足够了,而BoundColumn和TextColumn主要是用于读取数据,有什么鸟用?我也不是很清楚,但是可以像下面这样用。这两个参数相当于设置了列的索引(j),只需选中行(i)即可读取对应的数据List(i,j)。其中,BoundColumn与Value关联;TextColumn与Text关联。 Private Sub CommandB

    阅读全文>>

作者:coody分类:【_VBA浏览(2134

2019-12-13

excel vba 当cell的值变化时 进展判断操作

    excel vba 当cell的值变化时 进行判断操作示例效果: ----------- 在excel的sheet1中, 当A列的值 大于100时 ,其对应B列背景显示红色,C列显示"有数据" 否则,B列背景色正常,C列清空相应的数据   操作步骤 ---------- 1.新建Excel 2.选择菜单”开发工具“ -》 ”Visual Basic“   打开相应的VBA代码编辑窗口 3.选择 范围 - WorkSheet    选择 事件 - Change 4.输入如下代码 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then ThisRow = Target.Row

    阅读全文>>

作者:coody分类:【_VBA浏览(1075

2019-12-11

vba 抓取 统计用划分和城乡划分代码 到 电子表格

    vba 抓取 统计用区划和城乡划分代码 到 电子表格   需要 用 到 统计用区划和城乡划分代码  数据,可以 国家统计局的是一个个页面,需要把数据爬出来。   哎,想当年VBA 写了那么多东西,现在连定义数组,变量赋值都忘了怎么弄,无奈边写边查,总算整出来一个能用的代码。 ---------------------------------------------------------------------------------------------------- Sub rtrv_Click()    Dim ie, dmt, bd, i As Integer, k As Integer, m As Long, n As Long, q As Long         Set ie = CreateObject("InternetExplorer.Application

    阅读全文>>

作者:coody分类:【_VBA浏览(1886

2019-12-12
上一页 1/20页 下一页