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....
vscode
微软收购 GitHub ，开源vscode。让我看到了他转到了正确的方向！
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
...
绘图
<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");
...
文章分类
文章归档
- 2020年10月(1)
- 2020年03月(1)
- 2019年12月(1)
- 2019年02月(1)
- 2018年10月(2)
- 2018年09月(4)
- 2018年08月(1)
- 2018年06月(1)
- 2017年10月(2)
- 2017年01月(1)
- 2016年12月(1)
- 2016年11月(1)
- 2016年09月(1)
- 2016年08月(6)
- 2016年07月(2)
- 2016年05月(2)
- 2016年04月(2)
- 2016年03月(1)
- 2016年02月(1)
- 2016年01月(8)
- 2015年12月(5)
- 2015年11月(1)
- 2015年10月(2)
- 2015年07月(1)
- 2015年04月(1)
- 2015年03月(1)
- 2015年01月(1)
- 2014年05月(1)
- 2013年09月(1)
- 2013年08月(3)
- 2013年07月(1)
- 2013年06月(5)
- 2013年05月(3)
- 2013年04月(3)
- 2013年03月(3)
最新评论
- 万派大关：人土土
- 夫刀济周：真厉害
- yu1776151787：电子电路程序，强啊
- qunxingw：普中，51 A6正常测试
- zhouwenyuan：博主可以开发房产APP吗？