怎么把这段代码转换成delphi语言(100分)

S

sljfw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #1

怎么把这段代码转换成delphi语言
Range("A1:A2").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With

 

N

Nstar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #2

with selection do
begin
.....
end;

 

S

sljfw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #3

Range("A1:A2").Select这一句呢

 

B

BeginDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #4

Range("A1:A2").Select;
With Selection do
begin
HorizontalAlignment: = xlGeneral;
VerticalAlignment: = xlBottom;
WrapText := False;
Orientation := 0;
AddIndent := False;
ShrinkToFit := False;
MergeCells := True;
End ;
That's all.

 

B

bbs_delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-29

• #5

来晚了

 

H

HuangYiHua

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #6

其实最重要的是将第一句话转换为delphi可用的代码；
声明一个olevarinat型变量，将创建的ole对象所取是的范围赋值给此变量
再对此变量操作即可；

var
NewRange:OleVariant;
begin
NewRange:=ole对象.Range;
With NewRange do
begin
HorizontalAlignment: = xlGeneral;
VerticalAlignment: = xlBottom;
WrapText := False;
Orientation := 0;
AddIndent := False;
ShrinkToFit := False;
MergeCells := True;
End ;
end;

 

S

SZKINGROSE

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-24

• #7

同意！