Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Vba надстрочный текст, Сделать часть текста надстрочным
 
Имеется текст в ячейке типа 12к/с/12к/с/12к/с
надо сделать к/с были надстрочными
цифры могут быть разные но суть такая что идет цифра потом к/с, или с/с или вообще может быть 12с/с+4к/с/13с/с/ 10к/с
мне вот нужно понять как именно сделать часть текста в ячейке к/с или с/с надстрочными, думал как то через case но я им не пользовался ни разу, не могу понять как. Еще вариант был просмотра ячейки на текст определенный и заменить его опять же он несколько раз повторяется. На форумах ничего похожего не нашел
Текс создается кодом типа (это часть одного условия)
Цитата
Код
...

If list.cells(I, 15) = 0 and list.cells(I, 16) > 0 then
    list.cells(I, 6) =list.cells(I, 8) & "к/с/" & list.cells(I, 10) & "к/с/" & list.cells(I, 12) & "к/с"
...
натолкните на мысль гуру макроса excel:)
Vba. Помогите задать циклом смену переключателей на форме, Смена переключателей при помощи цикла
 
Не могу разобраться как поменять значение OptionButton1 на OptionButton2 и так далее при помощи цикла
Пример:
Код
Sub primer()

Dim i As long
   For i=1 to 7

      UserForm1.OptionButton1.Visible = True 'вот тут как сделать чтоб OptionButton  менялся через i? 
   Next i
   User.Form1.Show  
End sub

Пример написан для того чтоб понятно было чего я пытаюсь добится

Без этого слишком много строк получается и условий
Как прописать в формуле выражение квадратный косинус\синус
 
как прописать в формуле квадратный косинус или синус?
типа того cos^2(2x) где x это ссылка на ячейку типа cos^2(2*A2)
тоже самое с синусом
прикрепляю пример моей формулы которую нужно ввести в exel, для постройки графика, все знаю а вот как ввести квадратный синус косинус не знаю(
заранее спасибо гуру)
Изменено: vikttur - 08.07.2021 21:01:56
Vba раскраска заметки вставляемой из excel в word
 
Суть в том что хочу создать макрос который будет менять данные по шаблону, и если определенные данные изменились то заметка должна подкрасится в желтый цвет, но условие я сделаю сам. вот что то не могу заставить менять цвет, выдает ошибку.
Код
Sub cvet()
 Dim wa As Word.Application
 Dim wd As Word.Document
 Dim mrange As Range
 Set wa=Create.Object("Word.Application")
 wa.Visible=True
 Set wd = wa.Documents.Add(ThisWorkbook.Path&"\шаблон.docx")
Set mrange = Sheets("Лист1").Range("A1:A2")
For Each cell in mrange
 Marker=cell.Vallue
  wd.Bookmarks.item(marker).range.Text=celloffset(0,1).text
  wd.Bookmarks.item(marker).range.HighLightColorIndex=wdYellow ' здесь ошибка
Next cell
Wd.saveAs Filename:=ThisWorkbook.Path&"\test.docx"
MsgBox "Done!"
End sub
Почему ввдает ошибку и как исправить?
Vba поиск уникальных значений по 2 столбцам и вывод на другой лист
 
Имеется массив данных, где перечисляются отделы и отделения: надо как то макросом вывести их на отдельный лист, с общим названием отдела сверху для подсчёта итогов.
Пример:
Имеем
Лист1
А B
Отдел 1 Отделение 1
Отдел 1 Отделение 1
Отдел 1 Отделение 2
Отдел 1 Отделение 2
Отдел 2 Отделение 1
Отдел 2 Отделение 1
Отдел 2 Отделение 2
Отдел 2 Отделение 2
Отдел 2 Отделение 3
И Т. Д.

Надо получить
Лист2
A B C
Отдел 1 Итого за отдел 1
Отдел 1 Отделение 1
Отдел 1 Отделение 2
Отдел 2 Итого за отдел 2
Отдел 2 Отделение 1
Отдел 2 Отделение 2
Отдел 2 Отделение 3
Всего за все отделы
Страницы: 1
Loading...