代码人生的小狗窝

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

推荐文章

VBA学习笔记(五)-几个有用的例子

    VBA学习笔记(5)-几个有用的例子显示当前page size: Application.ActiveDocument.Name Application.ActiveDocument.PaperSize Application.ActiveDocument.PaperHeight("inches")Application.ActiveDocument.PaperWidth("inches") Sub UseApplication() ' Holds the description. Dim Description As String ' Get the document description. With Application.ActiveDocument Description = _ "Name: "

    阅读全文>>

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

2018-10-15

【VBA研究】使用ADO的两种模式

    【VBA研究】使用ADO的两种方式作者:iamlaosong 1、引用法      引用ADO相关组件:打开VBA编辑器,在菜单中点选“工具”--》“引用”。确保“Microsoft ActiviteX Data Objects 2.8 Library”和“Microsoft ActiviteX Data ObjectS Recordset 2.8 Library”被勾选上。引用后再声明:      Dim cnn As New Connection  '声明链接对象     Dim rst As New Recordset       '声明记录集对象 下面是例程: Dim cnn As New Connection Dim rst As New R

    阅读全文>>

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

2018-10-15

怎么将一个数据库查询到的记录添加到另一个数据库中

    怎样将一个数据库查询到的记录添加到另一个数据库中Private Sub CommandButton2_Click() Dim Conn1 As New ADODB.Connection Dim Conn2 As New ADODB.Connection Conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Worksheets(1).[b1] Conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Worksheets(1).[b2] 'Dim Rs1&n

    阅读全文>>

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

2018-10-16

VBA word插入图片位置解决方法

    VBA word插入图片位置如下代码,向打开word文档中每页固定位置插入相同图片: Sub TestInsertPic()     Dim bRet As Boolean     Dim picPath As String     picPath = "D:\a.bmp"          ret = InsertPic(picPath, 47, 10, 50, 10)        

    阅读全文>>

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

2018-10-15

关于WORD引用 EXCEL数据的VBA 代码有关问题

    关于WORD引用 EXCEL数据的VBA 代码问题Public Sub 取excel数据() Dim i As Integer '代表行号 Dim j As Integer '代表列号 Dim r As String   '代表对行号的引用 Dim c As String   '代表队列号的引用 Dim name  As String Dim dest  As String For i = 3 To 7    &nb

    阅读全文>>

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

2018-10-16

Bootstrap 三 创建简单的可折叠菜单 Creating a Simple Navbar with Bootstrap

    Bootstrap 3 创建简单的可折叠菜单 Creating a Simple Navbar with Bootstrap 1. Creating a Simple Navbar with Bootstrap <!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8"> <title>Example of Bootstrap 3 Static Navbar</title> <link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.6/css/bootstrap.min.css"> <link rel="stylesheet" href=

    阅读全文>>

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

2018-10-14

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

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

    阅读全文>>

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

2018-10-16

【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浏览(2036

2018-10-15

【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浏览(1090

2018-10-15

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

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

    阅读全文>>

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

2018-10-15

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浏览(845

2018-10-15

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浏览(1620

2018-10-16

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

    求大神,解决此难题,在此跪谢例如: 条件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浏览(599

2018-10-14
上一页 1/16页 下一页