ניסיתי לצרוב רק סיסטם והיה תקין, רק שהטלפון נדלק על המסך הכחול ושוב התוכנה לא מגיבה.
רפרם בר בר פפא
-
עזרה | צריבה באמצעות ResearchDownload לQIN1 לא מגיב -
עזרה | צריבה באמצעות ResearchDownload לQIN1 לא מגיבמצטער אחרי חודש שאני מנסה גיליתי שצריך ללחוץ על שני הכפתורים של הטלפון בו זמנית.
אבל עכשיו הוא נתקע אחרי 10 שניות על זה -
עזרה | צריבה באמצעות ResearchDownload לQIN1 לא מגיבמחקתי את הסיסטם ואני מנסה לצרוב גרסה חדשה כל שהיא, אבל התוכנה לא מגיבה כלל לטלפון.
תודה מראש! -
בקשת מידע | ביטול חיבור דרך וופי בשיומי +Qin1s ללא רוט@Ykingsmart
אני מבקש הדרכה אפי' להסרה פיזית של אנטנת הוופי
וכן אשמח להדרכה להכנסת רוט (ההדרכה שנמצאת כאן בפורום לא עובדת ועושה שגיאה כמו שמובא בסוף האשכול שם)
וכן זה שאפשר אינטרנט דרך הסים לא מפריע לי כ"כ בעקר צריך להוריד את הוופי -
בקשת מידע | ביטול חיבור דרך וופי בשיומי +Qin1s ללא רוטאני צריך לכמה מכשירים לבטל וויפי לכן אשמח להדרכה בסיסית או שם תוכנה\ קישור אליה
תודה -
בקשת מידע | ביטול חיבור דרך וופי בשיומי +Qin1s ללא רוטלמישהו יש מידע לביטול חיבור WIFI בשיומי מקשים בין תוכנה ואפילו מכני לעקור פיזית את האנטנה
(ותוכנה ללא צורך ברוט עקב קושי בהתקנת רוט בשיומי ע"י ההדרכות שהובאו כאן להתקנת רוט) -
בירור | קוד מאקרו ליישור שני טורים בוורד@מאקרו
לגבי לרדת לשורה אחרונה בטור ולבדוק גובה טור זה לא נפקא מיניה לפי עניות דעתי -
בירור | קוד מאקרו ליישור שני טורים בוורד@מאקרו
בנסיון שלי לא נתקל בבעיה לעבור שורה -
בירור | קוד מאקרו ליישור שני טורים בוורד@מאקרו
לא בפקודה שהבאתי שאינה משתמשת בפסקאות רק בפקודה ליישור טורים -
בירור | קוד מאקרו ליישור שני טורים בוורד@אבי-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 שבכרטיס באותה צורה כמו שהעדכנת את "ספריית מפות"]
ואח"כ הכנס להחלף מפה כמו שמובא בהוראות למעלה ורענן...
בהצלחה.