Difference between revisions of "MSexcel"
Jump to navigation
Jump to search
Line 12: | Line 12: | ||
The VLOOKUP formula above sets an empty string if there is no value in the lookup-range (A2:B10). To make these cells really empty create and execute a macro like: | The VLOOKUP formula above sets an empty string if there is no value in the lookup-range (A2:B10). To make these cells really empty create and execute a macro like: | ||
− | <syntaxhighlight lang= | + | <syntaxhighlight lang=vbnet> |
Sub EmptyCells() | Sub EmptyCells() | ||
' | ' | ||
Line 18: | Line 18: | ||
' | ' | ||
' | ' | ||
− | For Each cell In Range("C2:D10) | + | For Each cell In Range("C2:D10") |
If (cell.Value = "") Then cell.ClearContents | If (cell.Value = "") Then cell.ClearContents | ||
Next | Next | ||
End Sub | End Sub | ||
</syntaxhighlight> | </syntaxhighlight> |
Latest revision as of 11:56, 6 May 2020
Some formula's to remember if you have to use Excel
- TEKST(A1,"00000")
- Fill out the value of cell A1 with 0's on the left side.
- TEKST(2,"0000") => 0002
- =IF(LEN(VLOOKUP(D2,A2:B10,2,0))=0,"",VLOOKUP(D2,A2:B10,2,0))
- VLOOKUP returns 0 values for empty cells by default. This looks better.
Clear cells with empty string
The VLOOKUP formula above sets an empty string if there is no value in the lookup-range (A2:B10). To make these cells really empty create and execute a macro like:
Sub EmptyCells()
'
' EmptyCells Macro
'
'
For Each cell In Range("C2:D10")
If (cell.Value = "") Then cell.ClearContents
Next
End Sub