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

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

מדובר בהמון שמות ולהכניס שורת סיכום אחרי כל 1 זה המון עבודה,
 
נכתב ע"י לגעת בנקודה:
שלום!
יש לי טבלה עם רשימה של שמות פרטים תאריך וכו' ואח"כ סכומים
ביקשתי ממנו מיון לפי שמות
עכשיו אני רוצה לעשות לכל שם סיכום של כל הסכומים יחד
יש לציין שאני ממשיך ומוסיף לשם עוד ועוד שורות אני רוצה שתמיד יהיה לי שם וסיכום כללי עליו

מדובר בהמון שמות ולהכניס שורת סיכום אחרי כל 1 זה המון עבודה,
לחצ/י כדי להרחיב...
תשתמש ב PIVOT TABLE
אבל זה צריך רענון לאחר שינוי בנתונים

לסיכום לפי שם (לא שורה אחר כל שם) ניתן להשתמש ב SUMIF/SUMIFS
 
אני עורך הגרלות באקסל עם פונקציית RANDBETWEEN
אבל יש לי בעיה קטנה
כשאני עושה הגרלה עם 30 זוכים, יכול להיות שאותו מספר(אדם) יזכה פעמיים, איך אני יכול לעשות שיעשה הגרלה עם כמות זוכים ולא יותר מזכיה אחת לאדם ?

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

תודה מראש
לחצ/י כדי להרחיב...
בקישור כאן יש פתרון.
1605430969808.png


אפשר גם להכין נוסחה מותאמת לשימוש בגיליון בקוד VBA.
 
נכתב ע"י אפר:
חשבתי על זה קודם אבל זה לא מושלם עדיין יכול להיות המספר שעולה בפעם השניה כפול
לכאורה פיתרון מלא רק בvba
לחצ/י כדי להרחיב...

פונקציה מותאמת אישית
קוד: 
Function rndUnq(minNum As Integer, maxNum As Integer, numsCount As Integer)
    Dim i As Integer
    Dim tmpRng As Integer
    Dim tmpStr As String
    Dim ans() As Integer
        If numsCount > (maxNum - minNum + 1) Then
            MsgBox "כמות התוצאות המבוקשת גדולה מהטווח האפשרי"
            rndUnq = "not valid"
            Exit Function
        End If
        ReDim ans(1 To numsCount, 1 To 1)
        tmpStr = "#"
        i = 1
        Do Until i = (numsCount + 1)
            tf = 1
            Do While tf >= 1
                Randomize
                tmpRnd = Int(rnd * (maxNum - minNum + 1) + minNum)
                tf = InStr(tmpStr, "#" & tmpRnd & "#")
            Loop
            ans(i, 1) = tmpRnd
            tmpStr = tmpStr & "#" & tmpRnd & "#"
            i = i + 1
        Loop
        rndUnq = ans
End Function

עריכה:
הקוד תוקן לחיפוש עם סולמיות בהתאם למה שכתב @אפר בהודעה הבאה.
 
נערך לאחרונה ב:
נכתב ע"י xl3391:
פונקציה מותאמת אישית
קוד: 
Function rndUnq(minNum As Integer, maxNum As Integer, numsCount As Integer)
    Dim i As Integer
    Dim tmpRng As Integer
    Dim tmpStr As String
    Dim ans() As Integer
        If numsCount > (maxNum - minNum + 1) Then
            MsgBox "כמות התוצאות המבוקשת גדולה מהטווח האפשרי"
            rndUnq = "not valid"
            Exit Function
        End If
        ReDim ans(1 To numsCount, 1 To 1)
        tmpStr = ""
        i = 1
        Do Until i = (numsCount + 1)
            tf = 1
            Do While tf >= 1
                Randomize
                tmpRnd = Int(rnd * (maxNum - minNum + 1) + minNum)
                tf = InStr(tmpStr, tmpRnd)
            Loop
            ans(i, 1) = tmpRnd
            tmpStr = tmpStr & "#" & tmpRnd
            i = i + 1
        Loop
        rndUnq = ans
End Function
לחצ/י כדי להרחיב...
צריך להוסיף לSTR עיצוב אפסים אחרת אם יש 11 לא יתן 1
או לעשות כך (הסולמיות מגנות)
קוד: 
Function rndUnq(minNum As Integer, maxNum As Integer, numsCount As Integer)
    Dim i As Integer
    Dim tmpRng As Integer
    Dim tmpStr As String
    Dim ans() As Integer
        If numsCount > (maxNum - minNum + 1) Then
            MsgBox "כמות התוצאות המבוקשת גדולה מהטווח האפשרי"
            rndUnq = "not valid"
            Exit Function
        End If
        ReDim ans(1 To numsCount, 1 To 1)
        tmpStr = ""
        i = 1
        Do Until i = (numsCount + 1)
            tf = 1
            Do While tf >= 1
                Randomize
                tmpRnd = Int(rnd * (maxNum - minNum + 1) + minNum)
                tf = InStr(tmpStr,"#" & tmpRnd & "#")
            Loop
            ans(i, 1) = tmpRnd
            tmpStr = tmpStr & "#" & tmpRnd &  "#"
            i = i + 1
        Loop
        rndUnq = ans
End Function
 
נכתב ע"י אפר:
צריך להוסיף לSTR עיצוב אפסים אחרת אם יש 11 לא יתן 1
או לעשות כך (הסולמיות מגנות)
קוד: 
Function rndUnq(minNum As Integer, maxNum As Integer, numsCount As Integer)
    Dim i As Integer
    Dim tmpRng As Integer
    Dim tmpStr As String
    Dim ans() As Integer
        If numsCount > (maxNum - minNum + 1) Then
            MsgBox "כמות התוצאות המבוקשת גדולה מהטווח האפשרי"
            rndUnq = "not valid"
            Exit Function
        End If
        ReDim ans(1 To numsCount, 1 To 1)
        tmpStr = ""
        i = 1
        Do Until i = (numsCount + 1)
            tf = 1
            Do While tf >= 1
                Randomize
                tmpRnd = Int(rnd * (maxNum - minNum + 1) + minNum)
                tf = InStr(tmpStr,"#" & tmpRnd & "#")
            Loop
            ans(i, 1) = tmpRnd
            tmpStr = tmpStr & "#" & tmpRnd &  "#"
            i = i + 1
        Loop
        rndUnq = ans
End Function
לחצ/י כדי להרחיב...
צודק. תודה.
בהתאם צריך גם לאתחל את tmpStr ל #.
עודכן במקור.
 
נערך לאחרונה ב:
נכתב ע"י מרובע:
הנוסחא בג'אווה סקריפט. הגליון שלכם בגוגל שיטס או באופיס?

למה שעות לא מדויקות לא יודע, אני מעתיק את הקוד והיודעים יעזרו.
JavaScript: 
/*checking merav asaf*/

function onEdit(event)
{
  var timezone = "GMT+3";
  var timestamp_format = "dd-MM-yyyy HH:MM:SS"; // Timestamp Format.
  var updateColName = "נוכח";
  var timeStampColName = "שעה";
  var sheet = SpreadsheetApp.getActiveSpreadsheet().getSheetByName("Lesson");

  var actRng = event.source.getActiveRange();
  var editColumn = actRng.getColumn();
  var index = actRng.getRowIndex();
  var headers = sheet.getRange(1, 1, 1, sheet.getLastColumn()).getValues();
  var dateCol = headers[0].indexOf(timeStampColName);
  var updateCol = headers[0].indexOf(updateColName); updateCol = updateCol+1;
  if (dateCol > -1 && index > 1 && editColumn == updateCol) { // only timestamp if 'נוכח' header exists, but not in the header row itself!
    var cell = sheet.getRange(index, dateCol + 1);
    var date = Utilities.formatDate(new Date(), timezone, timestamp_format);
    cell.setValue(date);
  }
}

לכאורה כדי לשנות את שיוצג בלי תאריך צריך לשנות בקוד בשורה הרביעית.
לחצ/י כדי להרחיב...
@ממוקד ו @מרובע ,
אצלי כעת השעות נרשמות בשעון קיץ לפי ה GTM+3 שמוגדר בקוד. אפשר לשנות לGTM+2 אבל חיפשתי פתרון אוטומטי ומה שמצאתי זה את ההגדרה הזאת:
קוד: 
var timezone = SpreadsheetApp.getActive().getSpreadsheetTimeZone();
במקום
קוד: 
  var timezone = "GMT+3";
אצלי פתר את הבעיה.
מקור כאן
 
נכתב ע"י xl3391:
@ממוקד ו @מרובע ,
אצלי כעת השעות נרשמות בשעון קיץ לפי ה GTM+3 שמוגדר בקוד. אפשר לשנות לGTM+2 אבל חיפשתי פתרון אוטומטי ומה שמצאתי זה את ההגדרה הזאת:
קוד: 
var timezone = SpreadsheetApp.getActive().getSpreadsheetTimeZone();
במקום
קוד: 
  var timezone = "GMT+3";
אצלי פתר את הבעיה.
מקור כאן
לחצ/י כדי להרחיב...
אני מכניס את זה בקוד הקיים?
איפה?

תודה רבה
 
שאני עושה טבלה
ואני רוצה לרשום כמה שורות באותו תא
למה אני לא מצליחה לעשות אנטר ולרדת שורה?
 
@מאסטר באקסל ,
אשמח לתשובה.
יש לי טבלה עם עמודה של ממספרים 1,2,3 וכו', עמודה של של שמות ולצידה עמודה של כתות, (א,ב)
איך אפשר למיין את הטבלה לפי כתות, נניח שיסנן לי רק את כתה ב,
אך ישאיר לי את הסדר במספרים של 1,2,3?
 
נכתב ע"י 23600:
@מאסטר באקסל ,
אשמח לתשובה.
יש לי טבלה עם עמודה של ממספרים 1,2,3 וכו', עמודה של של שמות ולצידה עמודה של כתות, (א,ב)
איך אפשר למיין את הטבלה לפי כתות, נניח שיסנן לי רק את כתה ב,
אך ישאיר לי את הסדר במספרים של 1,2,3?
לחצ/י כדי להרחיב...
אתם רוצים שיתחיל ב 1,2,3 או שיהיה לפי הסדר?
 

פרוגבוט

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

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

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

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

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

לוח לימודים

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

26.04

ט' אייר


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

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

30.04

י"ג אייר


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

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

10.05

כ"ג אייר


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

נפתחה ההרשמה

14.05

כ"ז אייר


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

נפתחה ההרשמה

14.06

כ"ט סיוון


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

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

לוח מודעות

הפרק היומי

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


תהילים פרק כה

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