如何解决如果单元格名称与单元格值匹配,则值 +1
我目前正在尝试通过 Excel 中的选择框在这种情况下选择特定的泵。选择泵时,通过按钮将所选泵的代码放置在单元格中。
在工作表的第 1 列中,通过将名称框值更改为泵代码,单元格已被赋予泵代码作为名称。第 1 列包含 50 个不同的代码。
问题出在:
如果第 1 列中的名称框包含与所选值相同的值,则第 1 列中的单元格加 1。
Private Sub CloseButton_Click()
Unload Me
End Sub
Private Sub Close_button_Click()
Unload Me
End Sub
Private Sub CommandButton1_Click()
Dim PompGeg(200,23) As Variant
Dim wb As ThisWorkbook
Set wb = ThisWorkbook
Dim ws As Worksheet
Set ws = wb.Sheets("blad1")
Dim i As Long,rownum As Long
rownum = 1
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) = True Then
ws.Cells(rownum,"e").Value = Me.ListBox1.List(i)
rownum = rownum + 1
Else
End If
Next
Teller = 0
For Teller = 0 To Teller2
If Sheets("blad1").Range("E1").Value = Me.ListBox1.ListIndex Then
Sheets("blad1").Range(PompGeg(Teller,1)) = Sheets("blad1").Range(PompGeg(Teller,1)) + 1
End If
Next
End Sub
Private Sub UserForm1()
Unload Me
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。