ITとかプログラミングとかの前提知識が全くない非エンジニアが殴り書きしてきたコード
Excelのことを何も知らないまま就職して、周りに詳しい先輩もいない中、日付が変わる前に退勤して過労死ラインを超えないためにずっと独学でやってきた、VBAのMyクソコードを紹介します。
With や For Next を絶対に使わず気合と根性で何行も書く脳筋系
Range("A1") = 別シート.Range("A1")
Range("A2") = 別シート.Range("A2")
Range("A3") = 別シート.Range("A3")
Range("A4") = 別シート.Range("A4")
'こんな感じで何十行も頑張る
変数や関数の名前がカオス
これやってたときは自分以外にコードを読む人がいなかったため、やりたい放題
可読性とか知りません
Dim wanwan as Long
wanwan = Cells(Rows.Count, 1).End(xlUp).Row
'変数が飼ってる犬の名前
インデントなし、すべての行を左詰めで書く
Sub Macro()
Dim i as Long
For i = 1 to 100
If Worksheets("Sheet1").Cells(i, 4) = True then
Worksheets("Sheet2").Range("B2") = Worksheets("Sheet1").Cells(i, 3)
Worksheets("Sheet2").PrintOut
End If
Next i
End Sub
'オブジェクト変数とか知らない
とにかく動かすことに必死でした。
今思えば、めちゃくちゃな書き方をしていた時が一番楽しかった気がします。