![](https://img-blog.csdnimg.cn/20201014180756925.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
vba
qunxingw
www.qunxingw.wang
展开
-
vba 提取数据
Sub m_loss() Dim d_m, r, r_loss As Integer Dim date_new As Dater = Range("a65536").End(xlUp).Rowr_loss = Sheets("LOSS").Range("a65536").End(xlUp).Row zyname = InputBox("請輸入廠名")d_m = Int(In...原创 2018-10-22 12:05:54 · 2732 阅读 · 0 评论 -
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 ...原创 2018-10-22 12:16:37 · 4800 阅读 · 0 评论 -
vab EXCEL 日历制作
vab EXCEL 日历制作 Sub calender_table()Dim dm As VariantDim m, w, d, r As Integery = InputBox("input_year")m_begin = InputBox("input_begin_month")m_end = InputBox("input_end_month")d = ...原创 2019-07-15 11:36:10 · 840 阅读 · 0 评论