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

Вход

Регистрация

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

 

= Мир MS Excel/Нарисовать шахматную доску - Страница 2 - Мир MS Excel

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Нарисовать шахматную доску (Макросы/Sub)
Нарисовать шахматную доску
ikki Дата: Четверг, 09.07.2015, 13:00 | Сообщение № 21
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
ну и на закуску - классика :)
[vba]
Код
Sub ik()
     With ThisWorkbook.Sheets.Add
         .[a:h].ColumnWidth = 2.6
         For i = 1 To 8
             For j = 1 To 8
                 If (i + j) Mod 2 Then .Cells(i, j).Interior.Color = vbYellow
         Next j, i
         .[a1:h8].Borders.LineStyle = xlThin
     End With
End Sub
[/vba]

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki
 
Ответить
Сообщениену и на закуску - классика :)
[vba]
Код
Sub ik()
     With ThisWorkbook.Sheets.Add
         .[a:h].ColumnWidth = 2.6
         For i = 1 To 8
             For j = 1 To 8
                 If (i + j) Mod 2 Then .Cells(i, j).Interior.Color = vbYellow
         Next j, i
         .[a1:h8].Borders.LineStyle = xlThin
     End With
End Sub
[/vba]
Автор - ikki
Дата добавления - 09.07.2015 в 13:00
Milasha Дата: Четверг, 09.07.2015, 13:07 | Сообщение № 22
Группа: Пользователи
Ранг: Новичок
Сообщений: 30
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
AndreTM, вы применяли условное форматирование?
Или как у вас такая красивая доска получилась? ^_^
 
Ответить
СообщениеAndreTM, вы применяли условное форматирование?
Или как у вас такая красивая доска получилась? ^_^
Автор - Milasha
Дата добавления - 09.07.2015 в 13:07
AndreTM Дата: Четверг, 09.07.2015, 13:10 | Сообщение № 23
Группа: Друзья
Ранг: Старожил
Сообщений: 1762
Репутация: 500 ±
Замечаний: 0% ±

2003 & 2010
А вот так мог бы выглядеть "правильный" код :)


Да, в первом варианте "закраска" выполнялась условным форматированием

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Сообщение отредактировал AndreTM - Четверг, 09.07.2015, 13:13
 
Ответить
СообщениеА вот так мог бы выглядеть "правильный" код :)


Да, в первом варианте "закраска" выполнялась условным форматированием
Автор - AndreTM
Дата добавления - 09.07.2015 в 13:10
Milasha Дата: Четверг, 09.07.2015, 13:11 | Сообщение № 24
Группа: Пользователи
Ранг: Новичок
Сообщений: 30
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
ikki, ух ты!!! hands
Вы волшебник???
Расскажите дебилу (то есть мне), откуда такая красивая доска и такой маленький, аккуратненький код???
 
Ответить
Сообщениеikki, ух ты!!! hands
Вы волшебник???
Расскажите дебилу (то есть мне), откуда такая красивая доска и такой маленький, аккуратненький код???
Автор - Milasha
Дата добавления - 09.07.2015 в 13:11
Milasha Дата: Четверг, 09.07.2015, 13:16 | Сообщение № 25
Группа: Пользователи
Ранг: Новичок
Сообщений: 30
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
AndreTM, это фантастика!!!
Расскажите мне, пожалуйста, откуда вы все почерпнули свои знания.
Где найти материалы, чтобы самостоятельно писать такие коды???
Пойти на курсы по изучению VBA в дальнейшем обязуюсь!!! B)
 
Ответить
СообщениеAndreTM, это фантастика!!!
Расскажите мне, пожалуйста, откуда вы все почерпнули свои знания.
Где найти материалы, чтобы самостоятельно писать такие коды???
Пойти на курсы по изучению VBA в дальнейшем обязуюсь!!! B)
Автор - Milasha
Дата добавления - 09.07.2015 в 13:16
ikki Дата: Четверг, 09.07.2015, 13:27 | Сообщение № 26
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
Цитата Milasha, 09.07.2015 в 13:11, в сообщении № 24
откуда ... такой маленький, аккуратненький код?
от лени :(
писать большой код - устаю шибко

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki
 
Ответить
Сообщение
Цитата Milasha, 09.07.2015 в 13:11, в сообщении № 24
откуда ... такой маленький, аккуратненький код?
от лени :(
писать большой код - устаю шибко
Автор - ikki
Дата добавления - 09.07.2015 в 13:27
Milasha Дата: Четверг, 09.07.2015, 13:30 | Сообщение № 27
Группа: Пользователи
Ранг: Новичок
Сообщений: 30
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
ikki, вот правду говорят: лень - двигатель прогресса :D
У Вас какое-то специальное образование?
 
Ответить
Сообщениеikki, вот правду говорят: лень - двигатель прогресса :D
У Вас какое-то специальное образование?
Автор - Milasha
Дата добавления - 09.07.2015 в 13:30
Udik Дата: Четверг, 09.07.2015, 13:39 | Сообщение № 28
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация: 192 ±
Замечаний: 0% ±

Excel 2016 х 64
Вот без красивостей

[vba]
Код


Public Sub desk()
Dim i As Byte, j As Byte
Const clr As Byte = 5

Cln

Range("A1:J10").Columns.ColumnWidth = 2
Range("A1:J10").Rows.RowHeight = 15

For i = 1 To 8
     For j = 1 To 8
         If i Mod 2 = 1 Then
             If j Mod 2 = 1 Then Cells(i + 1, j + 1).Interior.ColorIndex = clr
         Else
             If j Mod 2 = 0 Then Cells(i + 1, j + 1).Interior.ColorIndex = clr
         End If
     Next j
Next i
End Sub

Public Sub Cln()
Range("A1:J10").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub

Public Sub ClnFrmt()
Range("A1:J10").Select
Selection.ClearFormats
Cells(1, 1).Select
End Sub

[/vba]
К сообщению приложен файл: chessDesk.xlsm (20.2 Kb)

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
СообщениеВот без красивостей

[vba]
Код


Public Sub desk()
Dim i As Byte, j As Byte
Const clr As Byte = 5

Cln

Range("A1:J10").Columns.ColumnWidth = 2
Range("A1:J10").Rows.RowHeight = 15

For i = 1 To 8
     For j = 1 To 8
         If i Mod 2 = 1 Then
             If j Mod 2 = 1 Then Cells(i + 1, j + 1).Interior.ColorIndex = clr
         Else
             If j Mod 2 = 0 Then Cells(i + 1, j + 1).Interior.ColorIndex = clr
         End If
     Next j
Next i
End Sub

Public Sub Cln()
Range("A1:J10").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub

Public Sub ClnFrmt()
Range("A1:J10").Select
Selection.ClearFormats
Cells(1, 1).Select
End Sub

[/vba]
Автор - Udik
Дата добавления - 09.07.2015 в 13:39
ikki Дата: Четверг, 09.07.2015, 13:41 | Сообщение № 29
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
Цитата Milasha, 09.07.2015 в 13:30, в сообщении № 27
какое-то специальное образование?
угум.
экономическое.
причем когда я учился - в нашем "университете" только MS DOS и Cupercalc были )

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki
 
Ответить
Сообщение
Цитата Milasha, 09.07.2015 в 13:30, в сообщении № 27
какое-то специальное образование?
угум.
экономическое.
причем когда я учился - в нашем "университете" только MS DOS и Cupercalc были )
Автор - ikki
Дата добавления - 09.07.2015 в 13:41
Milasha Дата: Четверг, 09.07.2015, 13:49 | Сообщение № 30
Группа: Пользователи
Ранг: Новичок
Сообщений: 30
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
Udik, как бы теперь все это сделать самой? %)
 
Ответить
СообщениеUdik, как бы теперь все это сделать самой? %)
Автор - Milasha
Дата добавления - 09.07.2015 в 13:49
Milasha Дата: Четверг, 09.07.2015, 13:50 | Сообщение № 31
Группа: Пользователи
Ранг: Новичок
Сообщений: 30
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
ikki, а где постигали азы VBA?
 
Ответить
Сообщениеikki, а где постигали азы VBA?
Автор - Milasha
Дата добавления - 09.07.2015 в 13:50
Udik Дата: Четверг, 09.07.2015, 13:53 | Сообщение № 32
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация: 192 ±
Замечаний: 0% ±

Excel 2016 х 64
На №30
Для начала попробуйте прикрутить случайный выбор цвета доски :)

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
СообщениеНа №30
Для начала попробуйте прикрутить случайный выбор цвета доски :)
Автор - Udik
Дата добавления - 09.07.2015 в 13:53
ikki Дата: Четверг, 09.07.2015, 14:10 | Сообщение № 33
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
Цитата Milasha, 09.07.2015 в 13:50, в сообщении № 31
где постигали азы VBA?
по встроенной справке. к Excel 97.

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki
 
Ответить
Сообщение
Цитата Milasha, 09.07.2015 в 13:50, в сообщении № 31
где постигали азы VBA?
по встроенной справке. к Excel 97.
Автор - ikki
Дата добавления - 09.07.2015 в 14:10
Rioran Дата: Четверг, 09.07.2015, 15:09 | Сообщение № 34
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
В копилку коротких ленивых кодов.

[vba]
Код
Sub Rio_Chess()
     Dim RngX As Range, j As Byte
     [B2:I9].Borders.LineStyle = 1: [B:I].ColumnWidth = 2.5
     For Each RngX In [B2:I9]
         j = (RngX.Row + RngX.Column) Mod 2: RngX.Interior.ColorIndex = j
     Next RngX
End Sub
[/vba]

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279

Сообщение отредактировал Rioran - Четверг, 09.07.2015, 15:10
 
Ответить
СообщениеВ копилку коротких ленивых кодов.

[vba]
Код
Sub Rio_Chess()
     Dim RngX As Range, j As Byte
     [B2:I9].Borders.LineStyle = 1: [B:I].ColumnWidth = 2.5
     For Each RngX In [B2:I9]
         j = (RngX.Row + RngX.Column) Mod 2: RngX.Interior.ColorIndex = j
     Next RngX
End Sub
[/vba]
Автор - Rioran
Дата добавления - 09.07.2015 в 15:09
Milasha Дата: Четверг, 09.07.2015, 15:22 | Сообщение № 35
Группа: Пользователи
Ранг: Новичок
Сообщений: 30
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
Rioran, короткие коды - это пока что-то совсем для меня гениально непостижимое :'( %) hands
 
Ответить
СообщениеRioran, короткие коды - это пока что-то совсем для меня гениально непостижимое :'( %) hands
Автор - Milasha
Дата добавления - 09.07.2015 в 15:22
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Нарисовать шахматную доску (Макросы/Sub)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

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