אצלי עובד רק לא מעתיק לכל הגליונות את עמודת כותרת השורה
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).[A:A].Copy
[A1].Select
ActiveSheet.Paste
Sheets(sh).Select
i = i + 2
Loop
Application.CutCopyMode = False
End Sub
אולי יש נוסחאות?
זה קובץ ריק שכתבתי בו את הערים והתאריכים בלי שום נוסחאות.אולי יש נוסחאות?
והם לא מועתקות טוב?
זה כנראה עם מסנן הטבלה המקוריתמה יכול להיות שגיאה 400 ?
איפה הדבקת את הקוד? (צריך במודול ולא בגיליון)פתחתי את עריכת VBA והדבקתי את הקוד הנ"ל
???שלום רב,
קיבלתי קובץ אקסל שלא מופיעים בו לשונית עם שמות הגליונות בתחתית העמוד, כלומר אני לא יכול לעבור מגיליון לגיליון וגם לא יכולה להעתיק גיליון.
איך אני מחזיר את לשונית הגיליון לתצוגה בתחתית העמוד?
לכאורה הפתרון הוא להוסיף לקוד הצהרת משתנה ויצירת INPUTBOX שיכניס ערך למשתנה זה. ואז נחליף את ה2 במשתנה הזה.ועוד שאלה, האם אפשר ליצור תיבת דו שיח שתשאל אותי לפני כן כמה עמודות יש לכל עיר? כי לא תמיד זה שתים.
dim Num_Cells as integer
Num_Cells = InputBox("כמה עמודות לכל עיר?")
זה לא 'סתם' בעורך הVBA.תוכל להסביר בשתי מילים מה ההבדל בין להדביק סתם בעורך vba לבין להדביק בתוך מודול?
זה נכון. למרות שלא חייב להשתמש בinputBox אפשר לספור בקוד את המופעים של העיר הראשונה.לכאורה הפתרון הוא להוסיף לקוד הצהרת משתנה ויצירת INPUTBOX שיכניס ערך למשתנה זה. ואז נחליף את ה2 במשתנה הזה.
קוד:dim Num_Cells as integer Num_Cells = InputBox("כמה עמודות לכל עיר?")
Sub CityToSheets()
Dim i As Integer
Dim Num_Cells As Integer
Dim sh As String
Num_Cells = WorksheetFunction.CountIf([1:1], [B1].Value)
i = 2
sh = ActiveSheet.Name
Do While Cells(1, i).Value <> ""
Range(Columns(i), Columns(i + Num_Cells - 1)).Copy
Sheets.Add.Name = Sheets(sh).Cells(1, i).Value
[B1].Select
ActiveSheet.Paste
Sheets(sh).[A:A].Copy [A1]
Sheets(sh).Select
i = i + Num_Cells
Loop
Application.CutCopyMode = False
End Sub
להלן קוד שיכול לעזור.איך הופכים את האותיות באקסל?
כל העברית כתוב לי משמאל לימין
כך:
ןימיל לאמשמ
Sub opsStr()
Dim rn As Range
Set rn = Selection
For Each cl In rn
cl.Value = StrReverse(cl.Value)
Next
End Sub
על פי רוב המספרים לא הפוכים לכן הנוסחה לא מושלמת כי היא הופכת גם אותםלהלן קוד שיכול לעזור.
צריך לסמן את טווח התאים ולהפעיל.
(לשמור קודם גיבוי בצד...)
קוד:Sub opsStr() Dim rn As Range Set rn = Selection For Each cl In rn cl.Value = StrReverse(cl.Value) Next End Sub
מצורף קוד שהופך רק טקסט ולא מספריםעל פי רוב המספרים לא הפוכים לכן הנוסחה לא מושלמת כי היא הופכת גם אותם
Sub opsStr()
Dim cl
Dim rn As Range
Set rn = Selection
For Each cl In rn
cl.Value = TextRev(cl.Value)
Next
End Sub
Public Function TextRev(Str As String) As String
Dim i As Long
Dim TextNum As String
For i = 1 To Len(Str)
If IsNumeric(Mid(Str, i, 1)) Then
TextNum = TextNum & Mid(Str, i, 1)
Else
TextRev = Mid(Str, i, 1) & TextNum & TextRev
TextNum = ""
End If
Next i
TextRev = TextRev & TextNum
End Function
תודה רבה!מצורף קוד שהופך רק טקסט ולא מספרים
קוד:Sub opsStr() Dim cl Dim rn As Range Set rn = Selection For Each cl In rn cl.Value = TextRev(cl.Value) Next End Sub Public Function TextRev(Str As String) As String Dim i As Long Dim TextNum As String For i = 1 To Len(Str) If IsNumeric(Mid(Str, i, 1)) Then TextNum = TextNum & Mid(Str, i, 1) Else TextRev = Mid(Str, i, 1) & TextNum & TextRev TextNum = "" End If Next i TextRev = TextRev & TextNum End Function
לוח לימודים
מסלולי לימוד שאפשר לההצטרף
אליהם ממש עכשיו:
26.09
כ"ג אלול
פתיחת
קורס מאסטר בשיווק דיגיטלי
מלגות גבוהות!
19.11
י"ח חשוון
פתיחת
קורס בינה מלאכותית - חדשנות ב AI
קורס מקוצר
25.11
כ"ד
פתיחת
קורס פרסום קופי+
מלגות גבוהות!
27.11
כ"ו חשוון
פתיחת
קורס פיתוח בוטים ואוטומציות עסקיות
מלגות גבוהות!
27.11
כ"ו חשוון
פתיחת
קורס עיצוב גרפי ודיגיטל - בסילבוס חדש ומטורף!
מלגות גבוהות!
תהילים פרק קח
א שִׁיר מִזְמוֹר לְדָוִד:ב נָכוֹן לִבִּי אֱלֹהִים אָשִׁירָה וַאֲזַמְּרָה אַף כְּבוֹדִי:ג עוּרָה הַנֵּבֶל וְכִנּוֹר אָעִירָה שָּׁחַר:ד אוֹדְךָ בָעַמִּים יי וַאֲזַמֶּרְךָ בַּלְאֻמִּים:ה כִּי גָדוֹל מֵעַל שָׁמַיִם חַסְדֶּךָ וְעַד שְׁחָקִים אֲמִתֶּךָ:ו רוּמָה עַל שָׁמַיִם אֱלֹהִים וְעַל כָּל הָאָרֶץ כְּבוֹדֶךָ:ז לְמַעַן יֵחָלְצוּן יְדִידֶיךָ הוֹשִׁיעָה יְמִינְךָ וַעֲנֵנִי:ח אֱלֹהִים דִּבֶּר בְּקָדְשׁוֹ אֶעְלֹזָה אֲחַלְּקָה שְׁכֶם וְעֵמֶק סֻכּוֹת אֲמַדֵּד:ט לִי גִלְעָד לִי מְנַשֶּׁה וְאֶפְרַיִם מָעוֹז רֹאשִׁי יְהוּדָה מְחֹקְקִי:י מוֹאָב סִיר רַחְצִי עַל אֱדוֹם אַשְׁלִיךְ נַעֲלִי עֲלֵי פְלֶשֶׁת אֶתְרוֹעָע:יא מִי יֹבִלֵנִי עִיר מִבְצָר מִי נָחַנִי עַד אֱדוֹם:יב הֲלֹא אֱלֹהִים זְנַחְתָּנוּ וְלֹא תֵצֵא אֱלֹהִים בְּצִבְאֹתֵינוּ:יג הָבָה לָּנוּ עֶזְרָת מִצָּר וְשָׁוְא תְּשׁוּעַת אָדָם:יד בֵּאלֹהִים נַעֲשֶׂה חָיִל וְהוּא יָבוּס צָרֵינוּ: