0

私は 2 つのファイル sit.xls と plan.xls を持っています。sit.xls 内

Roll No.    Roll No.    Roll No.
10          11          12
5659694     5659724     5659754
5659695     5659725     5659755

rollno(5659724) をクリックすると、plan.xls に自動的に転送またはコピーされます。

ROW 1       ROW 2
ROLL NO.    ROLL NO.
4

1 に答える 1

0

以下のように、sit.xls の選択変更イベントで VBA コードを記述できます。以下のコードは、plan.xls 内の選択されたセルの値をまったく同じ場所にコピーします。

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     ' The variable for current cell value
     Dim currentValue As String
     ' The variable for current cell address
     Dim ActiveCellAddress As String
     'Get the value of the current cell from the current sheet Sit.xls
     currentValue = ActiveCell.FormulaR1C1
     'Get the address of the current cell from the current sheet Sit.xls
     ActiveCellAddress = ActiveCell.Address
     'Activate the another workbook Plan.xls
     Workbooks("Plan.xls").Activate
     'select the desired range
     Workbooks("Plan.xls").Sheets("Sheet1").Range(ActiveCellAddress).Select
     'Copy the value to the desired location
     ActiveCell.FormulaR1C1 = currentValue
     'Activate the old workbook again
     Workbooks("Sit.xls").Activate
  End Sub
于 2013-04-05T05:09:49.673 に答える