Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/пропадает формат - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » пропадает формат (Формулы/Formulas)
пропадает формат
karponen Дата: Понедельник, 17.11.2014, 14:11 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
В таблице "Приход" после сохранения и повторного входа пропадает заливка ячееек и целых сток, формат даты из дд.мм.гг превращаетсяв число, пропадают границы. Глюк повторяется ежедневно при открытии таблицы. после исправления и повторного сохранения файла при очередном открытии пропадает в других ячейках и сторках. Наш специалист по IT утверждает, что во восем винват макрос TextBox1_Click.

Александр

Сообщение отредактировал karponen - Понедельник, 17.11.2014, 14:34
 
Ответить
СообщениеВ таблице "Приход" после сохранения и повторного входа пропадает заливка ячееек и целых сток, формат даты из дд.мм.гг превращаетсяв число, пропадают границы. Глюк повторяется ежедневно при открытии таблицы. после исправления и повторного сохранения файла при очередном открытии пропадает в других ячейках и сторках. Наш специалист по IT утверждает, что во восем винват макрос TextBox1_Click.
Автор - karponen
Дата добавления - 17.11.2014 в 14:11
ShAM Дата: Понедельник, 17.11.2014, 14:36 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1347
Репутация: 249 ±
Замечаний: 0% ±

Excel 2010
Цитата karponen, 17.11.2014 в 14:11, в сообщении № 1
Наш специалист по IT утверждает, что во восем винват макрос TextBox1_Click.
Нужно уничтожить макрос, если прав АйТишник или уничтожить АйТишника, если он не прав. Но до этого почитать Правила форума, возможно обойдется без крайних мер. :D
 
Ответить
Сообщение
Цитата karponen, 17.11.2014 в 14:11, в сообщении № 1
Наш специалист по IT утверждает, что во восем винват макрос TextBox1_Click.
Нужно уничтожить макрос, если прав АйТишник или уничтожить АйТишника, если он не прав. Но до этого почитать Правила форума, возможно обойдется без крайних мер. :D
Автор - ShAM
Дата добавления - 17.11.2014 в 14:36
karponen Дата: Понедельник, 17.11.2014, 14:44 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
ShAM, спасибо за ответ. если не сложно в двух словах, что я делаю не так?. правила прочитал, в темах поискал, не нашел ответа на мой вопрос, создал новую тему. правда не смог прикрепить файл.

Александр
 
Ответить
СообщениеShAM, спасибо за ответ. если не сложно в двух словах, что я делаю не так?. правила прочитал, в темах поискал, не нашел ответа на мой вопрос, создал новую тему. правда не смог прикрепить файл.
Автор - karponen
Дата добавления - 17.11.2014 в 14:44
ShAM Дата: Понедельник, 17.11.2014, 15:12 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1347
Репутация: 249 ±
Замечаний: 0% ±

Excel 2010
Цитата karponen, 17.11.2014 в 14:44, в сообщении № 3
правда не смог прикрепить файл.
Дык, это же самое главное. Без файла, как узнать, что там и как и что макрос творит. Только если к Вам на работу подъехать. Штатные экстрасенсы сайта в отпуске :)
 
Ответить
Сообщение
Цитата karponen, 17.11.2014 в 14:44, в сообщении № 3
правда не смог прикрепить файл.
Дык, это же самое главное. Без файла, как узнать, что там и как и что макрос творит. Только если к Вам на работу подъехать. Штатные экстрасенсы сайта в отпуске :)
Автор - ShAM
Дата добавления - 17.11.2014 в 15:12
karponen Дата: Среда, 19.11.2014, 12:38 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
ShAM, беда в том, что моя таблица 1,63 Мб, а у вас ограниечение, поэтому мне ее и не прикрепить.
Как поступить в этом случае? вкладываю код макроса на который грешит нашь АйТишник. Он все макросы недолюбливает и называет их вирусами. Может проблема действительно в нем (в макросе)?
Sub TextBox1_Click()
myPath = "C:\Users\a.karpov.INCOTEC\Desktop\страхование\старахование шаблон.xls"
'myPath = "D:\Anton_Data\Desktop\Александр lomagin@nwinco.spb.ru skype karponen72\старахование шаблон.xls"
Dim myRange As Range, destB As Workbook

Set myRange = Selection
If myRange.Rows.Count >= 1 Then
Set destB = Workbooks.Open(myPath)
destR = 15
For Each myR In myRange.Rows
DoEvents
destR = destR + 1
destB.Sheets(1).Rows(destR + 1 & ":" & destR + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
destB.Sheets(1).Range("A" & destR) = shPRIHOD.Range("G" & myR.Row)
destB.Sheets(1).Range("B" & destR) = shPRIHOD.Range("H" & myR.Row)
If CDate(shPRIHOD.Range("D" & myR.Row)) < CDate(destB.Sheets(1).Range("G9")) Then
destB.Sheets(1).Range("D" & destR) = Format(destB.Sheets(1).Range("G9"), "dd.mm.yyyy")
Else
destB.Sheets(1).Range("D" & destR) = Format(shPRIHOD.Range("D" & myR.Row), "dd.mm.yyyy")
End If
destB.Sheets(1).Range("E" & destR) = CDate(destB.Sheets(1).Range("D" & destR)) + destB.Sheets(2).Range("B1")
If shPRIHOD.Range("M" & myR.Row) = "СПб" Then
destB.Sheets(1).Range("F" & destR) = "Санкт-Петербург - Санкт-Петербург"
ElseIf shPRIHOD.Range("M" & myR.Row) = "Москва" Then
destB.Sheets(1).Range("F" & destR) = "Санкт-Петербург - Москва-Санкт-Петербург"
End If
j = 5
Do
DoEvents
j = j + 1
If destB.Sheets(2).Range("C" & j) = "" Then Exit Do
If InStr(1, shPRIHOD.Range("E" & myR.Row), destB.Sheets(2).Range("C" & j)) > 0 Then
destB.Sheets(1).Range("G" & destR) = destB.Sheets(2).Range("A" & j)
destB.Sheets(1).Range("H" & destR) = destB.Sheets(2).Range("B" & j)
Exit Do
End If
Loop
Next
End If
destB.Sheets(1).Rows(destR + 1 & ":" & destR + 2).Delete
destB.Sheets(1).Copy
destB.Close False
End Sub

Александр

Сообщение отредактировал karponen - Среда, 19.11.2014, 12:40
 
Ответить
СообщениеShAM, беда в том, что моя таблица 1,63 Мб, а у вас ограниечение, поэтому мне ее и не прикрепить.
Как поступить в этом случае? вкладываю код макроса на который грешит нашь АйТишник. Он все макросы недолюбливает и называет их вирусами. Может проблема действительно в нем (в макросе)?
Sub TextBox1_Click()
myPath = "C:\Users\a.karpov.INCOTEC\Desktop\страхование\старахование шаблон.xls"
'myPath = "D:\Anton_Data\Desktop\Александр lomagin@nwinco.spb.ru skype karponen72\старахование шаблон.xls"
Dim myRange As Range, destB As Workbook

Set myRange = Selection
If myRange.Rows.Count >= 1 Then
Set destB = Workbooks.Open(myPath)
destR = 15
For Each myR In myRange.Rows
DoEvents
destR = destR + 1
destB.Sheets(1).Rows(destR + 1 & ":" & destR + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
destB.Sheets(1).Range("A" & destR) = shPRIHOD.Range("G" & myR.Row)
destB.Sheets(1).Range("B" & destR) = shPRIHOD.Range("H" & myR.Row)
If CDate(shPRIHOD.Range("D" & myR.Row)) < CDate(destB.Sheets(1).Range("G9")) Then
destB.Sheets(1).Range("D" & destR) = Format(destB.Sheets(1).Range("G9"), "dd.mm.yyyy")
Else
destB.Sheets(1).Range("D" & destR) = Format(shPRIHOD.Range("D" & myR.Row), "dd.mm.yyyy")
End If
destB.Sheets(1).Range("E" & destR) = CDate(destB.Sheets(1).Range("D" & destR)) + destB.Sheets(2).Range("B1")
If shPRIHOD.Range("M" & myR.Row) = "СПб" Then
destB.Sheets(1).Range("F" & destR) = "Санкт-Петербург - Санкт-Петербург"
ElseIf shPRIHOD.Range("M" & myR.Row) = "Москва" Then
destB.Sheets(1).Range("F" & destR) = "Санкт-Петербург - Москва-Санкт-Петербург"
End If
j = 5
Do
DoEvents
j = j + 1
If destB.Sheets(2).Range("C" & j) = "" Then Exit Do
If InStr(1, shPRIHOD.Range("E" & myR.Row), destB.Sheets(2).Range("C" & j)) > 0 Then
destB.Sheets(1).Range("G" & destR) = destB.Sheets(2).Range("A" & j)
destB.Sheets(1).Range("H" & destR) = destB.Sheets(2).Range("B" & j)
Exit Do
End If
Loop
Next
End If
destB.Sheets(1).Rows(destR + 1 & ":" & destR + 2).Delete
destB.Sheets(1).Copy
destB.Close False
End Sub
Автор - karponen
Дата добавления - 19.11.2014 в 12:38
Мир MS Excel » Вопросы и решения » Вопросы по Excel » пропадает формат (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!