Riempire cella fino a quando raggiungi il valore

lisa · 07-09-2007, 07:51 PM

Va, va!
Grazie mille

valerio · 07-13-2007, 07:53 PM

Se metti le lunghezze in A2, A3, A4, A5 e le parole in C1, D1, E1, F1, puoi utilizzare questa macro (la puoi utilizzare ugualmente ma modificando i riferimenti di cella)

codice:

 Sub scrivi()
Dim temp, temp1, temp2, temp3, temp4, temp5, temp6, temp7 As String

    temp1 = Range("c1").Value
    temp2 = Range("d1").Value
    temp3 = Range("e1").Value
    temp4 = Range("f1").Value

    temp = temp1
    temp5 = temp & " " & temp2
    temp6 = temp5 & " " & temp3
    temp7 = temp6 & " " & temp4    
    
    For i = 2 To 5
    If Len(temp7) <= Range("a" & i).Value Then
        Range("b" & i).Value = temp7
    ElseIf Len(temp6) <= Range("a" & i).Value Then
        Range("b" & i).Value = temp6
    ElseIf Len(temp5) <= Range("a" & i).Value Then
        Range("b" & i).Value = temp5
    ElseIf Len(temp) <= Range("a" & i).Value Then
        Range("b" & i).Value = temp
    End If
    Next i
    
End Sub

Ciao
Valerio

giulia · 07-13-2007, 08:08 PM

Un miglioramento della formula di Ivano potrebbe essere questa:

codice:

 =SE(LUNGHEZZA($B$7)<A13;$B$7;"")&SE(LUNGHEZZA($B$7&" "&$C$7)<A13;" "&$C$7;"")&SE(LUNGHEZZA($B$7&" "&$C$7&" "&$D$7)<A13;" "&$D$7;"")&SE(LUNGHEZZA($B$7&" "&$C$7&" "&$D$7&" "&$E$7)<A13;" "&$E$7;"")

Ciao
Giulia

giovanni · 07-13-2007, 10:19 PM

Altra soluzione, molto simile a quella di giulia: poi basta, eh?

codice:

 =SE(LUNGHEZZA(B$7)>A13;" ";SE(LUNGHEZZA(CONCATENA(B$7;" ";C$7))>A13;B7;SE(LUNGHEZZA(CONCATENA(B$7;" ";C$7;" ";D$7))>A13;CONCATENA(B$7;" ";C$7);SE(LUNGHEZZA(CONCATENA(B$7;" ";C$7;" ";D$7;" ";E$7))>A13;CONCATENA(B$7;" ";C$7;" ";D$7);CONCATENA(B$7;" ";C$7;" ";D$7;" ";E$7)))))

Saluti

Discussioni simili
Discussione	Ha iniziato questa discussione	Forum	Risposte	Ultimo messaggio
Riempire correttamente la bombola GPL dopo lo scatto valvola	Orlando	Auto, Moto, Motori	2	10-13-2009 10:02 PM
Reazioni di formazioni a stadi e globali e valore costanti	string	Chimica	1	04-25-2009 12:08 PM
Valore del volume mettendo nella relazione di Charles -273°C	mely85ge	Chimica	1	04-19-2009 11:25 PM
Volume finale gas riscaldato fino alla temperatura di 273°C	mely85ge	Chimica	1	04-15-2009 09:33 AM
Quali trucchi per fregare l'etilometro abbassando il valore?	Scuola	Auto, Moto, Motori	35	09-28-2007 04:21 PM

Menu

Riempire cella fino a quando raggiungi il valore