Office Development

vba_excel προβλημα

costasdol — Sun, 19 Apr 2015 19:28:54 GMT

Καλημερα,

Εδω και πολυ καιρο ψαχνω να βρω μια λυση σε ενα πλανο για διαχειριση δωματιων σε γραφικο περιβαλλον. Τελικα βρηκα μια λυση που ταιριαζε με τις δικες μου απαιτησεις και την προσαρμοσα οσο μπορουσα ετσι ωστε να εχω φτασει ενα σκαλακι πριν το τελος.
Εδω λοιπον αδυνατω ειτε να σκεφτω ειτε να βρω λυση ωστε να τροποποιησω τον κωδικα ωστε να μου δωσει το επιθυμητο αποτελεσμα

Να εξηγησω λιγο. Οπως θα δειτε στο επισηναπτομενο αρχειο το συστημα δουλευει με δυο φυλλα εργασιας. Το πρωτο φυλλο ειναι το γραφικο πλανο των δωματιων οπου απικονειζονται τα δωματια και οι ημερομηνιες. Οπου εχουμε κρατηση το συστημα τι χρωματιζει αναλογα με το χρωμα του πελατη (γραφειου) και αναφερει τον πελατη - τον διαμενοντα - το reference - ποσες νυχτες

Οταν κανουμε μια καινουργια κρατηση μου φερνει την πρωτη μερα (ημερα αφιξης) και την χρωματιζει με το επιθυμητο χρωμα
Αυτο που ζηταω ειναι να χρωματιζει ολη την περιοδο διαμονης

Σας παραθετω τον κωδικα. Μπορει καποιος -α να μου κανει μια υποδειξη πως να προχωρησω?

Sub Bookings()

Dim Rm As Range, Dt As Range, myrng As Range, Staff As Range
Dim endCol As Range, StCol As Range, StRow As Range, endRow As Range
Dim Codei As Range, Col As Range
Dim Dws As Worksheet, Cws As Worksheet
Dim x As Integer
Dim LastRow As Long
Dim aCell As Range, bCell As Range, dCell As Range

Set Cws = Sheet1
Set Dws = Sheet2
Set StCol = Cws.Range("I5")
Set endCol = Cws.Range("K5")
Set StRow = Cws.Range("M5")
Set endRow = Cws.Range("O5")

LastRow = Dws.Range("C" & Rows.Count).End(xlUp).Row
Set myrng = Dws.Range("C7:C" & LastRow) 'data sheet columns
Cws.Range("G12:AH81").ClearContents
Cws.Range("G12:AH81").Interior.ColorIndex = xlNone

For x = StRow To endRow
Set Staff = Cws.Cells(x, 6)

For Each dCell In Cws.Range(Cells(x, StCol), Cells(x, endCol))
If Not dCell Is Nothing Then
Set Dt = Cells(11, dCell.Column)

Set aCell = myrng.Find(What:=Staff, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not aCell Is Nothing Then
Set bCell = aCell

Do
Set aCell = myrng.FindNext(After:=aCell)
If aCell.Offset(0, 4).Value = Dt.Value Then
Set Codei = aCell.Cells(1, 7)
Set Col = aCell.Cells(1, 4)
Set dur = aCell.Cells(1, 8)
dCell.Value = Codei

Select Case Col
Case Cws.Range("AP9").Value
dCell.Interior.ColorIndex = 3
Case Cws.Range("AP10").Value
dCell.Interior.ColorIndex = 3
Case Cws.Range("AP11").Value
dCell.Interior.ColorIndex = 5
Case Cws.Range("AP12").Value
dCell.Interior.ColorIndex = 6
Case Cws.Range("AP13").Value
dCell.Interior.ColorIndex = 7
Case Cws.Range("AP14").Value
dCell.Interior.ColorIndex = 26
Case Cws.Range("AP15").Value
dCell.Interior.ColorIndex = 15
Case Cws.Range("AP16").Value
dCell.Interior.ColorIndex = 17
Case Cws.Range("AP17").Value
dCell.Interior.ColorIndex = 19
Case Cws.Range("AP18").Value
dCell.Interior.ColorIndex = 20
Case Cws.Range("AP19").Value
dCell.Interior.ColorIndex = 22
Case Cws.Range("AP20").Value
dCell.Interior.ColorIndex = 24
Case Cws.Range("AP21").Value
dCell.Interior.ColorIndex = 33
Case Cws.Range("AP22").Value
dCell.Interior.ColorIndex = 34
Case Cws.Range("AP23").Value
dCell.Interior.ColorIndex = 35
Case Cws.Range("AP24").Value
dCell.Interior.ColorIndex = 36
Case Cws.Range("AP25").Value
dCell.Interior.ColorIndex = 37
Case Cws.Range("AP26").Value
dCell.Interior.ColorIndex = 38
Case Cws.Range("AP27").Value
dCell.Interior.ColorIndex = 39
Case Cws.Range("AP28").Value
dCell.Interior.ColorIndex = 40
Case Cws.Range("AP29").Value
dCell.Interior.ColorIndex = 41
Case Cws.Range("AP30").Value
dCell.Interior.ColorIndex = 42
Case Cws.Range("AP31").Value
dCell.Interior.ColorIndex = 43
Case Cws.Range("AP32").Value
dCell.Interior.ColorIndex = 8
Case Cws.Range("AP33").Value
dCell.Interior.ColorIndex = 28
Case Cws.Range("AP34").Value
dCell.Interior.ColorIndex = 46
Case Cws.Range("AP35").Value
dCell.Interior.ColorIndex = 14
Case Cws.Range("AP36").Value
dCell.Interior.ColorIndex = 30
Case Cws.Range("AP37").Value
dCell.Interior.ColorIndex = 18
Case Cws.Range("AP38").Value
dCell.Interior.ColorIndex = 4
Case Cws.Range("AP39").Value
dCell.Interior.ColorIndex = 44
Case Cws.Range("AP40").Value
dCell.Interior.ColorIndex = 45
End Select
End If
If Not aCell Is Nothing Then
If aCell.Address = bCell.Address Then Exit Do
Else
Exit Do
End If
Loop

End If
End If
Next dCell

Next

On Error GoTo 0
End Sub

DocumentFormat.OpenXml.Packaging;

evagelos — Fri, 27 Jul 2012 00:16:42 GMT

Γεια σας παιδιά.

Προσπαθώ να κάνω edit ένα word και να προσθέσω τιμες στους πινακες που έχει

θέλω να προσθέσω γραμμές σε στους πίνακες πως μπορώ να το κάνω;

for (int i = 0; i < SrvLines.Count; i++)
                    {
                        dataSrv = XSupport.GetSQLDataSet("SELECT * FROM MTRL WHERE MTRL = " + Convert.ToInt32(SrvLines[i, "MTRL"]));
                        //rowIte = iteTbl.Elements<TableRow>().ElementAt(i + 1);

                          

                        //cellSrvName.Append(new Paragraph(new DocumentFormat.OpenXml.Wordprocessing.Run(new DocumentFormat.OpenXml.Wordprocessing.Text("aaa"))));
                        //row.Append(cellSrvName);

                        
                        // Find the row in the table.
                        rowSrv = srvTbl.Elements<TableRow>().ElementAt(i + 1);
                        
                        // Find the cell in the row.
                        cellSrvName = rowSrv.Elements<TableCell>().ElementAt(0);
                        cellSrvQty = rowSrv.Elements<TableCell>().ElementAt(i+1);
                        cellSrvPrice = rowSrv.Elements<TableCell>().ElementAt(2);
                        cellSrvValue = rowSrv.Elements<TableCell>().ElementAt(3);
                        // Find the first paragraph in the table cell.
                        Paragraph pSrvName = cellSrvName.Elements<Paragraph>().First();
                        Paragraph pSrvQty = cellSrvQty.Elements<Paragraph>().First();
                        Paragraph pSrvPrice = cellSrvPrice.Elements<Paragraph>().First();
                        Paragraph pSrvValue = cellSrvValue.Elements<Paragraph>().First();
                        // Find the first run in the paragraph.
                        Run rSrvName = pSrvName.Elements<Run>().First();
                        Run rSrvQty = pSrvQty.Elements<Run>().First();
                        Run rSrvPrice = pSrvPrice.Elements<Run>().First();
                        Run rSrvValue = pSrvValue.Elements<Run>().First();
                        // Set the text for the run.
                        Text tSrvName = rSrvName.Elements<Text>().First();
                        Text tSrvQty = rSrvQty.Elements<Text>().First();
                        Text tSrvPrice = rSrvPrice.Elements<Text>().First();
                        Text tSrvValue = rSrvValue.Elements<Text>().First();

                        tSrvName.Text = dataSrv[0, "NAME"].ToString();
                        tSrvQty.Text = SrvLines[i, "QTY1"].ToString();
                        tSrvPrice.Text = SrvLines[i, "PRICE"].ToString();
                        tSrvValue.Text = SrvLines[i, "LINEVAL"].ToString();
                                                
                    }

Ευχαριστώω

solver σε vba

kris2290 — Sat, 02 Jun 2012 03:58:14 GMT

Καλησπέρα!

Για την διπλωματική μου έχω φτιάξει μια μακροεντολή στην οποία θέλω να τρέξω το solver. Στο διαδίκτυο ψάχνωντας βρήκα μόνο πως να κάνεις μακροεντολή με solver functions που όμως σου αλλάζει τιμές κελιών του excel και όχι μεταβλητών από άλλη μακροεντολή. Θέλω με καποιο τρόπο το solver να αλλάζει κάποιες αρχικές παραμέτρους της μακροεντολής και απο τα αποτελέσματα αυτής να βγάζει το βέλτιστο. 'Εχει κανείς ιδέα πως γίνεται αυτο;

Ευχαριστω!

Aggregate functions in sql and VBA

silot — Thu, 03 Nov 2011 21:24:16 GMT

Καλησπέρα

Εχω το εξης προβλημα στην VBA:

Εχω ενα query το οποιο κανει count απο ενα πινακα π.χ

select count(*) from table.Αυτο το query επιστρέφει τον αριθμο τον records στον πίνακα σαν Integer και θέλω μεσα απο VBA να αποθηκευσω το αποτέλεσμα αυτου του Query

To query select count(*) from table εκτελειται και αυτο μεσα απο VBA.

Δοκιμασα τον παρακατω κωδικα αλλα δεν παιζει

dim count as integer
sqlquery = "select count(*) from table"

count = adocn.execute sqlquery

Μπορει καποιος να μου πει πως παιζει οταν χρησιμοποιω aggregate function sto query??

Ευχαριστω

VBA AND EXCEL

silot — Thu, 13 Oct 2011 20:35:04 GMT

Καλησπέρα

Μπορεί κάποιος να μου πει σε κώδικα VBA πως μπορώ να πάρω ένα range κελιών?Δηλαδή έχω 2 στήλες Α και Β οι οποίες περιέχουν κάποιες γραμμές και θέλω να διαβάζω με ένα for loop το σύνολο των γραμμών και να τα περνάω σε κάποιο query.To πρόβλημα όμως είναι ότι δεν 8α έχω σταθερό σύνολο γραμμών κάθε φορά αλλά θα είναι dynamic.Για παράδειγμα:
Έχω στην αρχή τον πίνακα παρακάτω στις στήλες Α και Β

Α           Β
-------   ----------
data1    data3
data2   data4

Διαβάζω με ένα for loop τις γραμμες π.χ
for row = 1 to 2
process
Next

Ο πίνακας μετά περιέχει π.χ 3 γραμμές δλδ
Α           Β
-------   ----------
data1    data3
data2   data4
data5   data6

Αρα το for loop πρεπει να γινει
for row = 1 to 3
process
Next

Πως μπορώ να πάρω dunamic το Range αν το λεω σωστα των γραμμών δλδ να υπολογίζω αυτόματα το μηκος του πίνακα χωρις να βάζω καρφωτα την τιμή(2,3)?

Μεταβολή ιδιότητας Caption σε Optionbutton με vba

kalkandi — Sat, 02 Jul 2011 01:43:48 GMT

Kαλησπέρα,

σε ένα φύλλο εργασίας έχω εισάγει μια εικόνα (στην οποία έχει αποδοθεί μια μακροεντολή με όνομα test στην λειτουργική μονάδα module1) και ένα OptionButton. Επιλέγοντας την εικόνα καλείται η λειτουργία test και θέλω να μεταβάλει στο αντικείμενο OptionButton1 του φύλλου sheet1 την ιδιότητα Caption στην τιμή “ok”

Μπορεί να γίνει ?? με αυτό τον τρόπο ??? ( δείτε το συννημένο αρχείο )

ευχαριστώ εκ των προτέρων

Outlook 2007 custom forms

ktmrider — Wed, 11 May 2011 17:45:12 GMT

Καλημέρα σε όλους

Προσπάθησα (μεχρι ενός σημείου με επιτυχία) να φτιάξω μια ciustom φορμα στο OL2007 με custom fields.

Όλα καλα μεχρι εδώ. Εβαλα και default new Calendar item την συγκεκριμένη φόρμα (Published το Personal Forms Library) και προσπάθησα να την μεταφέρω σε άλλο PC

μέσω oft αρχείου. Εκανα publish την φόρμα στο new PC και μπορώ να δημοσιεύω κανονικά βλέποντας και τα νεα πεδία.

Μέχρι εδώ όλα καλά. Χρησιμοποιώντας όμως ένα κοινόχρηστο calendar και για τους δύο χρήστες (που έχουν την ίδια φόρμα) όσα item κάνουν post οι ίδιοι την βλέπουν μετά κανονικά (ΜΕ ΤΗΝ CUSTOM ΦΟΡΜΑ)

Post άλλων όμως την ανοίγουν με την default με αποτέλεσμα να μην βλέπω τα custom πεδία που έχω φτιάξει

Υποψιάζομαι ότι έχουν διαφορετικό ID οι φόρμες οπότε μην γνωρίζοντας με τι φόρμα έχει γίνει post την ανοίγουν με την default.

Προσπάθησα να πιάσω το event (onopen) Η κάτι αντίστοιχο ώστε να απαιτήσω από την εφαρμογή να χρησιμοποιήσει την συγκεκριμένη φόρμα οταν βρίσκεται στο συγκεκριμένο folder αλλα τίποτα

Όποια βοήθεια δεκτή.

Outlook 2007 authentication

savah — Wed, 20 Oct 2010 00:18:59 GMT

Καλησπέρα,

Υπάρχει δυνατότητα να προγραμματίσουμε ενα add-in για το outlook 2007 προκειμένου να έχουμε κάπου σε μια βάση username και passwords και με το που ανοίγει το Outlook να γίνεται authentication βάσει των δικών μας username και password και να διαλέγουμε κάθε φορά το εκάστοτε .pst του διαφορετικού χρήστη;

Επίσης γίνεται να ρυθμίζονται τα settings του exchange ανάλογα με τον χρήστη που έκανε log in ?

Office 2007 custom installation need help

Johnnyxp64 — Tue, 23 Feb 2010 22:58:29 GMT

Καλησπέρα σε ολους

θελω να ρωτησω αν μπορει να γινει το παρακατω.

να μπορω με καποιο script/command parametrs δεν ξερω να εκτελεσω την εγκατασταση του office 2007 ΑΛΛΑ με συγκρημενα προιοντα και εργαλεια!

δηλαδη να κανω custom installation και αντι να τα κανω με το χερι (κλικ Install ALL, etc) για καθε ενα που με ενδιαφερει ξανα και ξανα και ξανα, μπορω καπω αυτο να το αυτοματοποιησω?

θέλω να εγκαθιστώ συγκεκριμένα πράγματα

σας ευχαριστω πολύ

Office XP και VS2008

bigN — Fri, 27 Nov 2009 19:42:04 GMT

Γεια,

Έχω φτιάξει μια εφαρμογούλα σε Vba του Excel XP (2002) την οποία θέλω να τη μετρέψω σε add-in με .NET (C#).
Τα template του VS2008 όμως ξεκινάνε από 2003 και μετά.

Γνωρίζει κανείς αν μπορώ να βάλω τα template του Excel XP (2002 στο VS2008)

Excel 2003

stratos — Fri, 28 Aug 2009 19:34:16 GMT

Καλημερα σας.
Θα ηθελα να ρωτησω κατι σχετικα με το excel. Εχω δημιουργησει μαι εφαρμογη προσομοιωσης Monte Carlo με χρηση της συναρτησης rand(). Θα ηθελα τωρα να κανω το εξης: Θελω να σχεδιασω ενα γραφημα χρησιμοποιωντας τις τιμες που μου δινει η προσομοιωση χωρις ωστοσο να χρειαστει να κανω χρηση παραπανω του ενος κελιου, δηλαδη καθως αλλαζουν οι τιμες στο κελι θα ηθελα να προστιθενται αυτοματα στο γραφημα. Με τον κλασσικο τροπο ξερω οτι πρεπει να γεμισω με τη συναρτηση rand() τα κελια του excel (π.χ. 100 κελια) και μετα να τα εισαγω σε ενα γραφημα. Αυτο θα ηθελα να το αποφυγω. Θελω να χρησιμοποιησω ενα κελι και καθως αλλαζουν οι τιμες του να προστιθεται ενα νεο σημειο στο γραφημα. Υπαρχει καποιος τροπος να το κανω? Ελπιζω να εγινα κατανοητος.Ευχαριστω.

Πρόβλημα με την μεταφορά των ομάδων στο MS Outlook 2003

sql100 — Thu, 02 Jul 2009 23:43:38 GMT

Προσπάθησα να μεταφέρω τις επαφές και τις ομάδες από έναν υπολογιστη (XP , Office 2003) σε άλλον (Vista, Office 2003) (εξαγωγή σε pst file) και εισαγωγή στον δεύτερο υπολογιστή΄

Ενώ οι επαφές μεταφέρονται κανονικά, οι ομάδες-λίστες δεν μεταφέρονται! Για την ακρίβεια μεταφέρονται αλλά ενώ έχει μέσα τα στοιχεία των επαφών εμφανίζει ότι αυτές δεν υπάρχουν.

Γνωρίζετε κάποιον τρόπο για να μεταφέρω τα groups-ομάδες από ένα outlook σε άλλο?

Ευχαριστώ

office language C# !

maria_papan — Fri, 19 Jun 2009 20:06:15 GMT

Μέσα στο πρόγραμμα σε κάποιο σημείο του κώδικα θέλβ να μάθω σε ποιά γλώσσα είναι εγκατεστημένα τα Microdoft Office. Πως γίνεται αυτό? Έχω ψάξει όλο το google αλλά τπτ

excel 2007 workbook vs framework 2.0 vis. studio 2005

maria_papan — Fri, 19 Jun 2009 17:46:14 GMT

καλημέρα!!!!!!!!!!1

όπως καταλαβάτε και από το τίτλο προσπαθώ πατώντας ενα κουμπί να μου ανοίγει ενα excelοχαρτο. αλλά σχεδόν όλα τα παραδείγματα ειναι για framework 3.0, όμως εγώ θέλω να το κάνω αυτό με framework 2.0. Μ εμφανίζει ένα μήνυμα ασυμβατότητας ασφαλώς. Πως θα το κάνω??????????????????? :-(

using Excel = Microsoft.Office.Interop.Excel;

//Excel.Application app = null;

//Excel.Workbook workbook = null;

//Excel.Worksheet worksheet = null;

//Excel.Range workSheet_range = null;

//app = new Excel.Application();

//app.Visible = true;

//workbook = app.Workbooks.Add(1);

//worksheet = (Excel.Worksheet)workbook.Sheets[1];

Right-click menu σε Word add-in (VSTO)

Vangos — Sat, 29 Nov 2008 08:47:36 GMT

Καλησπέρα.

Υπάρχει τρόπος να προσθέσω μια επιπλέον επιλογή στο μενού του right-click μέσω ενός add-in που έφτιαξα για το MS Office Word 2007; Νομίζω ότι δεν γίνεται όπως στα Windows Forms και τη χρήση του ContextMenu.

Χρησμοποιώ Visual Studio 2008 με .NET 3.5. Το add-in είναι γραμμένο σε C#, αλλά αν γνωρίζετε σε VB δεν έχω κανένα πρόβλημα.

Ευχαριστώ.

Web Forms με την χρήση Microsoft Access

t@sos — Tue, 09 Sep 2008 17:12:03 GMT

Καλή σας ημερα.
Στην εταιρία όπου εργάζομαι , έχουμε φτιάξει μια εφαρμογή σε Microsoft Access .
Το νέο βημα που θελουμε να προχωρήσουμε , ειναι να δημιουργήσουμε μια "ιστοσελίδα" , όπου ο ενδιαφερόμενος αναζητεί ένα είδος, θα επιλέγει ένα απο τα είδη που εμφανίζονται και θα του επιστρέφονται πληροφορίες σχετικά με την διαθεσιμότητα του , κλπ.
Μπορεί αυτο να το πετύχουμε χρησιμοποιόντας μονο microsoft Access μιας και είναι το μόνο εργαλείο που διαθέτουμε ( ...και απο θέμα γνώσεων) ?

Για την ιστορία :
Εχουμε κάνει μια μικρη test εφαρμογή και σαν ... Access δουλευει πολύ καλά.
Όλες οι προσπάθεις μας να κάνουμε export καποιες φορμες (στον φακελο rootWEB για δοκιμές) έχουν πρόβλημα.
Τι κάνουμε λάθος?
Υπάρχει κάποιος "εύκολος" τρόπος να τα καταφέρουμε

Yπάρχει τρόπος να κλειδώσεις τον κώδικα vba σε excel application

jimakos — Fri, 22 Aug 2008 03:54:17 GMT

Καλησπέρα, γνωρίζουμε όλοι τον παραδοσιακό τρόπο κλειδώματος του vba κώδικα (εισάγοντας κωδικό vba code) σε ένα excel αρχείο, το ερώτημα είναι πως όλα αυτά διαβάζονται με προγραμματα που κυκλοφορούν στο internet και διαβάζουν τον vba code. Yπάρχει τρόπος να μην διαβάζεται ο vba code της εφαρμογής??? ή ίσως άλλος τρόπος κλειδώματος του vba κώδικα???

Ευχαριστώ για τον πολύτιμο χρόνο σας

άνοιγμα και αναζήτηση περιεχομένων αρχείου τύπου *.doc σε VB.NET

gtrianta — Sun, 22 Jun 2008 12:51:16 GMT

Καλημέρα σε όλους. είμαι νέος στον προγραμματισμό σε περιβάλλον .ΝΕΤ και για εκπαιδευτικούς λόγους (αλλά και για την διευκόλινση της εργασίας μου ;-) ) προσπαθώ να φτιάξω ένα πρόγραμμα που να βρίσκει ενα συγκεκριμένο string σε ένα αρχείο κειμένου τύπου doc πχ να ψάχνει το string "θέμα:" που έιναι γραμμένο σε ένα doc και στην συνέχεια να μου εμφανίζει σε ένα textbox αυτό που ακολουθεί μετά το θέμα, έτσι ώστε να το καταχωρήσω αργότερα σε μια βάση. Π.χ κέιμενο στο word: "Θέμα: Υποβολή Προσφοράς" στο textbox να εμφανίζεται το "Υποβολή Προσφοράς". είναι εύκολο ή εφικτό να γίνει κάτι τέτοιο? ευχαριστώ εκ των προτέρων

Ερώτηση outlook

jtp4 — Sat, 17 May 2008 19:00:51 GMT

Καλημέρα

στην σχεδίαση μιας φόρμας εργασίας στο outlook έχω προσθέσει ένα CheckBox

πως μπορώ αν κάποιος χρηστής δοκιμάσει να το κάνει true να απαιτητέ κωδικός και αν είναι σωστός τότε να γίνετε true?

Office 2007...? Που πήγε τελικά η συμμετοχή σε ομάδα εργασίας???

gtaskos — Sun, 20 Apr 2008 12:01:46 GMT

Νομίζω πως εδώ είναι ένα μέρος που θα μπορούσα να ρωτήσω τι γίνεται τελικά με την συμμετοχή σε μια ομάδα εργασίας της MS Access 2007.
Υπήρχε πολύ όμορφα στα εργαλεία --- ασφάλεια κτλ... των 2000 και 2003...

Δηλαδή εγώ τώρα δεν μπορώ να ανοίξω αρχεία που εχουνε δημιουργηθει και ανοίγουν με συγκεκριμένο χρήστη μιας ομάδας εργασίας?

Μήπως ξέρει καποιος να με διαφωτίσει?

MS Excel copy/paste formula

Δημήτρης Μπούνδρης — Thu, 27 Dec 2007 18:08:28 GMT

Καλημέρα και Χρόνια πολλά,

μπορεί κανείς να με βοηθήσει πως μπορώ να κάνω copy/paste από ένα spreadsheet Α στο Excel σε ένα άλλο Β χρησιμοποιώντας μια formula;

Καθορισμός εκτύπωσης ύψους επιλεγμένης περιοχής φύλλου εργασίας ( excel ) σε 3 γραμμές ανά 1 εκατοστό

jimakos — Thu, 03 Apr 2008 06:46:42 GMT

Καλησπέρα,

προσπαθώ να δοκιμάσω εκτύπωση μιας περιοχής γραμμών σε φύλλο εργασίας που να καθορίζω πριν την εκτύπωση το ύψος εκτύπωσης 3 γραμμές ανά 1 εκατοστό.

π.χ. η επιλεγμένη εκτύπωση αφορά 3 γραμμές άρα η εκτύπωση τους στο χαρτί θα έχει ύψος 1 εκατοστό ή 18 γραμμές άρα ύψος 18/3 = 6 εκατοστά.

προσπάθησα επιλέγωντας τις γραμμές που θέλω να εκτυπώσω να τους καθορίσω το ύψος π.χ.

Rows("3:5").Select
Selection.RowHeight = 8.92

δεν ξέρω εάν υπάρχει άλλος τρόπος που να καθορίζεις εκατοστά ( και όχι pixels ) καθώς ο συγκεκριμένος χάνει όταν οι γραμμές είναι περισσότερες

Exchange Server Event Sink

alexp — Thu, 29 Nov 2007 18:42:04 GMT

Καλημέρα σε όλους και όλες!

Προσπαθώ να καταλάβω πώς θα κάνω customize τον Exchange Server ώστε να εκτελεί μια συγκεκριμένη ρουτίνα σε κάθε μήνυμα πού σώζεται σε κάποιο folder. Βρήκα λοιπόν τα Event Sinks και ακολούθησα τα βήματα ενός παραδείγματος. Όταν όμως προσπάθησα να κάνω register τον κώδικα που έχω φτιάξει στον Exchange Server, αυτό ήταν αδύνατο. Ούτε με το regevent.vbs script, ούτε με τον Exchange Explorer από το Exchange SDK μπόρεσα να συνδεθώ. Υπάρχει κάτι που μου ξεφεύγει; Καμιά ιδέα;

Δεν ξέρω αν είναι αυτό το σωστό forum, αλλά δεν βρήκα κάποιο πιο σχετικό.

Αλεξ.

Πώς βρίσκουμε με κώδικα τα selected items ενός ListBox στο Excel;

antonisV — Fri, 02 Nov 2007 07:59:07 GMT

Καλημέρα,

σε προηγούμενη δημοσίευση, με τη βοήθεια του χρήστη manosB, είχα καταλλήξει πως αν σε ένα Excel αρχείο υπάρχει ένα control από το ToolBar Control ToolBox, τότε μπορεί κανείς να διαβάσει την τιμή του ως εξής (xlSht το Sheet του Excel αρχείου):

xlSht.OLEObjects(i).object.Value

Τι γίνεται όμως όταν αυτό το control είναι ListBox και είναι ενεργοποιημένο το multiselection ; Τότε το .Value δεν έχει νόημα.
Έχω βρει τον τρόπο να δεις αν η πολλαπλή επιλογή είναι ενργή:

If xlSht.OLEObjects(i).object.multiselect > 0 Then
MsgBox("multiselection ON")
End If

Δεν έχω καταφέρει ωστόσο να βρω τρόπο να προσπελάσω το array των items. Τα .items και .selecteditems κτλ δε λειτουργούν. Δεν τα δέχεται καν. Επίσης όλες οι δοκιμές μου για casting έχουν πέσει στο κενό. Επίσης, το ίδιο πρόβλημα παρουσιάζεται και στην περίπτωση που το ListBox είναι από το ToolBar Forms, οπότε και το αντίστοιχο object είναι το:

xlSht.ListBoxes(i).object

Αν ξέρει κάποιος τη λύση, παρακαλώ ας τη δημοσιεύσει.
Ευχαριστώ εκ των προτέρων

Προσπέλαση μη-συνδεδεμένων-σε-κελί controls του Excel από κώδικα

antonisV — Sun, 21 Oct 2007 19:36:24 GMT

Καλημέρα σε όλους/ες,

Θα ήθελα να ρωτήσω αν και με ποιον τρόπο μπορεί κάποιος να "διαβάσει" και να αλλάξει την τιμή ενός control που έχει δημιουργηθεί σε ένα αρχείο Excel χρησιμοποιώντας κώδικα Visual Basic(6 ή .NET). Γνωρίζω πως υπάρχουν περισσότεροι του ενός τρόποι να διαβάσεις και να αλλάξεις τις τιμές των κελιών σε αρχείο Excel προγραμματιστικά και φυσικά πως τα controls που δημιουργούνται από το Toolbox του Excel μπορούν να συνδεθούν(Linked Cell Attribute) με κάποιο κελί.

Το πρόβλημα που αντιμετωπίζω είναι πως το Excel αρχείο στην προκειμένη περίπτωση δε δημιουργείται από εμένα και δεν έχω καν πρόσβαση στον δημιουργό ώστε να εξασφαλίσω ότι τα controls θα είναι συνδεδεμένα με κελιά (και άρα το πρόγραμμα να χρειάζεται να "διαβάσει" απλά αυτά τα κελιά). Πρέπει συνεπώς με κάποιον τρόπο να μπορώ μέσα από τον κώδικα εκτός από τα κελιά να "διαβάζω" και να αλλάζω τις τιμές και των όποιων controls(Calendar, Textbox, Checkbox, DropDown κτλ) ο δημιουργός του αρχείου Excel έχει τοποθετήσει σ'αυτό.

Ευχαριστώ εκ των προτέρων