Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Excel satır rengi
#1
Selam, Örnek koddaki gibi normalde excelin satırını program üzerinden belirleyebiliyoruz. fakat bunun tam tersini, excel satır rengi değerini nasıl alabilirim?




     
Excel.ActiveSheet.Rows[Row].Font.Color :=  StrToInt(Items.Item[I].SubItems[5]);
Cevapla
#2
var
cell :  ExcelRange;
begin
if OpenDialog1.Execute() then
begin
ExcelApplication1.Connect;
ExcelApplication1.Workbooks.Open(StringToOleStr(OpenDialog1.FileName),
EmptyParam, EmptyParam,EmptyParam, EmptyParam, EmptyParam, EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam, $400);
ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.ActiveSheet as _Worksheet);
ExcelApplication1.Visible[$400]:=true;
 cell:=ExcelWorksheet1.Range['A4', EmptyParam];
 Shape1.Brush.Color:=cell.Interior.Color; //hücre rengi
 Shape2.Brush.Color:=cell.Characters[1,1].Font.Color; //yazı rengi
 end;
end;

Satırdan ziyade hücrenin renk değerleri almak bence daha doğru olur.
Herhangi bir basit problem, hakkında yeterince toplantı yapılarak, çözümsüz hale getirilebilir.
https://play.google.com/store/apps/developer?id=ONGUN
WWW
Cevapla
#3
(31-12-2017, Saat: 05:41)dilo Adlı Kullanıcıdan Alıntı: Selam, Örnek koddaki gibi normalde excelin satırını program üzerinden belirleyebiliyoruz. fakat bunun tam tersini, excel satır rengi değerini nasıl alabilirim?




     
Excel.ActiveSheet.Rows[Row].Font.Color :=  StrToInt(Items.Item[I].SubItems[5]);



            
            ParamByName('zemin').Asstring := Sheet.Cells[J, 1].Interior.Color;
            ParamByName('yazi').Asstring := Sheet.Cells[J, 1].Font.Color;
            ParamByName('tip').Asstring := Sheet.Cells[J, 1].Font.Bold;

İyi seneler
Cevapla
#4
(31-12-2017, Saat: 17:45)brs Adlı Kullanıcıdan Alıntı:
(31-12-2017, Saat: 05:41)dilo Adlı Kullanıcıdan Alıntı: Selam, Örnek koddaki gibi normalde excelin satırını program üzerinden belirleyebiliyoruz. fakat bunun tam tersini, excel satır rengi değerini nasıl alabilirim?




     
Excel.ActiveSheet.Rows[Row].Font.Color :=  StrToInt(Items.Item[I].SubItems[5]);



            
            ParamByName('zemin').Asstring := Sheet.Cells[J, 1].Interior.Color;
            ParamByName('yazi').Asstring := Sheet.Cells[J, 1].Font.Color;
            ParamByName('tip').Asstring := Sheet.Cells[J, 1].Font.Bold;

İyi seneler

teşekkür ederim.
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Delphi Sürekli Adı Değişen Excel Dosyasından Veri Çekme bünyamin68 2 556 05-10-2023, Saat: 12:50
Son Yorum: mcuyan
  Excel Aktarım OZCANK 2 417 21-08-2023, Saat: 12:57
Son Yorum: frmman
  Fasreport Table nesnesinde satır yüksekliği cvheneburi 4 586 01-08-2023, Saat: 16:27
Son Yorum: cvheneburi
  Delphi 7 Excel'e Veri Aktarma mahone 6 1.051 02-05-2023, Saat: 08:34
Son Yorum: COMMANDX
  DbGrid Satır renklendirmede sütun seçimi delphicim 3 2.207 15-02-2023, Saat: 20:02
Son Yorum: sadikacar60



Konuyu Okuyanlar: 1 Ziyaretçi