מאסטר באקסל
משתמש מקצוען
אתה מה אכפת לך?!למה כתבת עמודה I?
כי בדוגמה, זוהי העמודה שמכילה את ה"שולם" במידה וקיים.
נערך לאחרונה ב:
אתה מה אכפת לך?!למה כתבת עמודה I?
איכפת לי כי גם אני רוצה ליהנות מעצותיך הנבונות.אתה מה אכפת לך?!
כי בדוגמה, זוהי העמודה שמכילה את ה"שולם" במידה וקיים.
אם היה דולר לפני המספר אז היה בודק רק בשורה 1 אבל כשאין דולר אז זה יחסי לכל שורהאיכפת לי כי גם אני רוצה ליהנות מעצותיך הנבונות.
הבנתי למה עמודה, אבל עכשיו אני לא מבין למה כתוב שורה 1, הרי אני רוצה את זה על כל השורות.
אני מתחיל להבין, ורק אומר את זה בפירוש להיות בטוח: האם הבנתי נכון שכשבוחרים טווח וכותבים מספר שורה ללא דולר זה יעבוד על כל השורות?אם היה דולר לפני המספר אז היה בודק רק בשורה 1 אבל כשאין דולר אז זה יחסי לכל שורה
זה ישתנה לפי היחס לשורה הראשונהאני מתחיל להבין, ורק אומר את זה בפירוש להיות בטוח: האם הבנתי נכון שכשבוחרים טווח וכותבים מספר שורה ללא דולר זה יעבוד על כל השורות?
הבנתי שיש לך עמודה לכל עיר וצריך שכל עמודה כזו תהיה בגיליון נפרד. אם הבנתי נכון התוסף לא מתאים לזה. הוא מפצל ע"פ ערך בעמודה מסוימת. (אם באותה עמודה יש ערים שונות שחוזרות על עצמן).הסתבכתי עם התוסף הזה. (הוא הפריד לי לשורות, ולא הצלחתי להבין איך מגדירים שם את הפיצול בצורה שאני רוצה).
לא ממש הבנתי מה זה כן עושה. תוכל לתת דוגמא בבקשה?הבנתי שיש לך עמודה לכל עיר וצריך שכל עמודה כזו תהיה בגיליון נפרד. אם הבנתי נכון התוסף לא מתאים לזה. הוא מפצל ע"פ ערך בעמודה מסוימת. (אם באותה עמודה יש ערים שונות שחוזרות על עצמן).
למשל טבלה כזאת:לא ממש הבנתי מה זה כן עושה. תוכל לתת דוגמא בבקשה?
לא יועיל כי צריך 2 ערכים גם של זריחה וגם של שקיעה. וגם אם היה עוזר אח"כ צריך בכל גיליון להפוך שוב שורות לעמודות.האם יעזור אם אדביק את התוכן במהופך (זאת אומרת להפוך שורות לעמודות )?
מאקרו חדש.או שיש אפשרות לשחק עם המאקרו כדי שיעשה את הפעולה הזו, או שזה לגמרי שונה ואין שום אופציה רק לבנות מאקרו חדש לגמרי.
אפשר להפריד לאחר ההיפוך עם נוסחה, מילוי מהיר או טקסט לעמודותלא יועיל כי צריך 2 ערכים גם של זריחה וגם של שקיעה. וגם אם היה עוזר אח"כ צריך בכל גיליון להפוך שוב שורות לעמודות.
מאקרו חדש.
אפשר להפריד לאחר ההיפוך עם נוסחה, מילוי מהיר או טקסט לעמודות
ואז להפעיל את התוסף
אם אתה בעניין...אני מעדיף להפוך את התוסף אם אפשר מאשר להפוך את כל הנתונים של האקסל.
לכאורה זה אמור להיות פשוט, לא? רק במקום שכתוב שם שורות לכתוב עמודות וכדומה
Sub ShowSplitToFilesForm()
strPrompt = "על מנת שהתוכנית תעבוד כראוי יש לוודא כי לכל עמודה בנתונים שלך יש כותרת" _
& vbNewLine & "וכי הכותרות נמצאות בשורה 1." & vbNewLine & "האם להמשיך?"
uns = MsgBox(strPrompt, vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading, "חשוב!")
'אם המפעיל בחר להמשיך מוצג הטופס לבחירת כותרת
If uns = vbYes Then
FrmGetHeader.Show
End If
End Sub
'והכותרת שנבחרה עוברת לתוכנית זו
Sub SplitTableByValue(valueHeader, toFilesOrToSheets As String)
Dim tempName As String, clm As Integer
Application.ScreenUpdating = False
pt = ActiveWorkbook.Path
myFile = ActiveWorkbook.Name
sht = ActiveSheet.Name
'ראשית תאותר מספר העמודה של הכותרת שנבחרה ולאחר מכן
Rows("1:1").Select
Selection.Find(What:=valueHeader, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
clm = ActiveCell.Column
'יועברו ערכי העמודה לגליון חדש וימחקו הכפולים
Columns(clm).Copy
Sheets.Add After:=Sheets(Sheets.Count)
Selection.PasteSpecial Paste:=xlPasteValues
Selection.PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
r = Range("A1000000").End(xlUp).Row
ActiveSheet.Range("$A$1:$A$" & r).RemoveDuplicates Columns:=1, Header:=xlYes
r = Range("A1000000").End(xlUp).Row
tempSheet = ActiveSheet.Name
'תתחיל ריצה על ערכי העמודה וסינון ערכיה בטבלה
If toFilesOrToSheets = "toFiles" Then
For i = 2 To r
tempName = Range("A" & i).Value
Sheets(sht).Select
Range("B1").Select
ActiveSheet.Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).AutoFilter Field:=clm, Criteria1:= _
tempName
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).SpecialCells(xlCellTypeVisible).Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues
Selection.PasteSpecial Paste:=xlPasteFormats
Cells.EntireColumn.AutoFit
[A1].Select
Application.CutCopyMode = False
tempName = removeSpecialChars(tempName)
'שמירת נתונים מסוננים כקובץ נפרד כאשר שם הקובץ הוא הערך שסונן
ActiveWorkbook.SaveAs Filename:=pt & "/" & tempName & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Workbooks(myFile).Activate
Sheets(tempSheet).Select
Next i
Else
For i = 2 To r
tempName = Range("A" & i).Value
Sheets(sht).Select
Range("B1").Select
ActiveSheet.Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).AutoFilter Field:=clm, Criteria1:= _
tempName
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).SpecialCells(xlCellTypeVisible).Copy
'נתונים מסוננים עוברים לגיליון נפרד
Sheets.Add After:=Sheets(Sheets.Count)
Selection.PasteSpecial Paste:=xlPasteValues
Selection.PasteSpecial Paste:=xlPasteFormats
Cells.EntireColumn.AutoFit
[A1].Select
Application.CutCopyMode = False
tempName = Left(removeSpecialChars(tempName), 30)
' הגיליון מקבל את שם הערך שסונן
ActiveSheet.Name = tempName
Sheets(tempSheet).Select
Next i
End If
Sheets(tempSheet).Delete
Sheets(sht).Select
Selection.AutoFilter
MsgBox ("סיים")
Application.ScreenUpdating = True
End Sub
Function removeSpecialChars(myText As String)
For i = 1 To Len(myText)
c = Mid(myText, i, 1)
If c = " " Or (Asc(c) > 64 And Asc(c) < 91) Or (Asc(c) > 96 And Asc(c) < 123) Or (Asc(c) > 223 And Asc(c) < 251) Or (Asc(c) > 47 And Asc(c) < 58) Then
removeSpecialChars = removeSpecialChars & c
End If
Next i
End Function
Sub CityToSheets()
Dim i As Integer
i = 2
Do While Cells(1, i).Value <> ""
Range(Columns(i), Columns(i + 1)).Copy
Sheets.Add.Name = Sheets("שם גיליון שבו הטבלה").Cells(1, i).Value
[B1].Select
ActiveSheet.Paste
Sheets("שם גיליון שבו הטבלה").Select
i = i + 2
Loop
End Sub
צריך לשנות את שם הגיליון לשם הגיליון שלך.
Sub CityToSheets()
Dim i As Integer
Dim sh As String
i = 2
sh = ActiveSheet.Name
Do While Cells(1, i).Value <> ""
Range(Columns(i), Columns(i + 1)).Copy
Sheets.Add.Name = Sheets(sh).Cells(1, i).Value
[B1].Select
ActiveSheet.Paste
Sheets(sh).Select
i = i + 2
Loop
Application.CutCopyMode = False
End Sub
לוח לימודים
מסלולי לימוד שאפשר לההצטרף
אליהם ממש עכשיו:
26.09
כ"ג אלול
פתיחת
קורס מאסטר בשיווק דיגיטלי
מלגות גבוהות!
19.11
י"ח חשוון
פתיחת
קורס בינה מלאכותית - חדשנות ב AI
קורס מקוצר
25.11
כ"ד
פתיחת
קורס פרסום קופי+
מלגות גבוהות!
27.11
כ"ו חשוון
פתיחת
קורס פיתוח בוטים ואוטומציות עסקיות
מלגות גבוהות!
27.11
כ"ו חשוון
פתיחת
קורס עיצוב גרפי ודיגיטל - בסילבוס חדש ומטורף!
מלגות גבוהות!
תהילים פרק קח
א שִׁיר מִזְמוֹר לְדָוִד:ב נָכוֹן לִבִּי אֱלֹהִים אָשִׁירָה וַאֲזַמְּרָה אַף כְּבוֹדִי:ג עוּרָה הַנֵּבֶל וְכִנּוֹר אָעִירָה שָּׁחַר:ד אוֹדְךָ בָעַמִּים יי וַאֲזַמֶּרְךָ בַּלְאֻמִּים:ה כִּי גָדוֹל מֵעַל שָׁמַיִם חַסְדֶּךָ וְעַד שְׁחָקִים אֲמִתֶּךָ:ו רוּמָה עַל שָׁמַיִם אֱלֹהִים וְעַל כָּל הָאָרֶץ כְּבוֹדֶךָ:ז לְמַעַן יֵחָלְצוּן יְדִידֶיךָ הוֹשִׁיעָה יְמִינְךָ וַעֲנֵנִי:ח אֱלֹהִים דִּבֶּר בְּקָדְשׁוֹ אֶעְלֹזָה אֲחַלְּקָה שְׁכֶם וְעֵמֶק סֻכּוֹת אֲמַדֵּד:ט לִי גִלְעָד לִי מְנַשֶּׁה וְאֶפְרַיִם מָעוֹז רֹאשִׁי יְהוּדָה מְחֹקְקִי:י מוֹאָב סִיר רַחְצִי עַל אֱדוֹם אַשְׁלִיךְ נַעֲלִי עֲלֵי פְלֶשֶׁת אֶתְרוֹעָע:יא מִי יֹבִלֵנִי עִיר מִבְצָר מִי נָחַנִי עַד אֱדוֹם:יב הֲלֹא אֱלֹהִים זְנַחְתָּנוּ וְלֹא תֵצֵא אֱלֹהִים בְּצִבְאֹתֵינוּ:יג הָבָה לָּנוּ עֶזְרָת מִצָּר וְשָׁוְא תְּשׁוּעַת אָדָם:יד בֵּאלֹהִים נַעֲשֶׂה חָיִל וְהוּא יָבוּס צָרֵינוּ: