Home Page
Articoli
Tips & Tricks
News
Forum
Archivio Forum
Blogs
Sondaggi
Rss
Video
Utenti
Chi Siamo
Contattaci
Username:
Password:
Login
Registrati ora!
Recupera Password
Home Page
Stanze Forum
App. Visual Studio 6.0
Due problemini con VB e Excel
martedì 20 giugno 2006 - 11.38
Elenco Threads
Stanze Forum
Aggiungi ai Preferiti
Cerca nel forum
pipillo
Profilo
| Newbie
2
messaggi | Data Invio:
mar 20 giu 2006 - 11:38
Con vb6 apro, scrivo, modifico un foglio excel.
1) Ma se volessi sapere su quale riga si tova la prima occorrenza di un dato come faccio?
mi spiego meglio, cerco la parola "pantaloni" in un foglio excel:
risultato non trovo nulla ok
ma se trovo in una cella la parola cercata, come faccio a farmi restituire il numero dell riga?
2) come faccio a sapere qual'è l'ultima riga del foglio excel che contiene che contiene dati?
---------------------------------------------------------------------------------------
non ho avuto risposte ma qui si può trovare davvero tutto e di più
http://remigueudelot.free.fr/PHP/tuttigliesempivba.php
Ciciu
Profilo
| Senior Member
233
messaggi | Data Invio:
mer 21 giu 2006 - 13:18
Ciao.
Per quanto riguarda il punto 1) , dovresti firerirTi all'oggetto SELECTION che, se non erro, tra le sue proprietà dovrebbe avere anche ROW e COLUMN....
Nel momento in cui sei posizionato su una cella, l'oggetto SELECTION la rappresenta. Se hai selezionato un gruppo di celle, ROW e COLUMN identificano la cella in alto a sinistra.
Per il punto 2), immagino che Tu debba fare un ciclo, per andare a testare i valori non nulli delle celle di una o più colonne...
Ciao - Fabio
Fabio G
pipillo
Profilo
| Newbie
2
messaggi | Data Invio:
mer 21 giu 2006 - 15:28
grazie comunque per aver risposto,
la soluzione che ho adottato per cercare l'ultima riga utile è stat del tipo
Dim objExcel As Excel.Application
Dim objBook As Excel.Workbook
Dim objSheet As Excel.Worksheet
Set objExcel = New Excel.Application
|
|
|comandi di apertura del file
|
|
' trova l'ultima riga
Dim ultima As Double
objExcel.Sheets(10).Select :' Seleziono il foglio in cui cercare
objExcel.Range("D1").Select :' Selezionola colonna su cui cercare nel mio caso
ultima = objExcel.Cells(Cells.Rows.Count, "D").End(xlUp).Row :' Ottengo l'ultima riga della colonna D su cui vi sono dati validi
comunque la soluzione l'ho elaborata partendo dalla documentazione davvero straordinaria del sito che ho inserito nel mio primo post
Ciao
Torna su
Stanze Forum
Elenco Threads
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?
Dopo esserti registrato potrai chiedere
aiuto sul nostro
Forum
oppure aiutare gli altri
Consulta le
Stanze
disponibili.
Registrati ora !