[已解决]zjdh大侠请进，还是关于前面那个录入窗口的问题

坏也是一种态度

还是前面关于那个录入窗口代码的问题，目前还是有个BUG不晓得是咋回事

随便打开一个单元号，什么都不填，如果点确定，就弹出要调试，代码出现分母为0的情况


另需增加两个功能
1、单元锁定（togglebutton，分按下和弹起两种状态，需要密码才能切换单元状态，位于锁定状态时，不可改变该单元的录入数据）


2、l如果此单元未有任何状态，Sheet1上的对应单元号显示为绿色，
l如果此单元处于意向保留，Sheet1上的对应单元号显示为黄色
l如果此单元处于{"入会金", "临时定金", "足额定金", "签约", "签约并交清首付", "按揭申请", "正常按揭中"}，Sheet1上的对应单元号显示为黄色
l如果此单元锁定，Sheet1上对应单元格显示灰色

烦请大侠帮忙，后面两项功能也帮忙加上去，菜鸟级学徒谢谢大侠了，在线等，十分感谢了

最佳答案

月排行榜 / 总排行榜

zjdh

2015-8-11 14:54

工作太忙，耽搁了，抱歉。
已将原来的宏全面推翻，确实费了点功夫，你试试吧。
(, 下载次数: 9)

上传

点击文件名下载附件

跳转到最佳答案楼层

坏也是一种态度

自己顶一个吧，不知道是不是大侠忙着呐都

alexaxis

借兄弟宝地同问这位大侠。
莫怪莫怪。
我是新人攒金币加入学习班ing、找到论坛的初衷是为了破下边的问题。

批量导入某文件夹下的文件的文件名并根据文件名批量添加对应图片的vba
要达到目的是，对指定文件夹下的n多图片文件进行自动处理，

1. 在某列自动导入该目录下文件的文件名，不要拓展名，就是不要.jpg这样的文件拓展名；

2. 在某列自动根据导入的文件名，进行对应在文件夹下的图片导入，图片导入后的尺寸可以固定为某一尺寸。

求大神们给我个vba。多谢多谢了！
我还有个悬赏提问在下边，哪位有心人
http://www.excelpx.com/thread-368736-1-1.html

zjdh

整理一下你的要求：
1. 未填数据就出错，需要容错。
2. 多一个锁定状态，显示灰色，需要密码解除
3. 其他状态显示黄色
4. 正常可以销售显示绿色

是吧?

坏也是一种态度

zjdh 发表于 2015-8-10 08:46
整理一下你的要求：
1. 未填数据就出错，需要容错。
2. 多一个锁定状态，显示灰色，需要密码解除

嗯嗯是滴，关于颜色的
总共有以下几种
如果此单元未有任何状态，Sheet1上的对应单元号显示为绿色，
l如果此单元处于意向保留，Sheet1上的对应单元号显示为黄色
l如果此单元处于{"入会金", "临时定金", "足额定金", "签约", "签约并交清首付", "按揭申请", "正常按揭中"}，Sheet1上的对应单元号显示为黄色
l如果此单元锁定，Sheet1上对应单元格显示灰色
谢谢大侠帮忙了，十分感激

zjdh

“意向保留”及“单元锁定”，你准备在什么地方操作？用户窗体里还是工作表里？

坏也是一种态度

zjdh 发表于 2015-8-10 09:19
“意向保留”及“单元锁定”，你准备在什么地方操作？用户窗体里还是工作表里？

表里面操作使用，不需要在窗体里进行

坏也是一种态度

zjdh 发表于 2015-8-10 09:19
“意向保留”及“单元锁定”，你准备在什么地方操作？用户窗体里还是工作表里？

通过代码就类似条件函数一样使用就行

zjdh

可能你没理解我的意思，我是说在哪里将有关单元设置成“意向保留”及“单元锁定”，
代码当然是少不了的咯。

坏也是一种态度

zjdh 发表于 2015-8-10 13:10
可能你没理解我的意思，我是说在哪里将有关单元设置成“意向保留”及“单元锁定”，
代码当然是少不了的咯 ...

包含单元号，建筑面积，套内面积，报价单价，朝向共5个要素信息

每个单元号点击可弹出对话框(UserForm1)一个

Userform1：包含23个项目

其中包括：

1.保底总价（=固定值，后期录入并可调整）

2.保底单价（=保底总价/面积）

3.企业名称（Textbox）

4.企业法人（Textbox）

5.手续对接人（TEXTBOX）

6.联系电话（TEXTBOX）

7.联系邮箱（TEXTBOX）

8.报价单价（TEXTBOX）

9.报价总价（=报价单价*面积）

10.折扣（=成交总价/报价总价*100.00%）

11.成交单价（textbox）

12.成交总价（=成交单价*面积）

13.优惠额（=报价总价-成交总价）

14.首付金额（textbox）

15.按揭金额（=成交总价-首付金额）ps.  If 首付金额<按揭金额 then Msgbox”请返回修改！”

16.已收金额（textbox）

17.未收金额（=首付金额-已收金额）

18.按揭银行（ComboBox）

19.单元状态（ComboBox， ComboBox1.List = Array("意向保留", "入会金", "临时定金", "足额定金", "签约", "签约并交清首付", "按揭申请", "正常按揭中", "申请退款")）

20.入驻情况（ComboBox）

21.招商员（TextBox）

22.单元锁定（togglebutton，分按下和弹起两种状态，需要密码才能切换单元状态，位于锁定状态时，不可改变该单元的录入数据）

23.确定键（确认录入内容，关闭UserForm，并将数据写入Sheet2的数据库

Sheet2：Userform1所录入的数据结合单元号储存于此工作表中，每次点击Sheet1的单元号弹出UserForm1的时候，UserForm1会先读取Sheet2上对应单元的历史数据。

变色功能：

l如果此单元未有任何状态，Sheet1上的对应单元号显示为绿色，

l如果此单元处于意向保留，Sheet1上的对应单元号显示为黄色

l如果此单元处于{"入会金", "临时定金", "足额定金", "签约", "签约并交清首付", "按揭申请", "正常按揭中"}，Sheet1上的对应单元号显示为黄色

l如果此单元锁定，Sheet1上对应单元格显示灰色