Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[15975] Re:엑셀에서 선택한 범위 알아내기
수원성 [] 324 읽음    2018-07-20 16:32
현재 Cell인 경우
nColumn := Sheet.ActiveCell.Column ;
nRow := Sheet.ActiveCell.Row ;
현재의 Row와 Column 입니다.

범위 선택의 경우
Set rMulti = Selection.Cells()
RowCount = rMulti.Rows.Count
colCount = rMulti.Columns.Count

For Each rCell In rMulti
        Debug.Print rCell.Row, rCell.Column, rCell.Value
Next rCell

출처: http://mainia.tistory.com/5311 [녹두장군 - 상상을 현실로]

주머니 님이 쓰신 글 :
:
: 안녕하세요. 아래와 같은 코드로 저장되어 있는 엑셀파일을 오픈하고
: [1,1]셀에 TEST를 넣었습니다.
:
: 제가 하고자 하는것은
: 엑셀파일을 오픈해서.
: 엑셀에서 마우스로 드래그 하여 선택된 범위의 엑셀 행번호, 열번호를
: 알아내서, 그 범위안에만 데이터를 집어 넣고 싶습니다.
:
: 엑셀파일 오픈해서 셀에다 값을 넣는것까지는 되는데,
: 선택된 행번호, 열번호 범위를 알수 있는 방법을 몰라 이렇게 질문드립니다.
:
: 감사합니다.
:
: var
:   XLApp: OleVariant;
:   Sheet: OleVariant;
: begin
:   XLApp := CreateOleObject('Excel.Application');
:   XLApp.Visible := True;
:   XLApp.Workbooks.Open('c:\temp\aa.xlsx');
:   Sheet := XLApp.Worksheets.Item['Sheet1'];
:   Sheet.cells [1,1] := 'test';
:   Sheet.Select;
: end;

:
:

+ -

관련 글 리스트
15974 엑셀에서 선택한 범위 알아내기 주머니 349 2018/07/17
15975     Re:엑셀에서 선택한 범위 알아내기 수원성 324 2018/07/20
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.