חשבתי על זה קודם אבל זה לא מושלם עדיין יכול להיות המספר שעולה בפעם השניה כפול
לכאורה פיתרון מלא רק ב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
צריך להוסיף ל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
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
@ממוקד ו @מרובע ,הנוסחא בג'אווה סקריפט. הגליון שלכם בגוגל שיטס או באופיס?
למה שעות לא מדויקות לא יודע, אני מעתיק את הקוד והיודעים יעזרו.
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); } }
לכאורה כדי לשנות את שיוצג בלי תאריך צריך לשנות בקוד בשורה הרביעית.
var timezone = SpreadsheetApp.getActive().getSpreadsheetTimeZone();
var timezone = "GMT+3";
אני מכניס את זה בקוד הקיים?
אני מכניס את זה בקוד הקיים?
איפה?
תודה רבה
ALT שמאלי + אנטרשאני עושה טבלה
ואני רוצה לרשום כמה שורות באותו תא
למה אני לא מצליחה לעשות אנטר ולרדת שורה?
אפשר הסבר על שימוש בנתון זה?תשתמש ב PIVOT TABLE
אבל זה צריך רענון לאחר שינוי בנתונים
לסיכום לפי שם (לא שורה אחר כל שם) ניתן להשתמש ב SUMIF/SUMIFS
תעלה קובץ ואני ישים לך הדגמהאפשר הסבר על שימוש בנתון זה?
עובד מצוייןבתחילת הקוד.
רשמתי מה להחליף.
רק לוודא אח"כ שעובד תקין גם אצלכם.
אתם רוצים שיתחיל ב 1,2,3 או שיהיה לפי הסדר?@מאסטר באקסל ,
אשמח לתשובה.
יש לי טבלה עם עמודה של ממספרים 1,2,3 וכו', עמודה של של שמות ולצידה עמודה של כתות, (א,ב)
איך אפשר למיין את הטבלה לפי כתות, נניח שיסנן לי רק את כתה ב,
אך ישאיר לי את הסדר במספרים של 1,2,3?
שיתחיל ב 1,2,3אתם רוצים שיתחיל ב 1,2,3 או שיהיה לפי הסדר?
תעלה קובץשיתחיל ב 1,2,3
אתה רוצה שלכל כיתה יהיה מספר נפרד או שיתחיל מחדשמצ"ב
אבל אם לא מסונן מה אתה רוצה שיהיה? לכל כיתה מיספור שונה?!לסנן לדוגמא לפי ט-2
ואז שהשם הראשון של הילדה בט-2 יופיע כמספר 1 וכן הלאה
אל תחמיצו!!!
מנוי פרימיום באתר פרוג, יקפיץ את המוניטין שלך לקהל גדול שאסור לך להחמיץ!
ועכשיו בהזדמנות, מבצע פסח 10% הנחה ברכישת מנוי שנתי!
לוח לימודים
מסלולי לימוד שאפשר לההצטרף
אליהם ממש עכשיו:
2.04
כ"ג אדר ב'
השקה חגיגית
חדש בפרוג
קורס חדשנות AI ובינה מלאכותית
14 שיעורים מפוצצים תוכן על כלי הAI השונים ליצירת תמונות וויז'ואל, עריכת וידאו ומושן, כתיבה ורעיונות, אפיון ועיצוב אתרים ועוד המון!
ההרשמה נפתחה!
20.03
י' אדר ב'
פתיחת מסלול
עיצוב ואדריכלות פנים
מלגות גבוהות!
26.03
טז' אדר ב'
פתיחת מסלול
מאסטר בשיווק דיגיטלי
מלגות גבוהות!
8.05
ל' ניסן
פתיחת מסלול
אוטומציות עסקיות, בוטים והטמעת מערכות מידע
מלגות גבוהות!
9.05
א' אייר
ירושלמי?
יש לנו מלגה מטורפת עבורך! קורס במימון כמעט מלא!!
אוטומציות עסקיות, בוטים והטמעת מערכות מידע
ההרשמה בעיצומה
28.05
כ' אייר
פתיחת מסלול מורחב:
פיתוח ובניית אתרים
מלגות גבוהות!
תהילים פרק קכג
א שִׁיר הַמַּעֲלוֹת אֵלֶיךָ נָשָׂאתִי אֶת עֵינַי הַיֹּשְׁבִי בַּשָּׁמָיִם:ב הִנֵּה כְעֵינֵי עֲבָדִים אֶל יַד אֲדוֹנֵיהֶם כְּעֵינֵי שִׁפְחָה אֶל יַד גְּבִרְתָּהּ כֵּן עֵינֵינוּ אֶל יְהוָה אֱלֹהֵינוּ עַד שֶׁיְּחָנֵּנוּ:ג חָנֵּנוּ יְהוָה חָנֵּנוּ כִּי רַב שָׂבַעְנוּ בוּז:ד רַבַּת שָׂבְעָה לָּהּ נַפְשֵׁנוּ הַלַּעַג הַשַּׁאֲנַנִּים הַבּוּז לִגְאֵיוֹנִים: