Excaz написал: цифры (118, 130, 134, 139, и.т.д, их там много) . Я все изложил ясным русским языком (не на китайском же)
Excaz, в ясном русском языке всего 10 цифр. И мне вообще кажется странным, что после откровенных наездов на отвечающих (типа вы бестолочи или чё?) вам ещё кто то отвечает.
Извлечь из исходной комбинации максимальных значений по заданным критериям., Пример: Извлечь из комбинации чисел 1 2 3 5 47 48 максимальных значений то есть 5 из 6
Извлечь из исходной комбинации максимальных значений по заданным критериям., Пример: Извлечь из комбинации чисел 1 2 3 5 47 48 максимальных значений то есть 5 из 6
deviceik, если вы поясните, что такое десятичные координаты на карте мира, приложите Excel-файл с картой мира и парой заданных (вручную) точек - могу попробовать...
При проигрывании макроса Есть большие сомнения насчет понимания Figures ибн vbaline сути. Давайте его спросим - чем отличается пиксели (px) от точек (points)?
BasidialKiller, ни одно условие в Вашем макросе не выполняется, т.к. Letter пустой. Присвойте ему Letter = "A" или Letter = "B", потом смотрите...
Код
Sub Macros1()
Dim i As Long
Dim Letter As String
If Letter = "A" Then
For i = 1 To 20:
Range(Letter & i).Interior.Color = RGB(15, 105, 27)
Next i
ElseIf Letter = "B" Then
For i = 1 To 3:
Range(Letter & i).Interior.Color = RGB(0, 0, 250)
Next i
For i = 4 To 20:
Range(Letter & i).Interior.Color = RGB(0, 234, 0)
Next i
End If
End Sub