[VBA] usare il valore di inputbox in .texvalue

[alex688]

Salve a tutti sono nuovo del forum e spero vivamente che mi possiate dare una mano. Sono alle prese con un programma di simulazione "ARENA" che permette di scrivre delle macro in VB. ho fatto questo

Sub Cambio_percentuali_ritardi_cancello_ACQ()
    '
    '   Macro recorded 08/05/2013 by Administrator
    '
    percCancello = InputBox("Digita la nuova percentuale degli arrivi in cancello")
    percRitardo1 = InputBox("Digita la nuova percentuale degli arrivi in ritardo di 1 giorno")
    percRitardo2 = InputBox("Digita la nuova percentuale degli arrivi in ritardo di 2 giorno")
    percAnticipo1 = InputBox("Digita la nuova percentuale degli arrivi in anticipo di 1 giorno")
    Model.Modules(Model.Modules.Find(smFindTag, "object.5113")).Data("N Percent True(1)") = percCancello
    Model.Modules(Model.Modules.Find(smFindTag, "object.5113")).Data("N Percent True(2)") = percRitardo1
    Model.Modules(Model.Modules.Find(smFindTag, "object.5113")).Data("N Percent True(3)") = percRitardo2
    Model.Modules(Model.Modules.Find(smFindTag, "object.5113")).Data("N Percent True(4)") = percAnticipo1
    Model.ActiveView.Selection.DeselectAll
    Model.Shapes(Model.Shapes.Find(smFindTag, "object.4439")).Selected = True
    Model.Shapes(Model.Shapes.Find(smFindTag, "object.4439")).TextValue = 30%
    
    Model.ActiveView.Selection.DeselectAll
    Model.Shapes(Model.Shapes.Find(smFindTag, "object.4440")).Selected = True
    Model.Shapes(Model.Shapes.Find(smFindTag, "object.4440")).TextValue = "10%"
    
    Model.ActiveView.Selection.DeselectAll
    Model.Shapes(Model.Shapes.Find(smFindTag, "object.4440")).Selected = True
    Model.Shapes(Model.Shapes.Find(smFindTag, "object.4440")).TextValue = _
        "10%"
    
    Model.ActiveView.Selection.DeselectAll
    Model.Shapes(Model.Shapes.Find(smFindTag, "object.4442")).Selected = True
    Model.Shapes(Model.Shapes.Find(smFindTag, "object.4442")).TextValue = _
        "10%"
    
End Sub

ora vorrei mettere al posto dei valori 30% 10% ecc.. quello che viene digitato in inputbox ripesttivamente quello digitato in percCancello al posto del 20% quello di percRitardo 1 al posto del pirmo 10% etcc...Coem si fà??? Grazie mille

[MItaly]

Benvenuto sul forum! Ti ricordo che:

• le discussioni relative a VBA non sono trattate qui, ma nella sezione Visual Basic e .Net Framework;
• il codice va specificato tra tag [CODE] ... [/CODE], altrimenti perde l'indentazione;
• il linguaggio di riferimento (e relativa versione) va sempre specificato (anche nel titolo, sotto forma di "tag").

Ora correggo io e provvedo a spostare il thread, in futuro imposta correttamente la discussione fin da subito; nel frattempo ti consiglio di dare un'occhiata al regolamento.

[alex688]

Mancava una C al nome