1

私は2冊のワークブックを持っています。ある情報から別の情報へ動的に情報を描画したいと思います。私は何日も研究してきましたが、これを行う唯一の方法は Visual Basic を使用することですが、VB の使用方法がわかりません。私は喜んで学びますが、これを行う方法について、できればスクリーンショットを使用して、誰かが段階的な指示を与える必要があります.

これが詳細です。Workbook1、Sheet1、ColumnK の特定の値をチェックするコードが必要です。たとえば、「West」としましょう。行の ColumnK に「西」が含まれている場合、行全体をコピーして、次の利用可能な行の Workbook2,Sheet2 に貼り付けたいと思います。Workbook1 に新しい情報を追加するたびに、コードが関連情報をチェックして Workbook2 に描画するように、これを動的にしたいと考えています。Workbook2 に描画できない場合は、代わりに Workbook1、Sheet2 に描画したいと思います。

同じ Workbook1 内で作業するようになった別のスタック オーバーフロー スレッドからコードをコピーしました。

Sub CopyRow()

Application.ScreenUpdating = False

Dim x As Long
Dim MaxRowList As Long
Dim S As String
Dim wsSource As Worksheet
Dim wsTarget As Worksheet

Set wsSource = ThisWorkbook.Worksheets("ASK")
Set wsTarget = ThisWorkbook.Worksheets("Petty Cash")

iCol = 1
MaxRowList = wsSource.Cells(Rows.Count, iCol).End(xlUp).Row

For x = 3 To MaxRowList
    If InStr(1, wsSource.Cells(x, 11), "West") Then
    wsTarget.Rows(x).Value = wsSource.Rows(x).Value
    End If
Next

Application.ScreenUpdating = True

End Sub

これは一時的には機能しますが、情報が別のワークブックに描画されるようにコードを編集する方法を誰かが教えてくれれば、それは本当に役に立ちます. 私が理解できるように、素人の用語 (およびスクリーンショット) を使用してください。

4

0 に答える 0