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'e aktarım ile ilgili emrekilinc1984 10 1.236 23-04-2018, Saat: 15:00
Son Yorum: mrmarman
  Quick Report ile boş satır ekleme boreas 1 69 10-04-2018, Saat: 18:53
Son Yorum: boreas
  Kolon rengi serhat 3 187 16-01-2018, Saat: 13:41
Son Yorum: Abdullah ILGAZ
  Hızlı satır okuma bu fonksiyonu çalıştıramadım satır okuma fonksiyonu Delphiseven 21 982 10-07-2017, Saat: 17:16
Son Yorum: ismailkocacan
  DbGrid To Excel & DataSet To Excel yhackup 8 911 31-03-2017, Saat: 12:19
Son Yorum: mcuyan



Konuyu Okuyanlar: 1 Ziyaretçi