רוצה לעזור לכם באקסל

[xl3391]

ניסית ונשאר לחוץ? או שמראה שלא לחוץ ובכל זאת מקריא?

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

 

[xl3391]

לחצתי עליו וזה לא מפסיקקק

נסה להכניס את הקוד הזה בעורך הVBA ולהריץ.

Sub StopSpeak()

       Application.Speech.SpeakCellOnEnter = False

End Sub

 

[להתייעל עם אקסל]

דרוש מידע - למומחי אקסל/מתמטיקה

שלום וברכה האם מישהו יודע מהו ההבדל בעצם בין הנוסחאות TRUNC ל-ROUNDDOWN (אקסל)? (חוץ מהשאלה אם הארגומנט האחרון אופציונלי או נדרש) תודה מראש

www.prog.co.il

 

[MOISHI408]

הצלחתי עם נוסחה דומה:

=if(ISERROR(IMPORTDATA(A1)),FALSE,true)

אבל זה לא עובד עם נוסחת מערך (ArrayFormula).

יש איזושהי דרך כן להשתמש בנוסחאות כאלה במערך?

 

[סוששששששששששששששש]

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

תודה!

 

[הנף מקלדת]

איך אני כותב בקוד מספר פרוצדורות וקורא מאחת לשניה?

 

[xl3391]

איך אני כותב בקוד מספר פרוצדורות וקורא מאחת לשניה?

רושם את הם שלה.
לפעמים צריך גם לרשום לפני השם call

 

[הנף מקלדת]

תודה, ואיך קוראים לפונקציה שיצרתי?

 

[xl3391]

תודה, ואיך קוראים לפונקציה שיצרתי?

פונקציה או פרוצדורה? מה שרשמת אחרי הsub זו הפרוצדורה. ולה אפשר לקרא כפי שרשמתי.
אם השתמשת ב function אז צריך לרשום את שם הפונקציה (מה שרשמת אחרי המילה function) רווח ואת הערכים ששולחים למשתנים לפי סדר ובהפרדה של פסיק.

 

[הנף מקלדת]

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

Sub start()

Dim ws1 As Worksheet

Set ws1 = ThisWorkbook.Worksheets(1)

Dim ws2 As Worksheet
Set ws2 = ThisWorkbook.Worksheets(2)
Dim x As Integer
Dim y As Integer
y = 0
Dim wlr As Integer




wlr = ws2.UsedRange.Rows(ws2.UsedRange.Rows.Count).Row



For x = 1 To wlr
na (x)
amla (x)
Next x


Function na(x)
If ws2.Cells(x, 23) = "ארגון" Then
ws2.Cells(x, 23) = "יד"
End Function
Function amla(x)
While ws2.Cells(x, 16) <> ws1.Cells(y, amla - 1)
y = y + 1
Loop
ws2.Cells(x, 16) = ws1.Cells(y, amla)
End Function
End Sub

 

[xl3391]

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

Sub start()

Dim ws1 As Worksheet

Set ws1 = ThisWorkbook.Worksheets(1)

Dim ws2 As Worksheet
Set ws2 = ThisWorkbook.Worksheets(2)
Dim x As Integer
Dim y As Integer
y = 0
Dim wlr As Integer
Dim amla As Integer
amla = 6


wlr = ws2.UsedRange.Rows(ws2.UsedRange.Rows.Count).Row



For x = 1 To wlr
na (x)
amla (x)
Next x


Function na(x)
If ws2.Cells(x, 23) = "ארגון" Then
ws2.Cells(x, 23) = "יד"
End Function
Function amla(x)
While ws2.Cells(x, 16) <> ws1.Cells(y, amla - 1)
y = y + 1
Loop
ws2.Cells(x, 16) = ws1.Cells(y, amla)
End Function
End Sub

1. לרשום את הפונקציות מחוץ לפרוצדורה ולקרא להן מהפרוצדורה.
2. ברגע שהפונקציה if מתפרסת על יותר משורה אחת חייב לסגור אותה בend if
3.אי אפשר להשתמש במשתנה שהוצהר בפרוצדורה אחת בפרוצדורה אחרת, אלא אם הוכרז כמשתנה גלובלי( בראש המודול לפני הsub הראשון) , או לשלוח אותו לSUB או ל FUNCTION (כמו ששלחת את הx).
4. בfunction בד"כ משתמשים כאשר רוצים לקבל תשובה/ערך חוזר מהפונקציה, אם צריך רק לבצע פעולות אז נכון יותר להשתמש בsub. (גם לsub אפשר לשלוח משתנים בסוגריים).

 

[הנף מקלדת]

תודה על הכל
עזרת לי מאד מאד.

 

[arye izerwerk]

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

 

[xl3391]

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

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

 

[arye izerwerk]

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

תודה.
זה נכון גם על שאילתות או שזה רק מתוך טבלאות?

 

[xl3391]

תודה.
זה נכון גם על שאילתות או שזה רק מתוך טבלאות?

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

 

[arye izerwerk]

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

תודה מאד! אנסה זאת.

 

[arye izerwerk]

יש לי שאלה נוספת ולא מצאתי עליה תשובה מסודרת. מקווה שאני לא מטריח.
האם יש אופציה להמיר תאריך עברי לתאריך לועזי באקסל? יש לי שדה בו מופיע התאריך העברי ואני רוצה שבשדה לצידו יופיע התאריך הלועזי.

 

[סופריא - הוצאה לאור]

https://www.taasuka.gov.il/he/Applicants/Pages/Excel2010Course.aspx

https://www.taasuka.gov.il/he/Applicants/Pages/ExcelAdvanced.aspx

 

[xl3391]

יש לי שאלה נוספת ולא מצאתי עליה תשובה מסודרת. מקווה שאני לא מטריח.
האם יש אופציה להמיר תאריך עברי לתאריך לועזי באקסל? יש לי שדה בו מופיע התאריך העברי ואני רוצה שבשדה לצידו יופיע התאריך הלועזי.

עלה בפורום קובץ עם קוד שמכיל נוסחאות של המרות תאריכים לשימוש בגיליון. כזכור לי היה בו גם נוסחה למה שביקשת.
הועלה ע"י @עמיק . תוכל לנסות לאתר אותו.