問題タブ [byval]

1 つのサブ (親を呼び出す) から別のサブに引数を渡そうとする非常に単純なコードがあります。いくつかの値を変更し、他のいくつかを変更せずに終了します。私は惨めに失敗したようです。理由がわからない。ここにいくつかのコードがあります

コンパイル エラーが発生する理由がわかりません (コンパイル エラー、ByRef 引数の型の不一致、v2 引数の Child_sub 呼び出しで表示されます)。家庭用およびビジネス用の Excel 2016 を使用しています。役立つヒントはありますか？

潜在的に単純な応答から救うためだけに。同じ名前の 2 つのサブルーチンを定義していません (!)。コード内の他の場所で変数をさらに再定義していません (チェック済み)。それは私にとってかなり奇妙なものです。助けてください、私は馬鹿です！

次の問題があります。

Excel スプレッドシートで特定の範囲 (B20:Y20) の行をロックし、ロックされた行を特定の色でペイントするマクロを作成しました。さらに、ロックされた行のタイムスタンプを Y20 に作成します。セル ロックの条件は、列 B20 の値が空でないことです。

マクロをアクティブにすると、まずセル B20 の値が 0 より大きいかどうかを確認する必要があります。この場合、指定した範囲の行がロックされ、色が付けられ、タイムスタンプが追加されます。

ここでの目標は、B21 の値が >0 の場合、次の行 (範囲 B21:Y21) に対して同じ手順を実行することです。これは私の問題につながります: 連続する行でマクロを実行するにはどうすれば「ロールフォワード」できますか?

私の観点からは、コードのすべてのランクを調整して、列と行が「動的」になり、現在表示されている特定の1行だけを「厳密に」実行できないようにすることが目標です。

マクロをアクティブにすることで、列 B の >0 である次の行が処理に使用されるように、コードを調整する方法を知っている人はいますか?

前もって感謝します。

これが私のコードです：

私は小さなパズルを持っています。セル「K6」と「L6」を入力として使用しています（バーコードをスキャンするため）。セル「K6」を選択してバーコードをスキャンすると、セル「O6」は値「0」から値「1」になります（式「= IF（K6> 0,1,0）」による）。

「Sub (ByVal target As Range)」のトリガーとしてセル「O6」(大きい場合は「0」) を使用しています。この Sub は、「K6」値をコピーしてシート 2 (IN_OUT) 列に貼り付ける marco「Nasklad」を呼び出します」 A」最初のブランク。その後、シート1（Sklad）を選択し、セル「K6」をクリアするマクロ「クリア」を呼び出します。

プロセス全体が正常に機能し、バーコードをスキャンし、コードを別のシートにコピーし、別のコードをスキャンできます。

さて、セル「K6」がセル「L6」で動作するように一連のコマンドを複製しようとしたところ、何も起こりませんでした。

「Sub worksheet_change2(ByVal target As Range)」が機能していないようです。「P6」の「L6」値に何かを代入すると、「1」になります（式「= IF（L6> 0,1,0）」により、今回はトリガーがサブを実行せず、理由がわかりません。

私は何か見落としてますか？

助けてくれてありがとう