אקסל האשכול המרכזי לשאלות באקסל/גוגל שיטס

מרובע · 1/8/21

קוד VBA מצויין להפוך עשרוני למעלות ולהיפך. מזינים 10.46 ומקבלים במקום 10° 27' 36" וכן להיפך: מזינים מעלות ומקבלים עשרוני:

המר זוויות מעלות/דקות/שניות לזוויות עשרוניות או מהן - Microsoft 365 Apps

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

docs.microsoft.com

מרובע · 1/8/21

נכתב ע"י מרובע:
קוד VBA מצויין להפוך עשרוני למעלות ולהיפך. מזינים 10.46 ומקבלים במקום 10° 27' 36" וכן להיפך: מזינים מעלות ומקבלים עשרוני:

המר זוויות מעלות/דקות/שניות לזוויות עשרוניות או מהן - Microsoft 365 Apps

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

docs.microsoft.com

אשמח אם מישהו יודע האם אפשר להדביק את זה כסקריפט בגוגל שיטס, ואם לא, האם מישהו יכול להתאים את הקוד הזה לשיטס אם אפשר?
בתודה מראש

מרובע · 1/8/21

אני צריך לעשות את פונקציית substitute כמה פעמים על אותו תא.
זאת אומרת במקום X תכתוב א ובמקום Y תכתוב ב ובמקום Z תכתוב ג'
איך עושים את זה?
(עשיתי את זה בשלושה תאים נפרדים בינתיים, ואני לא יודע איך כותבים את זה בתא אחד)

אפר · 1/8/21

נכתב ע"י מרובע:
אשמח אם מישהו יודע האם אפשר להדביק את זה כסקריפט בגוגל שיטס, ואם לא, האם מישהו יכול להתאים את הקוד הזה לשיטס אם אפשר?
בתודה מראש

זה לא אותו שפה
בשיטס זה JS

אפר · 1/8/21

נכתב ע"י מרובע:
אני צריך לעשות את פונקציית substitute כמה פעמים על אותו תא.
זאת אומרת במקום X תכתוב א ובמקום Y תכתוב ב ובמקום Z תכתוב ג'
איך עושים את זה?
(עשיתי את זה בשלושה תאים נפרדים בינתיים, ואני לא יודע איך כותבים את זה בתא אחד)

תעטוף אותו בעוד SUBSTITUTE

מרובע · 1/8/21

נכתב ע"י אפר:
זה לא אותו שפה
בשיטס זה JS

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

א)

C++:

Function Convert_Degree(Decimal_Deg) As Variant
    With Application
        'Set degree to Integer of Argument Passed
        Degrees = Int(Decimal_Deg)
        'Set minutes to 60 times the number to the right
        'of the decimal for the variable Decimal_Deg
        Minutes = (Decimal_Deg - Degrees) * 60
        'Set seconds to 60 times the number to the right of the
        'decimal for the variable Minute
        Seconds = Format(((Minutes - Int(Minutes)) * 60), "0")
        'Returns the Result of degree conversion
        '(for example, 10.46 = 10~ 27  ' 36")
        Convert_Degree = " " & Degrees & "° " & Int(Minutes) & " ' " & Seconds + Chr(34)
    End With
End Function

ב)

C++:

Function Convert_Decimal(Degree_Deg As String) As Double
    ' Declare the variables to be double precision floating-point

   Dim degrees As Double
   Dim minutes As Double
   Dim seconds As Double
   ' Set degree to value before "°" of Argument Passed.
   Degree_Deg = Replace(Degree_Deg, "~", "°")


   degrees = CDbl(Left(Degree_Deg, InStr(1, Degree_Deg, "°") - 1))
   ' Set minutes to the value between the "°" and the "'"
   ' of the text string for the variable Degree_Deg divided by
   ' 60. The Val function converts the text string to a number.
   minutes = CDbl(Mid(Degree_Deg, InStr(1, Degree_Deg, "°") + 1, _
             InStr(1, Degree_Deg, "'") - InStr(1, Degree_Deg, "°") - 1)) / 60
   ' Set seconds to the number to the right of "'" that is
   ' converted to a value and then divided by 3600.
   seconds = CDbl(Mid(Degree_Deg, InStr(1, Degree_Deg, "'") + _
           1, Len(Degree_Deg) - InStr(1, Degree_Deg, "'") - 1)) / 3600

   Convert_Decimal = degrees + minutes + seconds

End Function

למען הציבור · 1/8/21

@אפר
אפשר עזרה גם עם הטבלה הזאת?

אני מזכיר מה שכתבתי שבוע שעבר
יש לי רשימה של שמות של אנשים למשל עם מזהה, וברשימה נפרדת את אותו המזהה עם נתון נוסף (למשל טלפון)
מה אני עושה כשבטבלה השניה (של הטלפונים) יש אנשים עם 2 שורות זאת אומרת אותו מזהה בשני שורות

רוב תודות
(ניסיתי להעתקי את הנוסחה וזה לא עבד לי,

למה? · 1/8/21

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

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

למה? · 1/8/21

נכתב ע"י למה?:
אני לא יכול להשתמש עם 'טקסט לעמודות' כיון שאין כל השמות מרווח קבוע, וכן המספרים אינם אותו רוחב קבוע,

ולהשתמש ב'מופרד' אני גם לא יכול, כי אין לי פסיק וכדומה, בין השמות למספרים,
תודה מראש

אפר · 1/8/21

נכתב ע"י מרובע:

א)

C++:

Function Convert_Degree(Decimal_Deg) As Variant
With Application
'Set degree to Integer of Argument Passed
Degrees = Int(Decimal_Deg)
'Set minutes to 60 times the number to the right
'of the decimal for the variable Decimal_Deg
Minutes = (Decimal_Deg - Degrees) * 60
'Set seconds to 60 times the number to the right of the
'decimal for the variable Minute
Seconds = Format(((Minutes - Int(Minutes)) * 60), "0")
'Returns the Result of degree conversion
'(for example, 10.46 = 10~ 27 ' 36")
Convert_Degree = " " & Degrees & "° " & Int(Minutes) & " ' " & Seconds + Chr(34)
End With
End Function

מעגל ללמטה - זה המעלות
לאחר מכן לוקח את החלק העשרוני על ידי הפחתה של המעלות המעוגלות מהסכום השלם (כזכור כתבתי פה שבVBA פונקציית MOD מעלימה עשרוני) ומכפיל ב60) - זה הדקות
לאחר מכן לוקח את העשרוני שנשאר בדקות (שוב עניין ה MOD) ומעצב עם לפחות מספר אחד - זה השניות
ואז משרשר למחרוזת טקטט
{רווח} {מעלות} {סמל של מעלות} {רווח} {דקות מעוגל ללמטה} {רווח} {גרש} {רווח} {שניות} {CHR(34)}

אפר · 1/8/21

נכתב ע"י למה?:
ולהשתמש ב'מופרד' אני גם לא יכול, כי אין לי פסיק וכדומה, בין השמות למספרים,
תודה מראש

רווח יש?

אפר · 1/8/21

נכתב ע"י מרובע:

ב)

C++:

Function Convert_Decimal(Degree_Deg As String) As Double
' Declare the variables to be double precision floating-point

Dim degrees As Double
Dim minutes As Double
Dim seconds As Double
' Set degree to value before "°" of Argument Passed.
Degree_Deg = Replace(Degree_Deg, "~", "°")


degrees = CDbl(Left(Degree_Deg, InStr(1, Degree_Deg, "°") - 1))
' Set minutes to the value between the "°" and the "'"
' of the text string for the variable Degree_Deg divided by
' 60. The Val function converts the text string to a number.
minutes = CDbl(Mid(Degree_Deg, InStr(1, Degree_Deg, "°") + 1, _
InStr(1, Degree_Deg, "'") - InStr(1, Degree_Deg, "°") - 1)) / 60
' Set seconds to the number to the right of "'" that is
' converted to a value and then divided by 3600.
seconds = CDbl(Mid(Degree_Deg, InStr(1, Degree_Deg, "'") + _
1, Len(Degree_Deg) - InStr(1, Degree_Deg, "'") - 1)) / 3600

Convert_Decimal = degrees + minutes + seconds

End Function

מצהיר על משתנים מסוג כפול FLOAT למעלות דקות ושניות
מחליף את הסמל ~ לסמל של מעלות (לא חובה - עוזר לעוד מקרים)
לוקח את הקטע עד הסמל של המעלות LEFT וכו' - זה המעלות (שומר בתור מספר)
לוקח את הקטע בין הסמל של המעלות לגרש ושומר לדקות בתור מספר ומחלק ל60על מנת שיקבל את הערך העשרוני
לוקח את הקטע לאחר הגרש ושומר לשניות בתור מספר ומחלק ל3600 על מנת שיקבל את הערך העשרוני
מחבר את המעלות הדקות והשניות וזה התוצאה העשרונית

למה? · 1/8/21

נכתב ע"י אפר:
רווח יש?

כן
אבל יש גם בין השמות, למשל: ישראל ישראלי 050000000

למה? · 1/8/21

אפר
יש לך פתרון
דחוף לי מאוד

תודה רבה מראש!!

רוטמן · 1/8/21

אני רוצה לשאול אם יש איזה אפשרות להגביל תא באקסל - לאותיות בלבד, ללא אפשרות להזין מספרים?

רוטמן · 1/8/21

נכתב ע"י רוטמן:
אני רוצה לשאול אם יש איזה אפשרות להגביל תא באקסל - לאותיות בלבד, ללא אפשרות להזין מספרים?

למען הציבור · 1/8/21

נכתב ע"י למען הציבור:
@אפר
אפשר עזרה גם עם הטבלה הזאת?

אני מזכיר מה שכתבתי שבוע שעבר
יש לי רשימה של שמות של אנשים למשל עם מזהה, וברשימה נפרדת את אותו המזהה עם נתון נוסף (למשל טלפון)
מה אני עושה כשבטבלה השניה (של הטלפונים) יש אנשים עם 2 שורות זאת אומרת אותו מזהה בשני שורות

רוב תודות
(ניסיתי להעתקי את הנוסחה וזה לא עבד לי,