evgeny22, если страницу Excel принять за плоскость, а широта/долгота = номер строки/столбца, то данным макросом можно покрасить нужные ячейки
[vba]
Код
Sub karta() Dim LastRow&, irow, sh As Worksheet Set sh = ActiveSheet LastRow = sh.Cells(sh.Rows.Count, 1).End(xlUp).Row With Sheets.Add With .Cells .ColumnWidth = 0.5 .RowHeight = 5 End With .Zoom = 70 For irow = 2 To LastRow .Cells(sh.Cells(irow, 1), sh.Cells(irow, 2)).Interior.Color = vbBlack Next End With End Sub
[/vba]
но результат на карту не похож
evgeny22, если страницу Excel принять за плоскость, а широта/долгота = номер строки/столбца, то данным макросом можно покрасить нужные ячейки
[vba]
Код
Sub karta() Dim LastRow&, irow, sh As Worksheet Set sh = ActiveSheet LastRow = sh.Cells(sh.Rows.Count, 1).End(xlUp).Row With Sheets.Add With .Cells .ColumnWidth = 0.5 .RowHeight = 5 End With .Zoom = 70 For irow = 2 To LastRow .Cells(sh.Cells(irow, 1), sh.Cells(irow, 2)).Interior.Color = vbBlack Next End With End Sub
evgeny22, я , кажется, понял зачем 3-й параметр внес коррективы в макрос
[vba]
Код
Sub karta() Dim LastRow&, irow, sh As Worksheet Set sh = ActiveSheet LastRow = sh.Cells(sh.Rows.Count, 1).End(xlUp).Row With Sheets.Add With .Cells .ColumnWidth = 0.5 .RowHeight = 5 End With .Zoom = 70 For irow = 2 To LastRow With .Cells(sh.Cells(irow, 1), sh.Cells(irow, 2)).Interior .Color = vbBlack .TintAndShade = 1 - sh.Cells(irow, 3) / 100 End With Next End With End Sub
[/vba]
evgeny22, я , кажется, понял зачем 3-й параметр внес коррективы в макрос
[vba]
Код
Sub karta() Dim LastRow&, irow, sh As Worksheet Set sh = ActiveSheet LastRow = sh.Cells(sh.Rows.Count, 1).End(xlUp).Row With Sheets.Add With .Cells .ColumnWidth = 0.5 .RowHeight = 5 End With .Zoom = 70 For irow = 2 To LastRow With .Cells(sh.Cells(irow, 1), sh.Cells(irow, 2)).Interior .Color = vbBlack .TintAndShade = 1 - sh.Cells(irow, 3) / 100 End With Next End With End Sub