Konuyu Paylaş : facebook gplus twitter

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.
Bizi Toprağa Gömdüler Fakat Tohum Olduğumuzu Bilmiyorlardı.
Cevapla
#3
(31-12-2017, Saat: 05:41)dilo Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlSelam, Ö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ı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(31-12-2017, Saat: 05:41)dilo Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlSelam, Ö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

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Excel Export PDF pro_imaj 16 5.496 04-07-2018, Saat: 18:21
Son Yorum: pro_imaj
  Excel, PDF ve Yazıcı formu Component 3ddark 8 223 22-06-2018, Saat: 14:46
Son Yorum: edo
  [ÇÖZÜLDÜ]-cxDBPivotGrid Seçili Satır Alan Değeri Alma hi_selamlar 2 117 21-06-2018, Saat: 10:40
Son Yorum: hi_selamlar
  Excel'e aktarım ile ilgili emrekilinc1984 12 1.552 27-04-2018, Saat: 18:31
Son Yorum: rahim@kirazyazilim.com
  Quick Report ile boş satır ekleme boreas 1 133 10-04-2018, Saat: 18:53
Son Yorum: boreas



Konuyu Okuyanlar: 1 Ziyaretçi