Format(5.5, "# ???/???")

[sylvester-ponte]

weet iemand of er een breuken optie is voor de format vba metode?

bv: tekst= Format(5.5, "# ???/???") zou dan 5 1/2 moeten opleveren.
maar dat geeft "6 ???/???"

om de eigenschappen van een cel op breuken te zetten gebruik je : selection.NumberFormat = "# ???/???"

ps ik kon even geen bestandje bijvoegen , want toen ik mijn excel van "automatisch opslaan" afzette liep hij vast.

 

[sylvester-ponte]

ik heb al iets gevonden: t = WorksheetFunction.Text(5.5, "???/???")
t wordt dan "11/2"
ik had liever "5 1/2" gehad. ik laat de vraag nog even open staan.

iedereen beste wensen :thumb:

 

[VenA]

probeer het zo eens

t = Application.Text(5.5, "# ?/?")

of iets beter

t = Trim(Application.Text(5.7, "# ???/???"))

 

[sylvester-ponte]

bedankt VenA :thumb:

ik ga het gebruiken om de constructies in de gave "Pythagorea" app te vereenvoudigen.
snijpunten van lijnen moeten daarvoor in breuken gegeven worden.
in excel boots ik het na:
1 lijn snijd vele vakjes op meerdere plekken .
bij ieder kruispunt komt een x en een y waarde in breuken te staan (dat help bij het construeren)
dan gebruik ik de eenvoudigste breuken om in de app de lijn te construeren.

ps om 2 lijnen te snijden heb ik al een function gemaakt.

gelukkig nieuw jaar.

 

[HSV]

Ook.

t = [text(5.5, "# ???/???")]

 

[sylvester-ponte]

hallo Harry
[text(5.5, "# ???/???")] is ook een mooie, maar hij haalt de spatie niet weg

 

[pixcel]

ik had liever "5 1/2" gehad.

Kan dat niet met iets als:

s = Format(Fix(MijnGetal), "0") & WorksheetFunction.Text(MijnGetal - Fix(MijnGetal), "?/??????")

 

[HSV]

hallo Harry
[text(5.5, "# ???/???")] is ook een mooie, maar hij haalt de spatie niet weg

Zo moeilijk kan het niet meer zijn toch?

 

[JEC.]

:d

t = [trim(text(5.5, "# ???/???"))]

 

[HSV]

@JVeer;

Zo dus net niet. :d

 

[JEC.]

Het ging om de spatie tussen de 5 en de 1/2 toch?
Show me

 

[HSV]

De spaties aan het eind.

Zie verschil in resultaat.

 trim([text(5.7, "# ???/???")])
  [trim(text(5.7, "# ???/???"))]

Met 5.5 is het resultaat tenslotte wel goed, maar dan kan het ook gewoon zo.

t = [text(5.5, "# ?/?")]

 

[JEC.]

De onderste is dan de juiste neem ik aan?

 trim([text(5.7, "# ???/???")])
[COLOR="#008000"] [trim(text(5.7, "# ???/???"))][/COLOR]

 

[HSV]

Ik zou voor de bovenste gaan voor de waarde rechtstreeks in een cel, maar voor de variabele 't' is er geen verschil behalve een extra spatie tussen 5 en 7/10.
5 7/10 lijkt me een beter resultaat als 5 5/7

cells(1) =  trim([text(5.7, "# ???/???")]) 
   cells(2,1) = [trim(text(5.7, "# ???/???"))]

Wat er werkelijk in de cel staat is 5 7/10 in A1 en 5,7 in cel A2.
Uiteraard kan de opmaak op breuk bij A2, maar wat er werkelijk in de cel staat is toch een verschilletje.
Wat wil je zien is de vraag.

Zo zijn ze gelijk in de variabele 't'.

t = [trim(text(5.7, "# ???/???"))]
MsgBox t
t = Application.Trim([text(5.7, "# ???/???")])
MsgBox t

 

[JEC.]

Inderdaad, ik testte met 5.5 en ging wel goed...

 

[snb]

Of ?

[text(15.7, "# #/10")]

 

[pixcel]

WorksheetFunction.Text(N, "# #/#######")

geeft een resultaat waarbij trimmen niet nodig is.

Overigens, dit zijn twee verschillende trim functies:

trim(" abc   def ")
[trim(" abc   def ")]

 

[sylvester-ponte]

Frans, ik vind WorksheetFunction.Text(N, "# #/#######") wel een hele mooie. bedankt