【検証】生成AIはVBAをOffice Scriptsに変換できるか？Win32 APIの壁とAIへの正しい依頼方法

Option Explicit
#If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare PtrSafe Sub keybd_event Lib "user32" ( _
    ByVal bVk As Byte, ByVal bScan As Byte, _
    ByVal dwFlags As Long, ByVal dwExtraInfo As LongPtr)
#Else
Private Declare Sub Sleep Lib "KERNEL32" (ByVal dwMilliseconds As Long)
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
    ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
#End If

Private Const KEYEVENTF_KEYUP = &H2

Sub Array_match()
    ' ～ メイン処理（省略）～
    ' ループ内でkeybd_eventを実行（スリープ防止）
    If tgetTmpR Mod 1000 = 0 Then
        keybd_event 0, 0, 0, 0
        keybd_event 0, 0, KEYEVENTF_KEYUP, 0
    End If
End Sub

// ❌ AIが誤解して生成したコード（シート構造を把握できていない）
function main(workbook: ExcelScript.Workbook) {
  const sheet1 = workbook.getWorksheet("Sheet1");
  const sheet2 = workbook.getWorksheet("Sheet2");

  const lastRow = sheet1.getUsedRange().getRowCount();
  for (let i = 1; i < lastRow; i++) {
    const id = sheet1.getRangeByIndexes(i, 0, 1, 1).getValue();
    sheet2.getRangeByIndexes(i, 0, 1, 1).setValue(id);
  }
}

function main(workbook: ExcelScript.Workbook) {

  // 貼付元シート（実行シート）= VBAの prefSh
  const prefSh = workbook.getActiveWorksheet();
  // 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;

  // メインループ = 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++;

    // ★ keybd_event（スリープ防止）→ 変換不可・削除
    //   理由：Win32 APIはOffice Scriptsから呼び出せない
    //   ただしOffice ScriptsはクラウドでPC自体がスリープしないため不要
    // ★ UserForm（プログレスバー）→ 変換不可・削除
    //   理由：Office ScriptsにUI部品なし
    // ★ キャンセルボタン / DoEvents → 変換不可・削除
    //   理由：イベント駆動モデルがない
    if (tgetTmpR % 1000 === 0) {
      console.log(`処理中... ${tgetTmpR} / ${workShEndR} 件`);  // プログレスバーの代替
    }
  }

  console.log(`完了！【データ更新件数： ${lngHcount} 件】`);
}

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

// 行内で値を検索して列インデックスを返す（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;
}

' ループ内で毎回更新されるプログレスバー
With UserForm1
    .Show vbModeless                        ' モードレスで表示（裏で処理継続）
    .ProgressBar1.Value = tgetTmpR          ' バーの進捗を更新
    .Label1.Caption = percent & "%完了【処理件数： " & _
                      tgetTmpR & " / " & workShEndR & " 】" & _
                      "【HIT件数：" & lngHcount & "件】"
End With

' キャンセルボタンが押されたら中断
If UserForm1.blCancel = True Then
    Unload UserForm1
    MsgBox "処理を中断しました。"
    End
End If

// 1000件ごとにコンソールへ出力（プログレスバーの代替）
if (tgetTmpR % 1000 === 0) {
  console.log(`処理中... ${tgetTmpR} / ${workShEndR} 件`);
}

// 完了後の出力（MsgBoxの代替）
console.log(`完了！【データ更新件数： ${lngHcount} 件】`);