vba formula 的带变量引用使用 多表汇总

Sub ai_insurance() cr = Range("c65536").End(xlUp).Row Set crng = Range(Cells(1, 3), Cells(cr, 3)) Dim arr(13) As Integer For Each c In crng Select Case Left(c, 2) Case "1月" arr(1) = c.Row Case "2月" arr(2) = c....
qunxingw 发布于 2018-09-30 09:50 | 阅读 327 次 | 评论 3 条

VFP 控制 EXCEL2003 之 010、快速画表格

oExcel = CreateObject("Excel.Application") WITH oExcel .WorkBooks.Add WITH .Cells(1,1).Resize(5,5) .Value = "ABC" .Borders.LineStyle = 1 .BorderAround(-4119,, 37) && 加外框及颜色,此行代码也可以不要。 ENDWITH .Visible = .T. ENDWITH
sdta 发布于 2018-09-29 14:25 | 阅读 187 次 | 评论 0 条

Bash history同时忽略前面带空格的命令和重复命令

cd到用户根目录 vi .bashrc 然后加入一行: HISTCONTROL=ignoreboth
静夜思 发布于 2018-09-26 12:40 | 阅读 228 次 | 评论 0 条

VFP 控制 EXCEL2003 之 009、应用于 Workbook 对象的 SaveAs 方法

  保存对不同文件中的工作表的更改。 语法 expression.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local) expression 必需。该表达式返回上述对象中一个对象。 参数 Filename 字符型,可选。   该字符串表示要保存的文件名。一定要包含完整路径。如果不指...
sdta 发布于 2018-09-23 08:50 | 阅读 378 次 | 评论 2 条

VFP 控制 EXCEL2003 之 008、应用于 Workbook 对象的 Close 方法

  关闭对象。 语法 object.Close(SaveChanges, Filename, RouteWorkbook) 参数 SaveChanges 逻辑型,可选。   如果工作簿没有改变则忽略此参数;   如果工作簿发生了改变并且在另外的窗口中也打开了该工作簿,则仍然忽略此参数;   如果工作簿发生了改变并且没有在另外的窗口中打开,则此参数将指定是否在工作簿中保存所发生的更改。 取值与操作如下表所示: 值 作用 .T. 将改变保存到工作簿。如果该工作簿尚未命名,则使用 FileName 指定的名称。如果省略 FileName 参数,则要求用户输...
sdta 发布于 2018-09-23 08:28 | 阅读 194 次 | 评论 0 条

VFP 控制 EXCEL2003 之 007、应用于 Workbook 对象的 Open 方法

  打开一个工作簿。返回一个 Workbooks 对象。 语法 object.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad) 参数 FileName 字符型,必需。要打开的工作簿的文件名。 UpdateLinks 整型,可选。指定文件中链接的更新方式。   如...
sdta 发布于 2018-09-23 08:24 | 阅读 244 次 | 评论 0 条

VFP 控制 EXCEL2003 之 006、应用于 Workbooks 对象的 Add 方法

  新建工作簿。新建的工作簿将成为活动工作簿。返回 Workbook 对象。 语法 object.Add(Template)   该表达式返回一个 Workbooks 对象。 参数 Template 字符型或整型,可选。确定如何创建工作簿。   如果本参数指定为一现有 Microsoft Excel 文件名的字符串,那么创建新工作簿将以该指定的文件作为模板。   如果本参数为常量,新工作簿将包含指定类型的单张工作表。可为下表 XlWBATemplate 枚举中常量之一。XlWBATemplate 枚举 常量 值 描述 xlWBATChart -410...
sdta 发布于 2018-09-23 08:19 | 阅读 195 次 | 评论 0 条

VFP 控制 EXCEL2003 之 005、应用于 Sheets 对象的 Add 方法

  新建工作表、图表或宏表。新建的工作表将成为活动工作表。使用 Add 方法可创建一个新的工作表并将它添加到集合。 语法 表达式 .Add( Before, After, Count, Type ) 表达式 一个代表 Sheets 对象的变量。 参数 名称 必需/可选 数据类型 说明 Before 可选 对象型 指定工作表的对象,新建的工作表将置于此工作表之前。 After 可选 对象型 指定工作表的对象,新建的工作表将置于此工作表之后。 Count 可选 数值型 要添加的工作表数。默认值为 1。 Type 可选 数值型 指定工作表类型。可以...
sdta 发布于 2018-09-23 08:10 | 阅读 208 次 | 评论 0 条

VFP 控制 EXCEL2003 之 004、限定工作簿窗口大小

  实现仅包含 9 X 9 个单元格区域的窗口界面。 oExcel=CreateObject("Excel.Application") WITH oExcel .WorkBooks.Add oRange = .Range("A1:I9") WITH .ActiveWindow .DisplayHeadings = .F. .DisplayHorizontalScrollBar = .F. .DisplayVerticalScrollBar = .F. .DisplayWorkbookTab...
sdta 发布于 2018-09-18 19:29 | 阅读 205 次 | 评论 0 条

VFP 控制 EXCEL2003 之 003、真正的全屏显示数据

oExcel=CreateObject("Excel.Application") WITH oExcel .WorkBooks.Add .DisplayFullScreen = .T. .CommandBars(1).Enabled = .F. .CommandBars("Full Screen").Controls(1).Onaction = "RestoreWindow" WITH .ActiveWindow .DisplayHeadings = .F. .DisplayHorizontalScr...
sdta 发布于 2018-09-17 18:50 | 阅读 210 次 | 评论 0 条

vscode

微软收购 GitHub ,开源vscode。让我看到了他转到了正确的方向!
qunxingw 发布于 2018-09-17 15:18 | 阅读 178 次 | 评论 0 条

VFP 控制 EXCEL2003 之 002、将应用程序和当前活动窗口最大化

  在 Excel 中使用 Window 对象的 WindowState 属性返回或设置窗口的状态,该属性取值可为 XlWindowState 枚举常量之一,分别对应着窗口的 3 种状态。 XlWindowState 枚举 指定窗口的状态。 名称 值 描述 xlMaximized -4137 最大化 xlMinimized -4140 最小化 xlNormal -4143 正常 oExcel=CreateObject("Excel.Application") WITH oExcel .WorkBooks.Add .WindowState = x...
sdta 发布于 2018-09-16 07:59 | 阅读 220 次 | 评论 0 条

VFP 控制 EXCEL2003 之 001、修改应用程序和活动窗口的标题文本

oExcel=CreateObject("Excel.Application") WITH oExcel .WorkBooks.Add .Caption = "XXXX信息管理系统" .ActiveWindow.Caption = "" .Visible = .T. ENDWITH -------------------------------- 作者在 2018-09-16 08:00:31 补充以下内容 -------------------------------- 说明   代码中的 oExcel 代表 Applica...
sdta 发布于 2018-09-15 16:43 | 阅读 214 次 | 评论 0 条

vba_date

Sub mydate_deal() Dim r_max, r_min, r As Integer r_max = Range("b65500").End(xlUp).Row r_min = Range("k65500").End(xlUp).Row y = Year(Now()) dm = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31) If ((y Mod 400 = 0) Or (y Mod 4 = 0 And y Mod 100 <> 0)) Then dm(1) = 29 ...
qunxingw 发布于 2018-09-06 15:28 | 阅读 220 次 | 评论 0 条

boostrap按钮总结

样式 说明 btn 原始样式按钮 btn-default 默认按钮 btn-primary 提交按钮 btn-success ...
路飞vs艾伦 发布于 2018-09-03 09:40 | 阅读 325 次 | 评论 0 条

绘图

<html> <head> <meta charset=utf-8" /> <title>canvas</title> </head> <body> <canvas id="myCanvas" width="300" height="300" style="border: 1px solid #d3d3d3;"> your bolowr is not draw! </canvas> <script> var c=document.getElementById("myCanvas"); var ctx=c.getContext("2d"); ...
qunxingw 发布于 2018-09-01 22:32 | 阅读 329 次 | 评论 0 条

VB中Get网页源码和DownLoad函数

调用网页源代码使用: Dim str As String Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP") xmlHTTP1.open "get", "https://v1.hitokoto.cn/", True xmlHTTP1.send While xmlHTTP1.readyState <> 4 DoEvents Wend chuli (xmlHTTP1.responseText) text = s Set xmlHTTP1 = Nothing Donwload可以使用系统API: ...
Furau 发布于 2018-08-30 20:52 | 阅读 289 次 | 评论 0 条

VB6中任务栏的隐藏

VB6.0需要使用Windows Api函数实现隐藏和显示任务栏。 FindWindow函数检索句柄到顶层窗口的类名和窗口名称匹配指定的字符串。此功能不搜索子窗口。该功能不执行区分大小写的搜索。 IsWindowVisible函数检索指定窗口的可见性状态。 ShowWindow函数设置指定窗口的显示状态。 Option Explicit Private Declare Function FindWindow Lib "use...
Furau 发布于 2018-08-30 20:34 | 阅读 248 次 | 评论 0 条

LNMP之Nginx配置.md

如何搭建直播系统LNMP环境,下面先教如何配置Nginx。 一.前期准备: 需要一台服务器(系统centos 6.0以上或者Ubuntu) 1.关闭防火墙及selinux $service iptables stop $chkconfig iptables off $setenforce 0(其实执行这一步selinux=disabled) $vim /etc/sysconfig/selinux SELINUX=disabled #enforcing改为d...
球2144899870 发布于 2018-08-30 17:17 | 阅读 193 次 | 评论 0 条

LNMP之MySQL配置.md

如何搭建直播系统LNMP环境,下面先教如何配置mysql。 一、前期准备 1.关闭防火墙及selinux service iptables stop chkconfig iptables off setenforce 0 vi /etc/sysconfig/selinux SELINUX=disabled #enforcing改为disabled 2.依赖包安装 yum -y install gcc gcc-c++ autoconf libjpe...
球2144899870 发布于 2018-08-29 16:14 | 阅读 228 次 | 评论 0 条