2017-10-19 19 views
-3

次の条件に基づいて列cを塗りつぶすVBA関数が必要です。 注:列cには既に値があるので、式を使用することはできません。別の列に基づいて列を入力したい

Bが空白であれば、Cは、私は、これは事前に1000行

感謝の範囲のために仕事をしたい-D

等しいです!

+0

このサイトはコード作成サービスではありません。私たちは、専門家が作業しているプロジェクトに特定の問題を持つのを助けるコミュニティです。助けを受けるためには、これまでに書いたコードを提供し、それがあなたがしたいことをしない理由とあなたがしたいことを記述してください。エラーメッセージ、または問題に関する特定の情報を含めてください。あなたの質問を編集する前に[ツアー]と[ヘルプ]ページを見てください。 – MoondogsMaDawg

答えて

1

これを試してください。あなたのニーズに合わせて調整してください。

Sub fill() 

For x = 1 To 1000 
If Range("B" & x).Value = "" Then Range("C" & x).Value = Range("D" & x).Value * -1 
Next x 

End Sub 
+0

ありがとうございました!私のコードは1行でしか動作しませんでした。私は1000行で動作させる方法を知らなかったのです。 –

+0

大歓迎です!回答としてマークしてください。 –

関連する問題