Created
March 12, 2010 08:08
-
-
Save gongo/330146 to your computer and use it in GitHub Desktop.
今日見つけた、同情するコード
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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