[已解决]谢谢兰色老师。请帮忙添加两个提示功能

lhj323323

老师：
上传的附件内带有写好的程序，目前，我想求助的是入库操作和出库操作中的提示功能。
即如果[明细]表除了第一行之外，没有数据时，入库操作要报错
第二，如果[明细]表没有数据或是某个品种的库存不足时，出库某个品种的超出现有库存时
我希望程序不要报错，而且以MSGBOX的方式提示用户该品种不足。
请老师帮忙看看，如何修改现有程序，谢谢了。

再加一个需求。
模板提供了两种方式来实现入库或出库的操作。即通过输入法输入汉字，或是通过双击窗体内的textbox提取已有的品种或是客户。新需求：而如果用户是通过输入方式生成的新品种或新客户（即针对[模板]的[首页]的O列到Q列的现在品种和现有客户来比较的），程序将在[首页]的O列到Q列有数据的最下一行导入新的品种或新的客户，同时提醒用户，本次录入的品种或是客户有新的记录，需要进行添加，请用户确认。

最佳答案

月排行榜 / 总排行榜

兰色幻想

2011-8-15 23:39

放在：
Private Sub UserForm_Initialize()
TextBox17.Value = "1"
End Sub

跳转到最佳答案楼层

lhj323323

回复 lhj323323 的帖子

[明细]表如果只有第一行标题行的话，为什么下面这段语句中的r的值会是65537？
  With Sheet1 '[明细]
        r = .Range("A1").End(xlDown).Row + 1
    MsgBox r

我调了三种情况都不得行
        'r = .Range("A1").End(xlDown).Row + 1
        'r = .Range("A1").End(xlUp).Row + 1
        r = .Range("A65536").End(xlDown).Row + 1

lhj323323

回复 lhj323323 的帖子

如果，我想在调出窗体时，就对TextBox17的值预先设为“1”，是否如下句这般即可？
Sub 显示窗体()
    UserForm1.Show
    TextBox17.Value = "1" '预先将分析模板中的统计月份设为只提取1个月的记录
End Sub
但程序提示出错

兰色幻想

放在：
Private Sub UserForm_Initialize()
TextBox17.Value = "1"
End Sub

lhj323323

回复 兰色幻想 的帖子

谢谢兰色老师

还有个问题
OptionButton1.Value = ""
这个控件在运行了这个语句后，为什么控件变成了灰色，而不是初始化的状态，极易让用户看了这个控件已被选定。
如何才能使其状态如整个窗体被调出时的那么醒目。



不知我表达清楚没有。

兰色幻想

OptionButton1.Value=false

lhj323323

回复 兰色幻想 的帖子

谢谢兰色老师。成功了。

wdkjs

兰老师是个艺高的热心人