פרוג

מכללת פרוג ירושלים











חזור   פרוג - פורום חרדי מקצועי > תוכנות מייקרוסופט אופיס

תגובה
 
אפשרויות דיון חפש בדיון זה אפשרויות תצוגה
ישן 09-01-2017, 10:39   #1
moshem
 
תאריך הצטרפות: Aug 2015
הודעות: 151
שלח תודה: 73
קיבל 19 תודות ב 17 הודעות
ברירת מחדל עזרה ב - VBA באקסל

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

בתודה מראש לכל העונים והמסייעים.
moshem לא מחובר   הגב עם ציטוט
ישן 09-01-2017, 11:44   #2
NIVDFB
 
תאריך הצטרפות: May 2009
הודעות: 914
שלח תודה: 169
קיבל 364 תודות ב 243 הודעות
ברירת מחדל

תעשה הקלטת מאקרו, ותבחר לשמור בחוברת מאקרו אישית.
אח"כ תוכל להוסיף פקודות VBA בחוברת זו שתופיע בכל הגליונות.
זה נקרא PERSONAL.
NIVDFB לא מחובר   הגב עם ציטוט
The Following User Says Thank You to NIVDFB For This Useful Post:
ישן 09-01-2017, 12:47   #3
moshem
 
תאריך הצטרפות: Aug 2015
הודעות: 151
שלח תודה: 73
קיבל 19 תודות ב 17 הודעות
ברירת מחדל

לפי התשובה אני רואה שלה הסברתי את עצמי טוב.
כוונתי היא לא לגיליונות אלא לחוברות עבודה.

ושוב תודה
moshem לא מחובר   הגב עם ציטוט
ישן 09-01-2017, 12:51   #4
NIVDFB
 
תאריך הצטרפות: May 2009
הודעות: 914
שלח תודה: 169
קיבל 364 תודות ב 243 הודעות
ברירת מחדל

יעזור גם לזה
NIVDFB לא מחובר   הגב עם ציטוט
The Following User Says Thank You to NIVDFB For This Useful Post:
ישן 10-01-2017, 00:11   #5
סבתא111
תחום מקצוע עיקרי: תיכנות
 
תאריך הצטרפות: Oct 2014
הודעות: 379
שלח תודה: 154
קיבל 64 תודות ב 48 הודעות
ברירת מחדל

מצו"ב תוסף שמוסיף לך פונקציה לטיפול במספרי טלפונים מקולקלים ומעורבבים.
תפעיל את התוכנה שבתוך הקובץ המכווץ. ההתקנה אורכת שניה ולא נפתח חלון.
אם יש לך אקסל פתוח סגור ותפתח אותו.
אח"כ באקסל תשתמש עם הנוסחה הזאת:
קוד:
=TelepohneTiknu(A1,1)
נ.ב. אני לוקח אחריות על בטיחות התוכנה. אני בניתי אותה. (היא סה"כ פורסת קובץ XLAM למיקום ברירת מחדל להפעלה)
קבצים מצורפים
סוג הקובץ: rar RepayerTels.rar‏ (64.3 ק"ב, 3 צפיות)
סבתא111 לא מחובר   הגב עם ציטוט
The Following User Says Thank You to סבתא111 For This Useful Post:
ישן 10-01-2017, 11:02   #6
moshem
 
תאריך הצטרפות: Aug 2015
הודעות: 151
שלח תודה: 73
קיבל 19 תודות ב 17 הודעות
Wink

ציטוט:
פורסם במקור על ידי סבתא111 צפה בהודעה
נ.ב. אני לוקח אחריות על בטיחות התוכנה. אני בניתי אותה. (היא סה"כ פורסת קובץ XLAM למיקום ברירת מחדל להפעלה)
אני לא מפחד מבחינת האחריות.
מה שמעניין אותי זה איך עושים את זה....
moshem לא מחובר   הגב עם ציטוט
ישן 10-01-2017, 13:00   #7
moishy
תחום מקצוע עיקרי: תיכנות, טכנאי מחשבים
 
תאריך הצטרפות: Dec 2011
הודעות: 1,462
שלח תודה: 226
קיבל 1,423 תודות ב 776 הודעות
ברירת מחדל

כמו שכבר כתב NIVDFB אם תשמור את במאקרו בקובץ התבנית לחוברות עבודה Personal.xlsb, הממוקם ב
קוד:
 C:\Users\<שם משתמש>\AppData\Roaming\Microsoft\Excel\XLSTART
או בקיצור
קוד:
 %APPDATA%\Microsoft\Excel\XLSTART
יהיה לך גישה לכל מאקרו בקובץ זה מכל חוברת עובדה שתפתח. להרחבה ראה כאן.

לעצם הפונקציה של סבתא111, יש דרך הרבה יותר פשוטה.
אם תכתוב כאן את הפונקציה שאתה משתמש איתו יחד עם דוגמא של פלט וקלט, נראה אם אפשר לשפר אותו.
__________________
כל שאפשר לו לבקש רחמים על חבירו ואינו מבקש נקרא חוטא (ברכות י"ב ע"ב)
moishy מחובר כרגע   הגב עם ציטוט
The Following User Says Thank You to moishy For This Useful Post:
ישן 10-01-2017, 15:59   #8
moshem
 
תאריך הצטרפות: Aug 2015
הודעות: 151
שלח תודה: 73
קיבל 19 תודות ב 17 הודעות
ברירת מחדל זה הקוד שאני משתמש בו (בערך) מבוסס על קוד שפורסם כאן בפרוג.

קוד PHP:
Function ClearTel(Tel As Variant) As String
    Dim s 
As String
    
    s 
OnlyDigits(Tel)
    If 
Left(s1) = 5 Then
        s 
Format(s"0000000000")
    Else
        
Format(s"000000000")
    
End If
    
    
ClearTel s
End 
Function


Public Function 
OnlyDigits(ByVal strSource As String) As String
     Dim re 
As Object
    Set re 
CreateObject("VBScript.RegExp")

    
re.Global = True
    re
.IgnoreCase True
    re
.Pattern "[^0-9]"
    
OnlyDigits re.Replace(strSourcevbNullString)
    
Set re Nothing
End 
Function 
הבעיה היא שהוא מעלה את זה כל פעם עם הנתונים של הגליון הראשון שעשיתי.
אני רוצה שאוכל להפעיל את הפונקציה בכל חוברת עבודה ללא שום קשר בין אחד לשני.

תודה רבה.
moshem לא מחובר   הגב עם ציטוט
ישן 10-01-2017, 23:36   #9
moishy
תחום מקצוע עיקרי: תיכנות, טכנאי מחשבים
 
תאריך הצטרפות: Dec 2011
הודעות: 1,462
שלח תודה: 226
קיבל 1,423 תודות ב 776 הודעות
ברירת מחדל

כפי שכבר כתבו לך, וחזרו וכתבו לך, אם תכניס את הקוד לתבנית personal.xlsb הוא יהיה זמין בכל חוברות העבודה שתפתח במחשב.

ולעצם הקוד, ברשותך כמה הערות:
1. אין סיבה להצהיר על Tel כ Variant, אתה זקוק למשתנה מסוג מחרוזת, שהרי זה הסוג נתונים שאתה מעביר לפונקציה OnlyDigits.
2. במקום:
קוד:
If Left(s, 1) = 5 Then
בודאי התכוונת ל:
קוד:
If Mid(strTemp, 2, 1) = 5 Then
שאם לא כן מספר נייד יחזור ללא ה0 המקדים.
3. אין צורך בשורה הבאה:
קוד:
re.IgnoreCase = True
אין לו שום שייכות לפעולה שאתה מבצע.
4. במקום [^0-9] אפשר להשתמש עם \D
__________________
כל שאפשר לו לבקש רחמים על חבירו ואינו מבקש נקרא חוטא (ברכות י"ב ע"ב)
moishy מחובר כרגע   הגב עם ציטוט
The Following User Says Thank You to moishy For This Useful Post:
ישן 11-01-2017, 10:09   #10
moshem
 
תאריך הצטרפות: Aug 2015
הודעות: 151
שלח תודה: 73
קיבל 19 תודות ב 17 הודעות
ברירת מחדל

ציטוט:
פורסם במקור על ידי moishy צפה בהודעה
כפי שכבר כתבו לך, וחזרו וכתבו לך, אם תכניס את הקוד לתבנית personal.xlsb הוא יהיה זמין בכל חוברות העבודה שתפתח במחשב.
נכון אבל זה מעלה לי גם את הנתונים שיש לי באותו גיליון.
moshem לא מחובר   הגב עם ציטוט
תגובה

אפשרויות דיון חפש בדיון זה
חפש בדיון זה:

חיפוש מתקדם
אפשרויות תצוגה

הרשאות
אתה לא יכול לפרסם נושאים חדשים
אתה לא יכול לפרסם תגובות
אתה לא יכול לצרף קבצים להודעותיך
אתה לא יכול לערוך את הודעותיך

BB code פועל
קוד [IMG] פועל
קוד HTML פועל

קפיצה לפורום

נושאים דומים
נושא מפרסם הנושא פורום תגובות הודעה אחרונה
עזרה באקסל happy איש את רעהו 2 16-12-2015 18:17
עזרה באקסל חביבה תוכנות מייקרוסופט אופיס 2 01-09-2015 09:20
עזרה באקסל מזל בן הרוש איש את רעהו 1 19-11-2014 10:53
עזרה באקסל michal23 תוכנות מייקרוסופט אופיס 3 02-09-2014 16:24
עזרה באקסל חביבה תוכנות מייקרוסופט אופיס 1 01-03-2014 23:59


כל הזמנים הם GMT +2. השעה כרגע היא 11:00.


Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
ProG - professional groups , Est 2007.