Navigazione

    Privacy - Termini e condizioni
    © 2020 Search On Media Group S.r.l.
    • Registrati
    • Accedi
    • CATEGORIES
    • Discussioni
    • Non letti
    • Recenti
    • Hashtags
    • Popolare
    • Utenti
    • Stream
    • Interest
    • Categories
    1. Home
    2. josef
    3. Post
    J

    josef

    @josef

    • Profilo
    • Chi segue 0
    • Da chi è seguito 0
    • Discussioni 1
    • Post 1
    • Migliore 0
    • Gruppi 0
    Iscrizione Ultimo Accesso
    Età 43
    0
    Reputazione
    3
    Post
    0
    Visite al profilo
    0
    Da chi è seguito
    0
    Chi segue
    User Newbie

    Post creati da josef

    • Macro Excel per contare i caratteri in un range

      Ciao a tutti,
      ho cercato a più riprese sul web un editor semplice per poter gestire le traduzioni con la mia traduttrice, in pratica cercavo un editor testuale (semplice) che permettesse di avere testo originale da una parte e un file linkato (cioè che scorresse quando viene fatto lo scroll sul file del testo da tradurre) vuoto su cui scrivere la traduzione nell'altra, ma non ho trovato niente per ora.

      Ho ripiegato su excel creando un foglio con due colonne: testo originale | testo tradotto.

      Volevo inserire un campo che desse in tempo reale l'indicazione del numero di caratteri - spazi inclusi - di tutta una colonna (quella del testo originale).

      Non sono pratico di macro e VB ma cercando in rete ho scritto questa macro:

      
      Function strlenrange(zona As Range)
      
      Dim Counter As Integer
      Dim MyString As String
      
      For Each cell In zona
          Counter = Counter + Len(cell)
      Next
      strlenrange = Counter
      End Function
      
      

      quello che fa è contare il numero di caratteri di ogni cella di un range - funzione len() - e con un ciclo for va di cella in cella e somma di volta in volta il numero di caratteri trovati.

      Purtroppo funziona in modo poco stabile, perché appena l'ho inserito dava il numero di caratteri corretti, poi dopo aver aggiunto del testo ha smesso di funzionare e nella cella dove chiamo la funzione con ```
      =strlenrange(B5:B2000)

      
      Mi sapreste aiutare a mettere a posto il codice? O meglio ancora: è possibile fare la stessa cosa senza usare una macro ma solo con una funzione del tipo
      

      =SOMMA(LUNGHEZZA(B1:B100))

      
      Grazie mille
      postato in Tutti i Software
      J
      josef