|
Тема |
Re: слепване на 2 клетки (датата ми излиза в число) [re: de4O] |
|
Автор |
BatiGogo () |
|
Публикувано | 03.12.14 13:18 |
|
|
1.Чукваш alt+F11
2.цъкваш в ляво 2 пъти на листа на който ти са данните
3.Като ти се отвори място за код - copy/paste кода по - долу
----------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim TR, TC, S As String
TC = Target.Column 'колоната която се обработва
TR = Target.Row 'реда който се обработва
If TC = 3 Then 'ако сме на колона 3 - C , можеш да направиш и проверка ред>1 напр., ако 1-я ред ти е зает с друго нещо.
S = Format(Cells(TR, TC - 1).Value, "dd.mm.yyyy") 'Форматиране на предната клетка (дата)
Cells(TR, TC).Value = Cells(TR, TC - 2).Value & S 'залепяне
End If
End Sub
-----------------------
В колона C не е необходимо да слагаш формула в самия лист...Тя ще се запълва автоматично, в момента в който избереш клетката. В зависимост, кога ти е необходим резултата в колона В, можеш да изчисляваш при отваряне на файла или при активиране на листа напр...Просто трябва да промениш първия ред на кода и евентуално да го сложиш на друго място...
Този код е писан на ЕКСЕЛ 2007...За 2003 - май 1-я ред на кода беше малко по-различен, но нямам подръка сега ВИН с 2003.
|
| |
|
|
|