פורום מחשבים

הירשם עכשיו!
פורום לענייני מחשבים, תוכנות, אינטרנט, סינונים, שרתים, חומרה, רשתות, תקשורת ועוד.
מנהל הפורום: יעקב ויצמן

מחשבים ותוכנות > תוכן מקצועי

  • 530
    • י
    תיקיה לא נמחקת
  • יוחנן ק //
    • מישהו מכיר את הבעיה ?

    הורדתי במייל כמה קבצים יחד, זה נדחס ל RAR
    חילצתי את הקבצים,
    לאחר מכן משהו הסתבך ד.gifו"נתקעו" התיקיות
    ד.gif
    7 תגובות
    לכל התגובות
     תגובה אחרונה 
    י
    יוחנן ק
    נעשה ועוד איך,
  • 626
    • מ
    מקצועות המחשב עיצוב אלבומים דיגטלים
  • מעצבת אלבומים //
    • רוצה לדעת האם שווה ללמוד את התחום ?
    יש בזה עבודה? עובדים עצמאי ?או במשרדים?
    0 תגובות
  • 376
    • א
    אפליקציית WIND להשכרת קורקינט
  • אורית שמואלי //
    • יש למישהו להעלות??? בדחיפות ממש
    גוגל פליי חסום לי
    מצרפת קישור     https://www.wind.co/israel
    תודה!!!!!!!!!!!!!!!!!
    0 תגובות
  • 308
    • ב
    מקש במקלדת שלא עובד, גם לא במקשים על המסך.
  • בנצי שמעיה //
    • משהו מוזר קרה לי לאחרונה, שמקש מסויים במקלדת לא עובד לי,
    תחילה חשבתי שמדובר בתקלה נקודתית, שהמקש התקלקל ממים או כדו'.
    אך מה שמוזר לי שגם בלוח המקשים הדיגיטלי על המסך המקש הזה לא עובד, שזה אומר שיש בעיה בהגדרה כלשהיא של המקש הזה. הייתכן?
    0 תגובות
  • 433
    • D
    אופיס 365 שליפת משתנים בוורד
  • ditisela //
    • הי,
    אשמח לעזרה/ הכוונה.
    יש לי קובץ וורד של דוח כספי, בו יש כותרת של שנה נוכחית ושנה קודמת ומתחת כל הנתונים הכספיים לשתי השנים, לדג' הכנסות, הוצ וכד'. כל שנה שאני ניגשת לדוח אני צריכה להעתיק את מספרים שהיו שנה שעברה לעמודה של שנה קודמת ואז באופן ידני לכתוב לכל סעיף כמה יש בשנה הנוכחית. את הנתונים אני לוקחת מקובץ אקסל ובו כל הנתונים. מדובר על מאות/ אלפי נתונים בכל הדוח.
    בנוסף אני צריכה לשנות כותרות של שנה נוכחית וקודמת וכן הלאה. מלא מלא עבודה ידנית.
    אני רוצה לעשות אוטומציה לקובץ כך שכל הנתונים יהיו בעצם משתנים שישלפו מDATABASE כך שבמקום לשנות כל כותרת של שנה נוכחית ל31.12.2021 יהיה משתנה: <current year> שישלף מהDATABASE שכמובן אותו אעדכן כל שנה.
    כנ"ל, כל מספר ומספר בדוח יהיה בעצם משתנה שישלף מהDATABASE (אקסל/SQL או כל משהו אחר שאין לי מושג)
    אני יודעת שיש אפשרות של mailing בוורד, לא יודעת אם זה מה שאני צריכה, או לעשות את זה על ידי מאקרו שישלוף נתונים מאקסל/SQL.
    אשמח לכל הכוונה, תובנה ועזרה!
    תודה רבה!
    2 תגובות
    לכל התגובות
     תגובה אחרונה 
    ה
    הללוהו ב ו
    נמחק !!!
  • 328
    • I
    ארד דיסק לא עובד
  • I.Q //
    • יש לי ארד דיסק 2 טרה של חברת Transcend שלא נקרא במחשב האם יש מה לעשות חוץ ממומחה בתחום?
    איזה מומחה מומלץ? עדיף בצפון או בבני ברק
    5 תגובות
    לכל התגובות
     תגובה אחרונה 
    מ
    מחשבים זה אני
    כן
  • 2 887
    • 2
    יש כאן אולי טכנאי שיכול לעזור בענין הארד דיסק שלא עולה?
  • 23600 //
    • תודה
    • תודה
    Reactions: מחשבים זה אני1 //
    26 תגובות
    לכל התגובות
     תגובה אחרונה 
    M
    MR Designs
    מחשבים זה אני מקצוען, אמין ועוזר בשמחה
  • 570
    • GO BOLDER
    דיסק קשיח לא מזוהה במחשב נייד חדש
  • GO BOLDER //
    • המחשב מגיע ללא מערכת הפעלה, ובגלל שהדיסק הקשיח לא מזוהה אי אפשר להתקין.
    מה אפשר לעשות?
    11 תגובות
    לכל התגובות
     תגובה אחרונה 
    GO BOLDER
    GO BOLDER
    צודק
  • 381
    • L
    אנא עזרתכם! ווינדוס 7 שנדפק באתחול
  • lab //
    • הפעלתי על ווינדוס 7 תכנה אוטומטית (של Y'aronTeams ) להסרת אנטי וירוס ESET
    התכנה מפעילה את המחשב על מצב בטוח
    מסירה אוטומטית את התכנה
    ומפעילה שוב על מצב רגיל
    (לא משתמש בדרך כלל בתוכנות האלו)


    על ווינדוס 10 זה עבד מצוין
    ברגע שהפעלתי אותה על ווינדוס 7
    המחשב הופעל על מצב בטוח ונתקע עליו לתמיד
    ניסיתי דרך הגדרת ה msconfig לשנות את האתחול למצב רגיל אבל הוא לא נתן

    תכלס אחרי מספר נסיונות כושלים זה מה שקרה בסוף:

    1628441966964.png


    1628442021075.png
    1628441966964.png
    1628442021075.png
    10 תגובות
    לכל התגובות
     תגובה אחרונה 
    L
    lab
    תודה להשם התקנו lazesoft על ה WinPE והתכנה הזו פתרה את הענין ברגע
  • 376
    • א.ר.ז.
    עזרה: תמונה ל'שולחן העבודה' שמסתירה את כל השולחן. [כולל תוכנות]
  • א.ר.ז. //
    • מישהו נתקל בדבר הזה?
    החלפתי תמונה ב'קבע כרקע שולחן עבודה' ומאז אין שולחן ואין עבודה. רק תמונה.
    התוכנות מופיעות בסרגל הכלים כפתוחים, אולם אין אפשרות לפתוח שום תוכנה.
    מלבד סייר שכן נפתח מעל הרקע של שולחן העבודה, הכל 'מתחבא'.

    ככל הנראה Windows 10
    [לא נותן לי לראות את הנתונים כדי לאמת]
    7 תגובות
    לכל התגובות
     תגובה אחרונה 
    ב
    בני2
    אולי תעלו תמונה, יעזור קצת להבין מה הולך
  • 470
    • elisheva.rt
    עזרה בהגדלת נפח אחסון ב-Google One
  • elisheva.rt //
    • למה לא נותן לי?

    1628188428631.png
    1628188428631.png
    9 תגובות
    לכל התגובות
     תגובה אחרונה 
    elisheva.rt
    elisheva.rt
    תודה!
  • 250
    • מלכי אייזנבך
    איך אפשר?
  • מלכי אייזנבך //
    • להמיר סרטון שהוסרט במצלמה מסוג מסויים של קנון.
    בכדי לצפות בו במצלמה אחרת של קנון.
    יש מצב כזה?
    3 תגובות
    לכל התגובות
     תגובה אחרונה 
    מלכי אייזנבך
    מלכי אייזנבך
    מוזר - זה לא השם - שיניתי ולא עזר. אולי יש עודמשהו שיכול לעזור. זה ממש חשוב לי.
  • 408
    • א
    מחיקת הודעה מצ'אט גוגל
  • אמיליה //
    • אפשרי?
    לא מצליחה...
    4 תגובות
    לכל התגובות
     תגובה אחרונה 
    ל
    לבן שחור
    לא ניתן ... מה שכתבת כתבת..
  • 324
    • י
    אופיס 365 פקודת מאקרו
  • י שהם //
    • יש לי ספר שבו הרבה פסוקים אותם אני צריך לנקד.
    לשם כך פתחתי קובץ נוסף שבו נמצא טקסט המקור במנוקד, הקלטתי פקודת מאקרו שמוצאת את הפסוק בטקסט שלי ומעתיקה אותו ואז היא מחפשת בקובץ השני היכן נמצא אותו הפסוק, מעתיקה את המנוקד, חוזרת לקובץ שלי ומחליפה את הפסוק הלא מנוקד בפסוק המנוקד.
    דא עקא, שפקודת החיפוש בקובץ השני, אינה מוגדרת כחיפוש 'תוצאת החיפוש מהקובץ הראשון', אלא הוא פשוט הקליט את החיפוש של הטקסט עצמו, מה שגורם לכך שהמחשב מחפש את הטקסט אותו הזנתי בשעת הקלטת המאקרו, למרות שהזנתי אותו על ידי תוצאת החיפוש.
    והשאלה בקיצור:
    יש דרך להגדיר בפקודת מאקרו שהיא תחפש את 'תוצאת החיפוש' ולא מילים ספציפיות?
    מצרף את הקוד של המאקרו
    תודה רבה
    Attribute VB_Name = "NewMacros"

    Sub Macro1()
    Attribute Macro1.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.Macro1"
    '
    ' Macro1 Macro
    '
    '
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdExtend
    Selection.Font.Bold = wdToggle
    Selection.Font.BoldBi = wdToggle
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="."
    Selection.Font.Bold = wdToggle
    Selection.Font.BoldBi = wdToggle
    Selection.TypeText Text:=" "
    End Sub
    Sub Macro2()
    Attribute Macro2.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.Macro2"
    '
    ' Macro2 Macro
    '
    '
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
    .Text = ".*."
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchKashida = False
    .MatchDiacritics = False
    .MatchAlefHamza = False
    .MatchControl = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = True
    End With
    Selection.Find.Execute
    Selection.Copy
    Windows("מסמך2").Activate
    Selection.WholeStory
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
    .Text = ". "
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchKashida = False
    .MatchDiacritics = False
    .MatchAlefHamza = False
    .MatchControl = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
    .Text = " וגו'."
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchKashida = False
    .MatchDiacritics = False
    .MatchAlefHamza = False
    .MatchControl = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    .Text = "."
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchKashida = False
    .MatchDiacritics = False
    .MatchAlefHamza = False
    .MatchControl = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.WholeStory
    Selection.Copy
    Windows("שמואל עבור נסיונות מאקרו").Activate
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
    .Text = "ויהי איש אחד מן הרמתים"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchKashida = False
    .MatchDiacritics = False
    .MatchAlefHamza = False
    .MatchControl = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = True
    End With
    Selection.Find.Execute
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
    .Text = "ויהי איש אחד מן הרמתים"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchKashida = False
    .MatchDiacritics = False
    .MatchAlefHamza = False
    .MatchControl = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Copy
    Windows("מסמך7").Activate
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
    .Text = "ויהי איש אחד מן הרמתים"
    .Replacement.Text = "וַיְהִי אִישׁ אֶחָד מִן הָרָמָתַיִם"
    .Forward = True
    .Wrap = wdFindAsk
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchKashida = False
    .MatchDiacritics = False
    .MatchAlefHamza = False
    .MatchControl = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    With Selection
    If .Find.Forward = True Then
    .Collapse Direction:=wdCollapseStart
    Else
    .Collapse Direction:=wdCollapseEnd
    End If
    .Find.Execute Replace:=wdReplaceOne
    If .Find.Forward = True Then
    .Collapse Direction:=wdCollapseEnd
    Else
    .Collapse Direction:=wdCollapseStart
    End If
    .Find.Execute
    End With
    Selection.MoveDown Unit:=wdParagraph, Count:=1
    Selection.Find.ClearFormatting
    Selection.Find.Font.Bold = True
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
    .Text = ""
    .Replacement.Text = "וַיְהִי אִישׁ אֶחָד מִן הָרָמָתַיִם"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchKashida = False
    .MatchDiacritics = False
    .MatchAlefHamza = False
    .MatchControl = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.MoveUp Unit:=wdParagraph, Count:=1
    End Sub
    לחצ/י כדי להרחיב...
    5 תגובות
    לכל התגובות
     תגובה אחרונה 
    י
    י שהם
    תודה רבה מאוד אגב, יש סיכוי בהשקעה של כמה שעות ללמוד שפת תכנות זו ברמה בסיסית שתאפשר לי לשלוף את...
  • 359
    • ר
    עזרה דחוווףףףף.
  • ריקוש:) //
    • כרטיס זיכרון עם המון חומר חשוב.
    64 ג'יגה .
    כשאני מכניסה אותו למצלמה כת' לי "שגיאת כרטיס זיכרון"
    ובמחשב אני מקבלת הערה כזו : ביאור 2021-08-08 005846.jpg
    ביאור 2021-08-08 005846.jpg
    • תודה
    Reactions: מחשבים זה אני ו-avi++2 //
    8 תגובות
    לכל התגובות
     תגובה אחרונה 
    מ
    מחשבים זה אני
    אפשרי עכשיו 0559745344
  • 2 1K
    • S
    עזרה עם מחשב נייד חדש
  • shani123 //
    • רכשתי מחשב נייד של CHUWI
    zuzu.deals

    ירידת מחיר! CHUWI HeroBook Pro - לפטופ קל עם וינדוס, 8GB ראם, 256GB SSD רק ב$226.61 / 783 ש"ח עם משלוח מהיר וביטוח מכס! | ZUZU DEALS - זוזו דילס

    מחפשים לפטופ לילדים או לבית בתקציב קטן? ממש קטן? לפטופ כללי לשימושי קלים של גלישה, אופיס וכד' כשהנייד לא מספיק ולא נוח?
    zuzu.deals zuzu.deals
    ויש לי 2 שאלות:
    1. יש במחשב אופיס 365. איך אפשר להפעילו שלא יצטרך תמיד חיבור לאינטרנרט (לפעם ראשונה אפשר אח"כ אני לא רוצה את המחשב מחובר לאינטרנט באופן קבוע)
    2. בענין הWIFI - אני לא רוצה לבטל לגמרי (כמו שעושים באאוטנט) אלא רק ליצור לו סיסמא. שלא יוכלו להתחבר לאינטרנט כלל ללא הסיסמא. איך אפשר ליצור סיסמא לאפשרות החיבור לWIFI?
    תודה מראש.
    21 תגובות
    לכל התגובות
     תגובה אחרונה 
    ה
    השף ברון
    יתכן
  • 364
    • מ
    ניתוק רדיו מנגןטאצ' של דוקו דחוף
  • משתדל1 //
    • קניתי לבן שלי שעולה לישיבה נגן ויש בו רדיו
    הלכתי לגמ"ח ניתוק אבל בגלל שיש שבר בזכוכית הוא לא רוצה לפתוח שמא זה ישבר
    מישהו יודע איך מנתקים לא פיזית אלא עם תוכנה את הרדיו בנגן?
    זה נגן טאצ' של דוקו
    תודה רבה
    1 תגובות
    לכל התגובות
     תגובה אחרונה 
    L
    loving music
    https://mitmachim.top/topic/6608/%D7%94%D7%95%D7%A8%D7%93%D7%AA-%D7%A8%D7%93%D7%99%D7%95-%D7%9E%D...
  • 554
    • ח
    השכרות בירושלים
  • חמצוץ //
    • איפה משכירים מחשב + רשת בירושלים?

    הבו רעיונות.
    • תודה
    Reactions: TAKT1 //
    5 תגובות
    לכל התגובות
     תגובה אחרונה 
    ל
    לבן שחור
    חנות B&M בירושלים , שרות מעולה.
  • 2 921
    • E
    IDM עזרה בהפעלת תוכנה
  • ESTI. //
    • התקנתי את התוכנה
    אבל במקום שאני אצליח להוריד סרטונים מאתרים כקובץ וידאו
    זה מופיע לי כקיצור דרך לגוגל
    איך אני יכולה לסדר את זה שהקובץ ירד לי כווידאו?
    1627890905850.png
    1627890905850.png
    27 תגובות
    לכל התגובות
     תגובה אחרונה 
    י
    ישיבשער
    באיזה דפדפן את משתמשת?
  • 244
    • M
    שיחזור כרטיס אחרי פירמוט
  • MAGNET //
    • יש דרך לשחזר כרטיס שפורמט בטעות?
    היו עליו קבצי וידאו חשובים
    אשמח לדעת אם זה אפשרי, גם בתשלום
    2 תגובות
    לכל התגובות
     תגובה אחרונה 
    M
    MAGNET
    תודה רבה ל @מחשבים זה אני על השחזור המוצלח והמהיר
  • 265
    • שבתאי ספרא
    שולחן עבודה 2 מסכים
  • שבתאי ספרא //
    • אני עובד עם 2 מסכים - יש אפשרות לעבוד משולחן עבודה מרוחק עם 2 מסכים אני מתכוון בעיקר האם אני יוכל לפזר תוכנות לשני מסכים?
    3 תגובות
    לכל התגובות
     תגובה אחרונה 
    ע
    עשרים ושתים
    תסמן את הV
  • 1K
    • Y
    קליטה סלולרית גרועה בנווה יעקב - יש פיתרון?
  • YY F //
    • בשכונת נווה יעקב בירושלים יש קליטה סלולרית גרועה באופן כללי
    וכמובן הגלישה בסטיק עם סים שלולרי (איכותי) בהתאם.....
    אציין שמהירות ההורדה (עם מאיץ הורדות) במשך היום היא מגה בייט אחת לשניה בזמנים טובים, ובד"כ פחות מכך....
    יש פיתרון לסיוט הזה?
    הסתובבתי במקומות אחרים בירושלים, והסטיק עף......
    19 תגובות
    לכל התגובות
     תגובה אחרונה 
    Y
    YY F
    תגדיר את הדור הסלוסלרי ל3 ותראה אם זה עוזר.... הרחוב וכל האיזור שם דיי בעייתים.....
  • 263
    • ש
    אופיס 365 איך עושים איזושהיא חותמת בפי די אף PDF
  • שרביט קסמים //
    • איך ניתן לעשות איזושהיא חותמת בקבצי פי די אף בכדי למנוע העתקת קבצים לצורך הדפסתם ללא רשות.
    0 תגובות
  • 297
    • E
    קובץ APK וויז
  • Eli-7 //
    • אשמח אם מישהו יוכל להעלות קובץ APK של וויז גרסה מתקדמת
    תודה מראש
    2 תגובות
    לכל התגובות
     תגובה אחרונה 
    E
    Eli-7
    תודה רבה!
  • 296
    • י
    מי זוכר אותו ?
  • יוחנן ק //
    • מחפש את הרב החשוב, ממקימי נטפרי
    בעל הניק     @mat שליט"א

    אשמח מאוד לטלפון שלו או אימייל !
    4 תגובות
    לכל התגובות
     תגובה אחרונה 
    י
    יוחנן בוקסבוים
    http://forum.netfree.link/user/magicode
  • 247
    • ר
    מבינים בחיבור VPN לשליטה מרחוק?
  • רכבת הרים //
    • מנסה להבין משהו חשוב
    כשאני מחוברת מהבית ב VPN ליוזר שלי בעבודה, אם מישהו ישב ליד המחשב שלי בעבודה,
    הוא יראה את העכבר שלי זז ומה אני עושה, כמו ב team viewer או any desk, או שבגלל שזה חיבור לענן בעצם,
    לא יראו כלום במחשב עצמו?
    תודה
    3 תגובות
    לכל התגובות
     תגובה אחרונה 
    ל
    לבן שחור
    רק מי שיודע את היוזר והסיסמא שלך יוכל לפתוח את המחשב שלך , ואז את תתנתקי , אם המחשב בעבודה נעול...
  • 539
    • מ
    אופיס 365 עיצוב בוורד טקסט בצורת שירת האזינו
  • מנורה טהורה //
    • איך אפשר לעצב בוורד שחצי מהטקסט יופיע בצד ימין של העמוד, והחצי השני של אותה שורה יופיע בצד שמאל דוגמת שירת האזינו?
    9 תגובות
    לכל התגובות
     תגובה אחרונה 
    מ
    מנורה טהורה
    תודה לכל המגיבים יש אופציה פשוטה, להפסיק בטאב במקום שרוצים לחלק את השורות, ואז בסימניה הוספת...
  • 205
    • מ
    קביעת מדפסת HP כברירת מחדל
  • מירי 1010 //
    • יום אחד המדפסת, שמחוברת עם WIFI פתאום לא נקלטת במחשב,
    בהתקנים ומדפסות המדפסת משום מה לא מזוהה.
    (המדפסת עצמה כן מחוברת לרשת האלחוטית, הבעיה בהגדרות המחשב.)
    מי יודע איך לתקן?

    תודה


    1627818867164.png
    1627818867164.png
    3 תגובות
    לכל התגובות
     תגובה אחרונה 
    ד
    דב הטכנאי
    נראה שהמדפסת מופיעה פעמיים, אני הייתי מסיר את הדרייבר ומתקין מחדש.
  • 690
    • אפר
    אופיס 365 המרה אנגלית - עברית בוורד
  • אפר //
    • במהלך השרשורים בנושאי מאקרו ביקשו מאקרו שהופך עברית ואנגלית מצורף לטובת הציבור
    פועל בוורד על הבחירה
    בין אנגלית קטן לעברית ולהפך
    אשמח להערות
    FormatFactory Screen Record20210719_044224.gif
    נכתב ע"י אפר:
    מחליף קטע נבחר בין אנגלית קטנה לעברית ולהיפך
    קוד: 
    Public Sub EnHeb()
    Const listEn = "qwertyuiopasdfghjkl;'zxcvbnm,./()[]{}"
    Const listHeb = "/'קראטוןםפשדגכעיחלךף,זסבהנמצתץ.)(][}{"
    Dim Status As Long
    Dim i As Long
    Dim Str As String
    Dim Result As String
    Str = Selection
    Do While Status = 0 And Mid(Str, i + 1, 1) <> ""
        If InStr(listEn, Mid(Str, i + 1, 1)) > 0 Then Status = -1
        If InStr(listHeb, Mid(Str, i + 1, 1)) > 0 Then
            If Status = -1 Then Status = 0 Else Status = 2
        Else
            Status = IIf(Status = -1, 1, 0)
        End If
        i = i + 1
    Loop
    For i = 1 To Len(Str)
        If Status = 2 Then
            If Mid(Str, i, 1) = "" Then
            ElseIf InStr(listHeb, Mid(Str, i, 1)) > 0 Then
                Result = Result & Mid(listEn, InStr(listHeb, Mid(Str, i, 1)), 1)
            ElseIf InStr(listEn, Mid(Str, i, 1)) > 0 Then
                Result = Result & Mid(listHeb, InStr(listEn, Mid(Str, i, 1)), 1)
            Else
                Result = Result & Mid(Str, i, 1)
            End If
        Else
            If Mid(Str, i, 1) = "" Then
            ElseIf InStr(listEn, Mid(Str, i, 1)) > 0 Then
                Result = Result & Mid(listHeb, InStr(listEn, Mid(Str, i, 1)), 1)
            ElseIf InStr(listHeb, Mid(Str, i, 1)) > 0 Then
                Result = Result & Mid(listEn, InStr(listHeb, Mid(Str, i, 1)), 1)
            Else
                Result = Result & Mid(Str, i, 1)
            End If
        End If
    Next i
    Selection = Result
End Sub
    לחצ/י כדי להרחיב...
    FormatFactory Screen Record20210719_044224.gif
    • תודה
    Reactions: סופריא - הוצאה לאור, xl3391, הללוהו ב ו ומשתמש 1 נוסף4 //
    2 תגובות
    לכל התגובות
     תגובה אחרונה 
    ה
    הללוהו ב ו
    כדי שיחול על אות ראשונה ג"כ וכן באותיות גדולות אפשר עם הקוד הזה, הבאתי את זה ג"כ כאן במקו"א...
  • 545
    • S
    לפרוג יש אפלקצית מובייל?
  • shiye //
    • אולי יש כאן מישהו שמרים את הכפפה ומפתח אפליקציה לאנדרויד שיהיה זמן גם בפלפון.
    • תודה
    Reactions: כוח עזר1 //
    12 תגובות
    לכל התגובות
     תגובה אחרונה 
    S
    shiye
    מי מכיר את הבחור הזה? אני רוצה להגיד לו תודה
    התחבר או הירשם כדי לכתוב כאן.

    אולי מעניין אותך גם...

    פרסום בפרוג ←

    הצטרפות לניוזלטר

    מאשר/ת קבלת תוכן חם למייל
    בשליחת הטופס אני מסכים/ה שבית פרוג תשתמש במידע למטרות שיווק, דיוור ישיר ומשלוח פרסומות באמצעי הקשר שמסרתי, ותכלול אותו במאגר המידע של החברה, והכל בכפוף למדיניות הפרטיות של החברה.
    להסרה בעתיד פנה/י לדוא"ל office@prog.co.il או לטלפון: 072-2201430

    איזה כיף שהצטרפתם לניוזלטר שלנו!

    מעכשיו, תהיו הראשונים לקבל את כל העדכונים, החדשות, ההפתעות בלעדיות, והתכנים הכי חמים שלנו בפרוג!

    לוח לימודים

    מסלולי לימוד שאפשר להצטרף
    אליהם ממש עכשיו:

    26.04

    ט' אייר


    קורס עימוד ועיצוב ספרים

    ההרשמה בעיצומה

    30.04

    י"ג אייר


    קורס בוטים ואוטומציות עיסקיות

    ההרשמה בעיצומה

    10.05

    כ"ג אייר


    קורס שיווק ופרסום דיגיטלי

    נפתחה ההרשמה

    14.05

    כ"ז אייר


    קורס שמאות רכוש

    נפתחה ההרשמה

    14.06

    כ"ט סיוון


    קורס אדריכלות עיצוב פנים

    נפתחה ההרשמה
    לכל מסלולי הלימוד

    לוח מודעות

    הפרק היומי

    הפרק היומי! כל ערב פרק תהילים חדש. הצטרפו אלינו לקריאת תהילים משותפת!


    תהילים פרק כה

    אלְדָוִד אֵלֶיךָ יי נַפְשִׁי אֶשָּׂא:באֱלֹהַי בְּךָ בָטַחְתִּי אַל אֵבוֹשָׁה אַל יַעַלְצוּ אֹיְבַי לִי:גגַּם כָּל קוֶֹיךָ לֹא יֵבֹשׁוּ יֵבֹשׁוּ הַבּוֹגְדִים רֵיקָם:דדְּרָכֶיךָ יי הוֹדִיעֵנִי אֹרְחוֹתֶיךָ לַמְּדֵנִי:ההַדְרִיכֵנִי בַאֲמִתֶּךָ וְלַמְּדֵנִי כִּי אַתָּה אֱלֹהֵי יִשְׁעִי אוֹתְךָ קִוִּיתִי כָּל הַיּוֹם:וזְכֹר רַחֲמֶיךָ יי וַחֲסָדֶיךָ כִּי מֵעוֹלָם הֵמָּה:זחַטֹּאות נְעוּרַי וּפְשָׁעַי אַל תִּזְכֹּר כְּחַסְדְּךָ זְכָר לִי אַתָּה לְמַעַן טוּבְךָ יי:חטוֹב וְיָשָׁר יי עַל כֵּן יוֹרֶה חַטָּאִים בַּדָּרֶךְ:טיַדְרֵךְ עֲנָוִים בַּמִּשְׁפָּט וִילַמֵּד עֲנָוִים דַּרְכּוֹ:יכָּל אָרְחוֹת יי חֶסֶד וֶאֱמֶת לְנֹצְרֵי בְרִיתוֹ וְעֵדֹתָיו:יאלְמַעַן שִׁמְךָ יי וְסָלַחְתָּ לַעֲוֹנִי כִּי רַב הוּא:יבמִי זֶה הָאִישׁ יְרֵא יי יוֹרֶנּוּ בְּדֶרֶךְ יִבְחָר:יגנַפְשׁוֹ בְּטוֹב תָּלִין וְזַרְעוֹ יִירַשׁ אָרֶץ:ידסוֹד יי לִירֵאָיו וּבְרִיתוֹ לְהוֹדִיעָם:טועֵינַי תָּמִיד אֶל יי כִּי הוּא יוֹצִיא מֵרֶשֶׁת רַגְלָי:טזפְּנֵה אֵלַי וְחָנֵּנִי כִּי יָחִיד וְעָנִי אָנִי:יזצָרוֹת לְבָבִי הִרְחִיבוּ מִמְּצוּקוֹתַי הוֹצִיאֵנִי:יחרְאֵה עָנְיִי וַעֲמָלִי וְשָׂא לְכָל חַטֹּאותָי:יטרְאֵה אוֹיְבַי כִּי רָבּוּ וְשִׂנְאַת חָמָס שְׂנֵאוּנִי:כשָׁמְרָה נַפְשִׁי וְהַצִּילֵנִי אַל אֵבוֹשׁ כִּי חָסִיתִי בָךְ:כאתֹּם וָיֹשֶׁר יִצְּרוּנִי כִּי קִוִּיתִיךָ:כבפְּדֵה אֱלֹהִים אֶת יִשְׂרָאֵל מִכֹּל צָרוֹתָיו:
    סמן אחרי הקריאה
    לקריאה בפורום
    נקרא  2  פעמים

    אהבת את הפורום? שתף>>

    פיקוח של ועדת הרבנים 'שמור'
    למעלה