如何使用偏移量通过 application.inputbox 发送值

编程问答 2022-04-21

问题描述

我正在尝试修改代码，使用 application.inputBox 更改具有特定文本的范围单元格中的值，然后选择该范围和值以使用其他 application.inputBox 将它们移动到其他列中，但开始单元格被修改，新值与我不需要的单元格一起传递。我真的需要使用两个 application.inputBox 来自由选择发送更改值的范围。

这是我的代码：

Sub frankity5() ' MUYYYYYYYYYYYY,aquí modifica erráticamente la columna objetivo

Dim cell As Range
Dim rng2 As Range
Dim yy() As Variant
Dim mirango As Range
Dim OutRng As Range

yy = Array("ARMA CORTA","PISTOLA","ARMA DE FUEGO","ARMA LARGA","CORTO CARTUCHO","PLOMAZO","disPARO","REVOLVER","EScopETA",_
     "FUSIL","TIPO EScuaDRA")

xTitleId = "Selecciona Celdas"

Set mirango = Application.Selection
Set mirango = Application.InputBox("Selecciona Rango :",xTitleId,mirango.Address,Type:=8) 'se adaptó
Set OutRng = Application.InputBox("Pega Rango:",Type:=8)

Application.ScreenUpdating = False

For Each cell In mirango

If Not IsError(Application.Match(9E+99,Application.Find(yy,cell.Value))) Then cell.Value = "FUEGO"

Next cell
Application.ScreenUpdating = False

For Each rng2 In OutRng
            If rng2.EntireRow.RowHeight > 0 Then
            mirango.copy
                rng2.PasteSpecial xlPasteValues
                Set OutRng = rng2.Offset(1).Resize(OutRng.Rows.Count)
                Exit For
 End If


Next

End Sub

提前致谢

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

excelexcel