vaiky的博客

Excel2013带宏的物资进出库存管理，带简单的盘存功能（最后一个库存Sheet)。我在Excel2013中测试没有问题，密码和保护密码都是123456。 其它版本的Excel没有测试过，不保证兼容性。

Excel+VBA做的库存管理系统。应朋友之邀花了一天多时间搞定。 亲测在Excel2013上可以运行，Excel97-2003，需要使用Excel2013打开后另存为低版本XLS。 有期初库存管理、入库操作及明细记录、出库操作及明细记录、实时库存（带简单盘点功能）。

应朋友的要求，对之前的照片抽奖程序做了优化，本程序可以作为公司年会抽奖工具直接使用，代码可在VS2013中直接打开。 将bin\Debug\ImageAward.exe和Images、AwardedImages、BackMusic文件夹直接复制出来使用。 使用说明： 点击"Let's Go"按钮，加载Images文件，夹中的jpg、jpeg或png文件，显示在屏幕上，默认10毫秒变换一副图片。 再次点击原按钮，可以停下照片滚动。点击“领奖”，会将已领奖的照片挪至AwardedImages文件夹，达到不重复领奖的目的。 功能详细说明： 1、 显示照片的窗口可以最大化或自行调整大小，加载的照片自适应窗体大小； 2、 为活跃气氛，增加了抽奖背景音乐，格式为BackMusic文件夹下的MP3文件，默认为英文摇滚歌曲“Every Day”，可以自行替换； 3、 点击"Let's Go"（开始抽奖）按钮后，此按钮文字就变为“Just This”（停止），点击（或直接按回车键）定格抽奖照片，背景音乐暂停；点击“领奖”，会将已领奖的照片挪至AwardedImages文件夹，达到不重复领奖的目的。 4、 照片切换的时间间隔，可以自行在窗体上输入，默认为0.1秒； 如有更多意见，代码中有本人的QQ联系方式。或者在下方留言，我会隔三差五进行回复。

可以当作公司照片抽奖工具直接使用。 将bin\Debug\ImageAward.exe和Images、AwardedImages文件夹直接复制出来使用。 功能说明： 点击"Let's Go"按钮，加载Images文件夹中的jpg、jpeg或png文件，显示在屏幕上，默认10毫秒变换一副图片。 再次点击原按钮，可以停下照片滚动。点击“领奖”，会将已领奖的照片挪至AwardedImages文件夹，达到不重复领奖的目的。 本代码可在VS2010中直接打开。