掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TExcelWorkSheetで行挿入のイベント (ID:26591)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
疑問１：エクセルで行のコピー、コピーした行の挿入。で十分では？ 疑問２：エクセルのマクロで十分では？ 疑問３：各局、Delphiで何がやりたいのか？ 今ひとつよくわからないが、こういう事かな？（一応動作確認済み） procedure TForm1.Button1Click(Sender: TObject); var orig1, orig2, dup1, dup2 : string; CurrentRow, PriorRow : Integer; begin CurrentRow := ExcelApplication1.ActiveCell.Row; //現在の行を取得 if CurrentRow > 1 then begin PriorRow := CurrentRow-1; orig1 := 'A' + IntToStr(CurrentRow); //現在の行頭 orig2 := 'IV' + IntToStr(CurrentRow); //行末(これは'IV'ではなく、自分で取得したほうが良い？) //ExcelApplication1.ActiveCell.CurrentRegion.Rows.Columns.Count;とか？ dup1 := 'A' + IntToStr(PriorRow); //１つ上の行頭 dup2 := 'IV' + IntToStr(PriorRow); //行末 ExcelWorksheet1.Range[orig1, orig2].EntireRow.Insert(xlShiftDown); //１行挿入 ExcelWorksheet1.Range[dup1, dup2].Copy(ExcelWorksheet1.Range[orig1, orig2]); //上の行をコピー end; end; ・・・これが何の役に立つんだろう？ ・・・質問者がやりたい事とは全然違っているほうに50000エクセル。 あと、これはセル単位コピーなので、行単位コピーのわかる方、フォローをお願いします。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.