Gebruik van vinkjes in Excel 2010

[MicrosoftHelpt]

Wat was de reden om het bestand van XLSX om te zetten naar XLS/XLSB?

Wat gebeurd er als je het oude (kleine) XLSX bestand opent in Excel 2010 en opslaat zonder het type te wijzigen?

[BERGHMANS]

Wanneer ik het oude kleine bestand open in 2010 en het zelfs zonder enige wijziging opnieuw opsla, hervormt het zich tot een zeer zware file en duurt het een eeuwigheid (meerdere minuten zelfs) om het daarna opnieuw te openen of een kleine wijziging in aan te brengen. Opslaan als XLS /XLSB gaat dan toch iets sneller en behoudt het kleine formaat.

Vreemd is dat wanneer ik de file open via 7-Zip' open archief', ik twee files vind die zeer zwaar zijn Drawing1.xml (7.114.860) en vmldrawing1.vml (6.162.885) het lijkt wel alsof de file een 10.000 tal vinkjes in zich heeft, daar waar er een kleine 100 inzitten.

[MicrosoftHelpt]

Dat is inderdaad vreemd, heb je die vinkjes soms op de gehele rij toegepast?

Als je het bestand hier upload kunnen wij kijken waar het probleem in zit.

[BERGHMANS]

Bij deze de file aangehecht (gezien het om een cashflow gaat, werden namen en dergelijke gewijzigd).

De file hangt er echter in XLS aan, de andere formaten werden of niet toegestaan of waren te groot.

Bedankt voor de hulp.

Myrima

20111222 - cashflow BLANCO.xls

[MicrosoftHelpt]

Ik bedoelde eigenlijk het (kleine) ongeconverteerde XLS bestand.

Mijn excuses voor de verwarring.

[popipipo]

Hier een andere kijk op de zaak; geen idee of het in jouw bestand/beleving toepasbaar is.

Als je vermoed dat het aan de vinkvakjes ligt kun je misschien de volgende VBA code gebruiken om vinkjes in de cel te zetten.

Dubbel klik op de cel om het vinkje te plaatsen en opnieuw dubbel klikken om hem weer te verwijderen.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Not Intersect(Target, [color=#ff0000]Range("C:C,L:L")[/color]) Is Nothing Then
If Target.Value = "" Then
          With ActiveCell
           .Value = "P"
           .Font.Name = "Wingdings 2"
           .Font.Size = 22
          End With
              Target.Offset(1, 0).Select
             Else

      With Target
       ActiveCell.Value = ""
           .Font.Name = "calibri"
           .Font.Size = 10
       End With

       Target.Offset(1, 0).Select
End If
End If
End Sub

De range moet dan nog wel even aangepast worden.

Gr Willem