דילוג לתוכן
  • חוקי הפורום
  • פופולרי
  • לא נפתר
  • משתמשים
  • חיפוש גוגל בפורום
  • צור קשר
עיצובים
  • Light
  • Cerulean
  • Cosmo
  • Flatly
  • Journal
  • Litera
  • Lumen
  • Lux
  • Materia
  • Minty
  • Morph
  • Pulse
  • Sandstone
  • Simplex
  • Sketchy
  • Spacelab
  • United
  • Yeti
  • Zephyr
  • Dark
  • Cyborg
  • Darkly
  • Quartz
  • Slate
  • Solar
  • Superhero
  • Vapor

  • ברירת מחדל (ללא עיצוב (ברירת מחדל))
  • ללא עיצוב (ברירת מחדל)
כיווץ
מתמחים טופ
ר

רפרם בר בר פפא

@רפרם בר בר פפא
אודות
פוסטים
14
נושאים
2
שיתופים
0
קבוצות
0
עוקבים
0
עוקב אחרי
0

פוסטים

פוסטים אחרונים הגבוה ביותר שנוי במחלוקת

  • עזרה | צריבה באמצעות ResearchDownload לQIN1 לא מגיב
    ר רפרם בר בר פפא

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

    עזרה הדדית - שיאומי

  • עזרה | צריבה באמצעות ResearchDownload לQIN1 לא מגיב
    ר רפרם בר בר פפא

    מצטער אחרי חודש שאני מנסה גיליתי שצריך ללחוץ על שני הכפתורים של הטלפון בו זמנית.
    אבל עכשיו הוא נתקע אחרי 10 שניות על זה0264f948-d5bc-4fb4-acd6-03c346edd4ca-image.png

    עזרה הדדית - שיאומי

  • עזרה | צריבה באמצעות ResearchDownload לQIN1 לא מגיב
    ר רפרם בר בר פפא

    מחקתי את הסיסטם ואני מנסה לצרוב גרסה חדשה כל שהיא, אבל התוכנה לא מגיבה כלל לטלפון.e7453f02-8357-4e7e-9b61-63868555be26-image.png
    תודה מראש!

    עזרה הדדית - שיאומי

  • בקשת מידע | ביטול חיבור דרך וופי בשיומי +Qin1s ללא רוט
    ר רפרם בר בר פפא

    @Ykingsmart
    אני מבקש הדרכה אפי' להסרה פיזית של אנטנת הוופי
    וכן אשמח להדרכה להכנסת רוט (ההדרכה שנמצאת כאן בפורום לא עובדת ועושה שגיאה כמו שמובא בסוף האשכול שם)
    וכן זה שאפשר אינטרנט דרך הסים לא מפריע לי כ"כ בעקר צריך להוריד את הוופי

    עזרה הדדית - שיאומי +Qin1s

  • בקשת מידע | ביטול חיבור דרך וופי בשיומי +Qin1s ללא רוט
    ר רפרם בר בר פפא

    אני צריך לכמה מכשירים לבטל וויפי לכן אשמח להדרכה בסיסית או שם תוכנה\ קישור אליה
    תודה

    עזרה הדדית - שיאומי +Qin1s

  • בקשת מידע | ביטול חיבור דרך וופי בשיומי +Qin1s ללא רוט
    ר רפרם בר בר פפא

    למישהו יש מידע לביטול חיבור WIFI בשיומי מקשים בין תוכנה ואפילו מכני לעקור פיזית את האנטנה
    (ותוכנה ללא צורך ברוט עקב קושי בהתקנת רוט בשיומי ע"י ההדרכות שהובאו כאן להתקנת רוט)

    עזרה הדדית - שיאומי +Qin1s

  • בירור | קוד מאקרו ליישור שני טורים בוורד
    ר רפרם בר בר פפא

    @מאקרו
    לגבי לרדת לשורה אחרונה בטור ולבדוק גובה טור זה לא נפקא מיניה לפי עניות דעתי

    עזרה הדדית - וורד

  • בירור | קוד מאקרו ליישור שני טורים בוורד
    ר רפרם בר בר פפא

    @מאקרו
    בנסיון שלי לא נתקל בבעיה לעבור שורה

    עזרה הדדית - וורד

  • בירור | קוד מאקרו ליישור שני טורים בוורד
    ר רפרם בר בר פפא

    @מאקרו
    לא בפקודה שהבאתי שאינה משתמשת בפסקאות רק בפקודה ליישור טורים

    עזרה הדדית - וורד

  • בירור | קוד מאקרו ליישור שני טורים בוורד
    ר רפרם בר בר פפא

    @אבי-0
    1 השגיאה כיוון שהכנסת אותה בתוך פקודת מאקרו אאא הקוד שהבאתי הוא פקודה מלאה יש להעתיקו לעורך ולהפעיל מאקרו שורה_אחרונה _בטור מתוך רשימת המאקרו שלך
    2 צריך לפעול לא ניסיתי

    עזרה הדדית - וורד

  • בירור | קוד מאקרו ליישור שני טורים בוורד
    ר רפרם בר בר פפא

    @אבי-0
    1 השגיאה היא חוסר ב סוף אם (End If) כעת תקנתי
    `2 יש להוסיף אחרי המאקרו שהביא`` @NykUser שמגדיר הפרש בין טורים ומגדיר גובה טור 1 וגובה טור 2 והוספה שלי מגדירה בסיום המאקרו לעבור לשורה השווה לגובה טור 1 שהיא השורה האחרונה בטור הימני
    להלן הקוד המלא אם החלק הראשון שבנוי על הקוד שהביא @NykUser ובתוספת שכתבתי

    Public Sub שורה_אחרונה_בטור()
    'בודק אם יש שני טורים
    If Selection.PageSetup.TextColumns.Count <> 2 Then MsgBox ("לא נמצאו 2 טורים"): Exit Sub
    'עדכון מסך שקר
    Application.ScreenUpdating = False
    Dim WRange As range
    Dim NumLines, col1, col2, Ignore As Double
    'מספר שורות כולל בשני טורים
    
    NumLines = ActiveDocument.Bookmarks("\page").range.ComputeStatistics(wdStatisticLines)
    ActiveDocument.Bookmarks("\page").range.Select
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    'מגדיר אורך טור 1
    For i = 1 To NumLines
        Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Count:=1, Name:=""
       If col1 > Selection.Information(wdVerticalPositionRelativeToPage) Then
            Exit For
        Else
            col1 = Selection.Information(wdVerticalPositionRelativeToPage)
        End If
        
    Next
    'עובר לשורה ראשונה בעמוד
    Set MyRange = ActiveDocument.Bookmarks("\page").range
        MyRange.SetRange Start:=MyRange.Start, End:=MyRange.Start
        MyRange.Select
    'רד לשורה אחרונה בטור
        For i = 1 To NumLines
        Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Count:=1, Name:=""
        If col1 = Selection.Information(wdVerticalPositionRelativeToPage) Then
        Exit For
        ElseIf col1 > Selection.Information(wdVerticalPositionRelativeToPage) Then
    
        End If
        Next
        
    End Sub
    
    עזרה הדדית - וורד

  • בירור | קוד מאקרו ליישור שני טורים בוורד
    ר רפרם בר בר פפא

    @אבי-0 כתב בבירור | קוד מאקרו ליישור שני טורים בוורד:
    ניתן לעבור בלולאה על כל השורות עד שמוצא את השורה אם גובה כמו שהוגדר לגובה טור 1
    דוגמא (גובה טור 1 בדוגמא מוגדר ב col1 )

    'הולך לשורה הראשונה בעמוד
    Set MyRange = ActiveDocument.Bookmarks("\page").range
        MyRange.SetRange Start:=MyRange.Start, End:=MyRange.Start
        MyRange.Select
    'רד לשורה אחרונה בטור
        For i = 1 To NumLines
        Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Count:=1, Name:=""
        If col1 = Selection.Information(wdVerticalPositionRelativeToPage) Then
        Exit For
        ElseIf col1 > Selection.Information(wdVerticalPositionRelativeToPage) Then
    
    עזרה הדדית - וורד

  • בקשת מידע | פקודה שאחרי סוגריים אוטומטי יקטן הסוגריים
    ר רפרם בר בר פפא

    @es0583292679
    ניתן להגדיר בתחילת המאקרו שישמור את מיקום הסמן הנוכחי בשם ובסוף המאקרו יחזור לטווח המוגדר
    דוגמא

    Public Sub חדש()
    
    Dim A, Ignore As Double
    ' שומר מיקום נכוחי כ MY
    Set My = Selection.range
    'בוחר כל העמוד
    Set MyRange = ActiveDocument.Bookmarks("\page").range
    MyRange.SetRange Start:=MyRange.Start, End:=MyRange.End
    MyRange.Select
    'סופר שורות
      A = ActiveDocument.Bookmarks("\page").range.ComputeStatistics(wdStatisticLines)
       MsgBox A
       'חוזר למיקום הראשון
    My.SetRange Start:=My.End, End:=My.End
    My.Select
    
    End Sub
    
    עזרה הדדית - וורד

  • להורדה | מפות סימון שבילים ללא אינטרנט - חינמי לגמרי
    ר רפרם בר בר פפא

    @שמואל-ש
    העתק ידנית את כל התיקיה oruxmaps מזכרון מקומי לכרטיס ולאחר מכן את התיקיה Israel Hiking שהורדת לoruxmaps/mapfiles שנמצאת כבר בכרטיס
    ועכשיו פתח את האפלקצייה
    תכנס להגדרות כלליות\מפות\ספרית מפות, יש למעלה סימון של כרטיס זכרון תלחץ על האיקון ,יפתח לך התיקיות של הכרטיס תכנס לoruxmaps תופיע התיקייה mapfiles משמאל יש ריבוע סמן אותו ואשר. [יכול להיות שצריך לשנות גם "תיקיית נתוני dem" לתקיית oruxmaps שבכרטיס באותה צורה כמו שהעדכנת את "ספריית מפות"]
    ואח"כ הכנס להחלף מפה כמו שמובא בהוראות למעלה ורענן...
    בהצלחה.

    אפליקציות להורדה
  • התחברות

  • אין לך חשבון עדיין? הרשמה

  • התחברו או הירשמו כדי לחפש.
  • פוסט ראשון
    פוסט אחרון
0
  • חוקי הפורום
  • פופולרי
  • לא נפתר
  • משתמשים
  • חיפוש גוגל בפורום
  • צור קשר