현재 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;
:
:
:
|