View Full Version : [Excel] sostituire una cella vuota
shambler1
04-05-2008, 18:29
Ho un enorme foglio costituito da una mega query tradotta da Access ad Excel e devo sostituire con una procedura, il valore vuoto con una stringa di testo. Come posso fare? sono oltre 100 colonne.
Da VB?
^TiGeRShArK^
04-05-2008, 18:33
si visual basic for application mi sa che è la scelta + facile e immediata...
Io per ora sto accedendo direttamente da visual studio tramite il C# ai worksheet, ma per quello che devi fare tu mi sa che è troppo sovradimensionato :p
shambler1
04-05-2008, 18:52
Quale potrebbe essere il codice?
^TiGeRShArK^
04-05-2008, 20:42
Quale potrebbe essere il codice?
non ho excel qui che sono sul mac... :boh:
cmq basterebbe scrivere qualcosa del genere:
for i = 0 to 100
Cell(10,i) = "Pippo"
next
tieni conto che il codice del ciclo l'ho scritto in basic dato che in VB non mi ricordo se è così e che il metodo Cell l'ho inventato di sana pianta, ma devi guardare nella guida del VBA per excel come si accede all'oggetto giusto che ti dovrebbe dare accesso alla lista di cell del worksheet.
Ho un enorme foglio costituito da una mega query tradotta da Access ad Excel e devo sostituire con una procedura, il valore vuoto con una stringa di testo. Come posso fare? sono oltre 100 colonne.
Da VB?
Esatto. ;)
Io ti consiglio un pulsante con questo codice :
Private Sub CommandButton1_Click()
Dim limite As Long
limite = ActiveSheet.UsedRange.Rows.Count
Dim cella As Range
For Each cella In Range("A:G")
If cella.Row > limite Then Exit For
If cella.Value = "" Then cella.FormulaR1C1 = "MIA_STRINGA"
Next
End Sub
A:G nel caso A sia la prima colonna dell'intervallo da controllare e G l'ultima...
Sostituire dove Rosso con valori desiderati e provare... ;)
shambler1
05-05-2008, 12:22
Esatto. ;)
Io ti consiglio un pulsante con questo codice :
Private Sub CommandButton1_Click()
Dim limite As Long
limite = ActiveSheet.UsedRange.Rows.Count
Dim cella As Range
For Each cella In Range("A:G")
If cella.Row > limite Then Exit For
If cella.Value = "" Then cella.FormulaR1C1 = "MIA_STRINGA"
Next
End Sub
A:G nel caso A sia la prima colonna dell'intervallo da controllare e G l'ultima...
Sostituire dove Rosso con valori desiderati e provare... ;)
Va in loop .. :(
Va in loop .. :(
Possibile ?
Se puoi mandami il file su cui lo hai testato e vedo di che si tratta... :mbe:
vBulletin® v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.