Skip to content

Instantly share code, notes, and snippets.

@gongo
Created March 12, 2010 08:08
Show Gist options
  • Save gongo/330146 to your computer and use it in GitHub Desktop.
Save gongo/330146 to your computer and use it in GitHub Desktop.
今日見つけた、同情するコード
Select Case hoge.Text
  Case "00", "01"
    grid.Col = 0
    grid.Row = 1
    grid.Text = Format(hoge, "00")
    grid.Col = 1
    grid.Row = 1
    grid.Text = NumH
    grid.Col = 2
    grid.Row = 1
    grid.Text = NumT
    grid.Col = 3
    grid.Row = 1
    grid.Text = NumKN
    grid.Col = 4
    grid.Row = 1
    grid.Text = NumKT
    grid.Col = 5
    grid.Row = 1
    grid.Text = NumSN
    grid.Col = 6
    grid.Row = 1
    grid.Text = NumST
    grid.Col = 7
    grid.Row = 1
    grid.Text = NumTr
    grid.Col = 8
    grid.Row = 1
    grid.Text = NumE
    grid.Col = 9
    grid.Row = 1
    grid.Text = NumHm
    grid.Col = 10
    grid.Row = 1
    grid.Text = NumS
  Case "02"
    grid.Col = 0
    grid.Row = 2
    grid.Text = hoge.Text
    grid.Col = 1
    grid.Row = 2
    grid.Text = NumH
    grid.Col = 2
    grid.Row = 2
    grid.Text = NumT
    grid.Col = 3
    grid.Row = 2
    grid.Text = NumKN
    grid.Col = 4
    grid.Row = 2
    grid.Text = NumKT
    grid.Col = 5
    grid.Row = 2
    grid.Text = NumSN
    grid.Col = 6
    grid.Row = 2
    grid.Text = NumST
    grid.Col = 7
    grid.Row = 2
    grid.Text = NumTr
    grid.Col = 8
    grid.Row = 2
    grid.Text = NumE
    grid.Col = 9
    grid.Row = 2
    grid.Text = NumHm
    grid.Col = 10
    grid.Row = 2
    grid.Text = NumS
  Case "03"
    grid.Col = 0
    grid.Row = 3
    grid.Text = hoge.Text
    grid.Col = 1
    grid.Row = 3
    grid.Text = NumH
    grid.Col = 2
    grid.Row = 3
    grid.Text = NumT
    grid.Col = 3
    grid.Row = 3
    grid.Text = NumKN
    grid.Col = 4
    grid.Row = 3
    grid.Text = NumKT
    grid.Col = 5
    grid.Row = 3
    grid.Text = NumSN
    grid.Col = 6
    grid.Row = 3
    grid.Text = NumST
    grid.Col = 7
    grid.Row = 3
    grid.Text = NumTr
    grid.Col = 8
    grid.Row = 3
    grid.Text = NumE
    grid.Col = 9
    grid.Row = 3
    grid.Text = NumHm
    grid.Col = 10
    grid.Row = 3
    grid.Text = NumS
  Case "04"
    grid.Col = 0
    grid.Row = 4
    grid.Text = hoge.Text
    grid.Col = 1
    grid.Row = 4
    grid.Text = NumH
    grid.Col = 2
    grid.Row = 4
    grid.Text = NumT
    grid.Col = 3
    grid.Row = 4
    grid.Text = NumKN
    grid.Col = 4
    grid.Row = 4
    grid.Text = NumKT
    grid.Col = 5
    grid.Row = 4
    grid.Text = NumSN
    grid.Col = 6
    grid.Row = 4
    grid.Text = NumST
    grid.Col = 7
    grid.Row = 4
    grid.Text = NumTr
    grid.Col = 8
    grid.Row = 4
    grid.Text = NumE
    grid.Col = 9
    grid.Row = 4
    grid.Text = NumHm
    grid.Col = 10
    grid.Row = 4
    grid.Text = NumS
  Case "05"
    grid.Col = 0
    grid.Row = 5
    grid.Text = hoge.Text
    grid.Col = 1
    grid.Row = 5
    grid.Text = NumH
    grid.Col = 2
    grid.Row = 5
    grid.Text = NumT
    grid.Col = 3
    grid.Row = 5
    grid.Text = NumKN
    grid.Col = 4
    grid.Row = 5
    grid.Text = NumKT
    grid.Col = 5
    grid.Row = 5
    grid.Text = NumSN
    grid.Col = 6
    grid.Row = 5
    grid.Text = NumST
    grid.Col = 7
    grid.Row = 5
    grid.Text = NumTr
    grid.Col = 8
    grid.Row = 5
    grid.Text = NumE
    grid.Col = 9
    grid.Row = 5
    grid.Text = NumHm
    grid.Col = 10
    grid.Row = 5
    grid.Text = NumS
  Case "06"
    grid.Col = 0
    grid.Row = 6
    grid.Text = hoge.Text
    grid.Col = 1
    grid.Row = 6
    grid.Text = NumH
    grid.Col = 2
    grid.Row = 6
    grid.Text = NumT
    grid.Col = 3
    grid.Row = 6
    grid.Text = NumKN
    grid.Col = 4
    grid.Row = 6
    grid.Text = NumKT
    grid.Col = 5
    grid.Row = 6
    grid.Text = NumSN
    grid.Col = 6
    grid.Row = 6
    grid.Text = NumST
    grid.Col = 7
    grid.Row = 6
    grid.Text = NumTr
    grid.Col = 8
    grid.Row = 6
    grid.Text = NumE
    grid.Col = 9
    grid.Row = 6
    grid.Text = NumHm
    grid.Col = 10
    grid.Row = 6
    grid.Text = NumS
  Case "07"
    grid.Col = 0
    grid.Row = 7
    grid.Text = hoge.Text
    grid.Col = 1
    grid.Row = 7
    grid.Text = NumH
    grid.Col = 2
    grid.Row = 7
    grid.Text = NumT
    grid.Col = 3
    grid.Row = 7
    grid.Text = NumKN
    grid.Col = 4
    grid.Row = 7
    grid.Text = NumKT
    grid.Col = 5
    grid.Row = 7
    grid.Text = NumSN
    grid.Col = 6
    grid.Row = 7
    grid.Text = NumST
    grid.Col = 7
    grid.Row = 7
    grid.Text = NumTr
    grid.Col = 8
    grid.Row = 7
    grid.Text = NumE
    grid.Col = 9
    grid.Row = 7
    grid.Text = NumHm
    grid.Col = 10
    grid.Row = 7
    grid.Text = NumS
  Case "08"
    grid.Col = 0
    grid.Row = 8
    grid.Text = hoge.Text
    grid.Col = 1
    grid.Row = 8
    grid.Text = NumH
    grid.Col = 2
    grid.Row = 8
    grid.Text = NumT
    grid.Col = 3
    grid.Row = 8
    grid.Text = NumKN
    grid.Col = 4
    grid.Row = 8
    grid.Text = NumKT
    grid.Col = 5
    grid.Row = 8
    grid.Text = NumSN
    grid.Col = 6
    grid.Row = 8
    grid.Text = NumST
    grid.Col = 7
    grid.Row = 8
    grid.Text = NumTr
    grid.Col = 8
    grid.Row = 8
    grid.Text = NumE
    grid.Col = 9
    grid.Row = 8
    grid.Text = NumHm
    grid.Col = 10
    grid.Row = 8
    grid.Text = NumS
  Case "09"
    grid.Col = 0
    grid.Row = 9
    grid.Text = hoge.Text
    grid.Col = 1
    grid.Row = 9
    grid.Text = NumH
    grid.Col = 2
    grid.Row = 9
    grid.Text = NumT
    grid.Col = 3
    grid.Row = 9
    grid.Text = NumKN
    grid.Col = 4
    grid.Row = 9
    grid.Text = NumKT
    grid.Col = 5
    grid.Row = 9
    grid.Text = NumSN
    grid.Col = 6
    grid.Row = 9
    grid.Text = NumST
    grid.Col = 7
    grid.Row = 9
    grid.Text = NumTr
    grid.Col = 8
    grid.Row = 9
    grid.Text = NumE
    grid.Col = 9
    grid.Row = 9
    grid.Text = NumHm
    grid.Col = 10
    grid.Row = 9
    grid.Text = NumS
  Case "10"
    grid.Col = 0
    grid.Row = 10
    grid.Text = hoge.Text
    grid.Col = 1
    grid.Row = 10
    grid.Text = NumH
    grid.Col = 2
    grid.Row = 10
    grid.Text = NumT
    grid.Col = 3
    grid.Row = 10
    grid.Text = NumKN
    grid.Col = 4
    grid.Row = 10
    grid.Text = NumKT
    grid.Col = 5
    grid.Row = 10
    grid.Text = NumSN
    grid.Col = 6
    grid.Row = 10
    grid.Text = NumST
    grid.Col = 7
    grid.Row = 10
    grid.Text = NumTr
    grid.Col = 8
    grid.Row = 10
    grid.Text = NumE
    grid.Col = 9
    grid.Row = 10
    grid.Text = NumHm
    grid.Col = 10
    grid.Row = 10
    grid.Text = NumS
  Case "11"
    grid.Col = 0
    grid.Row = 11
    grid.Text = hoge.Text
    grid.Col = 1
    grid.Row = 11
    grid.Text = NumH
    grid.Col = 2
    grid.Row = 11
    grid.Text = NumT
    grid.Col = 3
    grid.Row = 11
    grid.Text = NumKN
    grid.Col = 4
    grid.Row = 11
    grid.Text = NumKT
    grid.Col = 5
    grid.Row = 11
    grid.Text = NumSN
    grid.Col = 6
    grid.Row = 11
    grid.Text = NumST
    grid.Col = 7
    grid.Row = 11
    grid.Text = NumTr
    grid.Col = 8
    grid.Row = 11
    grid.Text = NumE
    grid.Col = 9
    grid.Row = 11
    grid.Text = NumHm
    grid.Col = 10
    grid.Row = 11
    grid.Text = NumS
  Case "12"
    grid.Col = 0
    grid.Row = 12
    grid.Text = hoge.Text
    grid.Col = 1
    grid.Row = 12
    grid.Text = NumH
    grid.Col = 2
    grid.Row = 12
    grid.Text = NumT
    grid.Col = 3
    grid.Row = 12
    grid.Text = NumKN
    grid.Col = 4
    grid.Row = 12
    grid.Text = NumKT
    grid.Col = 5
    grid.Row = 12
    grid.Text = NumSN
    grid.Col = 6
    grid.Row = 12
    grid.Text = NumST
    grid.Col = 7
    grid.Row = 12
    grid.Text = NumTr
    grid.Col = 8
    grid.Row = 12
    grid.Text = NumE
    grid.Col = 9
    grid.Row = 12
    grid.Text = NumHm
    grid.Col = 10
    grid.Row = 12
    grid.Text = NumS
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment