@יוס אני גם מחפש כזה דבר, אבל בקוד פתוח (עדיף HTML וJS טהור) גם אם האפשרויות יהיו פחות מפותחות.
מישהו מכיר?
@יוס אני גם מחפש כזה דבר, אבל בקוד פתוח (עדיף HTML וJS טהור) גם אם האפשרויות יהיו פחות מפותחות.
מישהו מכיר?
@שמחה-זו-הסיסמא דבר ראשון - אפשר לקנן BITOR, אבל זה יהיה קצת מגושם 7 רמות קינון...
אבל פשוט - למה ללכת בכלל על FILTER כשיש לך את QUERY? פשוט לעשות
=QUERY({A2:V14},"SELECT * WHERE Col1 = 'אברהם' OR Col2 > 1 ...(וכו')" )
(באמת אני מרבה להשתמש בQUERY פי כמה מ FILETR, SORT וכד', פשוט פונקציה אחת שבוחרת מתוך מערך, ממיינת ומסננת הכי טוב שאפשר, ובפרט אחרי החידוש שאפשר לעשות פונקציות בעלות שם וביטויי למדה - נולדו פתאום בתחום גם הרבה קיצורי דרך ואפשרויות חדשות)
@A0533057932 'תגיות' הכוונה היתה לנושאים - והיינו הך, אלא שנושא הוא אחד, ותגית היא מרובה.
אני יודע שאין את זה בפורום, ולכן הצעתי
@mekev כתב בהצעה ובקשה (הצעה לאפשרות דירוג נוספת, בקשה למניעת מחיקת פוסטים):
אולי ניתן לעשות סוג של דירוג נוסף
בעצם, יש הבדל בין 'מועיל' לבין 'נהנתי' ולבין 'נכון'.
לפעמים הפוסט נכון, אבל האמירה שם היתה בסגנון - 'על ראש הגנב בוער...' ושאר אמרות כנף למיניהם - שם הדירוג הוא רק 'נהנתי', ולשיקול בעלי הפורום אם זה מתאים לפורום מקצועי.
לפעמים האמירה היא לא מועילה, אבל נכונה. לדוגמה - 'סטיתם מהנושא, פתחו אשכול חדש!' או בקשה להוסיף משהו בפורום - כמו פוסט הראשון של @mekev שקיבל דירוג, אבל לא בגלל שזה עזר למישהו, רק הסכימו שהבקשה ראויה ונכונה.
אז אני מצטרף לבקשה (כמובן אם מעשי וכו', לא יודע כמה קוד ועריכה זה דורש) לבדל ל2 דירוגים - 'מועיל', ו'נכון'.
(אפשרויות נוספות לשמות הדירוגים: 'הועיל לי', 'אני מסכים' וכדו'.
או בכלל להביע את זה באייקון של V ו X ל'נכון', ואייקון אחר - אין לי רעיון עכשיו, ל'מועיל')
רציתי להציע להוסיף אופציה בתגיות תוכנה, אינטרנט, ותכנות,
שיוכלו לבחור כמה מהם על אותו פוסט, ולא תגית אחת בלבד כמו עכשיו.
למה? כי יש ביניהם הרבה מן המשותף - לפעמים התכנות מתנגש בבעיות אינטרנט, ולפעמים במהלך הדיבור על תוכנה רוצים גם לדבר על הקוד שלה...
הדבר משמעותי במיוחד בקוד אקסס, אקסל, וורד, ומוצרי גוגל המקבילים, שם היישום הוא תוכנה, הקוד הוא תכנות, ואולי - גוגל הוא אינטרנט...
@A0533057932 לפי הידוע לי, אין פעולת מאקרו בטבלה שיכולה לעדכן תיבה משולבת באמצעות האופציה בקישור שהביא @OdedDvir , רק בטופס.
(יש בגירסאות 2010 והלאה מאקרו בטבלה, אבל המאקרו האלה מאוד מוגבלים)
@הפצת-אנקי
הפרסומת כאן משולבת של אנקי במחשב ובטלפון.
יש אפשרות להשיג פרסומת רק לאנקי בטלפון? (מסמך PDF להדפסה)
(מעשי במיוחד במקרה ורוצים להפיץ בבתי כנסת שלא יראו את פרסום תוכנה במחשב בעין יפה)
@yossiz אני מנחש שיש משהו שהפך את האותיות, ויום בחודש 32 לא אפשרי אבל 22 כן.
אבל עדיין לא מובן שאר האותיות למה לא נהפכו
@OdedDvir כתב בVBA. איך לפתוח ולעבוד עם WORD על ידי ACCESS:
אגב, כדי לטפל במאפייני קובץ, כגון להסיר נתיב\סיומת\וכו' מומלץ להשתמש באובייקט FileSystemObject שמיועד לכך.
תודה רבה, ההוספה הזו היתה ממש תועלתית!
לתועלת הכלל אני כעת לומד על זה מ https://trumpexcel.com/vba-filesystemobject/
(מסתבר שיש עוד קישורים לאתרי לימוד מוצלחים, זה מה שראיתי כרגע)
@OdedDvir ו @yossiz תודה רבה.
זה באמת היה הכיוון מחשבה שלי, וקיבלתי את האישור (וא"כ אין הבאג תלוי אלא בי:( - בקוד שניסיתי ליצור מזה, אבל השיטה נכונה.
מה שהסתבכתי זה עם הקישור - אני צריך לפתוח את הקישור המסויים הזה, ולהתייחס לDOCUMENT הנכון.
אני נתקע כאן בנסיונות למיניהם...
Dim wrdDoc As Variant
Set wrdDoc = wrdApp.Documents.Open(strPathFile)
בקוד זה הוא אומר שספריית "C:\USERS\שם המשתמש שלי\DECUMENTS לא נמצאה
Dim wrdDoc As Variant
Set wrdDoc = wrdApp.Documents(Right(strPathFile, Len(strPathFile) - InStrRev(strPathFile, "\"))).Activate
בקוד זה הוא אומר "שם קובץ לא תקין" שגיאה 4160
כמובן בדקתי שהקישור פעיל - נפתח בלחיצה וכו'
אשמח לעזרה שוב!
@chagold תודה רבה,
ניסיתי את זה, אבל אם הוורד פתוח כבר זה לא יעבוד.
אם הוורד פתוח אני צריך לעבור ישירות לקובץ הפתוח כבר. ולא ליצור קובץ חדש.
איך לפתוח WORD ולעבוד עליו על ידי ACCESS?
הצורך הוא -
אם הוא פתוח: להצביע על הגירסה הפתוחה שלו ולהעביר את המיקוד (FOCUS) אליו.
אם הוא סגור: לפתוח אותו ולהצביע ולהתמקד עליו.
אח"כ לערוך אותו וכו' זה כבר פשוט.
(יש לי כמה נסיונות... אבל קודם אני רוצה לשמוע אם יש למישהו פתרון פשוט יותר שיחסוך את חיפוש הבאגים למיניהם).
דבר ראשון, שים לב - הפונקציות שלך לא שלמות, הם לא יכולות לרוץ ככה. (לא סגרת את הסוגריים), כך שזה קצת מערפל את השאלה.
גם לא הבנתי כל כך מה התכוונת, יש לי 3 אפשרויות:
@שמחה-זו-הסיסמא כתב בif בלי "אם לא", מקונן בfilter בגוגל שיטס:
הבעיה שלי היא שאני מעוניין לעשות תנאי בפילטר, דהיינו אם G1 שווה ל X אז אני רוצה לקבל רק טווח שעונה לקריטריון, ואם G1 אינו שווה לX אני רוצה לקבל את כל הטווח.
בשביל זה, צריך לעשות IF חיצונית לפילטר.
=ARRAYFORMULA(IF("x"=G1,FILTER(A:C,HOUR(B:B)<15),A:C))
=ARRAYFORMULA(FILTER(A:C,BITOR(HOUR(B:B)<15,"x"=G1))
גוגל שיטס יחזיר שגיאה *הפונקציה FILTER מכילה גדלים לא תואמים של טווחים. ספירת השורות שהייתה צפויה להתקבל: ****. ספירת העמודות: 1. ספירת השורות שהתקבלה בפועל: 1, ספירת העמודות: 1.
הסיבה לזה היא מכיון שלא נתתי לו בדיקה של כל הטווח שבחרתי אלא רק של "" ריק וזה בעצם ערך יחיד
יש לזה פתרון שאני משתמש איתו, פונקציית MAKEARRAY, תוכל לראות עליה עוד בקישור זה https://www.benlcollins.com/spreadsheets/makearray-function/
ותוכל כמובן לחפש גם בעברית - זה מה שמצאתי מחיפוש מהיר של GOOGLE SHEETS MAKEARRAY.
@האדם-החושב
הנה בקובץ אקסל, אפשר להקיש F-11 להגיע לקוד.
הפונקציות פועלות גם בתוך אקסל.
על הטקסט לחיפוש, אם אני רוצה שלא יהיה לפי תווים מיוחדים, אני עושה לפני כן:
Public Sub Regex_HideSpecialCharacter(ByRef str As String)
Dim specialCharacters As Variant, i As Integer
specialCharacters = Array("[", "\", "$", "&", "+", ",", ":", ";", "=", "?", "@", "#", "|", "'", "<", ">", ".", "^", "*", "(", ")", "%", "!", "-", "]")
For i = 0 To 24 ' == Len("[\$&+,:;=?@#|'<>.^*()%!-]") - 1
str = Replace(str, specialCharacters(i), "\" & specialCharacters(i))
Next i
End Sub
הצלחתי!
ככה:
"([^a-zA-Z0-9_]|^)" & myStr & "([^a-zA-Z0-9_]|$)"
ובהחלפה להתייחס לקבוצה שלפני כ $1 והקבוצה שאחרי כ $2.
זה הקוד לדוגמה:
(סליחה מראש על הערבוב בין העברית לאנגלית בקוד, אבל אני פחות מקפיד כשאני מתאמן עם קוד שלי בלי ליצור משהו...)
Public Sub Regex_החלפה_לפי_מילה_שלימה(ByRef טקסט As String, ByVal מילה_לחיפוש As String, ByVal מילה_מחליפה As String)
Regex_HideSpecialCharacter מילה_לחיפוש
Dim regExp As Object
Set regExp = CreateObject("vbscript.regexp")
With regExp
.Pattern = "([^a-zA-Z0-9_]|^)" & מילה_לחיפוש & "([^a-zA-Z0-9_]|$)"
.Global = True
טקסט = .Replace(טקסט, "$1" & מילה_מחליפה & "$2")
End With
End Sub
אשמח שוב את עזרתכם (בפרט @yossiz )
שאלתי מתכנת שאני מכיר,
הוא הביא לי את הקוד הזה:
"((?<=[^a-zA-Z0-9_])|^)" & MyStr & "((?=[^a-zA-Z0-9_])|$)"
זה מחפש את הטקסט אבל לא בוחר אותו.
לדאבוני זה לא עובד ב VBA...
אז הביא לי את זה:
"(?:[^a-zA-Z0-9_]|^)("& MyStr &")(?:[^a-zA-Z0-9_]|$)"
שזה בוחר את הטקסט בשלוש קטעים שונים, כך שיהיה אפשר אח"כ להתייחס אל כל קטע.
הבעיה שאני לא יודע איך לבחור שוב את הקטע בלי להחליף אותו.
מצאתי מעין זה לגבי חיפוש והחלפה רגילים של וורד, (לא הצלחתי ליישם בפועל כאן):
@yossiz כתב בעזרה בחיפוש והחלפה בוורד:
@אוריי תשתמש בתווים כלליים ככה:
החיפוש:
(^13[א-ת]@)\\].
החלפה:
\1.
הסבר:
חיפוש:
(...)
מכיל קבוצה שניתן לציין אח״כ בהחלפה^13
סימן סוף פיסקה (בחיפוש עם תווים כלליים)[א-ת]
כל תו בטווח א-ת@
1 או יותר מהנ״ל\].
מייצגים את עצמם, צריך מילוט (\
) לפני ה-\]
אחרת יש לתו זה משמעות מיוחדתהחלפה:
\1
התוכן של הקבוצה הראשונה בחיפוש(...)
.
נקודה
תודה רבה!
@האדם-החושב
יש לי קוד VBA ברור שעבדתי איתו הרבה, הבסיס מיובא מפרוג ורק הוספתי עליו קצת, כך שלא אוכל לתת עליו אחריות... אבל תוכל להשוות.
ממיר תאריך לועזי לעברי, ומציג את זה בגימטריה ב STRING. (=> 'י"ב חשוון תשפ"ג').
בהמשך הקוד - להציג במספרים, להמיר בחזרה ללועזי, בודק את השנים אם מעוברות, חישוב המולד, וכו'.
הקובץ להורדה
@chagold ניסיתי, ואולי הצלחתי.
זה אמור להיות טוב? לכאורה זה עובד לי...
((^|[^a-zA-Z0-9_א-ת])אניי($|[^a-zA-Z0-9_א-ת]))
ו מצאתי בעיה אחרת... שההחלפה בקוד VBA שהבאתי מחליפה לי גם את התווים הסובבים, ולא רק את המילה.
כלומר מהטקסט "אניי, רוצה ללמוד באנייה שלי"
יוצא לי "אני רוצה ללמוד באנייה שלי" - בנוסף למילה, הפסיק הסמוך לה נמחק
ומהטקסט "אניי ,רוצה ללמוד באנייה שלי" יוצא לי "אני,רוצה ללמוד באנייה שלי" - בנוסף למילה ששונתה, הרווח הסמוך לאות נמחק.
והבעיה שאני צריך שימצא את המילה על ידי בדיקת התו הקודם לה והמאוחר ממנה ב REGEX, אבל שלא יחליף באמת כי אם את המילה עצמה...
@chagold כן, הבנתי את הרעיון, פשוט - אין כזה דבר - צור אותו.
כמובן הקפת רק את הסוגריים והפסיק ולא את כל האפשרויות, אבל זה הכיוון שאתה מציע:
פשוט לחפש את כל התווים שיכולים להיות סוף והתחלת מילה, ולשים אותם מסביב לטקסט.
טוב, זה יהיה עבודה (ובאגים), ועדיף ממשהו מוכן, אבל לא מצאנו.