0

主に、プロジェクトの開始方法に関するガイダンスを探しています。

Sprdsht 1 は、その場所の特定のデータを含む行とパラメーター (つまり、A:K= 名前、排出データ、モデル番号など) を含む列を含むテーブルとして設定されます。Sprdsht 2 は、複数のボックスを持つフォームとして構成されています。sprdsht 1 から sprdsht 2 にデータをインポートしようとしていますが、マクロまたは VBA を使用してフォーム (つまり F1:F11) を完了するために、一度に 1 行のデータのみをインポートできるかどうか疑問に思っています。

もしそうなら、コードはどのように見えますか?

また、この機能を処理するには Excel を使用するのが最善ですか、それとも別のプログラム (つまり Access) の方がうまく機能しますか?

4

1 に答える 1

0

開始するための多くの方法の 1 つの例を次に示します。 

Sub CopyInfo()
    Dim wb1 As Workbook
    Dim wb2 As Workbook
    Dim sheet1 As Worksheet
    Dim sheet2 As Worksheet
    Dim rng1 As Range
    Dim rng2 As Range
    Set wb1 = Application.Workbooks("FirstWorkbook.xlsx")
    Set wb2 = Application.Workbooks("OtherWorkbook.xlsx")
    Set sheet1 = wb1.Sheets(1)
    Set sheet2 = wb2.Sheets(1)
    Set rng1 = sheet1.Range("A2:K2", Range("A2:K2").End(xlDown))
    Set rng2 = sheet2.Range("F1:F11")
    For i = 1 To rng1.Rows.Count
        For j = 1 To 11
            rng2(j, 1).Value = rng1(i, j).Value
        Next
        Call FunctionThatSubmitsTheFormInSheet2
    Next
End Sub
于 2013-03-07T16:29:09.937 に答える