הוספת קו מפריד אוטומטי בין שמות

dagan960

New member
הוספת קו מפריד אוטומטי בין שמות

מצורף קובץ אקסל 2016 חלונות 7
יש לי רשימת ערים
אני רוצה לתת פקודה שבאופן אוטומטי יהיה קו עבה לאורך כל השורה - בסיום כל עיר
הקו צריך להיות עבה מאוד על מנת שאדע מתי מסתיימת הרשימה
כמו כן האם אפשר לגרום לתאים - ישוב ושם בית הספר להיות צבועים בצבע - זאת אומרת שכל עיר תקבל צבע משלה באופן אוטומטי - דוגמא לאיך שזה צריך להיות יש בגליון 2
 

מיכאל אבידן

Member
מנהל
הרץ את המקרו המוצע להלן ברמת הגיליון הפעיל . . .


קוד:
Sub Micky()
     LR = Cells(Rows.Count, 1).End(xlUp).Row
     Temp = 2
     For R = 2 To LR
           If Cells(R + 1, 1) <> Cells(R, 1) Then
               Range("A" & R & ":D" & R).Borders(xlEdgeBottom).Weight = xlThick
               Range("A" & Temp & ":D" & R).Interior.ColorIndex = R
                Temp = R + 1
           End If
     Next
End Sub
 

dagan960

New member
יאו הצלחתי - איזה מדהים ואו .... אני בהלם ....

ואי אלפי תודה, ואני עברתי אחד אחד במשך שעות
לא האמתי שיש לזה פתרון
תודה תודה תודה
 

מיכאל אבידן

Member
מנהל
אתה צריך להיות בהלם בגלל עובי
הגבול התחתון . . .


אותו לא מצאת בין הגבולות המובנים בתוכנה - אלא אם יש לך סבלנות 'לצייר' אותו בעזרת עט הציור...
 

dagan960

New member
אני מחדד את השאלה - לא נתן לי פתרון כל כך

אני מצרף שוב קובץ
אני צריך שיהיה קו מפריד לאורך כל השורה - בסיום עיר מסויימת
אבל שהצבע יהיה רק בעמודות E F
זה אפשרי ?
 

dagan960

New member
לא מדובר בכלל בסלאמי - הסברתי את עצמי מצויין

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

מיכאל אבידן

Member
מנהל
גם הצגת 2
קבצים שונים נחשבת ל"סלאמי" . . .


אז כדי לבטל את עניין ה"סלאמי" - הנה תיקון של אות אחת בפקודת צביעת התאים (בקובץ הראשון שהצמדת):

Range("A" & Temp & ":B" & R).Interior.ColorIndex = R
 

dagan960

New member
מצטער גדול עלי - לא מבין בפקודות

אם אפשר לתת לי פקודה ברורה לקובץ השני - אשמח
הקובץ השני הוא קובץ שממש דומה למקור זה
 

dagan960

New member
אני מצרף שוב את הקובץ עם הסבר יותר ברור

המטרה להבדיל בין ערים
זאת אומרת שאני צריך קו מפריד לאורך כל השורה ולא חלק ממנה
הקו צריך להיות עבה
כמו כן שם העיר ושם בית הספר יהיה צבוע - כל עיר תקבל את הצבע שלה
שים לב שכל הפעילות הזו תתחיל משורה 5 ומעלה
ניסיתי לשחק עם המקרו אבל לא הצלחתי אני מאמין שאתה תעשה את הפקודה בזמן קצר ולא כמוני
 

מיכאל אבידן

Member
מנהל
שאלתי כבר קודם ולא נעניתי . . .


&nbsp
האם זה 'סוגר את כל הפינות' ושאלות ההמשך בנוגע לקובץ הספציפי הזה

&nbsp
 

מיכאל אבידן

Member
מנהל
בדוק את המקרו שלהלן . . .


קוד:
Sub Micky()
     LR = Cells(Rows.Count, 1).End(xlUp).Row
     Temp = 5: C = 2
     For R = 5 To LR
           If Cells(R + 1, 5) <> Cells(R, 5) Then
               Range("A" & R & ":AN" & R).Borders(xlEdgeBottom).Weight = xlThick
               Range("E" & Temp & ":F" & R).Interior.ColorIndex = C
               Temp = R + 1: C = C + 1
           End If
     Next
End Sub
 

dagan960

New member
מיכאל קפצה לי הודעת שגיאה - וזה עבד רק עד שורה 305

אני מצרף תמונה

 

dagan960

New member
תודה רבה - ועוד שאלה - מצרוף קובץ

כך נראה הקובץ המקורי
את קו ההפרדה צריך לשים לאורך כל השורה
את הצבע שמבדיל כל עיר צריך לשים רק בעמודות Eּ וגם F
זה אפשרי?
 
למעלה