Regolazione di Tensione con Zener

[PietroBaima]

ma ammetto sia un modo un po' artigianale...

[claudiocedrone]

Beh, però funziona quasi bene...

[PietroBaima]

si ma se mi becca DD mi banna per un eone, era geologica più era geologica meno...

[claudiocedrone]

Non a caso il "quasi bene" è una citazione da Savatteri e Mazza comunque DD frequenta ben poco ultimamente... magari non se ne accorge.

[PietroBaima]

purtroppo mi sa che sia in fEYrie

[Tekonoris]

Ottimo PietroBaima proprio le cornicette che cercavo !!!!

Per l'altra parte nessun suggerimento ?

[Tekonoris]

Visto che in parte siamo fuori argomento, aggiungo e termino con:

Codice: Seleziona tutto

Dim tmp As String

Sub code()
    tmp = "\begin{array}{|"
    For i = 1 To Selection.Columns.Count
      tmp = tmp + "c|"
    Next
    tmp = tmp + "}   \hline "
   
    For e = 1 To Selection.Rows.Count
    For i = 1 To Selection.Columns.Count
      tmp = tmp + Cells(Selection.Row - 1 + e, Selection.Column - 1 + i).Value
      If i < Selection.Columns.Count Then
       tmp = tmp + " & "
      Else
        tmp = tmp + " \\  \hline "
      End If
    Next
    Next
    tmp = tmp + " \end{array}"
    Debug.Print tmp
    MsgBox tmp
End Sub


Codice da 5 min ... Passo da Excel a EY !!!