Zavrieť

Porady

Excel - zmena hodnoty bunky po kliknuti

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
Téma je uzavretá.
Usporiadať podľa času

marjankaj je offline (nepripojený) marjankaj

I am a man marjankaj
radioblaster Pozri príspevok
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

Excel - zmena hodnoty bunky po kliknuti

Porady, ktoré by vás mohli zaujímať

Prihláste sa a sledujte len tie Porady, ktoré Vás zaujímajú.