Torna indietro   Hardware Upgrade Forum > Software > Programmazione

Tutti gli articoli Tutte le news

Vai al Forum
Rispondi
 
Strumenti
Old 14-07-2010, 11:43   #1
Simonedig
Member
 
Iscritto dal: Dec 2007
Messaggi: 38
[VBA] Controllo su cella di excell

Salve a tutti, sto redigendo un inventario su excell e vorrei utilizzare VBA per integrare alcuni controlli sulle celle. Ad esempio vorrei creare un controllo sulla cella di un totale che mi controlla il numero di oggetti residui, se il valore č inferiore a cinque mi colora di rosso la cella ed effettua alcune operazioni come ad esempio far comprarire una msgbox che avvisa di dover effettuare un nuovo ordine. Come posso fare? Grazie in anticipo!
Simonedig č offline   Rispondi citando il messaggio o parte di esso
Old 14-07-2010, 19:54   #2
zuper
Senior Member
 
Iscritto dal: Mar 2001
Cittą: PV Milano Nord
Messaggi: 3851
puoi sviluppare questo....l'ho fatto al volo ma ti da una base

Codice:
Sub ordine()

If Range("g8").Value < 5 Then
    With Range("g8").Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    MsgBox "nuovo ordine"
    
    Else
    With Range("g8").Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End If
End Sub
__________________
"W la foca, che dio la benedoca"
poteva risolvere tutto la sinistra negli anni in cui ha governato e non l'ha fatto. O sono incapaci o sta bene anche a "loro" cosi.
L'una o l'altra inutile scandalizzarsi.[plutus]
zuper č offline   Rispondi citando il messaggio o parte di esso
Old 19-07-2010, 18:52   #3
Simonedig
Member
 
Iscritto dal: Dec 2007
Messaggi: 38
Quote:
Originariamente inviato da zuper Guarda i messaggi
puoi sviluppare questo....l'ho fatto al volo ma ti da una base

Codice:
Sub ordine()

If Range("g8").Value < 5 Then
    With Range("g8").Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    MsgBox "nuovo ordine"
    
    Else
    With Range("g8").Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End If
End Sub
Grazie il codice sembra proprio quello che mi serve il punto č che come lo lancio? ovvero come faccio ad assegnare il controllo alla cella D29?
Simonedig č offline   Rispondi citando il messaggio o parte di esso
 Rispondi


Tutti gli articoli Tutte le news Tutti i download

Strumenti

Regole
Non Puoi aprire nuove discussioni
Non Puoi rispondere ai messaggi
Non Puoi allegare file
Non Puoi modificare i tuoi messaggi

Il codice vB č On
Le Faccine sono On
Il codice [IMG] č On
Il codice HTML č Off
Vai al Forum


Tutti gli orari sono GMT +1. Ora sono le: 04:18.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Served by www3v