funzione Left

Hai un problema con Excel?

Nuova discussione

funzione Left
di trump61 data: 25/06/2014 11:53:02
Ciao a tutti, ho scritto questo codice perchè ho bisogno che in tutte le celle dove come primo carattere C'è N qualsiasi cosa ci sia dopo me lo faccia diventare Grassetto ma solo a N. Dove C'è solo la N già con una formattazione condizionata la N e in grassetto. pensavo che utilizzando questo codice avrei ottenuto quello che ho descritto sopra, invece tutti i caratteri diventano in grassetto, ho pensato di sostituire Left con Mid(X.Text,1,1) ma il risultato è lo stesso, non capisco perchè se solo lo voglio Bold.
qualcuno mi puo' spiegare dove sbaglio
Grazie
Sub GrasettoNotti() Dim X For col = 3 To 9 X= N For Each X In Range(Cells(4, col), Cells(36, col)) If Left(X.Text, 1) = "N" Then X.Font.Bold = True Next Next End Sub

prendere il controllo di una finestra di dialogo 2
di romano (utente non iscritto) data: 25/06/2014 11:53:39
Ripropongo il quesito perche mi sono reso conto di non aver spiegato molto bene il problema;
Mediante del codice VBA di un file excell, apro una determinata pagina web su Internet explorer, su questa pagina sempre mediante codice, opero delle selezioni e arrivo infine a premere un bottone che produce l'apertura della classica finestra di dialogo di sistema "SalvaConNome" ; Vorrei proseguire facendo fare il salvtaggio sempre al codice VBA, ma per farlo sono costretto ad utilizzare dei comandi tipo Sendkeys (allego solo la parte di codice che fà questa cosa, per rendere l'idea di cosa faccio);
la soluzione però non è sempre funzionante e poco sicura .... esiste un sistema per prendere il controllo della finestra di dialogo, gestirla direttamente per potergli inviargli dei comandi validi .... (ad es. inserendo il nome del percorso assegnado un nome alla variabile della box "Nome file:" e provocando l'evento click per il bottone "salva").
ma come fare?

AppActivate Title:="Salva con nome"  'attivo la finestra di dialogo e la casella attiva è il nome del file da salvare
SendKeys percorsom, True  ' lancio il percorso dove voglio salvare il file 
    DoEvents
 For aspetta = 0 To velocità: Next  ' eseguo un ciclo per allungare il tempo della variabile "velocita"
        SendKeys "{TAB}", True ' lancio un paio di tabulazioni fino ad arrivare la bottone "salva"
        DoEvents
        For aspetta = 0 To velocità: Next
        SendKeys "{TAB}", True
        DoEvents
        For aspetta = 0 To velocità: Next
        SendKeys "{ENTER}", True    ' lancio invio per fare il salvataggio
        DoEvents  
        'Lancio un ulteriore enter casomai ci dovesse essere una conferma download
        For aspetta = 0 To velocità: Next
        SendKeys "{ENTER}", True
        DoEvents
   'poi disattivo IE ecc. ecc

Vuoi Approfondire?