עקסעל: הילף אין עקסעל
די אחראים: זייער נייגעריג,אחראי,thefact
-
- שר חמישים
- תגובות: 57
- זיך איינגעשריבן אום: מיטוואך פעברואר 28, 2018 1:04 pm
- למעלה משבעים
- שר עשרת אלפים
- תגובות: 12394
- זיך איינגעשריבן אום: זונטאג מארטש 02, 2008 10:17 pm
- לאקאציע: ערגעץ פארבלאנדזשעט אויף די גראדע וואסערן
איך מאך א מעיל מערדז פון עקסעל צו ווארד,
איך האב צוויי אישוס,
1. אז די געלט קומט אריין מיט מער ווי צוויי דעסמיל פוינטס, למשל $574.22894 אנשטאטס $574.23
2. אין א געוויסע סעל רעכנט ער אויס ווילאנג די טריפ האט גענומען (טיים ענד מיינוס טיים סטארט), אין עקסעל שטייט עס 0:20, און ווארד וויל איך אים 20,
ווחאזוי מאך איך עס?
איך האב צוויי אישוס,
1. אז די געלט קומט אריין מיט מער ווי צוויי דעסמיל פוינטס, למשל $574.22894 אנשטאטס $574.23
2. אין א געוויסע סעל רעכנט ער אויס ווילאנג די טריפ האט גענומען (טיים ענד מיינוס טיים סטארט), אין עקסעל שטייט עס 0:20, און ווארד וויל איך אים 20,
ווחאזוי מאך איך עס?
משיח האט געשריבן:איך מאך א מעיל מערדז פון עקסעל צו ווארד,
איך האב צוויי אישוס,
1. אז די געלט קומט אריין מיט מער ווי צוויי דעסמיל פוינטס, למשל $574.22894 אנשטאטס $574.23
2. אין א געוויסע סעל רעכנט ער אויס ווילאנג די טריפ האט גענומען (טיים ענד מיינוס טיים סטארט), אין עקסעל שטייט עס 0:20, און ווארד וויל איך אים 20,
ווחאזוי מאך איך עס?
די געלט צו סענטס קענסטו מאכען ראונד אין עקסעל
איך האב אן עקסעל שיט פון אסאך אינוואויסעס יעדע אינוואויס האט עטליכע אייטעם ליינס
עס האט איין קאלעם מיט אינוואויס נומער
אין אן אנדערע קאלעם מיט קלעסעס
די אינוואויס נומ ערשיינט אין יעדע ROW
די קלעס ערשיינט בלויז אין די ערשטע ROW פון די ספעסיפיק אינוואויס (זעה בילד)
איך זיך א וועג אנצופילן די בלענקס ביי קלעס, די זעלבע אינפארמעישאן ווי די ערשטע פון די אינוואויס
ווען עס קומט א נייע אינוואויס זאל ער גיין מיט די נייע אינפא
דהיינו ווען עס טוישט זיך די אינפארמעשאן אין C זאל ער נעמען די נייע אינפארמעישאן פון G אין עס קאַפּיען אראפ ביז ווי עס האט די זעלבע אינפארמעישאן אין C
(איך האף אז האב מיר גוט מסביר געווען)
עס האט איין קאלעם מיט אינוואויס נומער
אין אן אנדערע קאלעם מיט קלעסעס
די אינוואויס נומ ערשיינט אין יעדע ROW
די קלעס ערשיינט בלויז אין די ערשטע ROW פון די ספעסיפיק אינוואויס (זעה בילד)
איך זיך א וועג אנצופילן די בלענקס ביי קלעס, די זעלבע אינפארמעישאן ווי די ערשטע פון די אינוואויס
ווען עס קומט א נייע אינוואויס זאל ער גיין מיט די נייע אינפא
דהיינו ווען עס טוישט זיך די אינפארמעשאן אין C זאל ער נעמען די נייע אינפארמעישאן פון G אין עס קאַפּיען אראפ ביז ווי עס האט די זעלבע אינפארמעישאן אין C
(איך האף אז האב מיר גוט מסביר געווען)
קען מיר איינער ארויסהעלפן וויאזוי מען מאכט אין עקסעל אז די קאליר פון די סעל זאל זיך טוישן לויט די אינפאט וואס מען לייגט אריין?, למשל ווען איך לייג אריין א טאטאל פון סעילס די לעצטע חודש, איז אויב עס איז מער פון א חודש בעפאר זאל עס זיין לייכט גרין, אויב איז עס ווייניגער זאל עס זיין רויט, אויב די זעלבע געהל.
איך לייג צו א סעמפל
איך לייג צו א סעמפל
דער מח האט געשריבן:קען מיר איינער ארויסהעלפן וויאזוי מען מאכט אין עקסעל אז די קאליר פון די סעל זאל זיך טוישן לויט די אינפאט וואס מען לייגט אריין?, למשל ווען איך לייג אריין א טאטאל פון סעילס די לעצטע חודש, איז אויב עס איז מער פון א חודש בעפאר זאל עס זיין לייכט גרין, אויב איז עס ווייניגער זאל עס זיין רויט, אויב די זעלבע געהל.
איך לייג צו א סעמפל
קאנדישינעל פארמעטינג
-
- שר מאה
- תגובות: 156
- זיך איינגעשריבן אום: דאנערשטאג נאוועמבער 16, 2017 4:40 pm
פליגער האט געשריבן:דער מח האט געשריבן:קען מיר איינער ארויסהעלפן וויאזוי מען מאכט אין עקסעל אז די קאליר פון די סעל זאל זיך טוישן לויט די אינפאט וואס מען לייגט אריין?, למשל ווען איך לייג אריין א טאטאל פון סעילס די לעצטע חודש, איז אויב עס איז מער פון א חודש בעפאר זאל עס זיין לייכט גרין, אויב איז עס ווייניגער זאל עס זיין רויט, אויב די זעלבע געהל.
איך לייג צו א סעמפל
קאנדישינעל פארמעטינג
וואס מיינט דאס?
דער רואיגער האט געשריבן:איז מעגליך צו דיסעבלן ctrl D אין עקסעל?
קאוד: וועל אויס אלע
Sub DisableCtrlD()
Application.OnKey "^d",""
End Sub
Sub RestoreCtrlD()
Application.OnKey "^d"
End Sub
-
- שר חמש מאות
- תגובות: 643
- זיך איינגעשריבן אום: דאנערשטאג אוגוסט 23, 2018 2:45 pm
- לאקאציע: אויפן געוועב
שלום עליכם טייערע אידן,
איך פארמאג אן עקסעל מיט אסאך לינקס פון PDF'ס און דאס ברויך געדאונלאוד ווערן, איז דא א וועג דאס צו מאכן אויטאמאטיש עס זאל זיך אליינס דאולאודן אלע לינקס דורך א פארמולע אדער VBA?
די בעסטע וואלט געווען אויב מען קען מאכן עס זאל געבן דעם נאמען פארן פידיעף פון די דערנעבנדיגע קאלום, אבער דאס איז שוין נישט אזוי וויכטיג.
ווער עס קען ארויסהעלפן אביסל זאל אריינקומען, בדיבוק חברים וועט עפעס ווערן, כ'בין זיכער ס'איז דא א לעזונג אסאך שווערערע זאכן האב איך מיר אנייצע געגעבן מיט מו"ר הרב גוגל, דאס איז מיר עפעס נישט געגאנגען.
בייגעלייגט איז א דוגמא.
איך פארמאג אן עקסעל מיט אסאך לינקס פון PDF'ס און דאס ברויך געדאונלאוד ווערן, איז דא א וועג דאס צו מאכן אויטאמאטיש עס זאל זיך אליינס דאולאודן אלע לינקס דורך א פארמולע אדער VBA?
די בעסטע וואלט געווען אויב מען קען מאכן עס זאל געבן דעם נאמען פארן פידיעף פון די דערנעבנדיגע קאלום, אבער דאס איז שוין נישט אזוי וויכטיג.
ווער עס קען ארויסהעלפן אביסל זאל אריינקומען, בדיבוק חברים וועט עפעס ווערן, כ'בין זיכער ס'איז דא א לעזונג אסאך שווערערע זאכן האב איך מיר אנייצע געגעבן מיט מו"ר הרב גוגל, דאס איז מיר עפעס נישט געגאנגען.
בייגעלייגט איז א דוגמא.
- אטעטשמענטס
-
- Capture.PNG (8.22 KiB) געזען 4387 מאל
-
- שר האלף
- תגובות: 1213
- זיך איינגעשריבן אום: זונטאג יאנואר 08, 2012 6:59 pm
איך האב געגעבן א גוטן מתנת יד פארן גבאי'ן האט מיר ר' גוגל געענטפערט
1)די title דארפן האבן די ריכטיגע עקסטענשען, לייג צו .PDF צו אלע טיייטעלס -
די גרינגסטע וועג אין C1 טייפ .pdf און שלעפ עס אראפ ביז די לעצטע לינק וואס די האסט
דערנאך אין D1 לייג דאס אריין
דאס וועט מערזשען די צוויי סעלס
קאפי דעם גאנצן קאלום אין PASTE VALUES אין קאלום B
2)געב א נאמען פאר דעם שיט links
3)לייג אריין דעם אדרעסס פון דו פאלדער וואו דו ווילסט עס סעיווען אין F1(גרינגסטע וועג, עפער דו פאלדער קאפי אלעס וואס שטייט אין דעם אדרעסס באר און פעסט עס אין F1)
4)עפען VISUAL BASIC דערנאך INSERT MODULE און פעסט דאס אריין
כדי עס זאל ארבעטען מיז עס זיין אויסגעשטעלט ווי פעלגענד:
לינקס הייבן זיך אן פון A2 און אראפ
טייטעלס (מיט די עקסטענשענס) הייבן זיך אן פון B2 און אראפ
פאלדער צו סעיווען אין F1
האפענטליך איך האב אלעס געשריבן און עס וועט ארבעטן.
ייש"כ
פאטאש
1)די title דארפן האבן די ריכטיגע עקסטענשען, לייג צו .PDF צו אלע טיייטעלס -
די גרינגסטע וועג אין C1 טייפ .pdf און שלעפ עס אראפ ביז די לעצטע לינק וואס די האסט
דערנאך אין D1 לייג דאס אריין
קאוד: וועל אויס אלע
=B2&C2
דאס וועט מערזשען די צוויי סעלס
קאפי דעם גאנצן קאלום אין PASTE VALUES אין קאלום B
2)געב א נאמען פאר דעם שיט links
3)לייג אריין דעם אדרעסס פון דו פאלדער וואו דו ווילסט עס סעיווען אין F1(גרינגסטע וועג, עפער דו פאלדער קאפי אלעס וואס שטייט אין דעם אדרעסס באר און פעסט עס אין F1)
4)עפען VISUAL BASIC דערנאך INSERT MODULE און פעסט דאס אריין
קאוד: וועל אויס אלע
Option Explicit
'API function declaration for both 32 and 64bit Excel.
#If VBA7 Then
Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
#Else
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
#End If
Sub DownloadFiles()
'--------------------------------------------------------------------------------------------------
'The macro loops through all the URLs (column C) and downloads the files at the specified folder.
'The given file names (column D) are used to create the full path of the files.
'If the file is downloaded successfully an OK will appear in column E (otherwise an ERROR value).
'The code is based on API function URLDownloadToFile, which actually does all the work.
'Written By: Christos Samaras
'Date: 28/05/2014
'Last Update: 06/06/2015
'E-mail: [email protected]
'Site: http://www.myengineeringworld.net
'--------------------------------------------------------------------------------------------------
'Declaring the necessary variables.
Dim sh As Worksheet
Dim DownloadFolder As String
Dim LastRow As Long
Dim SpecialChar() As String
Dim SpecialCharFound As Double
Dim FilePath As String
Dim i As Long
Dim j As Integer
Dim Result As Long
Dim CountErrors As Long
'Disable screen flickering.
Application.ScreenUpdating = False
'Set the worksheet object to the desired sheet.
Set sh = Sheets("Main")
'An array with special characters that cannot be used for naming a file.
SpecialChar() = Split("\ / : * ? " & Chr$(34) & " < > |", " ")
'Find the last row.
With sh
.Activate
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
'Check if the download folder exists.
DownloadFolder = sh.Range("F1")
On Error Resume Next
If Dir(DownloadFolder, vbDirectory) = vbNullString Then
MsgBox "The folder's path is incorrect!", vbCritical, "Folder's Path Error"
sh.Range("F1").Select
Exit Sub
End If
On Error GoTo 0
'Check if there is at least one URL.
If LastRow < 2 Then
MsgBox "You did't enter a single URL!", vbCritical, "No URL Error"
sh.Range("A2").Select
Exit Sub
End If
'Clear the results column.
sh.Range("C2:C" & LastRow).ClearContents
'Add the backslash if doesn't exist.
If Right(DownloadFolder, 1) <> "\" Then
DownloadFolder = DownloadFolder & "\"
End If
'Counting the number of files that will not be downloaded.
CountErrors = 0
'Save the internet files at the specified folder of your hard disk.
On Error Resume Next
For i = 2 To LastRow
'Use the given file name.
If Not sh.Cells(i, 2) = vbNullString Then
'Get the given file name.
FilePath = sh.Cells(i, 2)
'Check if the file path contains a special/illegal character.
For j = LBound(SpecialChar) To UBound(SpecialChar)
SpecialCharFound = InStr(1, FilePath, SpecialChar(j), vbTextCompare)
'If an illegal character is found substitute it with a "-" character.
If SpecialCharFound > 0 Then
FilePath = WorksheetFunction.Substitute(FilePath, SpecialChar(j), "-")
End If
Next j
'Create the final file path.
FilePath = DownloadFolder & FilePath
'Check if the file path exceeds the maximum allowable characters.
If Len(FilePath) > 255 Then
sh.Cells(i, 3) = "ERROR"
CountErrors = CountErrors + 1
End If
Else
'Empty file name.
sh.Cells(i, 3) = "ERROR"
CountErrors = CountErrors + 1
End If
'If the file path is valid, save the file into the selected folder.
If UCase(sh.Cells(i, 3)) <> "ERROR" Then
'Try to download and save the file.
Result = URLDownloadToFile(0, sh.Cells(i, 1), FilePath, 0, 0)
'Check if the file downloaded successfully and exists.
If Result = 0 And Not Dir(FilePath, vbDirectory) = vbNullString Then
'Success!
sh.Cells(i, 3) = "OK"
Else
'Error!
sh.Cells(i, 3) = "ERROR"
CountErrors = CountErrors + 1
End If
End If
Next i
On Error GoTo 0
'Enable the screen.
Application.ScreenUpdating = True
'Inform the user that macro finished successfully or with errors.
If CountErrors = 0 Then
'Success!
If LastRow - 1 = 1 Then
MsgBox "The file was successfully downloaded!", vbInformation, "Done"
Else
MsgBox LastRow - 1 & " files were successfully downloaded!", vbInformation, "Done"
End If
Else
'Error!
If CountErrors = 1 Then
MsgBox "There was an error with one of the files!", vbCritical, "Error"
Else
MsgBox "There was an error with " & CountErrors & " files!", vbCritical, "Error"
End If
End If
End Sub
כדי עס זאל ארבעטען מיז עס זיין אויסגעשטעלט ווי פעלגענד:
לינקס הייבן זיך אן פון A2 און אראפ
טייטעלס (מיט די עקסטענשענס) הייבן זיך אן פון B2 און אראפ
פאלדער צו סעיווען אין F1
האפענטליך איך האב אלעס געשריבן און עס וועט ארבעטן.
ייש"כ
פאטאש
-
- שר האלף
- תגובות: 1213
- זיך איינגעשריבן אום: זונטאג יאנואר 08, 2012 6:59 pm
Browsing האט געשריבן:שלום עליכם טייערע אידן,
איך פארמאג אן עקסעל מיט אסאך לינקס פון PDF'ס און דאס ברויך געדאונלאוד ווערן, איז דא א וועג דאס צו מאכן אויטאמאטיש עס זאל זיך אליינס דאולאודן אלע לינקס דורך א פארמולע אדער VBA?
די בעסטע וואלט געווען אויב מען קען מאכן עס זאל געבן דעם נאמען פארן פידיעף פון די דערנעבנדיגע קאלום, אבער דאס איז שוין נישט אזוי וויכטיג.
ווער עס קען ארויסהעלפן אביסל זאל אריינקומען, בדיבוק חברים וועט עפעס ווערן, כ'בין זיכער ס'איז דא א לעזונג אסאך שווערערע זאכן האב איך מיר אנייצע געגעבן מיט מו"ר הרב גוגל, דאס איז מיר עפעס נישט געגאנגען.
בייגעלייגט איז א דוגמא.
2)געב א נאמען פאר דעם שיט links
****געמאכט א טעות געב א נאמען Main