תחומים - פורום חרדי מקצועי

@פלורידה תנסה לבדוק כאן [בכ"א בתשלום נראה שם שזה אפשרי]
תרגום עדיף בדפדפן אדג' - כידוע

ישנה נוסחת קסם לעשות תיקון ריגסטרי כולל לוורד/אופיס?

אולי התכוונת לתוצאה זו
מספרי קטגוריה.xlsm

@odeddvir אמר בהזנת נתונים לטבלה קיימת:

@פלורידה לדעתי הדרך שחשבת עליה היא טובה.

למעשה הפקודה הזו עבדת מידי לאט. משהו כמו 3 שניות עד לסיום הפקודה.

אני מצרף את הקוד עד עתה:

' הצהרה על משתנה גלובלי Public DataWB As Workbook ' פונקציה לשליפה של קוד לפי פרמטרים Public Function m_kata(wordText As String) As Variant masecet = ActiveSheet.Range("A146") ActiveColumn = ActiveCell.Column - ActiveCell.ListObject.DataBodyRange.Column + 1 tanivchar = Selection ActiveTable = ActiveCell.ListObject amuda1 = ActiveSheet.ListObjects(ActiveTable).ListColumns(1).DataBodyRange amudanivchar = ActiveSheet.ListObjects(ActiveTable).ListColumns(ActiveColumn).DataBodyRange daf = Application.VLookup(tanivchar, Application.Choose(Array(1, 2), amudanivchar, amuda1), 2, 0) m_kata = Application.Index(Sheets("מקט").Range("T6:BF356"), Application.Match(daf, Sheets("מקט").Range("S6: S356"), 0), Application.Match(masecet, Sheets("מקט").Range("T6:BF6"), 0)) End Function 'פונקציה להכנסת הקוד בגליון מסויים בטבלה מסויימת Public Function AddRowToTable(sheet As Worksheet, tableName As String, rowData() As Variant) Dim lastRowNumber As Integer Dim lastRowRange As Range With Sheets("admin").ListObjects("data") .ListRows.Add lastRowNumber = .ListRows.Count Set lastRowRange = .ListRows(lastRowNumber).Range End With With lastRowRange Dim i As Integer For i = 0 To UBound(rowData) If i < .Columns.Count Then .Cells(1, i + 1) = rowData(i) Next i End With End Function sub קריאה_לקודים_הקודמים() Dim values(6) As Variant mezaheH = 1 values(0) = mezaheH values(1) = m_kata(Selection) values(2) = Date AddRowToTable ActiveSheet, "table1", values End sub

הפיתרון

ActiveColumn = ActiveCell.Column - ActiveCell.ListObject.DataBodyRange.Column + 1 ActiveTable = ActiveCell.ListObject amudanivchar = ActiveSheet.ListObjects(ActiveTable).ListColumns(ActiveColumn).DataBodyRange

מקור

@odeddvir

אין לי שגיאה ברוך ה'.
אלא שהתוצאה של הפונקציה היא: #N/A.

מבדיקה שערכתי הבעיה היא בשורות 4,6
(החלופות שנתתי להם בשורות 5,7 פועלות כראוי.)

Public Function m_kata(wordText As String) As Variant masecet = ActiveSheet.Range("A6") tanivchar = Selection amuda1 = ActiveSheet.ListObjects("טבלה24").ListColumns(1) 'amuda1 = Sheets("מקט").Range("c25:c35") amudanivchar = ActiveSheet.ListObjects("טבלה24").ListColumns(3) 'amudanivchar = Sheets("מקט").Range("e25:e35") daf = Application.VLookup(tanivchar, Application.Choose(Array(1, 2), amudanivchar, amuda1), 2, 0) m_kata = Application.Index(Sheets("מקט").Range("T6:BF356"), Application.Match(daf, Sheets("מקט").Range("S6: S356"), 0), Application.Match(masecet, Sheets("מקט").Range("T6:BF6"), 0)) End Function

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

@odeddvir

חזק ביותר!!!

כבר כמעט השתמשתי עם COLUMN בעצמו. לצורך בדיקת המידע ל"הסיט" ב VLookUp...

עריכה: זה לא היה עוזר ...

@פלורידה בעיקרון כן. (רק שב-VBA אין טיפוס נתונים מובנה מסוג Char)
הנה רשימת הטיפוסים המובנים בשפה.

@פלורידה אמר בפונקציית משנה אקסל:

מהי הסיבה העומדת מאחורי ההמלצה?

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

ראית פעם דבר כזה:
"...על המחשב שלך Windows אנו מתקינים את"
למה זה קורה? כי מישהו במייקרוסופט שכח להגדיר נכון את כיוון הפיסקה.

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

@פלורידה אני מתכוון להכניס את נוסחת ה-VLookup לתוך הפונקציה, משהו כזה:

Public Function MyFunc(wordText As String) As Variant MyFunc = Application.VLookup(wordText, Sheets("טבלת_חיפוש").Range("A:B"), 1) End Function

ואז בגליון להשתמש בנוסחא:

=MyFunc("מילה")

עכשיו אני רואה שבעיקרון הסנכרון של אדג' אמור לסנכרן הרחבות.

לא ברור למה אצלי הוא לא עושה את זה

@פלורידה אמר בvba | עזרה. לא עובר לגליון הבא:

מה ההבדל באופן הפעולה בין מה מה שניסיתי להשתמש

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

יותר מודרנית יותר יעילה יותר מובנת לקריאה.

הבעיה בקוד שלך היא שלא ציינת בכל איטרציה של הלולאה מאיזה גליון יילקח הטווח, כלומר לא התייחסת לגליון Sheets(i), כך שבפועל נשארת תמיד על הגליון הפעיל בזמן הריצה.

כדי שהקוד שלך יעבוד, הוא צריך היה להיות כתוב כך (שים לב לשורה 2):

For i = 1 To Sheets.Count Sheets(i).Activate Range("b7").Select מאקרו2 Selection.ClearContents Range("b7").Select Next i

@פלורידה הפתרון הקלאסי הוא להגדיר את המאקרו'ס האלו בתור פונקציות פרטיות.

@פלורידה

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

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

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

@פלורידה ברור ש with ממהר בגלל חיסכון בקריאות לפונקציות ומשתנים, מפני שכאשר כותבים:

prop1.prop2.prop3 = 0 prop1.prop2.prop4 = 0

מריצים כל מאפיין ומאפיין בנתיב בכל פעם שרוצים להגיע למאפיין האחרון - שאותו רוצים להגדיר, לעומת זאת with גורם שאנו מחזיקים משתנה עבור המאפיין האחרון בנתיב, וכך ניגשים לתת-מאפיינים בצורה ישירה בלי להפעיל את כל הנתיב.
קומפיילר חכם יעשה אופטמיזציה זו בעצמו, אך VBA שהוא מפרש מידי לא נראה לי שעושה אופטמיזציות כאלו.

@פלורידה
אתה צריך ליצור אירוע בעת שינוי
זה מאקרו מסוג Worksheet_Change
אותו אתה מוסיף לגיליון עבודה הספציפי בו ברצונך ללכוד את השינוים הוא לוכד את כל השינוים ולכן עליך לסנן אם השינוי אירע בתא המסוים

דוגמא

Private Sub Worksheet_Change(ByVal Target As Range) ' התנאי האם השינוי אירע בתא מסוים ' If Target.Address = "$A$1" Then If 'תנאי' Then ' פעולה' End If End If End Sub

במקור ראיתי את הרעיון כאן

הסבר בעברית

הסבר+ דוגמא של מיקרוספט

@פלורידה
כתבת מצוין כותבים and ככה

Private Sub Workbook_Activate() If ActiveWorkbook.Name = MY_WORKBOOK_NAME And Range("admin!C2").Value = "חיובי" Then UIHide Else UIShow End If End Sub

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