Αρχείο κατηγορίας Microsoft Excel

Συντεταγμένες από Google 37.91134425314302, 23.71307384195016 Long =SUBSTITUTE(MID(E97; FIND(“,”; E97) + 2; LEN(E97)); “.”; “,”) Lat =SUBSTITUTE(LEFT(E97;FIND(“,”; E97) – 1); “.”;”,”)

=RIGHT(M9;LEN(M9)-SEARCH(“#”;SUBSTITUTE(M9;”>”;”#”;LEN(M9)-LEN(SUBSTITUTE(M9;”>”;””)))))

Οι καρτέλες αποθηκεύονται ως αυτοτελή excel. Οι τιμές των κελιών τους αποθηκεύονται ως values.   Option Explicit Public Sub MISCSV() Dim wbkExport As Workbook Dim shtToExport As Worksheet Set shtToExport = ThisWorkbook.Worksheets(“mis”) Set wbkExport = Application.Workbooks.Add shtToExport.Copy Before:=wbkExport.Worksheets(wbkExport.Worksheets.Count) Application.DisplayAlerts = … Συνέχεια →

Sub SaveReportMIS() ActiveWorkbook.SaveCopyAs “Z:\BondsTest\BondsReport.xls” ActiveWorkbook.Save MsgBox “Saved” End Sub

Πολλές φορές πρέπει να αντιγράψουμε μόνο τις κεφαλίδες από grouped κελιά από το excel σε άλλο φύλλο. Για να το κάνουμε αυτό πρέπει να επιλέξουμε την περιοχή που θέλουμε και μετά πατάμε το Find and Select που φαίνεται στην εικόνα. … Συνέχεια →

Περνάμε στις μακροεντολές VB και την τρέχουμε. Sub DigiSpot() Dim wb As Workbook Dim ThisSheet As Worksheet Dim NumOfColumns As Integer Dim RangeToCopy As Range Dim WorkbookCounter As Integer Dim RowsInFile Dim Prefix As String Application.ScreenUpdating = False ‘Initialize data … Συνέχεια →

Από εκεί και πέρα =RIGHT(R25430;LEN(R25430)-FIND(“|FIRSTNAME=”;R25430)) Από εκεί και πριν =LEFT(BH25419;FIND(“|”;BH25419)-1) Match σε σχέση με μια στήλη. (Εάν Βρεις το Α12 στο Φύλλο TEO από την στήλη Β έως την στήλη ΑΑ τότε φέρε μου την 26η στήλη. Βολεύει σε search … Συνέχεια →