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....
VBA | 2018-09-30 09:50 | 阅读 327 次 | 评论 3 条

vscode

微软收购 GitHub ,开源vscode。让我看到了他转到了正确的方向!
杂文 | 2018-09-17 15:18 | 阅读 179 次 | 评论 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 ...
VBA | 2018-09-06 15:28 | 阅读 221 次 | 评论 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"); ...
浏览163614次
最新评论