¡@¼ÊºÙ: ÀH·ÄÆ¿ºªº¦Ð¤ò ¡@ÀY»Î: [±s¥Î]¼ç¤ô¸¥
°ª¤¤¥Í
- ©«¤l
- 852
- ¥DÃD
- 79
- ºëµØ
- 0
- ¿n¤À
- 918
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7 , XP
- ³nÅ骩¥»
- Office 2007, Office 2003,Office 2010,YoZo Office
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦t©z
- µù¥U®É¶¡
- 2011-4-8
- ³Ì«áµn¿ý
- 2024-2-21
|
¶È¥Î¤p¬qµ{¦¡¥Nªí
¥i¥Î°j°é §ïµ½- Columns("A:A").Select
- Selection.NumberFormatLocal = "yyyy/mm/dd hh:mm:ss;@"
- Columns("E:z").Select
- Selection.NumberFormatLocal = "@"
- For xay = 2 To 10
- If Cells(xay, 1) <> "" Then
- a1 = Mid(Cells(xay, 1), 1, 4)
- a2 = Mid(Cells(xay, 1), 5, 1)
- a3 = Mid(Cells(xay, 1), 6, 2)
- a4 = Mid(Cells(xay, 1), 8, 1)
- a5 = Mid(Cells(xay, 1), 9, 2)
-
- b1 = Mid(Cells(xay, 1), 14, 2)
- b2 = Mid(Cells(xay, 1), 16, 1)
- b3 = Mid(Cells(xay, 1), 17, 2)
- b4 = Mid(Cells(xay, 1), 19, 1)
- b5 = Mid(Cells(xay, 1), 20, 2)
-
- For hs = 1 To 5760
- Select Case hs
- Case 1 To 1920
- aa = "area1"
- If Cells(xay, 2) = hs Then Cells(xay, 3) = a1 & a3 & a5 & b1 & "+" & aa
-
- Case 1921 To 3840
- ab = "area2"
- If Cells(xay, 2) = hs Then Cells(xay, 3) = a1 & a3 & a5 & b1 & "+" & aa
- Case 1921 To 5760
- ac = "area3"
- If Cells(xay, 2) = hs Then Cells(xay, 3) = a1 & a3 & a5 & b1 & "+" & aa
- End Select
-
-
- Next
- End If
- Next xay
½Æ»s¥N½X ¦^´_ 6# whirlwind963 |
|