lancio Excel e di tipo "Questo è il foglio aperto " a " A1 ". Salvare la cartella di lavoro in "C: \\ Temp \\ " come " . Sheet1.xlsx "
2
avviare una nuova sessione di Excel , e di tipo "data una " a " A1 ", " dati b" in " B1 " e " dati c" in " C1 ". Fare clic sulla scheda "Sviluppatore " , e fare clic su " Visual Basic " per avviare la finestra di Visual Basic Editor. Fai clic sul menu "Inserisci" e fare clic su "Modulo ". Digitare il seguente codice per creare una nuova procedura : . " Enter"
transferDataToSheet Private Sub ( ) per
Press
3
Copia e incolla il seguente per creare tre variabili per contenere i dati delle celle :
Dim clmnA As String Dim
clmnB As String Dim
clmnC As String
4
Copia e incollare il seguente codice per salvare i valori nelle celle A1 , B1 e C1 in variabili : . .
Con Worksheets ( " Foglio1 " ) per
Range ("A1 " ) Selezionare
clmnA = ActiveCell.Value
. Range (" B1 " ) . Seleziona
clmnB = ActiveCell.Value
. Range (" C1" ) . Selezionare
clmnC = ActiveCell.Value
End With
5
Copia e incolla il seguente per attivare il foglio di lavoro aperto ( Sheet1.xlsx ) :
. finestre ( " Foglio1 " ) Attivare
6
Copia e incolla il seguente per trasferire i dati dal foglio di lavoro corrente per il foglio di lavoro aperto :
Con Worksheets ( " Foglio1 " )
. Range (" A2" ) . Seleziona
Selection.Value = clmnA
. Range (" B2" ) . Selezionare
Selection.Value = clmnB
. Range (" C2" ) . Seleziona
Selection.Value = clmnC
End With
7
Premere " F5 " per eseguire la procedura per trasferire i dati al foglio di lavoro aperto .
software © www.354353.com