|
Login
  • Page:
  • 1

TOPIC: blocco ActiveCell.Formula in macro

blocco ActiveCell.Formula in macro 7 years 3 months ago #9074

  • Gerryman74
  • Gerryman74's Avatar
  • OFFLINE
  • Senior Boarder
  • Posts: 48
  • Karma: -6
Range("L2032").Select
ActiveCell.FormulaR1C1 = "15%"
Range("L2033").Select
ActiveCell.FormulaR1C1 = "0%"
Range("L2034").Select
ActiveCell.FormulaR1C1 = "15%"
Range("L2035").Select
ActiveCell.FormulaR1C1 = "0%"
Range("L2036").Select
ActiveCell.FormulaR1C1 = "15%"
Range("L2037").Select
ActiveCell.FormulaR1C1 = "15%"
Range("L2038").Select
ActiveCell.FormulaR1C1 = "15%"
Range("L2039").Select
ActiveCell.FormulaR1C1 = "15%"
Range("L2040").Select
ActiveCell.FormulaR1C1 = "15%"
Range("L2041").Select
ActiveCell.FormulaR1C1 = "15%"
Range("L2042").Select
ActiveCell.FormulaR1C1 = "15%"

Ciao a tutti,
sto da poco lavorando su macro su un file excel, mi è capitato di dover rifare daccapo il lavoro dopo aver eliminato delle righe precedenti a questo esempio di macro. Quello che vorrei sapere è se si possono bloccare le "ActiveCell.FormulaR#C#" come si fa in excel quando si blocca una cella con F4. E' possibile?
Grazie
The administrator has disabled public write access.

blocco ActiveCell.Formula in macro 7 years 3 months ago #9075

  • lorenzo1957
  • lorenzo1957's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 849
  • Thank you received: 59
  • Karma: 51
Ciao Gerryman,
pur non avendo capito la tua domanda butto li queste due righe di codice che potrebbero ispirarti.

Sub m()
'questa scrive nella cella attiva al lancio della macro
'la formula =$J$5 (appunto colonna 10 riga 5)
ActiveCell.FormulaR1C1 = "=R5C10"

'questa scrive nella cella A10 la formula =$J$5
Range("a10").FormulaR1C1 = "=R5C10"

End Sub

Ciao, Lo

PS: forse tu vorresti: Range("L2032").FormulaR1C1 = "15%" ???
Last Edit: 7 years 3 months ago by lorenzo1957.
The administrator has disabled public write access.

blocco ActiveCell.Formula in macro 7 years 3 months ago #9076

  • Gerryman74
  • Gerryman74's Avatar
  • OFFLINE
  • Senior Boarder
  • Posts: 48
  • Karma: -6
mi sa che ho sbagliato a formulare la domanda e l'esempio..
Range("L1791").Select
ActiveCell.FormulaR1C1 = "50%"
Range("L1792").Select
ActiveCell.FormulaR1C1 = "50%"
Range("L1793").Select
ActiveCell.FormulaR1C1 = "50%"
Range("L1794").Select
ActiveCell.FormulaR1C1 = "50%"
Range("L1795").Select
ActiveCell.FormulaR1C1 = "50%"
Range("L1796").Select
ActiveCell.FormulaR1C1 = "50%"
Range("N1791").Select
ActiveCell.FormulaR1C1 = "10/31/2014"
Range("N1792").Select
ActiveCell.FormulaR1C1 = "=+R[-1]C"
Range("N1793").Select
ActiveCell.FormulaR1C1 = "=+R[-1]C"
Range("N1794").Select
ActiveCell.FormulaR1C1 = "=+R[-1]C"
Range("N1795").Select
ActiveCell.FormulaR1C1 = "=+R[-1]C"
Range("N1796").Select
ActiveCell.FormulaR1C1 = "=+R[-1]C"
Range("K1791").Select
End Sub
la macro lavora su tre colonne, ognuno con la sua specifica e cosi per altre macro inserite su un foglio excel di circa 3000 righe. Non tutte le righe mi sono utili e quindi se mi servono le mantengo altrimenti le elimino. Ed è proprio eliminandole che si verifica il problema.
Se la macro è attiva su determinate righe, quando io elimino le righe inutilizzate si verifica che la macro agisce su altre celle che non sono quelle di partenza della query.
Nel modello che avevo riportato prima non erano presenti tutte le colonne su cui si attiva la macro e forse questo ha pregiudicato la mia domanda.
Spero di esser stato chiaro in questa seconda spiegazione

Grazie
Gerry
The administrator has disabled public write access.

blocco ActiveCell.Formula in macro 7 years 3 months ago #9077

  • lorenzo1957
  • lorenzo1957's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 849
  • Thank you received: 59
  • Karma: 51
Ciao Jerryman,
e così potrebbe andare?
Sub m()
Range("L1791").Select
ActiveCell.FormulaR1C1 = "50%"
Range("L1792").Select
ActiveCell.FormulaR1C1 = "50%"
Range("L1793").Select
ActiveCell.FormulaR1C1 = "50%"
Range("L1794").Select
ActiveCell.FormulaR1C1 = "50%"
Range("L1795").Select
ActiveCell.FormulaR1C1 = "50%"
Range("L1796").Select
ActiveCell.FormulaR1C1 = "50%"
Range("N1791").FormulaR1C1 = "10/31/2014"
Range("N1792").FormulaR1C1 = "=R1791C14"
Range("N1793").FormulaR1C1 = "=R1791C14"
Range("N1794").FormulaR1C1 = "=R1791C14"
Range("N1795").FormulaR1C1 = "=R1791C14"
Range("N1796").FormulaR1C1 = "=R1791C14"
Range("K1791").Select
End Sub


ciao, Lo
The administrator has disabled public write access.

blocco ActiveCell.Formula in macro 7 years 3 months ago #9080

  • Zer0Kelvin
  • Zer0Kelvin's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 11
  • Thank you received: 4
  • Karma: 2
ciao.
Mi spiegate a che servono tutti quei select ed Activecell??
Range("L1791")FormulaR1C1 = "50%"
Range("L1792").FormulaR1C1 = "50%"
Range("L1793").FormulaR1C1 = "50%"
Range("L1794").FormulaR1C1...
eccetera
[Excel 2010]
-Condividere la conoscenza aumenta la ricchezza di tutti.
-Dai ad un uomo un pesce e lo avrai sfamato per un giorno; insegnagli a pescare e lo avrai sfamato per sempre. (Confucio)
-Il sonno della ragione genera mostri. (Francisco Goya)
Last Edit: 7 years 3 months ago by Zer0Kelvin.
The administrator has disabled public write access.

blocco ActiveCell.Formula in macro 7 years 3 months ago #9096

  • Gerryman74
  • Gerryman74's Avatar
  • OFFLINE
  • Senior Boarder
  • Posts: 48
  • Karma: -6
E' una delle prime volte in cui utilizzo le macro, quindi ancora non mi so districare bene tra le varie righe.
The administrator has disabled public write access.
  • Page:
  • 1
Time to create page: 0.446 seconds