如何在Excel中通过VBA将选定范围与选定数字相乘

我想简化我在Excel中使用的宏以扩大选定范围。我经常从SAP导出数据，并将这些值作为文本格式化。将它们改为数字的简单方法是将它们乘以1.我有时还需要将值乘以-1或其他任何数字。我创建了一个可以满足我需要的宏，但正如您所看到的，它必须找到一个空白单元格，在其中写入值，乘以选定范围并删除该值。我想要一个没有找到空白单元格并写入任何内容的过程的宏。如何在Excel中通过VBA将选定范围与选定数字相乘

Sub macro() 
    Dim Cinitel As Integer 
    Dim PocetRadku As Long 
    Dim PocetSloupcu As Integer 

    Cinitel = InputBox("Enter a number to multiply with") 

    PocetSloupcu = Range("a1").CurrentRegion.Columns.Count 
    PocetRadku = Range("a1").CurrentRegion.Rows.Count 

    Cells(PocetRadku + 1, PocetSloupcu) = Cinitel 
    Cells(PocetRadku + 1, PocetSloupcu).Copy 

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _ 
     SkipBlanks:=True, Transpose:=False 

    Cells(PocetRadku + 1, PocetSloupcu) = "" 

    Calculate 
End Sub

我不能使用DataObject将一些值放在剪贴板中。

我想出了这样的事情，但它并没有明显的工作:)

Sub macro1() 
    Dim myString As String 
    Dim number As Integer 

    number = InputBox("Enter a number to multiply with") 
    myString = Selection.Address 
    myString.Formula = Application.Evaluate("=" & myString & "*" & number)

你能帮助我吗？

来源

2017-05-16 Petanek333

你就不能这样做'Selection.NumberFormat = “0”'，如果你需要一个乘数，然后'Selection.Value = Selection.Value *（-1） ' – Wolfie

试试这个..

Sub test1() 

    Dim rng As Range, nbr as integer 

    Set rng = Selection 
    nbr = InputBox("Enter a number to multiply with") 
    rng.Value = Evaluate("IF(" & rng.Address & "<>""""," & _ 
       rng.Address & "*" & nbr & ","""")") 

    Set rng = Nothing 

End Sub

来源

2017-05-16 08:22:43 kulapo

如何在Excel中通过VBA将选定范围与选定数字相乘

回答

相关问题