//---------------------------------------------------------------------------
//  セルの番地の行番号と列番号からA1形式に変換
//  ACol の値が 702 以下に限る
//---------------------------------------------------------------------------
function ToA1Value(ARow, ACol: Integer): string;
var
  LOrdA : Integer;
  Ldiv  : Integer;
  LMod  : Integer;
begin
  LOrdA := Ord('A');
  Ldiv  := ACol div 26;
  if Ldiv = 0 then begin
    Result := Chr(ACol + LOrdA - 1) + IntToStr(ARow);
  end else begin
    LMod := ACol mod 26;
    Result := Chr(Ldiv + LOrdA - 1) + Chr(LMod + LOrdA - 1) + IntToStr(ARow);
  end;
end;

//---------------------------------------------------------------------------
//  セルの番地をA1形式からR1C1形式の行番号と列番号に変換
//  A1 の最初と 2 番目の文字が A から Z の場合に限る
//---------------------------------------------------------------------------
function ToR1C1Value(A1: string): TPoint;
var
  LOrdA : Integer;
  LIdx  : Integer;
begin
  LOrdA := Ord('A');
  LIdx  := 2;
  Result.X := Ord(A1[1]) - LOrdA + 1;
  if (A1[2] >= 'A') and (A1[2] <= 'Z') then begin
    Result.X := Result.X * 26 + Ord(A1[2]) - LOrdA + 1;;
    LIdx := 3;
  end;
  Result.Y := StrToInt(Copy(A1, LIdx, Length(A1) - (LIdx - 1)));
end;