excel + vb 6

[Hamurabi]

Παιδια εχω μια απορεια. Ας πουμε οτι εχω ενα excel αρχειακι που ειναι τιμοκαταλογος καποιων προιοντων (κωδικος, περιγραφη, τιμη κτλ).

 

Μπορω να φτιαξω ενα απλο προγραμματακι στην vb και να εχω κατι σαν query ,δηλαδη να εχω ενα button που οταν το παταει ο χρηστης να βγαζει ας πουμε τα 10 πιο ακριβα προιοντα απτο excel pricelist??

 

Πως θα γινει κατι τετοιο; ευχαριστω

[spiteo]

Απλα μπορεις να κανεις sort (ΑΩ / ΩΑ) στην κολονα τιμων και να εχεις το αποτελεσμα.

 

Εαν αυτο δεν σε καλυπτει τοτε γραψε τα στοιχεια των περιεχομενων σου

για να σου γραψω τον κωδικα με button

 

--------------------------------------------------

http://www.betgr.gr

[Hamurabi]

οταν λες τα "στοιχεια των περιεχομενων" , τι εννοεις;

αν εννοεις τις στηλες τους εξελ,τα χω γραψει παραπανω.

[spiteo]

πριν καταληξεις σε κωδικα κοιταξε μηπως μπορεις να κανεις αυτο που ζητας με τα [Συνθετα Φιλτρα]

εαν δεν μπορεις να τα δημιουργησεις "κατεβασε" απο την MIcrosoft ενα προτυπο. Κανε τις δοκιμες σου, μπορεις να σβησεις οσες στηλες θελεις.

http://office.microsoft.com/el-gr/templates/TC060888161032.aspx?pid=CT101443641032

 

στον κωδικα που σου στελνω εχω υπολογισει οτι τα στοιχεια σου ειναι :

A2 : A10 Αυξ.αριθμοι 1-10

Β2 : Β10 oι κωδικοι

C2 : C10 η περιγραφη

D2 : D10 οι τιμες

 

εχω υπολογισει στην στηλη Α να υπαρχουν οι Αυξ.αριθμοι 1-10 οι οποιοι

πρεπει να υπαρχουν για να επαναφερουν το αρχειο στην αρχικη θεση

 

Κωδικας για ευρεση μεγαλυτερης τιμης:

Sub sort_timh_max()

 

Range("D2").Select

Range(Selection, Selection.End(xlDown)).Select

Range("A1 : D10").Sort Key1:=Range("D2"), Order1:=xlDescending, Header:= _

xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

DataOption1:=xlSortNormal

Range("D1").Select

End Sub

 

 

 

Κωδικας για επαναφορα αρχειου στην αρχικη θεση

Sub epanafora()

 

Range("A2").Select

Range(Selection, Selection.End(xlDown)).Select

Range("A1 : D10").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _

xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

DataOption1:=xlSortNormal

Range("A1").Select

End Sub

 

 

στο button επαναφορας αρχειου θα βαλεις το

epanafora

 

στο button ευρεση max τιμης θα βαλεις το

sort_timh_max

 

υποθετω οτι ξερεις να βαλεις τα button και τους κωδικες στο excel

 

__________________________________________

 

http://www.betgr.gr