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

Вход

Регистрация

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

 

= Мир MS Excel/Не отображается видимая часть ячейки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не отображается видимая часть ячейки (Иное)
Не отображается видимая часть ячейки
Владимир Дата: Четверг, 21.11.2013, 16:49 | Сообщение № 1
Группа: Гости
Проблема вот в чем, у нас артикула имеют такой вид 12345/56 12345 это номер модели а 56 ее размер, так вот когда я выгружаю с бухгалтерской программы данные в эксель то в клеточке они видны как 12345/56 но в командной строке только 12345 когда захожу в формат ячейки там он выставлен в таком виде 0"/56";[Красный]-0"/56". Вообщем артикул глазу виден а экселю нет, как сделать так что бы в командной строке было тоже 12345/56 Спасибо.
 
Ответить
СообщениеПроблема вот в чем, у нас артикула имеют такой вид 12345/56 12345 это номер модели а 56 ее размер, так вот когда я выгружаю с бухгалтерской программы данные в эксель то в клеточке они видны как 12345/56 но в командной строке только 12345 когда захожу в формат ячейки там он выставлен в таком виде 0"/56";[Красный]-0"/56". Вообщем артикул глазу виден а экселю нет, как сделать так что бы в командной строке было тоже 12345/56 Спасибо.

Автор - Владимир
Дата добавления - 21.11.2013 в 16:49
Pelena Дата: Четверг, 21.11.2013, 16:58 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19187
Репутация: 4421 ±
Замечаний: ±

Excel 365 & Mac Excel
Формулой
Код
=A1&"/56"


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеФормулой
Код
=A1&"/56"

Автор - Pelena
Дата добавления - 21.11.2013 в 16:58
гости Дата: Четверг, 21.11.2013, 17:05 | Сообщение № 3
Группа: Гости
Хээ, а нет это если бы у меня было бы 2 столбика, то тогда бы так прокотило, а так в ячейке я вижу 12345/56 а в строке которая в самом верху она отображается как 12345 без 56, а таких значений у меня больше 10000, те она отображается только за счет формата ячейки 0"/56";[Красный]-0"/56"
 
Ответить
СообщениеХээ, а нет это если бы у меня было бы 2 столбика, то тогда бы так прокотило, а так в ячейке я вижу 12345/56 а в строке которая в самом верху она отображается как 12345 без 56, а таких значений у меня больше 10000, те она отображается только за счет формата ячейки 0"/56";[Красный]-0"/56"

Автор - гости
Дата добавления - 21.11.2013 в 17:05
gling Дата: Четверг, 21.11.2013, 17:29 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2525
Репутация: 678 ±
Замечаний: 0% ±

2010
но в командной строке только 12345 когда

Может есть смысл растянуть командную строку. Не могут данные потеряться, они или в соседней ячейке или в соседней строке. Где они? Возможно в той же ячейке, только ниже.


ЯД-41001506838083
 
Ответить
Сообщение
но в командной строке только 12345 когда

Может есть смысл растянуть командную строку. Не могут данные потеряться, они или в соседней ячейке или в соседней строке. Где они? Возможно в той же ячейке, только ниже.

Автор - gling
Дата добавления - 21.11.2013 в 17:29
vovaatg11 Дата: Четверг, 21.11.2013, 17:54 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Не могу понять че не добавляется
К сообщению приложен файл: _Microsoft_Offi.xlsx (13.1 Kb)


Владимир
 
Ответить
СообщениеНе могу понять че не добавляется

Автор - vovaatg11
Дата добавления - 21.11.2013 в 17:54
Pelena Дата: Четверг, 21.11.2013, 17:59 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 19187
Репутация: 4421 ±
Замечаний: ±

Excel 365 & Mac Excel
Так в столбце С ведь у Вас нормально отображается артикул?

Не могут данные потеряться, они или в соседней ячейке или в соседней строке
Они добавлены через формат ячейки


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеТак в столбце С ведь у Вас нормально отображается артикул?

Не могут данные потеряться, они или в соседней ячейке или в соседней строке
Они добавлены через формат ячейки

Автор - Pelena
Дата добавления - 21.11.2013 в 17:59
vovaatg11 Дата: Четверг, 21.11.2013, 18:06 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Отображается да, но в строке, если посмотреть не первые 3-4 артикула, это я сам в ручную исправил, а остальные, тыцните где то в середине


Владимир
 
Ответить
СообщениеОтображается да, но в строке, если посмотреть не первые 3-4 артикула, это я сам в ручную исправил, а остальные, тыцните где то в середине

Автор - vovaatg11
Дата добавления - 21.11.2013 в 18:06
vovaatg11 Дата: Четверг, 21.11.2013, 18:09 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Короче говоря для чего это нужно, когда я строю таблицу, эксель берет и суммирует данные по артиклу без учета размера, получается так арт 12345 имеет 5-6 размеров 12345/56 12345/62 12345/68 ну и тд, а при построении таблицы для него это все 12345 без размеров(


Владимир
 
Ответить
СообщениеКороче говоря для чего это нужно, когда я строю таблицу, эксель берет и суммирует данные по артиклу без учета размера, получается так арт 12345 имеет 5-6 размеров 12345/56 12345/62 12345/68 ну и тд, а при построении таблицы для него это все 12345 без размеров(

Автор - vovaatg11
Дата добавления - 21.11.2013 в 18:09
vovaatg11 Дата: Четверг, 21.11.2013, 18:30 | Сообщение № 9
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Ребят ну помогите please работа встала


Владимир
 
Ответить
СообщениеРебят ну помогите please работа встала

Автор - vovaatg11
Дата добавления - 21.11.2013 в 18:30
Pelena Дата: Четверг, 21.11.2013, 18:46 | Сообщение № 10
Группа: Админы
Ранг: Местный житель
Сообщений: 19187
Репутация: 4421 ±
Замечаний: ±

Excel 365 & Mac Excel
То есть Вам надо вытащить символы /размер из формата ячейки и прицепить к артикулу?
Думаю, это только макросу под силу.
Перенести тему в раздел ВОПРОСЫ ПО VBA?


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеТо есть Вам надо вытащить символы /размер из формата ячейки и прицепить к артикулу?
Думаю, это только макросу под силу.
Перенести тему в раздел ВОПРОСЫ ПО VBA?

Автор - Pelena
Дата добавления - 21.11.2013 в 18:46
Rurik56 Дата: Четверг, 21.11.2013, 18:46 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 4 ±
Замечаний: 0% ±

2007
vovaatg11, поменяйте формат на общий, нет ошибся.


Сообщение отредактировал Rurik56 - Четверг, 21.11.2013, 18:49
 
Ответить
Сообщениеvovaatg11, поменяйте формат на общий, нет ошибся.

Автор - Rurik56
Дата добавления - 21.11.2013 в 18:46
nilem Дата: Четверг, 21.11.2013, 22:27 | Сообщение № 12
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
vovaatg11,
что-то вроде этого должно помочь
[vba]
Код
ActiveCell.Offset(1) = ActiveCell.Text
[/vba]
какой-нибудь файлик бы с примером (по ссылке выше файл не открывается)


Яндекс.Деньги 4100159601573
 
Ответить
Сообщениеvovaatg11,
что-то вроде этого должно помочь
[vba]
Код
ActiveCell.Offset(1) = ActiveCell.Text
[/vba]
какой-нибудь файлик бы с примером (по ссылке выше файл не открывается)

Автор - nilem
Дата добавления - 21.11.2013 в 22:27
Pelena Дата: Четверг, 21.11.2013, 22:38 | Сообщение № 13
Группа: Админы
Ранг: Местный житель
Сообщений: 19187
Репутация: 4421 ±
Замечаний: ±

Excel 365 & Mac Excel
по ссылке выше файл не открывается

Файл перевложила, видно при переносе темы потерялся


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
по ссылке выше файл не открывается

Файл перевложила, видно при переносе темы потерялся

Автор - Pelena
Дата добавления - 21.11.2013 в 22:38
SkyPro Дата: Четверг, 21.11.2013, 22:46 | Сообщение № 14
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
[vba]
Код
Sub plus56()
Dim rCell As Range, txt$
On Error Resume Next
For Each rCell In Range("G1:G" & [G65535].End(xlUp).Row)
txt = rCell.NumberFormat
If InStr(1, txt, "/") <> 0 Then
rCell.Offset(0, 1).Value = rCell & Mid(txt, InStr(1, txt, "/"), InStr(InStr(1, txt, "/"), txt, Chr(34)) - InStr(1, txt, "/"))
End If
Next
End Sub
[/vba]


skypro1111@gmail.com
 
Ответить
Сообщение[vba]
Код
Sub plus56()
Dim rCell As Range, txt$
On Error Resume Next
For Each rCell In Range("G1:G" & [G65535].End(xlUp).Row)
txt = rCell.NumberFormat
If InStr(1, txt, "/") <> 0 Then
rCell.Offset(0, 1).Value = rCell & Mid(txt, InStr(1, txt, "/"), InStr(InStr(1, txt, "/"), txt, Chr(34)) - InStr(1, txt, "/"))
End If
Next
End Sub
[/vba]

Автор - SkyPro
Дата добавления - 21.11.2013 в 22:46
nilem Дата: Пятница, 22.11.2013, 08:55 | Сообщение № 15
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
or
[vba]
Код
Sub plus56_2()
Dim rCell As Range
For Each rCell In Range("G1", Cells(Rows.Count, "G").End(xlUp))
     rCell(1, 2).Value = rCell.Text
Next
End Sub
[/vba]


Яндекс.Деньги 4100159601573
 
Ответить
Сообщениеor
[vba]
Код
Sub plus56_2()
Dim rCell As Range
For Each rCell In Range("G1", Cells(Rows.Count, "G").End(xlUp))
     rCell(1, 2).Value = rCell.Text
Next
End Sub
[/vba]

Автор - nilem
Дата добавления - 22.11.2013 в 08:55
SkyPro Дата: Пятница, 22.11.2013, 09:28 | Сообщение № 16
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
Главное видел, что Николай предложил через text это сделать, но захотелось велосипед изобрести и даже не попробовал этот вариант :D


skypro1111@gmail.com
 
Ответить
СообщениеГлавное видел, что Николай предложил через text это сделать, но захотелось велосипед изобрести и даже не попробовал этот вариант :D

Автор - SkyPro
Дата добавления - 22.11.2013 в 09:28
vovaatg11 Дата: Пятница, 22.11.2013, 11:59 | Сообщение № 17
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Пасиб всем большое


Владимир
 
Ответить
СообщениеПасиб всем большое

Автор - vovaatg11
Дата добавления - 22.11.2013 в 11:59
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не отображается видимая часть ячейки (Иное)
  • Страница 1 из 1
  • 1
Поиск:

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