Доброй ночи Пользователь Hugo в недавней теме дал ссылку, в который говорится, что операции с переменной Integer станут медленнее чем с Long (когда непонятно) Решил потестировать (Office 2010). Производил операции с диапазоном A1:B200000, заполненным числами по формуле =СЛУЧМЕЖДУ(-16383;16383) Результат: Integer 5,838161, Long 5,866048, разница 0,48% в пользу Integer Получается, что Integer не переводится в Long, как написано в ссылке, и операции с ней быстрее? Если есть желание, потестируйте, пожалуйста, на других версиях
Скрытый текст
Код
Sub qq()
Dim i As Long, b As Byte, i1 As Integer, i2 As Integer, t
For b = 1 To 10
t = Timer
For i = 1 To 200000
i1 = Cells(i, 1)
i2 = Cells(i, 2)
Cells(i, 3) = i1 + i2
Next i
Cells(b, 4) = Timer - t
Next b
End Sub
Добрый вечер. Есть макрос для вставки изображений в Эксель
Код
Sub abc()
Dim sha As Shape, i As Integer
i = 2
Do Until IsEmpty(Cells(i, 1))
On Error GoTo errors
Set sha = ActiveSheet.Shapes.AddPicture("D:\1\" & Cells(i, 1) & ".jpg", msoFalse, msoCTrue, Cells(i, 2).Left + 5, Cells(i, 2).Top + 5, 100, 100)
With sha
.Placement = xlMoveAndSize
.Line.Visible = msoTrue
.Line.ForeColor.ObjectThemeColor = msoThemeColorText1
End With
errors:
i = i + 1
Loop
End Sub
После выполнения которого приходится вручную сжимать изображения: Сжатие рисунков - качество вывода - электронная почта. Возможно ли как-нибудь сделать это програмно?