Az előbbi a találat oszlopjelét adta meg
=INDEX(A$1:E2;1;HOL.VAN(1;A2:E2;0))
Szerkesztette: Delila 2011. 03. 07. 19:21 -kor
Mellékleteink: HUP | Gamekapocs
Elküldve: 2011. 03. 17. 17:23
Function Kikombinál(Alap As Double, ParamArray számok())
Function Kikombinál(Alap As Range, számok() as Range)
Elküldve: 2011. 03. 18. 16:54
Sub kikombinál()
Dim t(), tt(100) As Long
sorok = Selection.Rows.Count
oszlopok = Selection.Columns.Count
ReDim t(sorok, oszlopok)
cím = Selection.Address
For sz = 1 To 100
a = InputBox("Kérem a számot", "Szám bekérése")
If a = "" Then Exit For
tt(sz) = a
Next
For Each cella In Selection
For a = 1 To sz - 1
If cella.Value = tt(a) Then
Range(cella.Address).Interior.ColorIndex = 6
' ide jön a keret, és a megjegyzés beszúrása
End If
Next
Next
End Sub
Elküldve: 2011. 04. 13. 08:08
Elküldve: 2011. 04. 13. 08:26
Elküldve: 2011. 04. 20. 13:22
Elküldve: 2011. 04. 21. 12:14
Idézet: Delila - Dátum: 2011. 03. 07. 20:20
Elküldve: 2011. 04. 21. 14:53
Idézet: hkpk - Dátum: 2011. 04. 21. 12:14
Elküldve: 2011. 05. 02. 20:38
Elküldve: 2011. 06. 02. 11:32
Elküldve: 2011. 06. 02. 13:42
Idézet: zoldkozi - Dátum: 2011. 06. 02. 12:32
Elküldve: 2011. 06. 02. 14:18
Idézet: zoldkozi - Dátum: 2011. 06. 02. 11:32
Elküldve: 2011. 06. 08. 08:51
Elküldve: 2011. 06. 08. 11:23
Elküldve: 2011. 06. 09. 07:14
Elküldve: 2011. 06. 09. 14:23
Szerkesztette: Picur 2011. 06. 09. 14:25 -kor