Повторення тексту в Excel

-2

Я повинен створювати нові файли Excel регулярно з "адресою" в одному з стовпців. Чи є спосіб, яким я можу легко ввести адресу, просто напишу 2 або 3 ініціали.

Є 2 колонки date & amp; адресу. Я повинен створити цей файл, що містить продукт, що відправляється щодня на наступну адресу. Вміст у стовпці адреси зазвичай залишається незмінним, але змінюється відповідна дата. Я повинен створити інший файл для кожного місяця. Чи є будь-який прийом для полегшення роботи з введенням адреси кожного разу?

   date               address
01-01-2016     green wood, new york
02-01-2016     heaven world, texas
03-01-2016     time square, california

microsoft-excel

— ADITYA PATEL
джерело

Будь ласка, припиніть SHOUTING та / або придбайте нову клавіатуру, що дозволяє вводити літери нижнього регістру.

— DavidPostill

Так, ти можеш. Просто напишіть 2 або 3 ініціали в комірці, щоб представити адресу, оскільки вона залишається незмінною, як ви говорите. Приклад HW для небесного світу.

— Question Overflow

Ви також повинні прочитати Як мені поставити хороше запитання?

— DavidPostill

Це лише зразок, який можна адаптувати до певного макета. Скажімо, наші дані такі:

Першим кроком є створення абревіатура таблиці , (тут стовпці E і F)

Ви можете використовувати будь-які скорочення, які вам подобаються, просто не дублюйте їх.

Потім введіть наступне Макрос події в області коду робочого листа:

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim rB As Range, rTab As Range
   Dim v As String, rGrab As Range
   Set rB = Range("B2:B" & Rows.Count)
   Set rTab = Range("E:E")

   If Intersect(rB, Target) Is Nothing Then Exit Sub
   v = Target.Text
   Set rGrab = rTab.Find(What:=v, After:=rTab(1), LookAt:=xlWhole)
   If rGrab Is Nothing Then
      Exit Sub
   Else
      Application.EnableEvents = False
         Target.Value = rGrab.Offset(0, 1).Value
      Application.EnableEvents = True
   End If
End Sub

Тепер, якщо ввести абревіатуру в стовпці B і торкніться ENTER повна адреса буде замінена. Код і таблиця абревіатури повинні бути вставлені в кожну таблицю, яку ви бажаєте обробити.

Тому що це код робочого листа, він дуже простий у встановленні та автоматичному використанні:

клацніть правою кнопкою миші на імені вкладки внизу вікна Excel
виберіть Переглянути код - це відкриває вікно VBE
вставте матеріал і закрийте вікно VBE

Якщо у вас виникли зауваження, спочатку спробуйте на робочому аркуші.

Якщо зберегти книгу, макрос буде збережено з нею. Якщо ви використовуєте версію Excel пізніше 2003, ви повинні зберегти файл .xlsm, а не .xlsx

Щоб видалити макрос:

відкрийте вікна VBE, як описано вище
очистіть код
закрийте вікно VBE

Щоб дізнатися більше про макроси в цілому, див.

http://www.mvps.org/dmcritchie/excel/getstarted.htm

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

Докладніше про макроси подій (код робочого листа) див.

http://www.mvps.org/dmcritchie/excel/event.htm

Для цього потрібно ввімкнути макроси!

— Gary's Student
джерело