Author Topic: Funzioni foglio() e fogli() in Excel  (Read 3825 times)

0 Members and 1 Guest are viewing this topic.

zax2010

  • Guest
Funzioni foglio() e fogli() in Excel
« on: 26 August , 2010, 13:05:08 PM »
Ho scoperto con sorpresa che Excel (a dire il vero una vecchia versione 2000) non sembra dotato delle funzioni foglio(), fogli() che invece č possibile utilizzare nel Calc di OpenOffice.

La funzione fogli() restituisce il numero di "linguette" di cui č dotato il foglio.
La funzione foglio() restituisce il numero della "linguetta" in cui ci si trova.

In Excel tali funzioni esistono? Hanno nomi differenti?

E se quest'ultimo fosse il caso, come vengono denominate?

Offline ferrarialberto

  • Semi Esperto
  • **
  • Posts: 137
  • Karma: 26
Re: Funzioni foglio() e fogli() in Excel
« Reply #1 on: 26 August , 2010, 21:23:58 PM »
Bah, bella domanda. In VBA esistono, funzioni dirette in Excel sinceramente non ne conosco.

Ciao.
ing. FERRARI Alberto - www.ferrarialberto.it

Offline quattropassi

  • Esperto del forum
  • ***
  • Posts: 226
  • Karma: 49
  • Neo - Laureato
Re: Funzioni foglio() e fogli() in Excel
« Reply #2 on: 03 September , 2010, 17:39:05 PM »
Bah, bella domanda. In VBA esistono, funzioni dirette in Excel sinceramente non ne conosco.

Ciao.

Infatti mi ricordo di aver trovato/adattato un pulsante associato a questa sub:
Code: [Select]
Private Sub CommandButton1_Click()
MsgBox "inquesta cartella ci sono N =  " & Worksheets.count & " fogli e te lo scrivo nella cella A2 di 'sto foglio"
[A2] = Worksheets.count
n = Worksheets.count
For r = 1 To n
MsgBox "il foglio " & r & " si chiama " & Worksheets(r).Name
'A = Worksheets(r).Name
Range("B" & r + 1) = r
Range("C" & r + 1) = Worksheets(r).Name
'r = r + 1
Next
End Sub

 :ciau:
* Se ci scambiamo un dollaro, ognuno rimane con un dollaro.
* Se ci scambiano un'informazione, ognuno rimane con due informazioni.

Offline xalf70

  • Semi Esperto
  • **
  • Posts: 168
  • Karma: 28
Re: Funzioni foglio() e fogli() in Excel
« Reply #3 on: 04 September , 2010, 09:54:18 AM »
ne aggiungo una anche io presa dal sito http://www.novaingegneria.it/

Code: [Select]
Sub Conta_Formule()
Set ultima_cella = ActiveCell.SpecialCells(xlCellTypeLastCell)
For Each cella In Range(Cells(1, 1), ultima_cella)
If cella.HasFormula = True Then
cont = cont + 1
End If
Next
MsgBox "N.o totale di celle con formule = " & cont
End Sub
conta il numero di celle contenenti formule

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24