Advertising
advertising
related pastes to tag 'ms'
- 1933117 - olecom: phpbb post word vb ms
-
- Public WithEvents прога As Word.Application
- Sub прога_WindowSelectionChange(ByVal Sel As Selection)
- Dim i, j, s, d, возврат, имя
- If Len(Sel.Range.Document.Content.Text) = Len(Sel.Text) Then
- параментры_поста.Show
- If параментры_поста.Tag <> "АГА" Then
- Exit Sub
- 1916033 - ms excel: support for user input: user input date excel ms assistents
-
- If Target.Row > 4 Then
- With Target.Cells(1, 1)
- ' == ввод даты в некоторые столбцы ==
- If (.Column = 3 Or .Column = 7 Or Cells(4, .Column).Value = "дата") And VBA.CStr(.Value) <> "" Then
- i = VBA.Replace(VBA.CStr(.Value), ",", ".")
- i = VBA.Replace(i, " ", ".")
- i = VBA.Replace(i, "/", ".")
- i = VBA.Replace(i, "\", ".")