ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH云课堂-专业的职场技能充电站 Excel转在线管理系统,怎么做看这里 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 EH云课堂直播课程免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
楼主: Rowen

一个库存管理的示例,目标是方便录入,分仓查询.

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2004-9-1 13:11 | 显示全部楼层

楼主,能把库存程序发一个给我吗,学习一下,公司不能下载,晕呀

wzy0302@amoi.com.cn

TA的精华主题

TA的得分主题

发表于 2004-9-1 21:54 | 显示全部楼层
为什么在使用单据录入工作表时总是出错:提示是:编译错误 变量未定义?

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-9-1 22:18 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2004-9-18 09:43 | 显示全部楼层

Rowen:你好

看了73楼的回答,我不会做,怎么运行一个过程,太专业了.

麻烦再详细一点好吗?我怎么删掉那些不用的品牌名称.谢谢.

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-9-19 12:00 | 显示全部楼层

把下列代码复制到任一模块中,运行(F5键)一下.

Sub 删掉那些不用的品牌名称

On Error Resume Next With 当前库存一览表.PivotTables(1).PivotFields("品牌") For I = 1 To .PivotItems.Count .PivotItems(I).Delete Next End With

end sub

TA的精华主题

TA的得分主题

发表于 2004-9-20 13:56 | 显示全部楼层

Rowen:你好

我只会用, 代码?模块?我一窍不通.

我无从下手,伤脑筋.

[em06]

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-9-23 13:32 | 显示全部楼层

在编辑宏之前,必须先熟悉“Visual Basic 编辑器” (Visual Basic 编辑器:一种环境,用于编写新的 Visual Basic for Applications 代码和过程,并编辑已有的代码和过程。Visual Basic 编辑器包括完整的调试工具集,用于查找代码中的语法、运行时和逻辑问题。)。“Visual Basic 编辑器”能够用于编写和编辑附属于 Microsoft Excel 工作簿的宏。

在“工具”菜单上,指向“宏”,再单击“Visual Basic 编辑器”。 或按下 Alt+F11, 或右击工作表标签>>查看代码...

在“视图”菜单上,单击“工程资源管理器”。

在“插入”菜单上,再单击“模块”

将需要复制的模块或代码复制到目标中。

TA的精华主题

TA的得分主题

发表于 2004-9-23 22:20 | 显示全部楼层

Rwoen版主,侬真是 厉害1

令尔等汗颜!

真是想向你请教请教,但却不知从何提起!

佩服!··········

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-9-24 13:26 | 显示全部楼层

Tzzzz_11253 哪一帖?

另:看上去就像体育老师. 我给别人看, 一猜就是体育老师.

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-9-25 00:40 | 显示全部楼层

ActiveWorkbook.Names.Add Name:="ActiveRx", RefersT=Target.Row 是自动添加或修改了一个名称, 让当前行号保存在这个名称里, 比如选择了D4, 即令 ActiveRx=4(行号)

而这一行如果要高亮显示, 表中该单元格中有设条件格式, 当ActiveRx=ROW() 时, 改背景色为高亮.

本案原理就是利用条件格式达成目的.

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2019-10-19 10:06 , Processed in 0.056475 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表