Μπορειτε να μου προτεινετε καποια ;
Αναζήτηση:
Type: Posts; Χρήστης: ddiid; Λέξη(εις) Κλειδιά:
Αναζήτηση: Η αναζήτηση ολοκληρώθηκε σε 0,03 δευτερόλεπτα
-
09-08-17, 16:42
Θέμα: Αγορά πολυμηχανήματος
Από ddiid- Μηνύματα
- 3
- Εμφανίσεις
- 4.493
Απάντηση: αγορά φωτοτυπικού
-
07-08-17, 15:30
- Μηνύματα
- 0
- Εμφανίσεις
- 3.058
ΔΕΝ ΜΟΥ ΚΡΑΤΑΕΙ ΤΟ ΟΛΟΓΡΑΦΩΣ ΣΤΗΝ ΑΠΟΘΗΚΕΥΣΗ ΚΑΙ ΣΤΗΝ ΕΚΤΥΠΩΣΗ
Καλησπερα εχω κολλησει στο εξης ,προσπαθω να φτιαξω στο excel με vba ηλεκτρονικη τιμολογηση .Το εχω ρυθμισει να μετατρεπει το αριθμητικο ποσο σε ολογραφως ,να το τυπωνει και να το αποθηκευει σε μορφη excel στον υπολογιστη. Αλλα οταν το τυπωνω δεν εμφανιζει το ολογραφως(#ονομα?) και οταν πηγαινω να ανοιξω το αποθηκευμενο παρατηρω οτι δεν κραταει τη συναρτηση που το μετατρεπει στο ολογραφως και θα πρεπει να το ξανα ορισω. Υπαρχει τροπος να το κραταει και στην αρχικη φορμα και στο αποθηκευμενο αρχειο. Σας επισυναπτω μερος του κωδικα.
Sub NextInvoice()
Range("I5").Value = Range("I5").Value + 1
Range("G26").Value = Range("G34")
Range("G30").Value = Range("G34")
Range("G31").MergeArea.ClearContents
Range("G34").MergeArea.ClearContents
Range("G38").MergeArea.ClearContents
Range("G34").Formula = "=G30-G31"
End Sub
Sub SaveInvWithNewName()
Dim NewFN As Variant
ActiveSheet.Copy
NewFN = "C:\invoice" & Range("I5").Value & Range("H5").Value & Range("I49").Value & Range("F16").Value & ".xlsm"
ActiveSheet.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbookMacroEnabled
Application.DisplayAlerts = True
ActiveWorkbook.PrintOut copies:=2
ActiveWorkbook.Close SaveChanges:=False
NextInvoice
End Sub
ΣΥΝΑΡΤΗΣΗ ΓΙΑ ΟΛΟΓΡΑΦΩΣ
Private Const zero As String = "Μηδεν "
Function TextNumber(number As Variant, _
Optional NegativeText As String = "-", _
Optional IntGender As Integer = 3, _
Optional IntMeasurePlural As String, _
Optional IntMeasureSingular As String, _
Optional Separator As String = "και", _
Optional DecCount As Integer = -1, _
Optional DecGender As Integer = 3, _
Optional DecMeasurePlural As String, _
Optional DecMeasureSingular As String, _
Optional DecNoZero As Boolean = False, _
Optional IntNoZero As Boolean = False, _
Optional NoSpace As Boolean = False) As String
Application.Volatile True
If Application.Version < 9 Then GoTo myEnd
If IsDate(number) Then
TextNumber = DateText(number)
GoTo myEnd
End If
Select Case True
Case VBA.IsEmpty(number): GoTo myEnd
Case Not VBA.IsNumeric(number): TextNumber = CVErr(xlErrValue): GoTo myEnd
Case Application.IsLogical(number): TextNumber = CVErr(xlErrValue): GoTo myEnd
Case VBA.IsError(number): TextNumber = CVErr(xlErrValue): GoTo myEnd
End Select
Dim R(0 To 14) As Variant
Dim HD As Variant
Dim Y As Variant
Dim numberDEC As Variant: numberDEC = number
Dim M As Integer
Dim j As Integer
Dim IntPart As String
Dim DecPart As String
Dim dekata As String: dekata = "Δεκατα"
Dim dekato As String: dekato = "Δεκατο"
Dim sta As String: sta = "στα"
Dim sto As String: sto = "στο"
HD = VBA.Array("", "Δεκατα", _
"Εκατοστα", "Χιλιοστα", _
"Δεκακις Χιλιοστα", "Εκατοντακις Χιλιοστα", _
"Εκατομμυριοστα", "Δεκακις Εκατομμυριοστα", _
"Εκατοντακις Εκατομμυριοστα", "Δισεκατομμυριοστα", _
"Δεκακις Δισεκατομμυριοστα", "Εκατοντακις Δισεκατομμυριοστα", _
"Τρισεκατομμυριοστα", "Δεκακις Τρισεκατομμυριοστα", _
"Εκατοντακις Τρισεκατομμυριοστα", "Τετρακις Εκατομμυριοστα")
If Int(Abs(number)) = 1 And IntMeasureSingular <> "" _
Then IntMeasurePlural = IntMeasureSingular
IntPart = IntText(number, NegativeText, IntGender) & IntMeasurePlural
numberDEC = Abs(numberDEC)
numberDEC = Format(numberDEC, "0.000000000000000")
For j = 14 To 0 Step -1
R(j) = Mid(numberDEC, Len(numberDEC) - 14 + j, 1)
Next
numberDEC = VBA.Join(R, "")
Select Case True
Case DecCount = -1 And numberDEC = 0
DecCount = 0
DecMeasurePlural = ""
DecMeasureSingular = ""
Case DecCount = -1 And numberDEC <> 0
Y = numberDEC
Do
Y = Y / 10
M = M + 1
Loop While Y = Int(Y)
DecCount = 15 - M + 1
DecMeasurePlural = ""
DecMeasureSingular = ""
DecGender = 3
End Select
numberDEC = VBA.Left(numberDEC, DecCount)
If numberDEC = 1 And DecMeasureSingular <> "" Then DecMeasurePlural = DecMeasureSingular
Select Case True
Case DecCount = 0
Case DecMeasurePlural <> ""
DecPart = IntText(numberDEC, "", DecGender) & DecMeasurePlural
Case DecMeasurePlural = ""
DecPart = IntText(numberDEC, "", DecGender) & HD(DecCount)
If numberDEC = 1 And DecMeasureSingular = "" Then
DecPart = Replace(DecPart, dekata, dekato)
DecPart = Replace(DecPart, sta, sto)
End If
End Select
Separator = ChrW(32) & Separator & ChrW(32)
If DecCount = 0 Then Separator = ""
If DecNoZero = True Then
If VBA.Left(DecPart, 5) = RTrim(zero) Then Separator = "": DecPart = ""
End If
If IntNoZero = True Then
If IntPart = NegativeText & zero Then Separator = "": IntPart = NegativeText
End If
TextNumber = Application.WorksheetFunction.Trim(IntPart & Separator & DecPart)
If NoSpace = True Then TextNumber = _
Application.WorksheetFunction.Substitute(TextNumbe r, " ", "")
myEnd:
End Function
Private Function IntText(numberINT As Variant, _
Optional NegativeText As String = "-", _
Optional GenderINT As Integer = 3) As String
Dim Tm As Variant
Dim Am As Variant
Dim Fm As Variant
Dim tt As Variant
Dim AFt As Variant
Dim TAFd As Variant
Dim Te As Variant
Dim Ae As Variant
Dim Fe As Variant
Tm = VBA.Array("", "Ενα ", "Δυο ", "Τρια ", "Τεσσερα ", _
"Πεντε ", "Εξι ", "Επτα ", "Οκτω ", "Εννεα ")
Am = VBA.Array("", "Ενας ", "Δυο ", "Τρεις ", "Τεσσερις ", _
"Πεντε ", "Εξι ", "Επτα ", "Οκτω ", "Εννεα ")
Fm = VBA.Array("", "Μια ", "Δυο ", "Τρεις ", "Τεσσερις ", _
"Πεντε ", "Εξι ", "Επτα ", "Οκτω ", "Εννεα ")
tt = VBA.Array("Δεκα ", "Εντεκα ", "Δωδεκα ", "Δεκατρια ", "Δεκατεσσερα ", _
"Δεκαπεντε ", "Δεκαεξι ", "Δεκαεπτα ", "Δεκαοκτω ", "Δεκαεννεα ")
AFt = VBA.Array("Δεκα ", "Εντεκα ", "Δωδεκα ", "Δεκατρεις ", "Δεκατεσσερις ", _
"Δεκαπεντε ", "Δεκαεξι ", "Δεκαεπτα ", "Δεκαοκτω ", "Δεκαεννεα ")
TAFd = VBA.Array("", "Δεκα ", "Εικοσι ", "Τριαντα ", "Σαραντα ", _
"Πενηντα ", "Εξηντα ", "Εβδομηντα ", "Ογδοντα ", "Ενενηντα ")
Te = VBA.Array("", "Εκατον ", "Διακοσια ", "Τριακοσια ", "Τετρακοσια ", _
"Πεντακοσια ", "Εξακοσια ", "Επτακοσια ", "Οκτακοσια ", "Εννιακοσια ")
Ae = VBA.Array("", "Εκατον ", "Διακοσιοι ", "Τριακοσιοι ", "Τετρακοσιοι ", _
"Πεντακοσιοι ", "Εξακοσιοι ", "Επτακοσιοι ", "Οκτακοσιοι ", "Εννιακοσιοι ")
Fe = VBA.Array("", "Εκατον ", "Διακοσιες ", "Τριακοσιες ", "Τετρακοσιες ", _
"Πεντακοσιες ", "Εξακοσιες ", "Επτακοσιες ", "Οκτακοσιες ", "Εννιακοσιες ")
Dim ekato As String: ekato = "Εκατο "
Dim ekaton As String: ekaton = "Εκατον "
Dim Tx As String: Tx = "Χιλια "
Dim Ax As String: Ax = "Χιλιοι "
Dim Fx As String: Fx = "Χιλιες "
Dim xx As String: xx = "Χιλιαδες "
Dim mill As String: mill = "Ενα Εκατομμυριο "
Dim mills As String: mills = "Εκατομμυρια "
Dim billion As String: billion = "Δις "
Dim trillion As String: trillion = "Τρις "
Dim V(0 To 14) As Variant
Dim apart As String, bpart As String, cpart As String
Dim dpart As String, epart As String, totalpart As String
Dim oSgn As Integer, oLen As Integer, i As Integer
oSgn = Sgn(numberINT)
numberINT = Abs(numberINT)
numberINT = Format(numberINT, "0.000000000000000")
numberINT = Int(numberINT)
oLen = Len(numberINT)
If oLen > 15 Then IntText = CVErr(xlErrValue): GoTo myEnd
For i = 0 To oLen - 1
V(15 - oLen + i) = Mid(numberINT, i + 1, 1)
Next
If V(1) + V(2) = 0 Then Te(1) = ekato
Select Case True
Case V(0) + V(1) + V(2) = 0
Case V(1) = 1
epart = Te(V(0)) & tt(V(2)) & trillion
Case Else
epart = Te(V(0)) & TAFd(V(1)) & Tm(V(2)) & trillion
End Select
Te(1) = ekaton
If V(5) + V(4) = 0 Then Te(1) = ekato
Select Case True
Case V(3) + V(4) + V(5) = 0
Case V(4) = 1
dpart = Te(V(3)) & tt(V(5)) & billion
Case Else
dpart = Te(V(3)) & TAFd(V(4)) & Tm(V(5)) & billion
End Select
Te(1) = ekaton
If V(7) + V(8) = 0 Then Te(1) = ekato
Select Case True
Case V(6) + V(7) + V(8) = 0
Case V(6) + V(7) = 0 And V(8) = 1
cpart = mill
Case V(7) = 1
cpart = Te(V(6)) & tt(V(8)) & mills
Case Else
cpart = Te(V(6)) & TAFd(V(7)) & Tm(V(8)) & mills
End Select
If GenderINT = 1 Then Tm = Am: tt = AFt: Te = Ae: Tx = Ax
If GenderINT = 2 Then Tm = Fm: tt = AFt: Te = Fe: Tx = Fx
Te(1) = ekaton
If V(11) + V(10) = 0 Then Fe(1) = ekato
Select Case True
Case V(9) + V(10) + V(11) = 0
Case V(9) + V(10) = 0 And V(11) = 1
bpart = Tx
Case V(10) = 1
bpart = Fe(V(9)) & AFt(V(11)) & xx
Case Else
bpart = Fe(V(9)) & TAFd(V(10)) & Fm(V(11)) & xx
End Select
Te(1) = ekaton
If V(14) + V(13) = 0 Then Te(1) = ekato
If V(13) = 1 Then apart = Te(V(12)) + tt(V(14)) _
Else: apart = Te(V(12)) & TAFd(V(13)) & Tm(V(14))
totalpart = epart & dpart & cpart & bpart & apart
If numberINT = 0 Then totalpart = zero
If oSgn = -1 Then NegativeText = NegativeText & " " Else NegativeText = ""
IntText = NegativeText & totalpart
myEnd:
End Function
Private Function DateText(mydate As Variant) As String
Dim oday As Integer: oday = Day(mydate)
Dim omonth As Integer: omonth = Month(mydate)
Dim oyear As Integer: oyear = Year(mydate)
Dim VMONTH As Variant
VMONTH = VBA.Array("", "Ιανουαριου", "Φεβρουαριου", "Μαρτιου", _
"Απριλιου", "Μαιου", "Ιουνιου", "Ιουλιου", _
"Αυγουστου", "Σεπτεμβριου", "Οκτωβριου", _
"Νοεμβριου", "Δεκεμβριου")
DateText = IntText(oday, "", 2) & VMONTH(omonth) & ", " & IntText(oyear, "", 3)
End Function -
07-08-17, 15:22
Θέμα: Αγορά πολυμηχανήματος
Από ddiid- Μηνύματα
- 3
- Εμφανίσεις
- 4.493
Αγορά πολυμηχανήματος
Καλησπερα
Ενδιαφερομαι να αγορασω ενα μηχανημα που να σκαναρει στις δυο οψης ,να βγαζει φωτοτυπιες διπλης οψης ,ασπρομαυρη εκτυπωση, μεγεθος χαρτιου Α4 και μηνιαιες εκτυπωσεις 1000-1500 και τελος θα χρησιμοποιειται σε δικτυο μαζι με αλλους υπολογιστες.
Θα μπορουσατε να μου προτεινετε 4 επιλογες με κοστος περιπου μεχρι τα 400€
Σας ευχαριστω -
30-08-15, 21:49
Θέμα: Αγορά κινητού
Από ddiid- Μηνύματα
- 0
- Εμφανίσεις
- 1.777
Αγορά κινητού
Ποιο μου προτεινετε : Lenovo vibe x2 η lg g2
-
23-06-15, 14:59
Θέμα: Εγκατασταση windows 7
Από ddiid- Μηνύματα
- 11
- Εμφανίσεις
- 1.220
Απάντηση: Εγκατασταση windows 7
Αρα ειναι καλυτερα να τους κατεβασω ???
-
23-06-15, 14:18
Θέμα: Εγκατασταση windows 7
Από ddiid- Μηνύματα
- 11
- Εμφανίσεις
- 1.220
Απάντηση: Εγκατασταση windows 7
Θελω να εγκαταστησω τα windows 7 64 bit ,αν βαλω τα cd ( μητρικης και καρτας γραφικων)θα ειμαι καλλυμενος απο drivers η θα πρεπει να κατεβασω τους drivers απο το internet για τα win7 64bit ?
- - - Updated - - -
Θελω να εγκαταστησω τα windows 7 64 bit ,αν βαλω τα cd ( μητρικης και καρτας γραφικων)θα ειμαι καλλυμενος απο drivers η θα πρεπει να κατεβασω τους drivers απο το internet για τα win7 64bit ? -
22-06-15, 23:06
Θέμα: Εγκατασταση windows 7
Από ddiid- Μηνύματα
- 11
- Εμφανίσεις
- 1.220
Απάντηση: Εγκατασταση windows 7
Θα περιμενω αν βγει και θα παει μονο του?
-
22-06-15, 22:59
Θέμα: Εγκατασταση windows 7
Από ddiid- Μηνύματα
- 11
- Εμφανίσεις
- 1.220
Απάντηση: Εγκατασταση windows 7
Το cd ποτε το βγαζω οταν δω την επιφα1 εργασιας η νωριτερα? Αν δεν το βγαλω δεν θα ξανακανει εγκατασταση απο την αρχη?
-
22-06-15, 22:46
Θέμα: Εγκατασταση windows 7
Από ddiid- Μηνύματα
- 11
- Εμφανίσεις
- 1.220
Εγκατασταση windows 7
Μπορειτε να μου πειτε πως βαζουμε τα windows 7 σε καινουργιο υπολογιστη?
-
Απάντηση: Μνημη ram
Μητρικη http://www.e-shop.gr/mitriki-asus-b85m-g-retail-p-PER.523153
-
Απάντηση: Μνημη ram
Για καλυτερη αποδοση τι απο τα δυο να κανω?
-
Μνημη ram
Ειναι καλυτερα 1 ram 8gb η 2 ram 4gb?
-
19-06-15, 15:38
Θέμα: ΑΓΟΡΑ ΥΠΟΛΟΓΙΣΤΗ
Από ddiid- Μηνύματα
- 13
- Εμφανίσεις
- 2.901
Απάντηση: ΑΓΟΡΑ ΥΠΟΛΟΓΙΣΤΗ
ΣΧΕΤΙΚΑ ΜΕ ΤΗΝ RAM ?
H ASROCK ΠΟΥ ΜΟΥ ΠΡΟΤΕΙΝΕΣ ΘΕΩΡΕΙΤΑΙ ΑΠΟ ΤΙΣ ΚΑΛΕΣ ΕΤΑΙΡΙΕΣ ΔΙΟΤΙ ΔΕΝ ΤΗΝ ΕΙΧΑ ΞΑΝΑΚΟΥΣΕΙ ? -
19-06-15, 15:30
Θέμα: ΑΓΟΡΑ ΥΠΟΛΟΓΙΣΤΗ
Από ddiid- Μηνύματα
- 13
- Εμφανίσεις
- 2.901
Απάντηση: ΑΓΟΡΑ ΥΠΟΛΟΓΙΣΤΗ
1)ΚΑΠΟΙΑ ASUS MOTHERBOARD ( ΑΠΟ ESHOP) ΠΟΙΟ ΚΑΛΗ ΜΕ ΤΑ ΙΔΙΑ ΧΡΗΜΑΤΑ ΜΠΟΡΕΙΤΕ ΝΑ ΜΟΥ ΠΡΟΤΕΙΝΕΤΕ ΧΩΡΙΣ ΝΑ ΑΛΛΑΞΟΥΜΕ ΤΑ ΥΠΟΛΟΙΠΑ (RAM,CPU,GPU....)
2) ΝΑ ΒΑΛΩ ΜΙΑ RAM 8GB η 2x4GB , ΓΙΑ ΚΑΛΥΤΕΡΗ ΑΠΟΔΟΣΗ -
19-06-15, 13:53
Θέμα: ΑΓΟΡΑ ΥΠΟΛΟΓΙΣΤΗ
Από ddiid- Μηνύματα
- 13
- Εμφανίσεις
- 2.901
Απάντηση: ΑΓΟΡΑ ΥΠΟΛΟΓΙΣΤΗ
Μπορεισ να μου προτεινεις καποια αλλη motherboard στα ιδια χρηματα?
Οσο για το κοθτι ρωτησα στο eshop οτι εχει ανεμιστηρακι -
19-06-15, 09:32
Θέμα: ΑΓΟΡΑ ΥΠΟΛΟΓΙΣΤΗ
Από ddiid- Μηνύματα
- 13
- Εμφανίσεις
- 2.901
ΑΓΟΡΑ ΥΠΟΛΟΓΙΣΤΗ
1) ΑΓΟΡΑ ΥΠΟΛΟΓΙΣΤΗ - ΧΡΗΣΗ ΚΥΡΙΩΣ ΝΒΑ2Κ15 ΚΑΙ ΜΕΛΛΟΝΤΙΚΑ ΝΑ ΜΠΟΡΩ ΝΑ ΠΑΙΞΩ ΚΑΠΟΙΑ ΠΑΙΧΝΙΔΙΑ
2) Μπορειτε να μου πειτε αν ειναι τα παρακατω συμβατα μεταξυ τους και αν εχει καποια αλλη προταση στα ιδια χρηματα. ΠΟΙΑ ΚΑΡΤΑ ΓΡΑΦΙΚΩΝ ΑΠΟ ΤΙΣ ΔΥΟ ΚΑΙ ΑΝ ΤΡΟΦΟΔΟΤΙΚΟ ΕΙΝΑΙ ΑΡΚΕΤΟ
3) ΜΠΑΤΖΕΤ 500 ΕΥΡΩ
4) ΓΙΑ ΠΑΙΧΝΙΔΙΑ
5) ΚΑΝΕΝΑ ΠΡΟΓΡΑΜΜΑ
6) ΕΧΩ ΕΙΔΗ ΟΘΟΝΗ 22 ΙΝΤΣΕΣ FULL HD
7) ΔΕΝ ΘΕΛΩ ΠΕΡΙΦΕΡΕΙΑΚΑ
8) ΛΕΩ ΝΑ ΦΤΙΑΞΩ ΑΥΤΟ
case: http://www.e-shop.gr/case-supercase-skp-378-p-PER.911048
motherboard: http://www.e-shop.gr/mitriki-asus-b85m-g-retail-p-PER.523153
cpu:http://www.e-shop.gr/cpu-intel-core-i3-4170-370ghz-lga1150-box-p-PER.558490
ram: http://www.e-shop.gr/ram-kingston-hx316c10f-4-4gb-ddr3-1600mhz-hyperx-fury-blue-series-p-PER.550862, 8GB (2x4GB)
ssd:http://www.e-shop.gr/ssd-samsung-mz-75e120b-eu-850-evo-series-120gb-25-sata3-p-PER.306097
psu: http://www.e-shop.gr/psu-coolermaster-rs500-acabb1-eu-b2-series-500w-p-PER.813302
gpu: http://www.e-shop.gr/vga-asus-geforce-gt740-gt740-oc-2gd5-2gb-gddr5-pci-e-retail-p-PER.513684
η
http://www.e-shop.gr/vga-asus-gtx750-phoc-1gd5-1gb-gddr5-pci-e-retail-p-PER.513649
Εμφάνιση 1-16 από 16