יש לי טבלה עם 5 עמודות ו1000 שורות
אני צריך להכניס כל ערך לגרשיים כדי שתוכנה אחרת תוכל "לקרוא" את הנתונים ולהכניס אותם אליה
לדוגמא

123456 --> "123456"

יש אפשרות לעשות את זה אוטומטי ? או נגזר עלי לעשות את זה 10000 פעמים?

תודה ,

It is nice to be importent but it's more importent to be nice

חמישה טורי עזר ליד, של פונ' CONCATENATE . הפונ' מאפשרת לך להרכיב מחרוזות של טקסט. אח"כ אתה יכול להעתיק ולהדביק מחדש כערכים.

לא יותר פשוט ללמד את התוכנה האחרת לקרוא?

אם תהפוך את התאים לטקסטואליים ותשמור כ CSV, אני חושב שיקרה מה שאתה רוצה? (אם כי - לא בדקתי)

אתה יכול לשתול מקרו שכזה .
alt+ F8 צור מקרו חדש בשם changeCells ושתול בתוכו את המקרו הנ"ל

קוד:

Public Sub changeCells()

Dim iLastCol As Integer, iLastRow As Integer, intTmpCol As Integer, intTmpRow As Integer, iCol As Integer, iRow As Integer

iCol = 0
iRow = 0
iLastRow = Cells(Rows.Count, Left(ActiveCell.Address(0, 0, xlA1), 1)).End(xlUp).row
iLastCol = Cells(ActiveCell.row, Columns.Count).End(xlToLeft).Column
For intTmpCol = ActiveCell.Column To iLastCol
		For intTmpRow = ActiveCell.row To iLastRow
				ActiveCell.Offset(iRow, iCol).Value = Chr(34) & ActiveCell.Offset(iRow, iCol).Value & Chr(34)
				iRow = iRow + 1
		Next intTmpRow
		iRow = 0
		iCol = iCol + 1
Next intTmpCol

End Sub

   
 

להציב את סמן העכבר על ראשית הטבלה (התא הראשון של הטבלה למעלה ומצד שמאל)
ולהריץ את המקרו

וואו איזה השקעה - כל הכבוד !
וזה עובד - תענוג!
המון תודה !!!!
(היו לי כמה שאלות-אבל הבנתי תוך כדי)


שוב - חסכת לי

תודה רבה ,

It is nice to be importent but it's more importent to be nice

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

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

אם אתה רוצה להוסיף רק אם הספרה הראשונה היא לא 0, אז אתה יכול לעשות CONCATENATE בצורה שהיא conditional ומבוססת על הפונקציה LEFT שמקבלת את שם התא המקורי ואת הפרמטר 1 (כי אתה רוצה רק את הספרה הראשונה), ואז את התוצאה אתה לוקח עם IF (פרמטר ראשון תוצאת ה LEFT ו "=0", פרמטר שני פונקציית ה CONCATENATE שלעיל, פרמטר שלישי התא המקורי)

נמאס לכם לזכור סיסמאות? לחצו כאן!

להלן קוד מתוקן כולל 0 בהתחלה

קוד PHP:

 Public Sub changeCells()

Dim iLastCol As Integer, iLastRow As Integer, intTmpCol As Integer, intTmpRow As Integer, iCol As Integer, iRow As Integer

iCol = 0
iRow = 0
iLastRow = Cells(Rows.Count, Left(ActiveCell.Address(0, 0, xlA1), 1)).End(xlUp).row
iLastCol = Cells(ActiveCell.row, Columns.Count).End(xlToLeft).Column
For intTmpCol = ActiveCell.Column To iLastCol
        For intTmpRow = ActiveCell.row To iLastRow
                ActiveCell.Offset(iRow, iCol).Value = Chr(34) & "0" & ActiveCell.Offset(iRow, iCol).Value & Chr(34)
                iRow = iRow + 1
        Next intTmpRow
        iRow = 0
        iCol = iCol + 1
Next intTmpCol

End Sub 


בהצלחה