Auteur Topic: oplichten rij en kolom (gelezen 8336 keer)

flipper52 · « **Gepost op:** 05 februari 2008, 09:29:42 »

Hallo, hier ben ik weer

in dit excelbestand had ik graag de cel en de rij laten oplichten waar ik in sta, maar dit alleen in de opgegeven locatie,MAAR HOE DOE IK DAT ?
in het bestand heb ik het programma al iets kunnen veranderen, de cel en de rij dat hij moet starten, nu nog de code waar hij moet eindigen.
hier bij het betreffende excel bestand.
dank bij voorbaat.
( ken nog niet zoveel van VBA)

Groetjes Flipper

dirktimm · « **Reactie #1 Gepost op:** 05 februari 2008, 10:09:27 »

Hallo Flipper,

Is bijgaand een bestand een oplossing voor je. In het onderwerp heb je het over rij en kolom en in de tekst alleen over de cel en de rij. De laatste is bijgevoegd.

Groet

Dirk

dirktimm · « **Reactie #2 Gepost op:** 05 februari 2008, 10:16:47 »

Hallo Flipper,

Of dit bestand met rijen en kolommen

Groet

Dirk

flipper52 · « **Reactie #3 Gepost op:** 05 februari 2008, 10:30:03 »

Hallo Dirk,

allereerst bedankt voor je snelle reactie.
sorry voor mijn misleidende info, de bedoeling is, zoals je kon zien is het een voetbalschema waar je de uiitslagen invult, de bedoeling is dus dat wanneer je in een cel klikt, deze rij en kolom oplicht.
Dus niet het hele blad.
Enkel de rij en kolom van de gespeelde wedtsrijd, bv. KV Mechelen - Anderlecht

RedHead · « **Reactie #4 Gepost op:** 05 februari 2008, 10:35:55 »

Flipper52, Daar is code voor te vinden op het internet. Maar denk er wel over na dat 'het laten oplichten' van een regel de vooraf ingestelde formats zijn verdwenen! Er zijn wel codes te vinden die dit afvangen, maar die zijn zéér complex.

Groet, Leo

RedHead · « **Reactie #5 Gepost op:** 05 februari 2008, 10:47:50 »

Flipper52, waarschijnlijk toch iets moois voor je gevonden (zelf niet getest! Dus aub eerst zelf testen op een copie workbook!!!).

Zoekterm Google: 'highlight the active row + VBA Excel'
Bron: https://www.xcelfiles.com/Excel02.html#anchor_54

Code: [Selecteer]

Option Explicit
'// Placed in the ThisWorkbook Object

Private Sub Workbook_Open()
    Application.OnKey "{RIGHT}", "HighlightRight"
    Application.OnKey "{LEFT}", "HighlightLeft"
    Application.OnKey "{UP}", "HighlightUp"
    Application.OnKey "{DOWN}", "HighlightDown"
    Application.OnKey "{DEL}", "DisableDelete"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "{RIGHT}"
    Application.OnKey "{LEFT}"
    Application.OnKey "{UP}"
    Application.OnKey "{DOWN}"
    Application.OnKey "{DEL}"
End Sub

Option Explicit
'/////////////////////////////////
'// Original by NateO for aldo ///
'//     24th Jan 2003          ///
'//    Amended by IFM          ///
'//     28th Jan 2003          ///
'//    Amended by Aldo         ///
'//
'/////////////////////////////////

'// Placed in a Std Module

Dim strCol As String
Dim iCol As Integer
Dim dblRow As Double

Sub HighlightRight()
    HighLight 0, 1
End Sub

Sub HighlightLeft()
    HighLight 0, -1
End Sub

Sub HighlightUp()
    HighLight -1, 0, -1
End Sub

Sub HighlightDown()
    HighLight 1, 0, 1
End Sub

Sub HighLight(dblxRow As Double, iyCol As Integer, Optional dblZ As Double = 0)

'// Amended to highlight Activecell cross intersection
'// Amended as an Alternative to using Condtional Formats
'// As per Aldo thread;
'// https://216.92.17.166/board/viewtopic.php?topic=19239&forum=2&start=20&22

On Error GoTo NoGo
strCol = Mid(ActiveCell.Offset(dblxRow, iyCol).Address, _
        InStr(ActiveCell.Offset(dblxRow, iyCol).Address, "$") + 1, _
        InStr(2, ActiveCell.Offset(dblxRow, iyCol).Address, "$") - 2)
iCol = ActiveCell.Column
dblRow = ActiveCell.Row

'// If you don't want screen flicker
Application.ScreenUpdating = False
    
With Range(strCol & ":" & strCol & "," & dblRow + dblZ & ":" & dblRow + dblZ)
    .Select
    '// Need to reset here!
    Application.ScreenUpdating = True
    .Item(dblRow + dblxRow).Activate
End With

NoGo:
End Sub


Sub DisableDelete()
    Cells(ActiveCell.Row, ActiveCell.Column).Select
    Application.OnKey "{DEL}"
End Sub

Sub ReSet()
    Application.OnKey "{RIGHT}"
    Application.OnKey "{LEFT}"
    Application.OnKey "{UP}"
    Application.OnKey "{DOWN}"
End Sub

Groet, Leo

flipper52 · « **Reactie #6 Gepost op:** 05 februari 2008, 12:50:44 »

Hallo Leo

ik heb die formule geprobeert maar wekt niet, oftewel doe ik iets fout.
Eigenlijk had ik gedacht dat men de programma code kon aanpassen in mijn bestand, want daar staat Interior, wt natuurlijk betekend helemaal. Dus dit gegeven moet veranderd worden, maar hoe, dat is mijn vraag

Groeten Rudy

LucB · « **Reactie #7 Gepost op:** 05 februari 2008, 14:08:54 »

Dag Rudy,

In dit bestand blijft de kleur binnen het bereik van de tabel.

RedHead · « **Reactie #8 Gepost op:** 05 februari 2008, 14:33:59 »

Luc, Prima oplossing! Lekker kort & simpel. (snap dus niet waarom de code die ik gevonden had, zo lang moet zijn...

).

Prettig dat je weer 'ns langs komt!

Groet, Leo

flipper52 · « **Reactie #9 Gepost op:** 06 februari 2008, 08:12:30 »

Wel Luc,

zoals Leo al eerder zei, een veel kortere formule en knap gevonden.
Hartelijk bedankt, want dit is wat ik zocht.
Ga me toch eens verdiepen in de formules van excel en de programmacodes van VBA.

Groetjes Rudy

Help!

Menu

Hulp bij posten

Zoeken

Recente topics

Auteur Topic: oplichten rij en kolom (gelezen 8336 keer)

flipper52

oplichten rij en kolom

dirktimm

Re: oplichten rij en kolom

dirktimm

Re: oplichten rij en kolom

flipper52

Re: oplichten rij en kolom

RedHead

Re: oplichten rij en kolom

RedHead

Re: oplichten rij en kolom

flipper52

Re: oplichten rij en kolom

LucB

Re: oplichten rij en kolom

RedHead

Re: oplichten rij en kolom

flipper52

Re: oplichten rij en kolom