[已解决]修改代码增加导入信息问题

sdwffw

hwc2ycy 发表于 2013-5-26 08:52
你说的B6单元格是哪个工作簿哪个工作表中的？

按钮所在的通知工作表，貌似是B7吧。

谢谢老师。B6单元格就是“通知书”表中的。想把点调入按纽弹出框中的观察员信息调入B6单元格。此时加上判断：如果“观察员维护”表中已录入对应观察员姓名，则直接调入；如果“观察员维护”表中无观察员姓名，则提示“库中无该人员”，不调入。其它代码实现的功能不动。

sdwffw

是不是在下列标红字处加上写入判断？
Private Sub CommandButton2_Click()
    With ListView1
        For i = 1 To .ListItems.Count
            If .ListItems(i).Checked = True Then
               
                Sheet1.Range("A4") = .ListItems(i)
                Sheet1.Range("E6") = .ListItems(i)
                Sheet1.Range("c15") = .ListItems(i).SubItems(2)
               Sheet1.Range("b6") = .ListItems(i).SubItems(3)
                Sheet1.Range("b7:e7").ClearContents
                .ListItems(i).Checked = False
                Exit Sub
            End If
        Next
    End With
    MsgBox "未选择企业!"
End Sub