【Office Scripts】UserForm代替パターン：進捗表示はセルで、キャンセルは実行ボタンで実装する

function main(workbook: ExcelScript.Workbook) {

  // ～ 前回までの準備処理（省略）～
  const ctrlSheet = workbook.getWorksheet("制御");

  // メインループ = 前回記事の For tgetTmpR = wRow To workShEndR
  for (let tgetTmpR = wRow; tgetTmpR <= workShEndR; tgetTmpR++) {

    // ～ ID照合・転記処理（省略、前回記事と同じ）～

    lngHcount++;

    // ★ 進捗表示：1000件ごとに制御シートのA1へ書き込む
    if (tgetTmpR % 1000 === 0) {
      const percent = Math.round(((tgetTmpR - wRow + 1) / (workShEndR - wRow + 1)) * 100);
      ctrlSheet.getRange("A1").setValue(
        `${percent}%完了（${tgetTmpR - wRow + 1}/${workShEndR - wRow + 1}件・HIT ${lngHcount}件）`
      );
    }
  }

  ctrlSheet.getRange("A1").setValue(`完了！【データ更新件数： ${lngHcount} 件】`);
}

const barLength = 20; // バー全体の長さ
const filled = Math.floor((percent / 100) * barLength);
const bar = "■".repeat(filled) + "□".repeat(barLength - filled);
ctrlSheet.getRange("A1").setValue(`${bar} ${percent}%`);

// B2:B4の3セルに数値を書き込むだけ
ctrlSheet.getRange("B2").setValue(lngHcount);                          // HIT件数
ctrlSheet.getRange("B3").setValue(tgetTmpR - wRow + 1);                // 処理件数
ctrlSheet.getRange("B4").setValue(workShEndR - wRow + 1);              // 総件数

for (let tgetTmpR = wRow; tgetTmpR <= workShEndR; tgetTmpR++) {

    // ★ キャンセル確認：1000件ごとにB1を読み取る
    if (tgetTmpR % 1000 === 0) {
      const cancelFlag = ctrlSheet.getRange("B1").getValue();
      if (cancelFlag === true) {
        ctrlSheet.getRange("A1").setValue(
          `中断しました（${tgetTmpR - wRow + 1}件処理・HIT ${lngHcount}件時点）`
        );
        console.log("ユーザーの指示により中断しました");
        return; // ここでスクリプトを終了する
      }
    }

    // ～ ID照合・転記処理（省略）～
  }

// チェック間隔を決定（1～1000件の範囲）
// ・制御シートのC1に数値が入っていればそれを優先（手動指定）
// ・未入力の場合はデータ量から自動計算（全体で約50回更新される間隔）
const totalRows = workShEndR - wRow + 1;
const manualInterval = ctrlSheet.getRange("C1").getValue();
const checkInterval = typeof manualInterval === "number" && manualInterval > 0
  ? Math.min(1000, Math.max(1, Math.round(manualInterval)))
  : Math.min(1000, Math.max(1, Math.ceil(totalRows / 50)));

const processedCount = tgetTmpR - wRow + 1;
if (processedCount % checkInterval === 0) {
  // ここに進捗表示・キャンセル確認の処理
}

function main(workbook: ExcelScript.Workbook) {

  const ctrlSheet = workbook.getWorksheet("制御");

  // 貼付元シート（実行シート）= VBAの prefSh
  // ★ getActiveWorksheet()は実行時のアクティブシートに依存するため使わない（第5回参照）
  const prefSh = workbook.getWorksheet("貼付元");
  // K1から貼付先シート名を取得 = VBAの sName
  const sName  = prefSh.getRange("K1").getValue() as string;
  const workSh = workbook.getWorksheet(sName);

  if (!workSh) {
    console.log(`シート "${sName}" が見つかりません`);
    return;
  }

  // ▼マーク列の自動検出 = VBAの WorksheetFunction.Match("▼", ...)
  const ptCol = findValueInRow(prefSh, 1, "▼");
  const wtCol = findValueInRow(workSh, 1, "▼");

  if (ptCol === -1 || wtCol === -1) {
    console.log("▼マークが見つかりません（2行目を確認してください）");
    return;
  }

  // マッピング列数の取得 = VBAの WorksheetFunction.Max(...)
  const pMCol = getMaxInRow(prefSh, 1);
  const wMCol = getMaxInRow(workSh, 1);

  if (pMCol !== wMCol) {
    console.log("引き当てる列の数が不整合のため中止します！");
    return;
  }

  // データ開始行の取得 = VBAの prefSh.Range("G1") / workSh.Range("G1")
  const pRow = prefSh.getRange("G1").getValue() as number;
  let   wRow = workSh.getRange("G1").getValue() as number;

  // 列マッピング配列の構築 = VBAの pCol() / wCol()
  const pCol: number[] = [];
  let pFlgCol = 0;
  for (let i = 1; i <= pMCol; i++) {
    const col = findValueInRow(prefSh, 1, i);
    pCol.push(col);
    if (i > 1 && col !== pCol[i - 2] + 1) pFlgCol = 1;
  }

  const wCol: number[] = [];
  let wFlgCol = 0;
  for (let i = 1; i <= wMCol; i++) {
    const col = findValueInRow(workSh, 1, i);
    wCol.push(col);
    if (i > 1 && col !== wCol[i - 2] + 1) wFlgCol = 1;
  }

  // 最終行の取得 = VBAの Cells(Rows.Count, col).End(xlUp).Row
  const workShEndR = getLastRow(workSh, wtCol);
  const prefShEndR = getLastRow(prefSh, ptCol);

  // ID照合用にターゲット列を配列として一括取得
  const tgetRng = prefSh
    .getRangeByIndexes(pRow - 1, ptCol, prefShEndR - pRow + 1, 1)
    .getValues();

  // 開始行の上書き指定（N1セル）= VBAの再開始行機能
  const n1Val = prefSh.getRange("N1").getValue();
  if (typeof n1Val === "number" && n1Val > wRow) wRow = n1Val;

  let lngHcount = 0;

  // チェック間隔を決定（1～1000件の範囲）
  // ・制御シートのC1に数値が入っていればそれを優先（手動指定）
  // ・未入力の場合はデータ量から自動計算（全体で約50回更新される間隔）
  const totalRows = workShEndR - wRow + 1;
  const manualInterval = ctrlSheet.getRange("C1").getValue();
  const checkInterval = typeof manualInterval === "number" && manualInterval > 0
    ? Math.min(1000, Math.max(1, Math.round(manualInterval)))
    : Math.min(1000, Math.max(1, Math.ceil(totalRows / 50)));

  // メインループ = VBAの For tgetTmpR = wRow To workShEndR
  for (let tgetTmpR = wRow; tgetTmpR <= workShEndR; tgetTmpR++) {

    const tmpStr = workSh
      .getRangeByIndexes(tgetTmpR - 1, wtCol, 1, 1)
      .getValue();

    // ID照合 = VBAの WorksheetFunction.Match(tmpStr, tgetRng, 0)
    let matchRng = -1;
    for (let r = 0; r < tgetRng.length; r++) {
      if (tgetRng[r][0] === tmpStr) {
        matchRng = r + pRow;
        break;
      }
    }

    if (matchRng === -1) continue;

    // 転記元データの取得
    const myArray: (string | number | boolean)[] = [];
    if (pFlgCol === 1) {
      for (let i = 0; i < pMCol; i++) {
        myArray.push(
          prefSh.getRangeByIndexes(matchRng - 1, pCol[i], 1, 1)
                .getValue() as string | number | boolean
        );
      }
    } else {
      const vals = prefSh
        .getRangeByIndexes(matchRng - 1, pCol[0], 1, pMCol)
        .getValues()[0];
      myArray.push(...(vals as (string | number | boolean)[]));
    }

    // 貼付先への書き込み
    if (wFlgCol === 1) {
      for (let i = 0; i < wMCol; i++) {
        workSh.getRangeByIndexes(tgetTmpR - 1, wCol[i], 1, 1)
               .setValue(myArray[i]);
      }
    } else {
      workSh.getRangeByIndexes(tgetTmpR - 1, wCol[0], 1, pMCol)
             .setValues([myArray]);
    }

    lngHcount++;

    // ★ 進捗表示：checkInterval件ごとに制御シートのA1・B2:B4へ書き込む
    const processedCount = tgetTmpR - wRow + 1;
    if (processedCount % checkInterval === 0) {
      const percent = Math.round((processedCount / totalRows) * 100);
      ctrlSheet.getRange("A1").setValue(
        `${percent}%完了（${processedCount}/${totalRows}件・HIT ${lngHcount}件）`
      );

      // B2:B4の3セルに数値を書き込むだけ（データバーで視覚的に表示）
      ctrlSheet.getRange("B2").setValue(lngHcount);        // HIT件数
      ctrlSheet.getRange("B3").setValue(processedCount);   // 処理件数
      ctrlSheet.getRange("B4").setValue(totalRows);        // 総件数
    }
  }

  ctrlSheet.getRange("A1").setValue(`完了！【データ更新件数： ${lngHcount} 件】`);
  ctrlSheet.getRange("B2").setValue(lngHcount);
  ctrlSheet.getRange("B3").setValue(totalRows);
  ctrlSheet.getRange("B4").setValue(totalRows);
}

// ── ヘルパー関数 ──────────────────────────────────

// 行内で値を検索して列インデックスを返す（0-indexed）
// = VBAの WorksheetFunction.Match の代替
function findValueInRow(
  sheet: ExcelScript.Worksheet,
  rowIndex: number,
  value: string | number
): number {
  const colCount = sheet.getUsedRange().getColumnCount();
  const rowValues = sheet
    .getRangeByIndexes(rowIndex, 0, 1, colCount)
    .getValues()[0];
  return rowValues.indexOf(value);
}

// 行の数値の最大値を返す
// = VBAの WorksheetFunction.Max の代替
function getMaxInRow(sheet: ExcelScript.Worksheet, rowIndex: number): number {
  const colCount = sheet.getUsedRange().getColumnCount();
  const rowValues = sheet
    .getRangeByIndexes(rowIndex, 0, 1, colCount)
    .getValues()[0];
  const nums = rowValues.filter(v => typeof v === "number") as number[];
  return nums.length > 0 ? Math.max(...nums) : 0;
}

// 最終行を返す（1-indexed）
// = VBAの Cells(Rows.Count, col).End(xlUp).Row の代替
function getLastRow(sheet: ExcelScript.Worksheet, colIndex: number): number {
  const rowCount = sheet.getUsedRange().getRowCount();
  const colValues = sheet
    .getRangeByIndexes(0, colIndex, rowCount, 1)
    .getValues();
  for (let r = rowCount - 1; r >= 0; r--) {
    if (colValues[r][0] !== "" && colValues[r][0] !== null) return r + 1;
  }
  return 1;
}