Вот пукнуть даже несекьюрно нельзя, сразу впихнёт рекламу. У человека какой-то супер-вип тариф, но даже ему они напихают хуёв рекламы там, где её быть не должно в принципе.
P.S. Усманов, может хватит так явно подлизывать Светлейшему?
В рекламе на ютубе крутится вот такое видео. Кэшбэк 30% на переводы с карты на карту! Как же мне повезло, сейчас я нахаляву обогачусь! Спасибо, letyshops! Ой, я имел в виду... iltycheps? Неважно! Вбиваю данные одной карты (с генератора карт, естественно), другой карты, и получаю.
Чёрт, надо, наверное, было вбивать реальные данные! Тогда бы точно разбогател!
А теперь серьёзно. Что можно сделать: нажаловаться на видео в ютуб (мошенничество), сообщить в гугл о фишинговом сайте. Сайт у них хостится на core-vps.lv, единственная почта на сайте - support@core-vps.lv, туда я тоже написал (но никто не мешает вам сделать то же самое).
Хотел ещё засрать им базу левыми картами, но у меня лапки не хватает времени, если кто захочет - валидность карты у них проверяется только по номеру.
function valid_credit_card(value) {
if (/[^0-9-\s]+/.test(value)) return false;
let nCheck = 0, bEven = false;
value = value.replace(/\D/g, "");
for (var n = value.length - 1; n >= 0; n--) {
var cDigit = value.charAt(n),
nDigit = parseInt(cDigit, 10);
if (bEven && (nDigit *= 2) > 9) nDigit -= 9;
nCheck += nDigit;
bEven = !bEven;
}
return (nCheck % 10) == 0;
}
Рекомендую также ознакомиться с его каналом.
Была задача по переносу вычислений из экселя. Чтобы не лезть и не смотреть формулу в каждой ячейке я написал небольшой макрос, который их выводит.
Ниже выделенного диапазона на 10 строк выводятся все формулы и значения из заполненных ячеек.
Получается вот такая штука, которую гораздо проще разобрать и перенести
Сам макрос:
Sub DrawFormulas()
For Each Cell In Selection
CellFormula = Cell.Formula
If Left(CellFormula, 1) <> "=" Then CellFormula = "=" + CellFormula
If Trim(CellFormula) <> "=" Then Cell.Offset(Selection.Rows.Count + 10).Value = Cell.Address + CellFormula
Next
End Sub
Когда ты решил нарисовать троллфейс на маске.
Но ты "немножко рукожоп" и получилось так.
Решил поделиться ещё одним полезным отрывком кода. Была задача массовой замены в документе одних значений на другие, при этом они могли пересекаться (изменилась нумерация) и обычная последовательная замена приводила к хаосу. В результате получилась вот такая процедурка для замены в 2 прохода.
Sub SafeReplace(TargetRange As Range, ReplaceRules As Range)с форматированием - на pastebin.com
' безопасный массовый поиск и замена
' TargetRange: где ищем, ReplaceRules: правила замены, первый столбец - что найти, второй - на что заменить
For i = 1 To ReplaceRules.Rows.Count ' for each
TargetRange.Replace _
What:=ReplaceRules.Cells(i, 1), Replacement:="!SafeReplace" + CStr(i) + "!", _
MatchCase:=False
Next ' замена 1 проход
For i = 1 To ReplaceRules.Rows.Count ' for each
TargetRange.Replace _
What:="!SafeReplace" + CStr(i) + "!", Replacement:=ReplaceRules.Cells(i, 2), _
MatchCase:=True
Next ' замена 2 проход
End Sub
Пример использования: на вкладке ReplaceRules есть таблица замены
Для замены в выделенном фрагменте используем следующий макрос, привязанный на горячую кнопку.
Sub ReplaceSelected()
Application.ScreenUpdating = False
Dim ReplaceRulePos As Range
Set ReplaceRulePos = Worksheets("ReplaceRules").Range("A1").CurrentRegion.Offset(1, 0) ' смещение на 1 строку, без заголовка
Call SafeReplace(Selection, ReplaceRulePos.Resize(ReplaceRulePos.Rows.Count - 1)) ' изменить размер области, чтобы последний пустой ряд не обрабатывался и вызвать автозамену
Application.ScreenUpdating = True
End Sub
Несколько раз была задача, когда изменения надо вносить не в текущий документ, а в документ с неизвестным именем. В результате получилась вот такая форма:
В listbox выводится список открытых документов или можно открыть файл через стандартный диалог открытия.
К сожалению, эксель не экспортирует формы в текстовом виде (во всяком случае, 2007 точно нет), поэтому будут скрины контролов и их свойств.
Как вы видите, я не заморачивался с названиями.
Код:
Public SrcName
Private Sub CommandButton1_Click()
SrcName= ""
If ListBox1.ListIndex >= 0 Then
SrcName= ListBox1.List(ListBox1.ListIndex)
UserForm1.Hide
End If
End Sub
Private Sub CommandButton2_Click()
SrcName= ""
UserForm1.Hide
End Sub
Private Sub OpnButton_Click()
iOpen = Application.Dialogs(xlDialogOpen).Show
If iOpen = True Then
SrcName= ActiveWorkbook.Name
UserForm1.Hide
Else
MsgBox "отмена", vbCritical, ""
Exit Sub
End If
End Sub
Private Sub UserForm_Activate()
SrcName= ""
ListBox1.Clear
NoShow = ThisWorkbook.Windows(1).Caption
For i = 1 To Application.Windows.Count
If Application.Windows(i).Caption <> NoShow Then ListBox1.AddItem (Application.Windows(i).Caption)
Next ' enum windows
End Sub
Пикабу сожрал все отступы, это не я!
Пример использования:
Dim SrcWB As Worksheet
UserForm1.Show
If UserForm1.SrcName= "" Then Exit Sub
Windows(UserForm1.SrcName).Activate
Set SrcWB = ActiveWorkbook
P.S. Баянометр считает, что эксель на 41% похож на клубничку. Мне кажется, что он недалёк от истины.
Что происходит, когда бывший инженер НАСА встречается с людьми, которы творят дичь?
Они начинают творить дичь на научной основе!
Ребята с канала "How Ridiculous" любят сбрасывать всякую хе хрень с высоты на батут. Однажды, после того, как они сломали очередной батут, скинув на него шар в 90 кило, они решили найти человека, который смастерит трамплин попрочнее. И этим человеком стал Марк Робер.
Сам момент падения катера на 13 минуте
А вот тут автомобиль, кто не хочет смотреть всё - вам нужно время 11:33
