1 Konuyu açan a_ceylan

  • a_ceylan
  • Üye
  • Offline
  • Kayıt Tarihi: 05.11.2010
  • İleti: 5

Konu: excell de hücre rengi arama

arkadaşlar benim yapmak istediğim butona bastığımda inputbox çıksın ona girmiş olduğum sayısal değeri belli bir satırda arasın denk gelen değerin bulunduğu kolonda dolgu rengi örnek olarak sarı olan hücreyi arasın ve ve bulunan hücrenin sağındaki karşılık olan değeri versin..

umarım çok karışık olmamıştır. Koşullu düşeyarama gibi düşünün fakat aranılacak olan hücrenin dolgu rengi.

Lütfen bana yardımcı olun bu benim gerçekten çok önemli.

İlginiz için şimdiden hepinize teşekkürler.

2 Cevaplayan cetinbasoz Son düzenleyen, cetinbasoz (05.11.2010 15:09:53)

  • cetinbasoz
  • cetinbasoz
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 3,162

Re: excell de hücre rengi arama

Visual Fox Pro
lcXLS = 'c:\temp\Customer.xls' && ornek xls. C,D ve J inpurtboxtan secildigini farzet

lcColumns = 'C,D,J'

 

loExcel = Createobject('Excel.Application')

loExcel.Workbooks.Open(m.lcXLS)

 

For ix=1 To Alines(laColumns,m.lcColumns,1,',')

  GetTheValue( loExcel.ActiveWorkbook.ActiveSheet, laColumns[m.ix] )

Endfor

loExcel.Quit

 

Procedure GetTheValue(toSheet, tcColumn)

  Local lnRow,lnCol

  lnCol = _GetColNum( m.tcColumn )

  * Translate to usedrange column

  lnCol = m.lnCol - loExcel.ActiveWorkbook.ActiveSheet.UsedRange.Cells(1,1).Column + 1

  For lnRow=1 To toSheet.UsedRange.Rows.Count

    If toSheet.UsedRange.Cells(m.lnRow,m.lnCol).Interior.Color = Rgb(255,255,0)

      ? toSheet.UsedRange.Cells(m.lnRow,m.lnCol).Address(),;

        toSheet.UsedRange.Cells(m.lnRow,m.lnCol+1).Value

    Endif

  Endfor

Endproc

 

  * Return column number from A, AA, BC etc notation

Function _GetColNum

  Lparameters tcColumn && Convert Excel alpha notation to column number

  If Len(m.tcColumn) = 1

    Return Asc(Upper(m.tcColumn))-Asc('A')+1

  Else

    Return _GetColNum(Left(m.tcColumn,1))*26 + _GetColNum(Right(m.tcColumn,1))

  Endif

cetinbasoz's Website

3 Cevaplayan a_ceylan

  • a_ceylan
  • Üye
  • Offline
  • Kayıt Tarihi: 05.11.2010
  • İleti: 5

Re: excell de hücre rengi arama

öcelikle ne kadar teşekkür etsem azdır ellerinize sağlık.

Fakat bu konulara bir o kadar yabancıyım bir başka link te http://www.excel.web.tr/f47/excell-de-h … 90928.html daha konu açmıştım orada uygulama dosyası var zaman ayırıpta ona bir göz atarsanız beni çok mutlu edersiniz. içerisine açıklamalrda yazdım

sonzuz teşekkürler

4 Cevaplayan cetinbasoz

  • cetinbasoz
  • cetinbasoz
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 3,162

Re: excell de hücre rengi arama

Orada VBA var. Benim anlamadigim hangi dilde lazim sana daha dogru bir deyisle bu 'Buton' nerede? Excele mi ait VFP'ye mi? VFP kodu mu lazim yoksa Excel VBA kodu mu? Yukarida VFP kodu var ama basitce VBA'ye cevirebilirsin.

cetinbasoz's Website

5 Cevaplayan a_ceylan Son düzenleyen, a_ceylan (05.11.2010 19:45:53)

  • a_ceylan
  • Üye
  • Offline
  • Kayıt Tarihi: 05.11.2010
  • İleti: 5

Re: excell de hücre rengi arama

bana buton excel de lazım. exel vba da uygulama lazım. eminim sizin için çocuk oyuncağıdır ama  yapamıyorum iş yerinde çok önemli bir durumum geekiyor yardım edin lütfen ek teki  dosyayı incelediğinizde ne demek istediğimi çok iyi anlayacaksınz.

6 Cevaplayan cetinbasoz

  • cetinbasoz
  • cetinbasoz
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 3,162

Re: excell de hücre rengi arama

Ben VBA'den anlamam ama boyle oluyor sanirim:


Visual Fox Pro
Function DegerAl()

    kolon = InputBox("Kolon no")

    For i = 1 To ActiveSheet.UsedRange.Rows.Count

       If ActiveSheet.Cells(i, Val(kolon)).Interior.Color = RGB(255, 255, 0) Then

          DegerAl = ActiveSheet.Cells(i, Val(kolon) + 1).Value

       End If

    Next

End Function

cetinbasoz's Website

7 Cevaplayan a_ceylan

  • a_ceylan
  • Üye
  • Offline
  • Kayıt Tarihi: 05.11.2010
  • İleti: 5

Re: excell de hücre rengi arama

sizi çok yoruyorum ama bu yazdığınız fonksiyon makro sayfasına excel üzerinde ne değişiklik yapılırsa otomatik olarak eş zamanlı olarak keydediyor.
ne olur yardımcı olun...

8 Cevaplayan cetinbasoz

  • cetinbasoz
  • cetinbasoz
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 3,162

Re: excell de hücre rengi arama

Ederdim amaanlamiyorum ne demek istedigini.

cetinbasoz's Website

9 Cevaplayan a_ceylan

  • a_ceylan
  • Üye
  • Offline
  • Kayıt Tarihi: 05.11.2010
  • İleti: 5

Re: excell de hücre rengi arama

ilgin için çok teşekkür ederim başka bir forumda yanıtı buldum burada ki arkadaşlar da gerekebilir diye kodu buraya aktarıyorum ayrıca ilgin için tekrar tekrar teşekkür ederim

Visual Fox Pro
Option Explicit

 

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Bul As Range, Hücre As Range, U As Long

    If Not Intersect(Target, Range("E1")) Is Nothing Then

    Set Bul = Rows("8:8").Find(What:=Target, LookAt:=xlWhole)

    If Not Bul Is Nothing Then

    For U = 2 To Bul.Row

        If Cells(U, Bul.Column).Interior.ColorIndex > 0 Then

            Range("E10") = Cells(U, Bul.Column + 1)

        End If

    Next

    End If

    End If

End Sub

10 Cevaplayan cetinbasoz

  • cetinbasoz
  • cetinbasoz
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 3,162

Re: excell de hücre rengi arama

smile Sordugun soruyla bunun uzaktan yakindan ilgisi yok ama senin kafandaki soru baskaysa mesele yok:)

cetinbasoz's Website