特定のワークシート上で実行するVBAマクロ

Question

特定のワークシートに対してのみ実行するマクロが必要です。マクロの目的は、指定された範囲を探して負の値を見つけ、行全体を新しいワークシートに抽出すると同時にそのネガティブをポジティブに変換する場合です。私はいくつか考え出したが、これは完全に間違っていることを知っている。たくさんのものが足りない。まだ学習しようとしている、このvbaの新しいもの。あなたが提供できる任意のヘルプに事前に感謝します。 fyi ntpはネガティブストーリーを表します。それが役立つかどうかわからない、ちょうど私が私の小さな「コード」の代わりに、

Sub ntp() 
Dim ws As Worksheet 
If ws.Name <> "originalNeg" Then 
    For Each Cell In Range("I2:I1048576") 
     If Cell.Value < 0 Then 
      Cell.Value = Abs(Cell.Value) 
     End If 
    Next Cell 

End Sub 

Answer 1

Sub ntp() 
Dim ws  As Worksheet 
Dim cel  As Range 
With Activeworkbook.Worksheets("originalNeg") 
    For Each cel In .Range("I2:I" & .Range("I" & Rows.Count).End(xlUp).row) 
     If cel.Value < 0 Then cel.Value = Abs(cel.Value) 
    Next cel 
End With 
End Sub 

これは、ワークシートを使用し、その特定のシートの範囲をリンクするRange()前.に注意してください。

また、すべてののセルを列に使用することはほとんどありません。 .End(xlUp).Rowを使用して、最後に使用された列Iをループスルーします。

Answer 2

Set ws = ThisWorkbook.Worksheets("originalNeg") 

にすべての詳細を書くことができると思った名前の場合。