1
0

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?

お題は不問!Qiita Engineer Festa 2024で記事投稿!
Qiita Engineer Festa20242024年7月17日まで開催中!

Excel VBA 自分が書いてきたクソコードのサンプル

Last updated at Posted at 2024-06-23

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

'オブジェクト変数とか知らない

とにかく動かすことに必死でした。
今思えば、めちゃくちゃな書き方をしていた時が一番楽しかった気がします。

1
0
2

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
1
0

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?