Excel - zmena hodnoty bunky po kliknuti [Archív]

radioblaster

02.02.11,16:01

Zdravim na nete som nasiel kod ktory mi po doubleClick-u zmeni zafarbenie bunky na zlto. Ja by som ho potrebval upravit tak aby ked urobim doubleClick zmeni mi hodnotu z 1 na 0 a naopak.

Vdaka

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Integer
If Target.Cells.Count > 1 Then Exit Sub
i = Target.Column
bunka = ActiveCell.Value

Select Case i
Case 2: ActiveCell.Offset(0, 0).Interior.ColorIndex = 6
Case 3: ActiveCell.Offset(0, 0).Interior.ColorIndex = 6
Case 4: ActiveCell.Offset(0, 0).Interior.ColorIndex = 6
Case 5: ActiveCell.Offset(0, 0).Interior.ColorIndex = 6
Case 6: ActiveCell.Offset(0, 0).Interior.ColorIndex = 6
Case 7: ActiveCell.Offset(0, 0).Interior.ColorIndex = 6
Case 8: ActiveCell.Offset(0, 0).Interior.ColorIndex = 6
Case 9: ActiveCell.Offset(0, 0).Interior.ColorIndex = 6

End Select

End Sub

marjankaj

02.02.11,18:39

Zdravim na nete som nasiel kod ktory mi po doubleClick-u zmeni zafarbenie bunky na zlto. Ja by som ho potrebval upravit tak aby ked urobim doubleClick zmeni mi hodnotu z 1 na 0 a naopak.

Vdaka

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Cells.Count > 1 Then Exit Sub

bunka = ActiveCell.Value

Select Case bunka
Case "": Exit Sub
Case 0: ActiveCell.Offset(0, 0).Value = 1
Case 1: ActiveCell.Offset(0, 0).Value = 0

End Select

End Sub