שאלה | הקפצת נתונים באקסל
-
יש לי באקסל רשימת שקים את תאריך פירעון אני רוצה שיום לפני הפירעון יציג לי הודעה כשאני פותח אותו יש אופציה כזאת או לעשות כזה דבר בתוכנה אחרת תודה
@benzi6789494 יש אופציה שיישלח מייל אבל זה כולל כתיבה:
העתקתי מאתר אחר[ תפוז]
בעזרת שורת פקודה במקרו אירוע . . .
ברמת ה'מודול' ThisWorkbook.
אם נצא מנק' הנחה ששם הגיליון הוא: Expenses ומדובר בסיכום כל הסכומים שבעמודה "C" - כך יראה הקוד:
Private Sub Workbook_Open()
MsgBox Application.Sum(Sheets("Expenses").Columns(3))
End Subאח"כ:
אם תתפשר על שליחת מייל - המציג את ערכו של תא F2 [הסיכום הרלוונטי] - לחשבון ה- Gmail, של הבוס, כשהערך מתא זה יוצג בשורת הנושא, של המייל, - אתה מוזמן להיעזר בקוד המקרו, שלהלן, שאומץ מאחד הקודים של: Ron de Bruin.
שלב אותו במקרו האירוע שהצגתי לך קודם ואם המידע לא מעניין את מפעיל המחשב - בטל את הפקודה MsgBox, המצריכה לחיצה על OK.
Sub Mail_Range()
Set Source = Nothing
On Error Resume Next
Set Source = Range("F2").SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If Source Is Nothing Then
MsgBox "The source is not a range or the sheet is protected, " & _
"please correct and try again.", vbOKOnly
Exit Sub
End If
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set wb = ActiveWorkbook
Set Dest = Workbooks.Add(xlWBATWorksheet)
Source.Copy
With Dest.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial Paste:=xlPasteValues
.Cells(1).PasteSpecial Paste:=xlPasteFormats
.Cells(1).Select
Application.CutCopyMode = False
End With
TempFilePath = Environ$("temp") & ""
TempFileName = "Range of " & wb.Name & " " _
& Format(Now, "dd-mmm-yy h-mm-ss")
FileExtStr = ".xlsx": FileFormatNum = 51
With Dest
.SaveAs TempFilePath & TempFileName & FileExtStr, _
FileFormat:=FileFormatNum
On Error Resume Next
For I = 1 To 3
.SendMail "abc@tapuz.co.il", _
Range("F2")
If Err.Number = 0 Then Exit For
Next I
On Error GoTo 0
.Close SaveChanges:=False
End With
Kill TempFilePath & TempFileName & FileExtStr
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub -
@benzi6789494 יש אופציה שיישלח מייל אבל זה כולל כתיבה:
העתקתי מאתר אחר[ תפוז]
בעזרת שורת פקודה במקרו אירוע . . .
ברמת ה'מודול' ThisWorkbook.
אם נצא מנק' הנחה ששם הגיליון הוא: Expenses ומדובר בסיכום כל הסכומים שבעמודה "C" - כך יראה הקוד:
Private Sub Workbook_Open()
MsgBox Application.Sum(Sheets("Expenses").Columns(3))
End Subאח"כ:
אם תתפשר על שליחת מייל - המציג את ערכו של תא F2 [הסיכום הרלוונטי] - לחשבון ה- Gmail, של הבוס, כשהערך מתא זה יוצג בשורת הנושא, של המייל, - אתה מוזמן להיעזר בקוד המקרו, שלהלן, שאומץ מאחד הקודים של: Ron de Bruin.
שלב אותו במקרו האירוע שהצגתי לך קודם ואם המידע לא מעניין את מפעיל המחשב - בטל את הפקודה MsgBox, המצריכה לחיצה על OK.
Sub Mail_Range()
Set Source = Nothing
On Error Resume Next
Set Source = Range("F2").SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If Source Is Nothing Then
MsgBox "The source is not a range or the sheet is protected, " & _
"please correct and try again.", vbOKOnly
Exit Sub
End If
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set wb = ActiveWorkbook
Set Dest = Workbooks.Add(xlWBATWorksheet)
Source.Copy
With Dest.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial Paste:=xlPasteValues
.Cells(1).PasteSpecial Paste:=xlPasteFormats
.Cells(1).Select
Application.CutCopyMode = False
End With
TempFilePath = Environ$("temp") & ""
TempFileName = "Range of " & wb.Name & " " _
& Format(Now, "dd-mmm-yy h-mm-ss")
FileExtStr = ".xlsx": FileFormatNum = 51
With Dest
.SaveAs TempFilePath & TempFileName & FileExtStr, _
FileFormat:=FileFormatNum
On Error Resume Next
For I = 1 To 3
.SendMail "abc@tapuz.co.il", _
Range("F2")
If Err.Number = 0 Then Exit For
Next I
On Error GoTo 0
.Close SaveChanges:=False
End With
Kill TempFilePath & TempFileName & FileExtStr
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub@aiib זה יכול לעבוד גם בגוגל שיטס?
איפא יוצרים את זה קוד מאקרו בתוך האקסל ? אני לא מבין אנגלית אז אם תוכל להביא את הקישור מהמקור או יותר הסבר בבקשה איך אני קובע לו איזה תאים לסכם ולפי איזה עמודה ואיפא רושמים את כתובת המייל תודה רבה -
@aiib זה יכול לעבוד גם בגוגל שיטס?
איפא יוצרים את זה קוד מאקרו בתוך האקסל ? אני לא מבין אנגלית אז אם תוכל להביא את הקישור מהמקור או יותר הסבר בבקשה איך אני קובע לו איזה תאים לסכם ולפי איזה עמודה ואיפא רושמים את כתובת המייל תודה רבה@benzi6789494 אני לא יודע. לא כ"כ מבין בזה. רק עשיתי גוגל עבורך...
המקור הוא מכאן:https://www.tapuz.co.il/threads/האם-אקסל-יכול-לייצר-התראות-על-בסיס-נוסחא.13601752/#post-128026119
-
@benzi6789494 אני לא יודע. לא כ"כ מבין בזה. רק עשיתי גוגל עבורך...
המקור הוא מכאן:https://www.tapuz.co.il/threads/האם-אקסל-יכול-לייצר-התראות-על-בסיס-נוסחא.13601752/#post-128026119
@aiib תודה רבה נטפרי לא פותח את זה בכל אופן תודה
-
@aiib תודה רבה נטפרי לא פותח את זה בכל אופן תודה
@benzi6789494
זה העתק:האם אקסל יכול לייצר התראות על בסיס נוסחא?
אני רוצה שאקסל יוציא לי התראה (כהודעה קופצת, אסמס, מייל, לא חשוב- העיקר שיקפוץ משהו) על בסיס נוסחת סיכום יומית (לדוגמא- מעקב אחרי צ'קים- שתצא הודעה בפתיחת המחשב כמה הסכום שאמור לצאת בתאריך הנוכחי.
האם זה בר ביצוע?
אקסל 2010
וינדוס 7.תודה רבה למתאמצים.
מיכאל אבידן
מיכאל אבידן
Member
מנהל
23/4/13
#2
בעזרת שורת פקודה במקרו אירוע . . .ברמת ה'מודול' ThisWorkbook.
אם נצא מנק' הנחה ששם הגיליון הוא: Expenses ומדובר בסיכום כל הסכומים שבעמודה "C" - כך יראה הקוד:
Private Sub Workbook_Open()
MsgBox Application.Sum(Sheets("Expenses").Columns(3))
End Subהמשך הדיון - ככל שזה נוגע לי - רק אחרי שתקרא את ההכרזה שבראש דף הפורום ותפעל כמתבקש.
yuvalnm
New member
23/4/13
#3
מתנצל. הנה הקובץתודה אבידן.
אבל אני מחפש פתרון לא בזמן שהקובץ נפתח אלא כשהמחשב מופעל. כשווינדוס עולה.שוב תודה
מיכאל אבידן
מיכאל אבידן
Member
מנהל
23/4/13
#4
קצת הגזמת . . .תוכל לשקול על הצבת חוברת העבודה בתיקייה STARTUP של מע' ההפעלה ע"מ שהיא תיפתח בעת הפעלת המחשב ואז תוקפץ, גם, חלונית ה- MsgBox ובה הסכום.
שים לב הקוד שונה, במקצת, כדי להתאימו לדרישה.
אם, מאד, תרצה אפשר להוסיף עוד פקודה שתסגור את הקובץ לאחר לחיצה על OK.
Private Sub Workbook_Open()
MsgBox Application.SumIf(Sheets("גיליון1").[A:A], Date, Sheets("גיליון1").[C:C])
End Sub
yuvalnm
New member
23/4/13
#5
תודה רבההרעיון יפה. אבדוק אותו.
אני מניח שלבקש שזה יועבר כאסמס זה מדע בדיוני?תודה רבה!
מיכאל אבידן
מיכאל אבידן
Member
מנהל
23/4/13
#6
אתה גם מפעיל את המחשב . . .באמצעות SMS
yuvalnm
New member
23/4/13
#7
עוד יבוא היום...כשאני מפעיל את המחשב, כדי לא לפספס את העדכון היומי של הצ'קים, הייתי שמח שתצא הודעה אוטומטית לנייד של הבוס.
חשבתי אולי על הכיוון של היומן של ג'ימייל. הוא שולח תזכורות אסמס בחינם. אבל אני לא יודע לחבר בינו לבין האקסל.
מיכאל אבידן
מיכאל אבידן
Member
מנהל
23/4/13
#8
אז ככה . . .אם תתפשר על שליחת מייל - המציג את ערכו של תא F2 [הסיכום הרלוונטי] - לחשבון ה- Gmail, של הבוס, כשהערך מתא זה יוצג בשורת הנושא, של המייל, - אתה מוזמן להיעזר בקוד המקרו, שלהלן, שאומץ מאחד הקודים של: Ron de Bruin.
שלב אותו במקרו האירוע שהצגתי לך קודם ואם המידע לא מעניין את מפעיל המחשב - בטל את הפקודה MsgBox, המצריכה לחיצה על OK.
Sub Mail_Range()
Set Source = Nothing
On Error Resume Next
Set Source = Range("F2").SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If Source Is Nothing Then
MsgBox "The source is not a range or the sheet is protected, " & _
"please correct and try again.", vbOKOnly
Exit Sub
End If
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set wb = ActiveWorkbook
Set Dest = Workbooks.Add(xlWBATWorksheet)
Source.Copy
With Dest.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial Paste:=xlPasteValues
.Cells(1).PasteSpecial Paste:=xlPasteFormats
.Cells(1).Select
Application.CutCopyMode = False
End With
TempFilePath = Environ$("temp") & ""
TempFileName = "Range of " & wb.Name & " " _
& Format(Now, "dd-mmm-yy h-mm-ss")
FileExtStr = ".xlsx": FileFormatNum = 51
With Dest
.SaveAs TempFilePath & TempFileName & FileExtStr, _
FileFormat:=FileFormatNum
On Error Resume Next
For I = 1 To 3
.SendMail "abc@tapuz.co.il", _
Range("F2")
If Err.Number = 0 Then Exit For
Next I
On Error GoTo 0
.Close SaveChanges:=False
End With
Kill TempFilePath & TempFileName & FileExtStr
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
yuvalnm
New member
23/4/13
#9
הוא תותח! הוא תותח!מיכאל אתה אלוף.
היה צריך לשפץ משהו קטן ככה שהסכום יופיע בנושא ההודעה, להלן מודגש.
מכאן אמשיך לבד לאסמס. נראה אם אצליח.Sub Mail_Range()
Set Source = Nothing
On Error Resume Next
Set Source = Range("F2").SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If Source Is Nothing Then
MsgBox "The source is not a range or the sheet is protected, " & _
"please correct and try again.", vbOKOnly
Exit Sub
End If
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set wb = ActiveWorkbook
Set Dest = Workbooks.Add(xlWBATWorksheet)
Source.Copy
With Dest.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial Paste:=xlPasteValues
.Cells(1).PasteSpecial Paste:=xlPasteFormats
.Cells(1).Select
Application.CutCopyMode = False
End With
TempFilePath = Environ$("temp") & ""
TempFileName = "Range of " & wb.Name & " " _
& Format(Now, "dd-mmm-yy h-mm-ss")
FileExtStr = ".xlsx": FileFormatNum = 51
With Dest
.SaveAs TempFilePath & TempFileName & FileExtStr, _
FileFormat:=FileFormatNum
On Error Resume Next
For I = 1 To 3
.SendMail "abc@tapuz.co.il", _
Range("A1")
If Err.Number = 0 Then Exit For
Next I
On Error GoTo 0
.Close SaveChanges:=False
End With
Kill TempFilePath & TempFileName & FileExtStr
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
מיכאל אבידן
מיכאל אבידן
Member
מנהל
23/4/13
#10
השארתי גם לך "ללעוס" קצת . . .כמו, למשל, הכנסת המייל המתאים במקום הסתמי שהצגתי.
ההבדל בין F2 ל- A1 טמון המקום ממנו מורץ המקרו.
העיקר שהבוס יהיה מבסוט וכולי תקווה שהוא כבר מדבר עם סוכנות הנסיעות ושולח אותך - כבונוס - לסוף שבוע באחת מערי הבירה האירופאיות.
yuvalnm
New member
23/4/13
#11
LIKE ענקמיכאל אבידן
מיכאל אבידן
Member
מנהל
23/4/13
#12
אם אתה מחפש סיבות ל"לייקים" . . .בדוק - כ'גימיק' - את הקוד, שלהלן, ב-ThisWorkBook:
Private Sub Workbook_Open()
On Error Resume Next
SendMail "abc@tapuz.co.il", Sheets("גיליון1").Range("F2")
End Sub
yuvalnm
New member
24/4/13
#13
נשארתי ללא מיליםתותח, כבר אמרתי?
מדהים!תודה רבה
-
@benzi6789494
זה העתק:האם אקסל יכול לייצר התראות על בסיס נוסחא?
אני רוצה שאקסל יוציא לי התראה (כהודעה קופצת, אסמס, מייל, לא חשוב- העיקר שיקפוץ משהו) על בסיס נוסחת סיכום יומית (לדוגמא- מעקב אחרי צ'קים- שתצא הודעה בפתיחת המחשב כמה הסכום שאמור לצאת בתאריך הנוכחי.
האם זה בר ביצוע?
אקסל 2010
וינדוס 7.תודה רבה למתאמצים.
מיכאל אבידן
מיכאל אבידן
Member
מנהל
23/4/13
#2
בעזרת שורת פקודה במקרו אירוע . . .ברמת ה'מודול' ThisWorkbook.
אם נצא מנק' הנחה ששם הגיליון הוא: Expenses ומדובר בסיכום כל הסכומים שבעמודה "C" - כך יראה הקוד:
Private Sub Workbook_Open()
MsgBox Application.Sum(Sheets("Expenses").Columns(3))
End Subהמשך הדיון - ככל שזה נוגע לי - רק אחרי שתקרא את ההכרזה שבראש דף הפורום ותפעל כמתבקש.
yuvalnm
New member
23/4/13
#3
מתנצל. הנה הקובץתודה אבידן.
אבל אני מחפש פתרון לא בזמן שהקובץ נפתח אלא כשהמחשב מופעל. כשווינדוס עולה.שוב תודה
מיכאל אבידן
מיכאל אבידן
Member
מנהל
23/4/13
#4
קצת הגזמת . . .תוכל לשקול על הצבת חוברת העבודה בתיקייה STARTUP של מע' ההפעלה ע"מ שהיא תיפתח בעת הפעלת המחשב ואז תוקפץ, גם, חלונית ה- MsgBox ובה הסכום.
שים לב הקוד שונה, במקצת, כדי להתאימו לדרישה.
אם, מאד, תרצה אפשר להוסיף עוד פקודה שתסגור את הקובץ לאחר לחיצה על OK.
Private Sub Workbook_Open()
MsgBox Application.SumIf(Sheets("גיליון1").[A:A], Date, Sheets("גיליון1").[C:C])
End Sub
yuvalnm
New member
23/4/13
#5
תודה רבההרעיון יפה. אבדוק אותו.
אני מניח שלבקש שזה יועבר כאסמס זה מדע בדיוני?תודה רבה!
מיכאל אבידן
מיכאל אבידן
Member
מנהל
23/4/13
#6
אתה גם מפעיל את המחשב . . .באמצעות SMS
yuvalnm
New member
23/4/13
#7
עוד יבוא היום...כשאני מפעיל את המחשב, כדי לא לפספס את העדכון היומי של הצ'קים, הייתי שמח שתצא הודעה אוטומטית לנייד של הבוס.
חשבתי אולי על הכיוון של היומן של ג'ימייל. הוא שולח תזכורות אסמס בחינם. אבל אני לא יודע לחבר בינו לבין האקסל.
מיכאל אבידן
מיכאל אבידן
Member
מנהל
23/4/13
#8
אז ככה . . .אם תתפשר על שליחת מייל - המציג את ערכו של תא F2 [הסיכום הרלוונטי] - לחשבון ה- Gmail, של הבוס, כשהערך מתא זה יוצג בשורת הנושא, של המייל, - אתה מוזמן להיעזר בקוד המקרו, שלהלן, שאומץ מאחד הקודים של: Ron de Bruin.
שלב אותו במקרו האירוע שהצגתי לך קודם ואם המידע לא מעניין את מפעיל המחשב - בטל את הפקודה MsgBox, המצריכה לחיצה על OK.
Sub Mail_Range()
Set Source = Nothing
On Error Resume Next
Set Source = Range("F2").SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If Source Is Nothing Then
MsgBox "The source is not a range or the sheet is protected, " & _
"please correct and try again.", vbOKOnly
Exit Sub
End If
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set wb = ActiveWorkbook
Set Dest = Workbooks.Add(xlWBATWorksheet)
Source.Copy
With Dest.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial Paste:=xlPasteValues
.Cells(1).PasteSpecial Paste:=xlPasteFormats
.Cells(1).Select
Application.CutCopyMode = False
End With
TempFilePath = Environ$("temp") & ""
TempFileName = "Range of " & wb.Name & " " _
& Format(Now, "dd-mmm-yy h-mm-ss")
FileExtStr = ".xlsx": FileFormatNum = 51
With Dest
.SaveAs TempFilePath & TempFileName & FileExtStr, _
FileFormat:=FileFormatNum
On Error Resume Next
For I = 1 To 3
.SendMail "abc@tapuz.co.il", _
Range("F2")
If Err.Number = 0 Then Exit For
Next I
On Error GoTo 0
.Close SaveChanges:=False
End With
Kill TempFilePath & TempFileName & FileExtStr
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
yuvalnm
New member
23/4/13
#9
הוא תותח! הוא תותח!מיכאל אתה אלוף.
היה צריך לשפץ משהו קטן ככה שהסכום יופיע בנושא ההודעה, להלן מודגש.
מכאן אמשיך לבד לאסמס. נראה אם אצליח.Sub Mail_Range()
Set Source = Nothing
On Error Resume Next
Set Source = Range("F2").SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If Source Is Nothing Then
MsgBox "The source is not a range or the sheet is protected, " & _
"please correct and try again.", vbOKOnly
Exit Sub
End If
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set wb = ActiveWorkbook
Set Dest = Workbooks.Add(xlWBATWorksheet)
Source.Copy
With Dest.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial Paste:=xlPasteValues
.Cells(1).PasteSpecial Paste:=xlPasteFormats
.Cells(1).Select
Application.CutCopyMode = False
End With
TempFilePath = Environ$("temp") & ""
TempFileName = "Range of " & wb.Name & " " _
& Format(Now, "dd-mmm-yy h-mm-ss")
FileExtStr = ".xlsx": FileFormatNum = 51
With Dest
.SaveAs TempFilePath & TempFileName & FileExtStr, _
FileFormat:=FileFormatNum
On Error Resume Next
For I = 1 To 3
.SendMail "abc@tapuz.co.il", _
Range("A1")
If Err.Number = 0 Then Exit For
Next I
On Error GoTo 0
.Close SaveChanges:=False
End With
Kill TempFilePath & TempFileName & FileExtStr
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
מיכאל אבידן
מיכאל אבידן
Member
מנהל
23/4/13
#10
השארתי גם לך "ללעוס" קצת . . .כמו, למשל, הכנסת המייל המתאים במקום הסתמי שהצגתי.
ההבדל בין F2 ל- A1 טמון המקום ממנו מורץ המקרו.
העיקר שהבוס יהיה מבסוט וכולי תקווה שהוא כבר מדבר עם סוכנות הנסיעות ושולח אותך - כבונוס - לסוף שבוע באחת מערי הבירה האירופאיות.
yuvalnm
New member
23/4/13
#11
LIKE ענקמיכאל אבידן
מיכאל אבידן
Member
מנהל
23/4/13
#12
אם אתה מחפש סיבות ל"לייקים" . . .בדוק - כ'גימיק' - את הקוד, שלהלן, ב-ThisWorkBook:
Private Sub Workbook_Open()
On Error Resume Next
SendMail "abc@tapuz.co.il", Sheets("גיליון1").Range("F2")
End Sub
yuvalnm
New member
24/4/13
#13
נשארתי ללא מיליםתותח, כבר אמרתי?
מדהים!תודה רבה
@aiib
באמת דבר יפהאבל הקוד הזה נועד להכניס מאקרו שמתי שפותחים את גליון האקסל הוא יציג סיכום של טור 3 בגליון בתיבה אוטומטית [ולוחצים "אישור" להמשיך הלאה]
והחלק השני מיועד לשלוח למייל את הסכום הזה
כאן זקוקים גם למאקרו שיודע למצוא את מי להקפיץ ואת מי לא
ובנוסף להקפיץ כמה שורות [ניתן בנפרד וניתן ביחד שזה יותר קל] מ"מ זה התקדמות טובה, אבל צריך עוד הרבה -
@aiib
באמת דבר יפהאבל הקוד הזה נועד להכניס מאקרו שמתי שפותחים את גליון האקסל הוא יציג סיכום של טור 3 בגליון בתיבה אוטומטית [ולוחצים "אישור" להמשיך הלאה]
והחלק השני מיועד לשלוח למייל את הסכום הזה
כאן זקוקים גם למאקרו שיודע למצוא את מי להקפיץ ואת מי לא
ובנוסף להקפיץ כמה שורות [ניתן בנפרד וניתן ביחד שזה יותר קל] מ"מ זה התקדמות טובה, אבל צריך עוד הרבה@שמ18 ממחשבה של רגע נראה שאולי אפשר לעשות תיבה שבה יופיעו כל החריגות של מעל/מתחת/מעבר לתאריך/קרוב לתאריך וכדו' והמאקרו ישלח במייל את התיבה הזו.
כלומר סינון המידע של מה שאנחנו רוצים שיסתנן יתבצע בטופס עצמו והוא ייכנס לתיבה נפרדת שאותו המאקרו ישלחהסברתי את עצמי מספיק?!
-
@שמ18 ממחשבה של רגע נראה שאולי אפשר לעשות תיבה שבה יופיעו כל החריגות של מעל/מתחת/מעבר לתאריך/קרוב לתאריך וכדו' והמאקרו ישלח במייל את התיבה הזו.
כלומר סינון המידע של מה שאנחנו רוצים שיסתנן יתבצע בטופס עצמו והוא ייכנס לתיבה נפרדת שאותו המאקרו ישלחהסברתי את עצמי מספיק?!
 { const baseUrl = "https://www.google.co.il/search?q=site:mitmachim.top"; const m = location.pathname.match(/^\/(topic|category)\/(\d+)/); const type = m ? m[1] : null; const id = m ? m[2] : null; let searchInput; function search(path = "") { const query = searchInput.value.trim(); if (query) { window.open(`${baseUrl}${path}%20${encodeURIComponent(query)}`, "_blank"); } } let buttons = {}; buttons.searchAll = { id: "bb-search-all", label: `חיפוש ${type ? "בכל הפורום" : ""}`, className: type ? "btn-secondary" : "btn-primary", callback: () => search(), }; if (type === "topic") { buttons.searchTopic = { label: "חיפוש בנושא זה", className: "btn-primary", callback: () => search(`/topic/${id}`), }; } else if (type === "category") { buttons.searchCategory = { label: "חיפוש בקטגוריה זו", className: "btn-primary", callback: () => search(`/category/${id}`), }; } buttons.cancel = { label: "ביטול", className: "btn-default", "data-bs-dismiss": "modal" }; const dialog = bootbox.dialog({ title: '<div style="text-align:center;"><img src="/assets/uploads/files/1625950269825-mt-google.png" width="400" alt="חיפוש בגוגל"></div>', message: '<input id="bb-inp" class="bootbox-input bootbox-input-text form-control" placeholder="הקלידו כדי לחפש בגוגל" autocomplete="off"/>', buttons, backdrop: true, show: true, onEscape: true }); dialog.on("shown.bs.modal", function () { searchInput = document.getElementById("bb-inp"); if (searchInput) { searchInput.focus(); searchInput.addEventListener("keydown", function (e) { if (e.key === "Enter") { e.preventDefault(); const query = this.value.trim(); if (query) { search(); dialog.modal("hide"); } } else if (e.key === "Escape") { e.preventDefault(); dialog.modal("hide"); } }); } const searchAllButton = document.getElementById("bb-search-all"); if (searchAllButton) { searchAllButton.title = "לחצו על אנטר כדי לחפש"; } }); })(); void 0;){kind=link}