Repeterende code verkorten

[koster1984]

Ik heb het 'Application.DisplayFormulaBar' stukje van snb in de vba van Warme Bakkertje verwerkt, heeft ook wel wat:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, [b:b]) Is Nothing Then
        Target.NumberFormat = IIf(Target.NumberFormat = "General", ";;;****", "General")
        Application.DisplayFormulaBar = IIf(Target.NumberFormat = ";;;****", False, True)
       Cancel = True
    End If
 End Sub

 

[snb]

@Koster1984

Mooi !
Het kan ook zo:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.column=2 then
        Target.NumberFormat = IIf(Target.NumberFormat = "General", ";;;****", "General")
        Application.DisplayFormulaBar = left(Target.NumberFormat,1) = ";"
       Cancel = True
    End If
 End Sub

 

[koster1984]

Dankje snb, weer wat nieuws om mee te spelen!

 

[Warme bakkertje]

Maar dan moet ie wel effe andersom

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 4 Then
        Target.NumberFormat = IIf(Target.NumberFormat = "General", ";;;****", "General")
        Application.DisplayFormulaBar = [COLOR="#FF0000"]Not[/COLOR] Left(Target.NumberFormat, 1) = ";"
       Cancel = True
    End If
 End Sub

 

[snb]

Hoezo andersom ?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 4 Then 
         Target.NumberFormat = IIf(Target.NumberFormat = "General", ";;;**", "General")
         Application.DisplayFormulaBar = Left(Target.NumberFormat, 1) = "G"
    end if
    Cancel = True
 End Sub

 

[wampier]

beetje mosterd na de maaltijd maar de enkele "*" wordt waarschijnlijk geïnterpreteerd als een wildcard, niet als tekst. mogelijk foutje in de parser.