自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(4)
  • 收藏
  • 关注

转载 excel vba使用SQL查询最新日期各厂、物料单价

表头() EXCEL2007 工作表名称:MXSub CreateRecordset1()Application.Calculation = xlManual Dim cnn As Object Dim rst As Object Dim strPath As String Dim strSQL As String Dim lngCount As ...

2018-12-18 16:08:21 1205

转载 VBA窗体最大化、最小化、调整大小

VBA窗体最大化、最小化、调整大小Option Explicit Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Functi...

2018-12-15 08:48:34 10655

原创 '自定义简单查询SQL赋值到数组

'自定义简单查询SQL赋值到数组'Public JLH As Long '长整数变量;工作表记录所在行'Public JLL As Long '长整数变量;工作表记录所在行Function SQL_JDCX(F_Url As String, F_strSQL As String) As Variant 'F_Url '定义数据库链接字符串,连接方法、服务器名称、数据库名称、数据库账...

2018-12-07 16:55:53 1773

转载 数组写入listview

Public Sub AddHeaders(arr, ListView1 As Object)'读入二维数组第一行写入到表头'示例 AddHeaders arr,UserForm1.listview1 Dim i& ListView1.ColumnHeaders.Clear For i = 1 To UBound(arr, 2) ListView...

2018-12-07 16:12:13 1904

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除