OdedDvir
-
@פלורידה את הקוד אתה מדביק בתוך מודול כלשהו.
את ההרצה אתה יכול לבצע מחלון הערכים המיידיים Immediate בחלק התחתון של עורך ה-VBA:
או ליצור לחצן שמריץ את הקריאה הנ"ל וכו'. -
@פלורידה הפונקציה הבאה מעתיקה טווח של תאים מכל הגליונות בחוברת הפעילה, ומדביקה אותם ללא עיצוב בחוברת אחרת.
Public Sub CopyAllSheets(targetWorksheet as string, selectedRange As String) Dim source As Workbook, target As Workbook Dim sh As Worksheet Set source = ThisWorkbook Set target = Workbooks.Open(targetWorksheet) For Each sh In source.Sheets sh.Range(selectedRange).Copy target.Worksheets(sh.Name).Range(selectedRange).PasteSpecial Paste:=xlPasteValues Next sh End Sub
בהרצה אתה צריך לספק את שם חוברת היעד, ואת הטווח להעתקה, כך:
CopyAllSheets "d:\Temp\target.xlsx", "A:BB"
הקוד הזה די ברוטאלי, שים לב שאין כאן שום בדיקות שגיאות, ואם לא נמצאה החוברת, או גליון תואם ביעד, הקוד יתקע.
-
@פלורידה אני כעת רואה שאתה מדבר על חוברת ולא גליון.
האם המבנה זהה לחלוטין ורק העיצוב שונה? -
@פלורידה ציינתי לך לעיל שאפשר על ידי VBA.
בדוגמא שהבאת אתה מבקש לבחור את התחומים הבאים:D8:G29 K8:N24 וכו'
כנס לעורך VBA ובחלון ה Immediate תקליד את הפקודה הבאה:
Range("D8:G29, K8:N24").Select
זה לא פתרון מושלם לכל הגליונות, כי מסתמא הטווחים שונים מגליון לגליון.
יש אפשרות לטפל גם בזה:- ניתן לשמור בכל גליון מחרוזת עם הטווחים שלו.
- ניתן לתת שם לטווחים ולבחור אותם לפי השמות.
- ניתן לכתוב קוד שיסרוק את הגליון ויאתר את הטווחים הרצויים, לפי העיצוב, ויבצע בחירה לאחר מכן על הכל.
-
@פלורידה אם מיקומי התאים זהים ורק העיצוב שונה, תוכל לבצע הדבקה מיוחדת:
תעתיק את כל הערכים, לך לגליון החדש, ותבחר הדבקה מיוחדת > ערכים בלבד.
או הפוך:
להעתיק את העיצוב החדש, ולהדביק הדבקה מיוחדת > עיצוב בלבד. -
@אבי-203 רק את המספר, ראה בנוסחה:
-
@אבי-203 זה סיקרן אותי אז חפרתי קצת, והבנתי שצריך לקודד את מחרוזת הטקסט לפני שממירים אותה לברקוד (אני מנחש שזה סטנדרט בברקוד 128, אבל אני לא בטוח כי לא הספקתי להתעמק בסוגיה.)
מצאתי פתרון על ידי VBA, ויש גם ב C# ומסתמא בעוד שפות. את הקוד למקודד לקחתי מכאן, ויש כאן עוד מראי מקומות. או שפשוט תחפש בגוגל:
"Barcode 128 Encoder".הנה השוואה בין הדוגמא העובדת שלך לבין הברקוד שלי, השתמשתי בפונט החופשי LibreBarcode128-Regular.ttf שהבאת לעיל:
אגב הדוגמא הקודמת לא עבדה רק מפני שהשתמשתי בפונט דמו ולא מלא, שבו הושמטו בכוונה כמה תווים. כששיניתי לפונט החופשי Libre - קיבלתי התאמה מושלמת.
-
@מוטי-אורן אמר בקוד חמוד/רע/איום ליצירת רשימת מספרים ב-JS:
אבל למה הטאב קורס לגמרי במספר שלילי?
הלולאה אינסופית כי הערך קטן כל פעם ולא מגיע ל-0.
-
@avi-rz לא תמיד זה חייב להיות זדוני עד כדי נזק.
לפעמים זה רווח מספיק לפלוני שתבקר באתר שלו. יתכן והוא מרוויח כסף על כל כניסה, או סתם מעוניין לדעת כמה אנשים פתחו את המייל הזה.
על כל פנים, הגון - זה לא. -
@ivrtikshoret אמר בהודעות דוא"ל ללא הקשר:
כי מה שכתוב פה זה סתם זה לא עושה כלום
זה לא מדוייק. זה מפנה לכתובת הבאה: h***ttps://btcminings.site?76784342 (הוספתי את הכוכביות למניעת הקלקה בטעות), זה נראה כמו אתר פישינג.
-
@ליבל אמר במחפש ממיר לקליטת שיעורי לווין של דר וסוחרת:
תוכל להביא לפחות קישור למכשיר שהיה לך?
אני יכול לברר, אבל רציתי המלצה למכשיר איכותי ורצוי קטן, שמסתמא יחזיק מעמד יותר מקודמו.
אני השתמשתי עם לוכד וידיאו פשוט ודי עשה עבודה נפלאה
מדובר באות לוויני שמגיע מצלחת על הגג, לא בצפייה דרך אינטרנט.
-
אני רוצה לקנות ממיר עבור קליטת שיעורי לווין של דר וסוחרת עבור בית כנסת. הממיר הקודם נהרס עקב יותר מדי ידיים שממשמשות בו...
צריך שיתמוך בשידור HD. רצוי שיהיה קטן כדי שיהיה אפשר לנעול אותו בקופסא.
אשמח לשמוע המלצות.
תודה! -
@yair-na לא בדיוק מה שביקשת, אבל יש תרגום ללשון הקודש באתר אור הזוהר. הנה קישור ישיר.
-
@אבי-203 אמר ביצירת ברקוד 128 תקין:
אני משתמש באקדח קורא ברקודים, כל השימוש שלי עם הדבר הזה, והוא מותאם לזה, אני מוכרח לייצר משהו שיתמוך בזה. אני זוכר כשקנו את זה הגיע עם חוברת ברקודים להגדיר את זה, אלא שאם אנסה להגדיר מחדש, יכול לפגוע לי בברקודים אחרים שמיוצרים בדפוס.
האם הברקוד הבא נקרא בקורא שלך בצורה תקינה?
-
@בערל כעת עלה לי רעיון הרבה יותר פשוט, שלא מצריך טבלת עזר כלל: פשוט נשנה ישירות את תחביר השאילתה של המיזוג.
- צור שאילתא qryMailMerge. (לא משנה מה התחביר שלה כרגע, אנו נשנה זאת מיד). ובמיזוג דואר תבחר אותה כמקור הנתונים.
- בקוד הלחצן:
DoCmd.RunCommand (acCmdSaveRecord) CurrentDb.Execute "qryUpdate_Data", dbFailOnError Dim SQL as String SQL = "SELECT Data.ID, Data.FirstName, Data.LastName " _ & "FROM Data " _ & "WHERE (Data.ID = " & Me.ID & ");" CurrentDb.QueryDefs("qryMailMerge").SQL = SQL DoCmd.GoToRecord , , acNext RunMailMerge "C:\Users\.....TEMPLATE.docx", "C:\Users......pdf", True
זהו. שורה 8 משנה את השאילתה כך שתציג את הנתונים הרלוונטים.
זה גם עדיף למקרה שבו שינית את הנתונים ולא לחצת על הכפתור, הם יתעדכנו בוורד בכל מקרה.
אמנם כך התחמקתי מלהסביר על שאילתת פרמטר, אבל עוד חזון למועד... -
@שוהם307 אמר בגוגל שיטס | העברת שורות לגיליון אחר:
אבל להיכן הוא ימשוך את הנתונים, כן הייתי רוצה גיליון עם כל הנתונים שסוננו.
אם תאמץ את הגישה שהציע @nach, גם זו לא בעיה: תוכל ליצור שני גליונות מסוננים, אחד עם הרשומות שנשארו ואחד עם הרשומות שהוצאו. פשוט תשנה את הגדרת המסנן.
-
@ילד-טוב כדי לעשות את זה נכון צריך לראות שהאקסס בנוי טוב, אני ממליץ על מבנה מפוצל: שני קבצים - נתונים וממשק.
אחר כך להגדיר גישה מרחוק למחשב במשרד על ידי שולחן עבודה מרוחק, כשלכל משתמש יש חשבון נפרד.
זו הגישה הכי קלה לביצוע. -
@www אמר ברשמים מ windows11:
אין לך לחצן "חזור" בהגדרות עדכוןנים?
זה זמין רק ל-10 ימים. אחרי כן מייקרוסופט מוחקים לחלוטין את ספריית Windows.old, מה שמסיר את האפשרות לחזור.
אפשר להאריך את תקופת הניסיון למקסימום של 60 יום, אם מקלידים את הפקודה הבאה:DISM /Online /Set-OSUninstallWindow /Value:60
דא עקא, גם את הפעולה הזו אפשר לעשות רק קודם שנגמרה תקופת 10 הימים.
למה יש רק עשרת ימי תשובה? למה לא הודיעו מראש?
מדיניות גרועה כמיטב המסורת של מייקרוסופט. -
@אבי-203 אפשר להעלות תמונה של הברקוד שעובד, מול תמונה של הברקוד שלא?
אקסל | בחירת טווח עמודות בכל הטבלאות
אקסל | ייבוא ערכים מחוברת עבודה
אקסל | ייבוא ערכים מחוברת עבודה
אקסל | ייבוא ערכים מחוברת עבודה
אקסל | בחירת טווח עמודות בכל הטבלאות
אקסל | ייבוא ערכים מחוברת עבודה
יצירת ברקוד 128 תקין
יצירת ברקוד 128 תקין
קוד חמוד/רע/איום ליצירת רשימת מספרים ב-JS
הודעות דוא"ל ללא הקשר
הודעות דוא"ל ללא הקשר
מחפש ממיר לקליטת שיעורי לווין של דר וסוחרת
מחפש ממיר לקליטת שיעורי לווין של דר וסוחרת
היכן ניתן להשיג טקסט בלבד של ספר הזוהר?
יצירת ברקוד 128 תקין
הדפסת ד''וח מאקסס על בסיס קובץ וורד
גוגל שיטס | העברת שורות לגיליון אחר
אקסס ברשת או בשיתוף של כמה שחשבים
רשמים מ windows11
יצירת ברקוד 128 תקין