김시준
(김시준)
|
|
TMS Grid를 오랫동안 사용중인데요...
엑셀 전환 시 아무 문제없이 잘 사용해 오고 있습니다.
즉 Grid에 나타난 그대로 변환이 잘 됩니다.
3.x 버전도 문제가 없을 것으로 보입니다만...
저는 3.x 부터 시작해서 현재 10.x 버전을 사용중입니다..
2020-05-25 오전 10:38:00
|
|
| |
김시준
(김시준)
|
|
혹시 방법이 있을까요? 이 컬럼은 숫자다! 문자다! 엑셀전환시 타입을 그대로 따라가라! 뭐 이런식으로요.
// 옵션에서 아래처럼 하면 위 질문처럼 됩니다....
ExportCellFormats := True;
ExportCellMargins := True;
ExportCellProperties := True;
ExportCellsize := True;
ExportFormulas := True;
2020-05-25 오전 10:41:13
|
|
| |
비와바람
(정진원)
|
|
김시준//
알려주신대로 배홨는데요.. 그래도 안되네요.
컬럼값중 03-00014. 05-00015 이런 값들은 지맘대로 날짜로 바껴버리고.. 00041로 나와야 하는것들은 그냥 41이 되어버립니다.
문제의 컬럼들은 onGetFormat 프로퍼티에서 AStyle := ssAlphabetic로 했는데, 다른 걸로 해야 할까요??
다시 말씀드리면, 숫자형식(ex: 00041)문자는 문자로, 숫자는 숫자로 나와야 하구요.. 당연히 엑셀은 그걸 구분못하니 제가 어떻게 지정해 줄수 있는가?가 핵심이겠네요..
2020-05-25 오후 1:54:53
|
|
| |
비와바람
(정진원)
|
|
김시준//
그리고 테스트한 내역중 날짜가 있는데, 보이는 화면컬럼상 앞에 20을 뺐어요. 그런데 엑셀전환하면 20이 나타나고... 이건 안바껴도 되는거거든요..
이걸 컨트롤할 방법이 있는지 해서입니다..
2020-05-25 오후 1:58:45
|
|
| |
김시준
(김시준)
|
|
AdvGridExcelIO의 OnExportColumnFormat 이벤트에서 다음과 같이 해 보십시오...
procedure TForm1.AdvGridExcelIOExportColumnFormat(Sender: TObject; GridCol, GridRow,
XlsCol, XlsRow: Integer; const Value: WideString;
var ExportCellAsString: Boolean);
begin
ExportCellAsString := True; // 이 부분을....
end;
참고로 숫자에 천단위 콤마를 찍으려면
procedure TForm1.AdvGridExcelIOCellFormat(Sender: TAdvStringGrid;
const GridCol, GridRow, XlsCol, XlsRow: Integer; const Value: WideString;
var Format: TFlxFormat);
begin
Format.Format := ',0';
end;
2020-05-25 오후 3:10:51
|
|
| |
비와바람
(정진원)
|
|
//김시준
아무래도 엑셀전환자체보단, 셀서식을 전부 문자열로 인식하던가, 아니던가해서 생기는 문제 같아요..
그리고 제가 쓴 댓글에 좀 잘못썼는데, 정정하면 숫자컬럼에는 GetFormat에 ssNumeric를 줘도 인식을 못하네요..
이번생에는 안될라나봐요.. ㅠㅠ
2020-05-25 오후 3:57:18
|
|
| |
김시준
(김시준)
|
|
숫자 칼럼도 Cells[r, c] := 숫자값;
이렇게 하는 모양이죠?
숫자는 이렇게 함 해 보시죠...
Floats[r, c] := Value;
or
Ints[r, c] := Value;
2020-05-25 오후 6:48:40
|
|
| |
김시준
(김시준)
|
|
Grid.FloatFormat := '%.0f';
2020-05-25 오후 6:51:17
|
|
| |
dal
(유정화)
|
|
숫자는 AdvGridExcelIO 의 OnCellFormat 이벤트에서 아래와 같이 해결했습니다.
procedure TAdvGridExcelIO.GridCellFormat(Sender: TAdvStringGrid;
const GridCol, GridRow, XlsCol, XlsRow: Integer; const Value: WideString;
var Format: TFlxFormat);
var i, ilen : integer;
s: string;
begin
//-- 숫자0으로 시작하는 문자를 인식시키기 위함( '01' -> '1' 이 아닌 '01'로 인식하도록)
if (Copy(value,1,1) >= '0') and (Copy(value,1,1) <= '9') then
begin
ilen := length(trim(value));
s := '';
for i := 1 to ilen do s := s+'0';
Format.Format := s;
end;
end;
2020-05-27 오전 11:41:41
|
|
| |
비와바람
(정진원)
|
|
//del
답변 고맙습니다.
그런데 보통 엑셀전환같은 건 그냥 함수 만들어 쓰지 않던가요..?
엑셀전환하는 폼마다 컴포넌트 올리고 엑셀전환시키시는지..
전 그냥 공용함수 하나 만들어서 그 함수 호출하면서 그리드 밀어넣었거든요..
사실 제가 바란건 그리드의 컬럼(또는 셀별로) 속성을 읽어서(줄수있다면!!) 그 속성대로 엑셀전환이 되었으면 하는거였죠.
위에 김시준님께서 말씀하신것처럼 해당컬럼을 Cells로 기재하면 문자로, Ints나 Floats로 기재하면 숫자가 되었으면 했는데..
제가 가진 버전이 낮아서인지 그렇게 인식은 되지 않는듯 합니다.
그리고 del님께서 말씀해주신 건 모든 숫자를 문자로 인식하는 방법인데.. 모든 컬럼을 그렇게 인식시키면 또 안되구요..
통계 같은 경우 일련번호등은 '00001', '00002'...이런식이 되지만 값들은 숫자로 합산이 가능하기를 바라는.. 뭐 그런거죠.
너무 욕심이 많을까요.. ㅎㅎ
2020-05-29 오후 1:04:24
|
|
| |
dal
(유정화)
|
|
혹시 테스트를 해보셨는데 안되시는 건지요.
저는 위 방법으로 0으로 시작하는 숫자만 앞에 0을 표시하도록 하고, 0으로 시작하지 않는 숫자는 숫자로 인식해서 합산이 잘 되더라구요.
2020-06-04 오후 3:59:28
|
|
| |
dal
(유정화)
|
|
참고로 김시준님 말씀하신 OnExportColumnFormat 이벤트에
ExportCellAsString := True; 로 설정하면
모든 숫자를 문자로 인식합니다.
위 설정으로 되어있다면 풀고 한번 해보세요.
2020-06-04 오후 4:11:55
|
|
| |
비와바람
(정진원)
|
|
//dal
말씀하신 테스트는 알겠는데요..
사실 데이터의 숫자/문자 구분이 단순히 데이터가 아닌 컬럼자체로 구분해야 하는 상황입니다.
예를 들면 어떤 거래처는 A컬럼에 0000012 로 들어오고 어디는 00-1234, 또 어디는 2222로 들어옵니다.
그래서 이 컬럼은 숫자의 형태지만 문자로 인식해줘야 합니다.
또 주민번호 컬럼은 진짜 문자로 인식해야 하죠.
그래서 사실 알고 싷은건 엑셀전환시 내가 어떤 컬럼의 타입을 뭘로 줬는지에 따라서 엑셀변환이 매칭되었으면 좋겠다고 생각하는데 그게 말처럼 쉽지 않네요.
다른 그리드인 RealGrid는 어느정도 되었거든요.
하지만 TMS는 기본이 String이며 각 컬럼의 속성을 결정하지 않는데 문제아닌 문제가 있고 그와중에 컬럼그리드가 아닌 그냥 스트링그리드를 사용하면 그게 더 어려워지는거 같더라구요.
결국 내가 숫자로 인식하기 원하는 컬럼을 일일히 정해서 변수로 넘겨줘야 하는 문제아닌 문제가 생기는거 같다는 생각이 들긴 했습니다..
신경써주셔서 고맙습니다. ^^;
2020-06-10 오전 10:01:59
|
|
| |
