时间戳

首页 > 解决方案 > 使用用户窗体命令按钮时，在 VBA 中将文本从工作表传递到工作表不起作用

excel - 使用用户窗体命令按钮时，在 VBA 中将文本从工作表传递到工作表不起作用

问题描述

我在这里有这段代码，由于某种原因它不起作用

Public Sub CommandButton3_Click()
'agregar'

ComboBox2.Value = sel
For i = 2 To 200
celda = ActiveCell.Row
Add = Worksheets("Programación").Cells(i, 2)
If sel = Add Then

    Sheets("Programación").Activate
    Sheets("Programación").Select
    Tipo = Sheets("Programación").Cells(i, 3).Text
    Expl = Sheets("Programación").Cells(i, 4).Text
    Recom = Sheets("Programación").Cells(i, 5).Text
    Vul = Sheets("Programación").Cells(i, 6).Text
    Ame = Sheets("Programación").Cells(i, 7).Text
    Rie = Sheets("Programación").Cells(i, 8).Text
    HA = Sheets("Programación").Cells(i, 2).Text

    Sheets("Matriz_de_Hallazgos").Activate
    Sheets("Matriz_de_Hallazgos").Select
    Sheets("Matriz_de_Hallazgos").Cells(celda, 2) = Tipo
    Sheets("Matriz_de_Hallazgos").Cells(celda, 4) = HA
    Sheets("Matriz_de_Hallazgos").Cells(celda, 5) = Expl
    Sheets("Matriz_de_Hallazgos").Cells(celda, 6) = Vul
    Sheets("Matriz_de_Hallazgos").Cells(celda, 7) = Ame
    Sheets("Matriz_de_Hallazgos").Cells(celda, 8) = Rie
    Sheets("Matriz_de_Hallazgos").Cells(celda, 9) = Recom

  celda = celda + 1
Sheets("Matriz_de_Hallazgos").Cells(celda, 4).Select

i = 201
End If

Next i


ComboBox2.Clear

End Sub

我正在尝试做的事情是宏在“Programación”工作表中搜索相同的组合框文本，如果文本相同，那么它会保存一些文本类别并将它们粘贴到“Matriz de Hallazgos”工作表上，就像搜索一样，看是否相等，复制和粘贴。如果你们能给我一些建议，我会很有帮助的

标签： excelvba

解决方案

由于您想将组合框与单元格中的值进行比较，我认为该行

ComboBox2.Value = sel

应该

sel = ComboBox2.Value

检索值以便正确比较它。现在，当前的第一行是将组合框设置为存储在 sel 中的任何内容，如果尚未使用该变量，这将什么都没有。Sel 然后在与单元格值比较时保持为空。

推荐阅读