Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Gerk3
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Автоматическая постановка времени при редактировании ячейки, макрос
 
#
21.11.2014 13:10:04
не вышло! макрос не работает! нужно ка кто остальные столбцы свыше 256 символов, создать новой строке. как это можно сделать! перенос строки не работает
 
Перейти    
Автоматическая постановка времени при редактировании ячейки, макрос
 
#
19.11.2014 17:20:22
в строку
"If Not Intersect(cell, Range("F:F,J:J,N:N,R:R,V:V,Z:Z,AD:AD,AH:AH,AL:AL,AP:AP,AT:AT,AX:AX,BB:BB,BF:BF,BJ:BJ,BN:BN,BR:BR,BV:BV,BZ:BZ,CD:CD,CH:CH,CL:CL,CP:CP,CT:CT,CX:CX,DB  :D  B,DF  :D  F,DJ  :D  J,DN  :D  N,DR  :D  R,DV  :D  V,DZ  :D  Z,ED:ED,EH:EH,EL:EL,EP:EP,ET:ET,EX:EX,FB:FB,FF:FF,FJ:FJ,FF:FF,FJ:FJ,FN:FN"  ;)  ) Is Nothing Then"

нид еще добавить FR:FR,FV:FV,FZ:FZ и так еще 15 значений через каждые 3 столбца  
 
Перейти    
Автоматическая постановка времени при редактировании ячейки, макрос
 
#
19.11.2014 17:05:51
вот весь макрос
Код
Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Target
If cell <> "" Then
If Not Intersect(cell, Range("F:F,J:J,N:N,R:R,V:V,Z:Z,AD:AD,AH:AH,AL:AL,AP:AP,AT:AT,AX:AX,BB:BB,BF:BF,BJ:BJ,BN:BN,BR:BR,BV:BV,BZ:BZ,CD:CD,CH:CH,CL:CL,CP:CP,CT:CT,CX:CX,DB  B,DF  F,DJ  J,DN  N,DR  R,DV  V,DZ  Z,ED:ED,EH:EH,EL:EL,EP:EP,ET:ET,EX:EX,FB:FB,FF:FF,FJ:FJ,FF:FF,FJ:FJ,FN:FN"  ) Is Nothing Then
With cell.Offset(0, 2)
.Value = Now
.EntireColumn.AutoFit
End With
End If
End If
Next cell
End Sub
 
Перейти    
Автоматическая постановка времени при редактировании ячейки, макрос
 
#
19.11.2014 16:51:25
При занесении  visual basic for applications в строку «If Not Intersect(cell, Range("F:F,J:J,N:N,R:R,V:V,Z:Z,AD:AD,AH:AH,AL:AL,AP:AP,AT:AT,AX:AX,BB:BB,BF:BF,BJ:BJ,BN:BN,BR:BR,BV:BV,BZ:BZ,CD:CD,CH:CH,CL:CL,CP:CP,CT:CT,CX:CX,DB :D B,DF :D F,DJ :D J,DN :D N,DR :D R,DV :D V,DZ :D Z,ED:ED,EH:EH,EL:EL,EP:EP,ET:ET,EX:EX,FB:FB,FF:FF,FJ:FJ,FF:FF,FJ:FJ,FN:FN,FR:FR" ;) ) Is Nothing Then»  строка светится жёлтым цветом, и макрос не работает
Cспасибо за помощь!!!
 
Перейти    
Страницы: 1
Наверх