注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

精品资源 仓库

不是精品,我不收藏——好资源 大家共享!

 
 
 

日志

 
 

3-24、FIND实例应用(进销存之入库单)  

2014-05-29 18:07:47|  分类: 【Excel VBA】 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
3-24、FIND实例应用(进销存之入库单) - zibo139 - 学习笔记——备忘录

  

山姆公司入库单

入库单号

SM306111151827

供应商

编号

品名

单价

数量

金额

ECT987

半轴罗丝

3.5

800

 

ECT456

行星齿

690

5

 

ECT987

半轴罗丝

3.5

800

 

ECT456

行星齿

690

5

 

 

Sub 开单()

Set es = Cells.Find("*", , xlFormulas, , , xlPrevious)

a = es.Address

[b2] = "SM" & Format(Now(), "ymdhms")

Range([a5], es.Offset(4)) = ""

[e2] = ""

End Sub

 

Sub 保存()

On Error GoTo 100

    Dim es As Range, a%

   If Sheet2.[f:f].Find([b2]) = [b2] Then

    MsgBox "已经保存过了!"

   Else

100:

    Set es = Cells.Find("*", , xlFormulas, , , xlPrevious)

    a = Application.CountA(Sheet2.[a:a])

    If es.Row = 4 Then MsgBox "没有填写内容": End

    Range([a5], es).Copy Sheet2.Cells(a + 1, 1)

    Sheet2.Cells(a + 1, "f").Resize(es.Row - 4) = [b2] '保存入库单

    Sheet2.Cells(a + 1, "g").Resize(es.Row - 4) = [e2] '保存供应商

    Sheet2.Cells(a + 1, "h").Resize(es.Row - 4) = Now() '保存日期时间

    MsgBox "保存成功!"

   End If

End Sub

 

Sub 计算()

Set es = Columns(3).Find("*", , xlFormulas, , , xlPrevious)

For Each Rng In Range([c5], es)

    Rng.Offset(0, 2) = Rng.Offset(0, 1) * Rng

Next

End Sub

 

  

 

本文视频教程学习网址: http://www.51zxw.net/study.asp?vip=8662538

 

 

 

  评论这张
 
阅读(72)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017