מנהל: מפקח
פעיל כתב:בבקשה:
פונקציה לעיגול מספרים כלפי מעלה: הפרמטרים: מספר, קפיצות עיגול (אפשרי. אם לא ניתן מעגל למספר שלם)
- קוד: בחר הכל
Function roundup(num As Double, Optional value As Double) As Double
Dim d As Double, i As Double
If value = 0 Then value = 1
d = num / value
i = Int(d)
d = d - i
If d > 0 Then
i = i + 1
End If
d = i * value
roundup = d
End Function
פונקציה לעיגול מספרים כלפי מטה: הפרמטרים: מספר, קפיצות עיגול (אפשרי. אם לא ניתן מעגל למספר שלם)
- קוד: בחר הכל
Function rounddown(num As Double, Optional value As Double) As Double
Dim d As Double, i As Double
If value = 0 Then value = 1
d = num / value
i = Int(d)
d = i * value
rounddown = d
End Function
Function pmt(achuzshana As Double, shanim As Integer, schumhalvaha As Double)
Dim achuztashlum As Double, tashlumim As Long, tmp As Double
achuztashlum = achuzshana / 12
tashlumim = shanim * 12
tmp = Excel.WorksheetFunction.pmt(achuztashlum, tashlumim, schumhalvaha)
pmt = tmp
End Function
ענק כתב:גם ב MSGBOX אפשר להגדיר מאפיינים:
התחביר שלו הוא:
MsgBox(prompt[, buttons] [, title] [, helpfile, context])
prompt זה סוג ההודעה, ואפשר להחליפו במספר הסיביות המספרים שבצד ימין) במקום המשתנה:
פעיל כתב:ב. כולנו יודעים כי אפשר ל'שרוף' שעות שלימות בישיבה על המחשב, ה'שמים' - זמני התפילות / השיעורים וכו' - הם ה'גבול', כזה מגיע, מוכרחים (ב"ה) להפסיק....)
ענק כתב:גם ב MSGBOX אפשר להגדיר מאפיינים:
התחביר שלו הוא:
MsgBox(prompt[, buttons] [, title] [, helpfile, context])
prompt זה סוג ההודעה, ואפשר להחליפו במספר הסיביות המספרים שבצד ימין) במקום המשתנה:
prompt
vbOKOnly 0 הצגה של לחצן אישור בלבד.
vbOKCancel 1 הצגה של הלחצנים אישור וביטול.
vbAbortRetryIgnore 2 הצגה של הלחצנים בטל, נסה שנית והתעלם.
vbYesNoCancel 3 הצגה של הלחצנים כן, לא וביטול.
vbYesNo 4 הצגה של הלחצנים כן ולא.
vbRetryCancel 5 הצגה של הלחצנים נסה שנית וביטול.
vbCritical 16 הצגה של סמל הודעה קריטית.
vbQuestion 32 הצגה של סמל שאילתת אזהרה.
vbExclamation 48 הצגה של סמל הודעת אזהרה.
vbInformation 64 הצגה של סמל הודעת מידע.
vbDefaultButton1 0 הלחצן הראשון הוא ברירת מחדל.
vbDefaultButton2 256 הלחצן השני הוא ברירת מחדל.
vbDefaultButton3 512 הלחצן השלישי הוא ברירת מחדל.
vbDefaultButton4 768 הלחצן הרביעי הוא ברירת מחדל.
vbApplicationModal 0 מודאל יישום; על המשתמש להגיב לתיבת ההודעה לפני שיוכל להמשיך לעבוד ביישום הנוכחי.
vbSystemModal 4096 מודאל מערכת; כל היישומים מושהים עד שהמשתמש מגיב לתיבת ההודעה.
vbMsgBoxHelpButton 16384 הוספת לחצן עזרה לתיבת ההודעה.
VbMsgBoxSetForeground 65536 ציון חלון תיבת ההודעה כחלון בקידמה.
vbMsgBoxRight 524288 הטקסט מיושר לימין.
vbMsgBoxRtlReading 1048576 ציון שעל טקסט להופיע כטקסט לקריאה מימין לשמאל במערכות עבריות וערביות.
ואפשר גם לבצע פקודות החזרה בארגומט buttons גם כאן ניתן להשתמש במספרים במקום במשתנים
ערכי החזרה לbuttons
vbOK 1 אישור
vbCancel 2 ביטול
vbAbort 3 בטל
vbRetry 4 נסה שנית
vbIgnore 5 התעלם
vbYes 6 כן
vbNo 7 לא
ענק כתב:גם ב MSGBOX אפשר להגדיר מאפיינים:
התחביר שלו הוא:
MsgBox(prompt[, buttons] [, title] [, helpfile, context])
prompt זה סוג ההודעה, ואפשר להחליפו במספר הסיביות המספרים שבצד ימין) במקום המשתנה:
מוטי כתב:
עד כמה שידוע לי .
prompt= הטקסט שאותו הינך רוצה להציג למשתמש.
חזור אל טיפים מדריכים ועצות טובות
משתמשים הגולשים בפורום זה: אין משתמשים רשומים ו־2 אורחים