☰

定義済み結果のコード テキストを定義するにはどうすればよいでしょうか?

tag-icon • tag-icon microsoft-excel google-drive
定義済み結果のコード テキストを定義するにはどうすればよいでしょうか?

質問の中でうまく表現できませんでしたが、詳しく説明していただけると理解しやすくなります。

コード (「A」など) とそのコードの結果テキストを定義したいのですが、私の場合は日付が必要です。基本的に私が尋ねているのは、特定の列に「A」と入力して Enter キーを押すたびに、対応する日付がセルに入力されることです。これを検索する方法がわからなかったので、この質問を作成する必要がありました。できれば、コードと対応するテキストは別のワークシートにある必要があります。

Google ドライブで回答が必要ですが、ない場合は Excel での回答でも構いません。

答え1

私は Google Apps Script と JavaScript をまったく初めて使用しますが、これは機能するようです:

/** @OnlyCurrentDoc */
function onEdit(e) {
  var activeSheet = e.source.getActiveSheet();
  var range = e.range;
  var target_sheet = SpreadsheetApp.getActiveSpreadsheet().getSheetByName("Sheet2");
  var target_range = target_sheet.getRange("A1:B10");
  if (activeSheet.getName() == "Sheet1") {
    for (var i = 1; i <= 10; i++) {
      var currentValue = target_range.getCell(i,1).getValue();
      var currentDate = target_range.getCell(i,2).getValue();
      if (currentValue == e.value) {
        range.setValue(currentDate);
        break;
        }
      }
  }
}

実際の動作は次のようになります:

実際のところ

Excel VBA では次のようになります。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, c As Range
Set r = Sheets(2).Range("A1:A10")   'This is where I have the "code", with the date in column "B"
If Target.Count = 1 Then
    Set c = r.Find(Target.Value, LookIn:=xlValues)
    If Not c Is Nothing Then Target.Value = c.Offset(0, 1).Value
End If
End Sub

どちらも、範囲内の 2 番目のシートでシート 1 に入力された値を検索します。次に、対応する行のA1-A10列から日付 (またはその他) を返します。B

関連情報