|
Login
  • Page:
  • 1

TOPIC: collegare cella ad una const

collegare cella ad una const 5 years 10 months ago #9452

  • ciccino
  • ciccino's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 15
  • Karma: -2
buon giorno a tutti
chiedo se è possibile collegare il numero della const ad una cella, in questo caso la H5, perché ogni volta che cambia il numero devo aprire la macro e modificare. grazie

Sub elaboranumeri()
'
' trova Macro
' Macro registrata il 04/01/2010 da io
'

'

Windows("progetto super.xls").Activate


Const max_ele As Integer = 19

Dim ind1 As Integer, ind2 As Integer, ind3 As Integer, ind4 As Integer, ind5 As Integer, ind6 As Integer, numeri As Integer
Dim vett(max_ele) As Integer
Dim range_par As Range
Dim iSomma As Integer
Dim iTestSomma As Integer
Dim sSomma As String
The administrator has disabled public write access.

collegare cella ad una const 5 years 10 months ago #9510

  • p3pq3
  • p3pq3's Avatar
  • OFFLINE
  • Gold Boarder
  • Posts: 175
  • Thank you received: 28
  • Karma: 10
Salve,

quando si definisce una costante occorre specificare il valore quindi non è possibile collegarla a una cella; a questo punto mi chiedo se è strettamente necessario definire "max_ele" come costante, potresti definirla come variabile e associargli il valore della cella H5
The administrator has disabled public write access.
The following user(s) said Thank You: ciccino

collegare cella ad una const 5 years 10 months ago #9527

  • ciccino
  • ciccino's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 15
  • Karma: -2
salve
il problema è che il programma è stato fatto da un mio ex collega di lavoro non più rintracciabile ed io non ho la minima conoscenza del vba. non saprei proprio dove mettere le mani. la ringrazio comunque dell'interesse avuto.
The administrator has disabled public write access.

collegare cella ad una const 5 years 9 months ago #9614

  • ciccino
  • ciccino's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 15
  • Karma: -2
salve,
cerca e ricerca ho trovato la soluzione, basta scrivere..

max_ele = Worksheets("elabora numeri").Cells(5, "H").Value e sostiture

Dim vett(max_ele) As Integer con

ReDim vett(max_ele) As Integer

ringrazio ancora per l'interesse avuto
The administrator has disabled public write access.

collegare cella ad una const 5 years 9 months ago #9625

  • p3pq3
  • p3pq3's Avatar
  • OFFLINE
  • Gold Boarder
  • Posts: 175
  • Thank you received: 28
  • Karma: 10
Bene,

giusto per chiarezza, l'istruzione che hai riportato definisce "max_ele" come una variabile
max_ele = Worksheets("elabora numeri").Cells(5, "H").Value e sostiture

tuttavia non vedo perché sia necessario utilizzare l'istruzione
ReDim vett(max_ele) As Integer
The administrator has disabled public write access.
The following user(s) said Thank You: ciccino

collegare cella ad una const 5 years 9 months ago #9630

  • ciccino
  • ciccino's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 15
  • Karma: -2
non ne ho la più pallida idea, come dicevo non ho conoscenze in merito.
questo programma è stato fatto su una mia idea per il gioco del superenalotto.
quando mi viene in mente una miglioria vado in rete e cerco una soluzione.
ben consapevole che è solo e semplicemente un gioco, ma il calcolo delle probabilità mi intriga più come sistema che come gioco.
la ringrazio dell'attenzione che mi è stata concessa
saluti
The administrator has disabled public write access.
  • Page:
  • 1
Time to create page: 0.934 seconds