[已解决]grf1973老师！请帮忙再加个判断！！！

N7120

grf1973老师！请帮忙再加个判断！！！

根据批号分区保存2.rar (231.5 KB, 下载次数: 5)

2017-8-15 21:41 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2017-8-16 08:42

1. Private Sub CommandButton2_Click()
   
2.     Dim 批号
   
3.     Set lv = ListView1
   
4.     For a = 1 To lv.ListItems.Count
   
5.         Set itm = lv.ListItems(a)
   
6.         批号 = Left(itm.SubItems(1), 2) '取（批次）前2位值
   
7.         If 批号 = "FY" Or 批号 = "XS" Then
   
8.             ComboBox1 = 批号
   
9.             With Sheets(批号)
   
10.                  i = .[a65536].End(3).Row + 1
    
11.                 .Cells(i, 1) = itm.Text
    
12.                 .Cells(i, 2) = itm.SubItems(1)
    
13.                 .Cells(i, 3) = itm.SubItems(2)
    
14.                 .Cells(i, 4) = itm.SubItems(3)
    
15.             End With
    
16.         End If
    
17.     Next a
    
18. End Sub

复制代码

跳转到最佳答案楼层

grf1973

1. Private Sub CommandButton2_Click()
   
2.     Dim 批号
   
3.     Set lv = ListView1
   
4.     For a = 1 To lv.ListItems.Count
   
5.         Set itm = lv.ListItems(a)
   
6.         批号 = Left(itm.SubItems(1), 2) '取（批次）前2位值
   
7.         If 批号 = "FY" Or 批号 = "XS" Then
   
8.             ComboBox1 = 批号
   
9.             With Sheets(批号)
   
10.                  i = .[a65536].End(3).Row + 1
    
11.                 .Cells(i, 1) = itm.Text
    
12.                 .Cells(i, 2) = itm.SubItems(1)
    
13.                 .Cells(i, 3) = itm.SubItems(2)
    
14.                 .Cells(i, 4) = itm.SubItems(3)
    
15.             End With
    
16.         End If
    
17.     Next a
    
18. End Sub

复制代码

N7120

grf1973 发表于 2017-8-16 08:42

谢谢你~~~老师！{:24:}