@dovid כתב בתו אופצונאלי בהחלפה בוורד:

זהו, קיבלנו מעל 90 אחוז החלפה מדוייקים, מדוייקים יותר מבינה מלאכותית (שמנצחת בתחום האי ודאות - אלו שלא טיפלנו).

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

@למה-מה-קרה
@avi-rz מצוין!

קצר יותר ויעיל יותר - בלי לתפוס עמודות וחישוב יותר פשוט:

=SORT(A1:C26,MOD(A1:A26,1),TRUE)

(A1:C26 זוהי הטבלה למיון, ו A1:A26 כאן זה עמודת השעה)

הסבר:
ביישומי OFFICE - אקסל וכו' וגם בגוגל שיטס יש מוסכמה שתאריך הוא מספר המייצג ימים ושעות הם חלקי היום. (זה מתעד כמה ימים עברו מ 30/12/1899, תוכל לראות את המספר אם תהפוך את התאריך לפורמט מספר)
אם כן הכי פשוט למצוא את הזמן - למצוא את השבר בלבד - שארית החילוק מ - 1. ולמיין לפיו.
מציאת שארית מתבצעת על ידי הפונקציית MOD.

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

שים לב כי השעות ממויינות לפי 12 בלילה, אם תרצה למיין לפי השעה 5 - שזוהי השעה בה בהרגשה האנושית באמת עובר היום (לאפוקי שעת השקיעה/צאת להלכתית ו12 לבינלאומית) תכתוב את זה כך:

=SORT(A1:C26,MOD(A1:A26 - 1/24*5,1),TRUE)

@shraga תודה רבה
בדיוק מה שחיפשתי

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

@H19
לנסות לשחזר את זה עם Wondershare Recoverit וכדו'

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

@פלורידה

מחפירה בעבר, ובדיקה שוב בהווה
הדרך היא לבצע 'העתק - הדבק' כערכים

החלק העצוב והמשעשע
שהאקסל אכן מבצע מיון,
רק שהיות והוא מורכב מנוסחה, התוצאה היא תמיד זהה
ורק סוחב זמן ומשאבים מהמחשב ומהשימוש בקובץ

מצורף מאקרו פשוט להעתקה / הדבקה כערכים של טווח נבחר
שים לב: זה בלתי הפיך
(אחרי הדבקה כערכים, לא ניתן לשחזר את הנוסחאות שהיו לפני כן, ללא בניה מחדש)

Sub Macro1() ' ' Macro1 מאקרו ' ' Range("A1:A10").Select Selection.Copy Range("c1:c10").Select Selection.PasteSpecial Paste:=xlPasteValues End Sub

אני רואה כרגע שיש גם דרך מסויימת בתמונה...

https://www.gadgety.co.il/307878/acropalypse-windows/

@פלורידה מצורפת דוגמא.

חוברת1.xlsx

@חגי הגעתי לשלב שהוא מבקש שם משתמש וסיסמה
בשם משתמש כתבתי kali והסיסמה זה לא מה שאני כתבתי
מה יכול להיות ?

@אביי אבל התרגום של Q-Translate פחות טוב משל google translate. מה שמראה שזה משהו שלישי אולי?

@ek0583232948
מבדיקה שטחית לא הצלחתי להעביר קבצים בין המחשב לאנדרואיד

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

אני מראה כאן קישור לבדיקה ( - תוכלו לנסות לכתוב ככל העולה על רוחכם ולשלוח - אין לכך משמעות אמיתית).

https://forms.gle/6Z9XBBnUjVoWxxAS7

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

@OdedDvir התגובות הבטוחות שלכם חיזקו בי את המחשבה שאולי זה לא עוד באג של אקסס אלא שלי.

ולמרות שביצעתי בקובץ המקורי את שלב 1 - הקמפול, זה לא הצליח להפוך ל ACCDE.
בנסיון להפוך את זה לקובץ ההרצה, הודעת השגיאה היתה אותה הודעה כמו במקרה שזה לא עובר קמפול.

מה שעבד באופן מפתיע זה דווקא כשעברתי על כל הקוד והסרתי את כל הפעמים שכתבתי ON ERROR GOTO (כהמלצתך @OdedDvir במקו"א) זה כן הסכים להפוך ל ACCDE .

תודה רבה!

@A0533057932 מקבל שגיאה 404

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

@פשוט-אבל-תותח בבקשה:

תייבא את הספריה VBA-JSON מכאן. תוריד את הקובץ bas ותייבא לפרוייקט שלך. תוסיף הפנייה לספרייה "Microsoft Scripting Runtime". הקוד הבא שולח בקשת GET ומחזיר מחרוזת של התוכן: Public Function HttpGet(url As String) As String Dim httpRequest As Object Set httpRequest = CreateObject("WinHttp.WinHttpRequest.5.1") Dim res As String httpRequest.Open "GET", url, False httpRequest.Send HttpGet = httpRequest.responseText End Function את התגובה אתה צריך לפרסר עם הספריה VBA-JSON.
הנה דוגמא לשימוש ב-API של טסטים, שמחזיר נתוני דמה של משתמשים, ושליפת ערך השדה "firstname" מהתגובה: Dim res As String Dim json As Object res = HttpGet("https://jsonplaceholder.typicode.com/users/1") Set json = ParseJson(res) MsgBox json("username")

התוצאה:
8199d788-ad65-44eb-b7e7-41d6fbdf870b-תמונה.png