• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

zelfde tekst als linker cel met dubbelklik met vba

Status
Niet open voor verdere reacties.
Dat is chinees voor beginners maar klare taal voor gevorderden.
 
Lees maar:

Code:
Sub M_snb()
  MsgBox 1 * True
  MsgBox CInt(True)
  MsgBox CDbl(True)
  MsgBox CDec(True)
  MsgBox CSng(True)
  MsgBox CLng(True)
  MsgBox Fix(True)
  MsgBox Int(True)
  MsgBox 0 + True
  MsgBox --True
End sub
 
Laatst bewerkt:
Leuker kunnen we het niet maken wel complexer.;)
Type Conversions
When Visual Basic converts numeric data type values to Boolean, 0 becomes False and all other values become True. When Visual Basic converts Boolean values to numeric types, False becomes 0 and True becomes -1.
 
Bekijk bijlage check.xlsm

Klopt de vba code op deze manier geschreven?

Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("H2:N30,Q2:S30,w2:w30,z2:z30")) Is Nothing Then Exit Sub
  Target = Target.Offset(, -1 + (Target.Column = 26) * 10 + (Target.Column = 23) * 6)
  Cancel = -1
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan