双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

急!!!有谁用过Spreadsheet吗!!怎样进行单元格的读取和赋值呢？烦请高手指点！！进者有分！

2005-03-16 09:15:10 821 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

tangss 墨衍会员 · AI 创作全网分发关注 + 加入社区

WRF气象建模实战：如何为JRA55非标准数据定制Vtable文件？本文详细介绍了为WRF气象模型定制Vtable文件以支持JRA55非标准数据（特别是积雪数据）的完整实战流程。文章深入解析了WPS数据流中Vtable的核心映射逻辑，提供了从GRIB文件诊断、Vtable编写到METGRID.TBL调优的通用方法论，帮助用户解决非标准气象数据源适配的关键技术挑战。阅读详情

有谁用过Spreadsheet吗!!怎样进行单元格的读取和赋值呢？

...全文

《华为项目管理之道》第1章笔记 performance indicator，KPI)纳入个人绩效承诺书，贯彻结果导向的理念，以向员工。客户需求是华为发展的原动力，为客户服务是华为存在的唯一理由。目经理‘用兵’，依靠市场机制‘调兵’”，打破了人员在功能部门的板结，实现了听得。为管理者选拔的必要条件，项目经理成为人人向往的岗位。《华为项目管理之道》，是新出的华为官方的项目管理书，整个书不错。伴随着项目型组织的建立，华为逐步形成了完备的项目管理流程和制度，从而将业务运。为此，通过改革，重新明确了项目经理承担的经营责任，并开始以项。阅读详情

tangss

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

axin1102 2005-07-15

打赏
举报

while not ADataSet.Eof do
begin
with ssbSample.ActiveSheet.GetCellObject(
ADataSet.FieldByName('列').AsInteger,
ADataSet.FieldByName('行').AsInteger) do
begin
Text := '赋值';
end;
ADataSet.Next;
end;

wangbao20001766 2005-04-21

打赏
举报

Comer 2005-04-21

打赏
举报

帮顶

tangss 2005-04-12

打赏
举报

有人知道吗？

XuDunYu 2005-04-09

打赏
举报

var
Sheet: WorkSheet;
begin
sheet := Spreadsheet1.ActiveSheet;
Sheet.Rows.Clear;
Sheet.Rows.ClearFormats;
Sheet.Range['A1','A1'].Value := '测试时钟';
Sheet.Range['B1','B1'].Value := '间隔';
Sheet.Range['C1','C1'].Value := '抄表起始时钟';
Sheet.Range['D1','D1'].Value := '显示起始时钟';
Sheet.Range['E1','E1'].Value := '抄表结束时钟';
Sheet.Range['F1','F1'].Value := '显示结束时钟';
Sheet.Range['G1','G1'].Value := '测试结果';
Sheet.Range['A1','G1'].Font.Set_Name('宋体');
Sheet.Range['A1','G1'].Font.Set_Bold(True);
Sheet.Range['A1','G1'].Font.Set_Size(10);
Sheet.Range['A1','A1'].Set_ColumnWidth(140);
Sheet.Range['B1','B1'].Set_ColumnWidth(30);
Sheet.Range['C1','C1'].Set_ColumnWidth(140);
Sheet.Range['D1','D1'].Set_ColumnWidth(140);
Sheet.Range['E1','E1'].Set_ColumnWidth(140);
Sheet.Range['F1','F1'].Set_ColumnWidth(140);
Sheet.Range['G1','G1'].Set_ColumnWidth(70);
Sheet.Rows.Set_VAlignment(2);
Sheet.Rows.Set_HAlignment(2);
Sheet.Rows.Set_NumberFormat('YYYY-MM-DD HH:MM:SS');
end

real_name 2005-04-07

打赏
举报

没用过,帮你顶

sysbasic 2005-04-07

打赏
举报

倒...

with Spreadsheet1.ActiveSheet.GetCellObject(iCol, ARow) do
begin
Text := adsReportData.FieldByName('SFORMULA').AsString;
Free;
end;

Heyongfeng 2005-04-07

打赏
举报

没用过，帮顶

tkdyzc 2005-04-07

打赏
举报

大兄弟作队日外包吧
Spreadsheet1.Cells(1, 1): = '第1行,第1列;
Edit1.Text: = Spreadsheet1.Cells(i, j);

xiaoyaozgc 2005-04-04

打赏
举报

帮你顶

tangss 2005-04-04

打赏
举报

Help!!

tangss 2005-04-04

打赏
举报

没有人知道吗？

lyguo 2005-03-29

打赏
举报

没有用过

hc0007 2005-03-29

打赏
举报

with fmddcldata.ls_table do
for i:=2 to grid.RowCount do begin
Insert;
fields[1].AsString:=local_userid;
if flag='T' then
for j:=2 to grid.ColCount-1 do begin
if trim(grid.Cells[2,i])='' then begin
cancel;
exit;
end;
fields[j].AsString:=trim(grid.Cells[j,i]);
end;
if flag='F' then begin
if trim(grid.Cells[2,i])='' then begin
cancel;
exit;
end;
fields[2].AsString:=trim(grid.Cells[2,i]);
fields[3].AsString:=trim(grid.Cells[3,i]);
fields[4].AsString:=trim(grid.Cells[4,i]);
fields[5].AsString:=trim(grid.Cells[5,i]);
fields[6].AsString:=trim(grid.Cells[6,i]);
fields[7].AsString:='';
for j:=7 to grid.ColCount-1 do begin
fields[j+1].AsString:=trim(grid.Cells[j,i]);
end;
end;
post;
end;
stat2.Panels[2].Text:='记录数:'+inttostr(fmddcldata.ls_table.RecordCount);
application.MessageBox('恭喜您!数据处理完毕!','提示',0);
end;

hc0007 2005-03-29

打赏
举报

procedure Tfmddcl.ll_xddClick(Sender: TObject);
var
i, j, k: Integer;
sheet: TSpreadSheet;
Value: Variant;

begin
if not xdd_dialog.Execute then exit;
ll_yddd.Text:=xdd_dialog.FileName;

for i := PageControl2.PageCount-1 downto 0 do
PageControl2.Pages[i].Free;

with TMSExcel.Create(Self) do
try
LoadFromFile(ll_yddd.Text);

for k := 0 to Sheets.Count-1 do
begin
sheet := Sheets.SpreadSheet(k);
if Assigned(sheet) then
begin
{create a tab and grid for each sheet in workbook}
tab := TTabSheet.Create(PageControl2);
tab.Caption := sheet.Caption;
tab.PageControl := PageControl2;

grid := TStringGrid.Create(tab);
grid.DefaultRowHeight := 21;
grid.Options := [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing];
grid.Parent := tab;
grid.Align := alClient;

grid.RowCount := sheet.Cells.UsedRowCount+1;
grid.ColCount := sheet.Cells.UsedColCount+1;

for i := 1 to sheet.Cells.UsedRowCount+1 do
begin
for j := 1 to sheet.Cells.UsedColCount+1 do
begin
Value := sheet.Cells.GetValue(j-1, i-1);
{ if j= 4 then
begin
begin
grid.Cells[j, i]:=FormatDateTime('yyyy-mm-dd', StrToDate(Value));
end
end;
}
if (VarType(Value) = varBoolean) then
begin
if Value then
grid.Cells[j, i] := 'True'
else
grid.Cells[j, i] := 'False'
end
// else if TryStrToDate(Value,'yyyy-mm-dd') then
// grid.Cells[j, i] :=DateToStr(try TryStrToDate(Value,'yyyy-mm-dd'))
else
grid.Cells[j, i] := VarToStr(Value);
end;
end;

for i := 1 to grid.RowCount-1 do
grid.Cells[0, i] := IntToStr(i);
for j := 1 to grid.ColCount-1 do
grid.Cells[j, 0] := Chr(Ord('A') + j - 1);
end;
end;
finally
Free
end;
end;

tangss 2005-03-29

打赏
举报

我想和VB中这样：

Spreadsheet1.Cells(1, 1) = "第1行,第1列"
Text1.Text = Spreadsheet1.Cells(i, j)

但是在Delphi不知怎样用!
烦请高手指点！！

aiirii 2005-03-29

打赏
举报

http://hubdog.csdn.net/Hubdog/oweb.htm

(3) 基于电子表格（Spreadsheet）数据的图表

在下面这个例子中，我们将创建一个基于OWC Spreadsheet控件数据的图表，当我们修改了电子表格中的数据后，变动会自动反映在电子表格中，先声明变量：

var

Sheet : WorkSheet; // 电子表格

Chart : WCChart; // 图表

用数据填充电子表格

Sheet := Spreadsheet1.ActiveSheet;

with Sheet do begin

Range['A1', 'A10'].Set_Formula('=Row()');

Range['B1', 'B10'].Set_Formula('=A1^2');

Range['A12','A12'].Set_Formula('=Max(A1:A10)');

Range['B12','B12'].Set_Formula('=Max(B1:B10)');

end;

在上面的代码中，我们把行号(从1到10)插到列A中，把行号的平方插到列B中。单元格A12和 B12 设为列A和列B的最大值。正如我们看到的，Spreadsheet控件支持Excel那样的公式表达，它和Excel拥有同样的二进制内核。这项特性使得我们可以利用Spreadsheet控件执行某些无须显示结果于在屏幕上的后台计算。

mqjshanghai 2005-03-29

打赏
举报

帮你顶
接分

Heyongfeng 2005-03-29

打赏
举报

没用过，帮顶

darkliu 2005-03-28

打赏
举报

加载更多回复（11）

✦双11狂欢大促✦

急!!!有谁用过Spreadsheet吗!!怎样进行单元格的读取和赋值呢？烦请高手指点！！进者有分！

相关推荐

双11狂欢大促