VBA求改错

陈酿

程序设计是这样的，两个选择框选好之后，按Confirm的时候会有一个判断，两个框里任何一个为空的时候这个窗口自动重新弹出，重现选择，如果两个框的数据行数不一样的话也重新选，如果相等的话继续运行弹出Condecision.Show。


但是实际运行起来是这样的，两个选择框选好之后，按Confirm的时候会有一个判断，发现有空之后重新弹出这个窗口进行选择，两个框重选相同行数的数据后继续运行，到了Categorization.Show 之后居然会跳回到m1 = Data1.Rows.count    m2 = Data2.Rows.count   。但如果这两个选择框一次性选择了行数相同的数据就会运行到低，不会回来
Option Explicit
Dim Data1 As Range, Data2 As Range 'Data1条件属性数据、Data2决定属性数据
Dim n As Long, m As Long 'ｎとｍは
Dim ii As Long

Private Sub CommandButton1_Click()        Dim m1 As Long, m2 As Long 'm1条件属性的行数、m2决定属性的函数    Dim i As Long '循环
    If RefEdit1.Value = "" Or RefEdit2.Value = "" Then ，‘这地方的判断想实现的是，如果二者有一个为空，或者均为空，则弹出消息，然后继续重新选择、但是现在如果用空就会弹出                          MsgBox "Not selected yet！"                                         “Not selected yet!”出现Run- time error 91 Object Variable or With block variable not set.的错误提示              
Else     
Set Data1 = Range(RefEdit1.Value)        
Set Data2 = Range(RefEdit2.Value)   
End If   
m1 = Data1.Rows.count   
m2 = Data2.Rows.count    
Descolumncount = Data2.Columns.count      
  If m1 = m2 Then        
Worksheets.Add After:=Worksheets(Sheets.count)      
ActiveSheet.Name = "Condition & Decision"        
Data1.Copy      
Worksheets("Condition & Decision").Paste  
Data2.Copy Range("IV1").End(xlToLeft).Offset(, 1)
Worksheets("Condition & Decision").Activate      
ActiveCell.CurrentRegion.Select        
n = Selection.Columns.count      
m = Selection.Rows.count    Else      
MsgBox "Counts of condition and decision attributes do not match, please choose range again."        
Me.Hide     
Condecision.Show   
End If   
Unload Me   
Categorization.ShowEnd Sub

sundf

好久不见，你还在忙啊。
End If   的位置太前面了。就算弹出了警告，还是继续往下走，所以就错了。

陈酿

sundf 发表于 2012-2-20 23:28
好久不见，你还在忙啊。
End If   的位置太前面了。就算弹出了警告，还是继续往下走，所以就错了。
...

怎么改的，我试着改了，结果都失败了

陈酿

sundf 发表于 2012-2-20 23:28
好久不见，你还在忙啊。
End If   的位置太前面了。就算弹出了警告，还是继续往下走，所以就错了。
...

其实我在那里想实现一个 清空 重置 的功能。
这是最后一个bug了。。。。。。

陈酿

改好了，谢谢，哈哈，还是你启发了我

sundf

小case，别客气