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
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
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