Visual Basic & Excel

[zyx]

Народ, ай инд хелп!

Я прослышала, что скрипты для екселя пишутся на Visual Basic. Как сделать, чтобы ячейка в екселе сама задавала свой цвет в зависимости от заданных условий. Если Вам не трудно, киньте мне кто нить этот код и плз с инструкцией, как собсно его применить.
(я бы сама наверно разобралась, но меня сильно поджимают сроки )

Заранее огромное спасибо!!!!!!

[GSerg]

Формат условное форматирование

[zyx]

Хм...

Умные мужики сказали, что точно не так...

[zyx]

А хотя...

[Andrew Sherd]

Не на обячном ВБ пишется (если я правильно задачу понял). а на VBA - заходишь в Exel -> Cервис -> Макрос -> Вижуал Басик =)

там уже ориентурешься с ячейками, которые тебе нужны, но вроде так:

WorkSheets("Лист1").Cells(1,1).Value="TEST"

Так загонять значение "TEST" в ячейку A1. По тому же принципу обращаемся к другим свойствам ячейки...

Нет Экселя под рукой так что точность не гарантирую, но принцип такой 100%

[kazah_]

Не на обячном ВБ пишется (если я правильно задачу понял). а на VBA - заходишь в Exel -> Cервис -> Макрос -> Вижуал Басик =)

там уже ориентурешься с ячейками, которые тебе нужны, но вроде так:

WorkSheets("Лист1").Cells(1,1).Value="TEST"

Так загонять значение "TEST" в ячейку A1. По тому же принципу обращаемся к другим свойствам ячейки...

Нет Экселя под рукой так что точность не гарантирую, но принцип такой 100%

можно и на обычном бейсике, для этого нада сделать так:

Private Sub Command1_Click()
Dim sHEET1 As Object
Dim NObj As Object
Set NObj = CreateObject("EXCEL.APPLICATION")

NObj.workbooks.Open FileName:="C:\Documents and Settings\full\Ìîè äîêóìåíòû\Êíèãà1.xls"
Set sHEET1 = NObj.workbooks
NObj.cells(5, 5) = "Dennis"
NObj.Range("I5").Select
With NObj.Selection.Interior
.ColorIndex = 53
.Pattern = xlSolid
End With
NObj.Selection.Font.ColorIndex = 1
NObj.Visible = True
End Sub
Вот и все...

[zyx]

Ребята, вы просто прелесть!!!

[Igor_123]

Эт мы болеем, а вообще - мы белые и пушистые!

[Nigga]

ребят.. не подскажите как мне в макросе в екселе замутить так, чтоб после выделения цветом выбранных ячеек открывалось окно для добавления примечания ячейки(либо с которой начинал выделять, либо которая была последней)..
То есть для какой то конкретной ячейки это то понятно - без проблем... а как привязать в макросе к одной из выделенных...?
Короче смысл такой... я выделяю несколько ячеек, тыкаю кнопочку к которой привязан макрос и у меня должно произоти следующее: выделенные ячеки закрашиваются цветом и вылазит окно в котором можно добавить примечание для закрашенных ячеек..:

Sub примечание()
'
' примечание Макрос
' Макрос записан 20.01.2006 (mike)
'

'
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Range("AG19").AddComment
Range("AG19").Comment.Visible = False
Range("AG19").Comment.Text Text:="mike:" & Chr(10) & ""
End Sub
при этом выделяется токо ячейка AG19 вот что вместо нее прописать нужно... насколько я понимаю в этом дело.. в этой переменной..
заранее спасибо)

[GSerg]

Гы гы.
Плюшка за злостную некрофилию годичной выдержки.


По проблеме.
Иногда (собственно, всегда) полезно не просто запускать записанный код, а постичь его смысл. В частности, узрев ключевое слово, оператор или имя объекта, доселе неизвестного, поставить в него курсор и нажать F1.
Случись это в приведённом примере, он немедленно был бы переделан на

Код: Выделить всё

With Selection
  .Interior.ColorIndex = 6
  .Interior.Pattern = xlSolid
  .AddComment "mike:" & Chr(10) & ""
  .Comment.Visible = False
End With

Но увы.

[Nigga]

Гы гы.
Плюшка за злостную некрофилию годичной выдержки.


По проблеме.
Иногда (собственно, всегда) полезно не просто запускать записанный код, а постичь его смысл. В частности, узрев ключевое слово, оператор или имя объекта, доселе неизвестного, поставить в него курсор и нажать F1.
Случись это в приведённом примере, он немедленно был бы переделан на

Код: Выделить всё

With Selection
  .Interior.ColorIndex = 6
  .Interior.Pattern = xlSolid
  .AddComment "mike:" & Chr(10) & ""
  .Comment.Visible = False
End With

Но увы.

Мда... может насчет ф1 так оно и есть, но вот все равно не работает и этот код..

[GSerg]

Патамушта excel не хочет делать коммент на весь range. Если честно, от него не ожидал...
Но если бы F1 было выполнено, до

Код: Выделить всё

With Selection.Interior
  .ColorIndex = 6
  .Pattern = xlSolid
End With
ActiveCell.AddComment "mike:" & Chr$(10)
ActiveCell.Comment.Visible = False

ты бы додумался...

[Nigga]

Патамушта excel не хочет делать коммент на весь range. Если честно, от него не ожидал...
Но если бы F1 было выполнено, до

Код: Выделить всё

With Selection.Interior
  .ColorIndex = 6
  .Pattern = xlSolid
End With
ActiveCell.AddComment "mike:" & Chr$(10)
ActiveCell.Comment.Visible = False

ты бы додумался...

О дааа))) Пасибки...
зы. Да, на весь range комент не делает Ну да ладно...
Пасибище бальшое:)
Буду сюда заглядывать))

[Nigga]

Еще такой вопрос... как прописать чтоб текст комента был равен ячейке.. ну например A1? то есть чтоб в ячейке забиваешь текст, и этот текст при выполнении макроса (предыдущего) прописывался в коментарии? Че то тоже не срастается у меня никак сделать так...

[GSerg]

ActiveCell.AddComment cells(1,1).value

[Nigga]

ActiveCell.AddComment cells(1,1).value

То есть это должно выглядеть так:
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
ActiveCell.AddComment "mike:" & Chr$(10)
ActiveCell.Comment.Visible = False
ActiveCell.AddComment cells(1,1).value

Или не так? Просто я че то вкурить не могу никак....

[Nigga]

Может я короче че нить не так объясняю просто:) вот скрин и описание чего я хочу добится)
Чтоб при нажатии на "кнопка16" данные из обведенных ячеек справа заносились в коммент..

[GSerg]

Ужос...

Во-первых, такие скрины сохраняются в gif и весят после этого 10 кб.
Во-вторых, если хочешь чё-то "вкурить", то кури маны.
И в-третьих, ты что, прямо таблицу хочешь в комменте увидеть? Фиг тебе...

[Nigga]

Ужос...

Во-первых, такие скрины сохраняются в gif и весят после этого 10 кб.
Во-вторых, если хочешь чё-то "вкурить", то кури маны.
И в-третьих, ты что, прямо таблицу хочешь в комменте увидеть? Фиг тебе...

Во первых формат гифа и жпега не отличаются по компресси практически ни сколько, насчет манов согласен.. но просто я хотел сделать по быстрее и застрял на такой теме.. В третьих мне не нужна таблица в коменте, а просто текст из ячейки.. чтоб комент просто отбражал содержимое а не таблицу
зы. спасибо все равно

[GSerg]

Во первых формат гифа и жпега не отличаются по компресси практически ни сколько

Вот тебе полноэкранный скрин экселя в gif.

но просто я хотел сделать по быстрее и застрял на такой теме..

Пока не начнёшь баловаться манами, будешь застревать.

В третьих мне не нужна таблица в коменте, а просто текст из ячейки.. чтоб комент просто отбражал содержимое а не таблицу

Хинт.
ActiveCell.AddComment "mike:" & Chr$(10) & cells(1,1).value & cells(1,2).value & cells(1,3).value

[Nigga]

Во первых формат гифа и жпега не отличаются по компресси практически ни сколько

Вот тебе полноэкранный скрин экселя в gif.

но просто я хотел сделать по быстрее и застрял на такой теме..

Пока не начнёшь баловаться манами, будешь застревать.

В третьих мне не нужна таблица в коменте, а просто текст из ячейки.. чтоб комент просто отбражал содержимое а не таблицу

Хинт.
ActiveCell.AddComment "mike:" & Chr$(10) & cells(1,1).value & cells(1,2).value & cells(1,3).value

Пасибки за хинт:)
зы. насчет скринов:) У нас я так думаю просто разрешения на экранах разное => разрешение скринов разное аналогично;)
Если что в следущий раз просто разрешение сделаю помнее)) а форматы тут ни при чем абсолютна:)

[GSerg]

Юноша... Разница между форматом сжатия полноцветной графики с потерями и форматом сжатия рисунка с фиксированной палитрой без потерь очень большая...