Àµ¨D«ô°U°ª¤â¤j¤j½Ð±Ð¦p¦ó¥ÎVB±N¤@°ïdataÂনªí®æ,ÁÂÁÂ
- ©«¤l
- 23
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 30
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 64bit
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2017-8-13
- ³Ì«áµn¿ý
- 2019-1-13
|
Àµ¨D«ô°U°ª¤â¤j¤j½Ð±Ð¦p¦ó¥ÎVB±N¤@°ïdataÂনªí®æ,ÁÂÁÂ
°ª¤â¤j¤j½Ð±Ð¦p¦ó¥ÎVB±N¤@°ïdataÂনªí®æ,ÁÂÁÂ
table.zip (16.78 KB)
|
|
|
|
|
|
|
¡@¼ÊºÙ: 温©_ ¡@ÀY»Î: ij½×ªÌ
¤¤¾Ç¥Í
- ©«¤l
- 104
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 110
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- Office2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2017-11-14
- ³Ì«áµn¿ý
- 2019-4-30
|
¥»©«³Ì«á¥Ñ faye59 ©ó 2018-9-6 00:46 ½s¿è
¦^´_ 1# jysun1
¥Ø«e¨Ì·Ó§Aµ¹ªºÀÉ®×¼g¡A¼g¨ì§A쥻ªºÀɮ׮ɽЦۦæקï¡C
¥ý¸Õ¸Õ¬ÝVBAªº³¡¤À¡C- Sub ex()
- For Each aa In Sheets("¤u§@ªí1").Range([A3], [A3].End(xlDown))
- If aa.Offset(, 0) = "°Ï" Then '¦pªGµ¥©ó°Ï¤~°õ¦æ
- Select Case aa.Offset(, 1) 'n¦^¶Çªº¦ì¸m
- Case "1"
- X = 10
- Case "2"
- X = 11
- Case "3"
- X = 12
- Case "4"
- X = 13
- Case "5"
- X = 14
- End Select
- If Sheets("¤u§@ªí1").Cells(4, X) = "" Then 'Àx¦s®æ¬°ªÅ¥Õ¤£´«¦æ
- Sheets("¤u§@ªí1").Cells(4, X) = aa.Offset(3, 1)
- Else
- Sheets("¤u§@ªí1").Cells(4, X) = Sheets("¤u§@ªí1").Cells(4, X) & Chr(10) & aa.Offset(3, 1)
- End If
- End If
- Next
- End Sub
½Æ»s¥N½X ¨Ì·Ó§Aµ¹ªºÀÉ®×°Ï¡B¸ô¡B´É¡A¥un"°Ï"¤@¼Ë"¸ô"¸ò"´É"´N·|¬O¤@¼Ë¡A©Ò¥H¥u¦^¶Ç¼Óªº¸ê®Æ¶ñ¤J¡C |
|
¤@¤À§V¤O¡A¤@¤À¦¬Ã¬¡C
µo°ÝÃD«e¥i¥H¥ý·j¯Á¤º¤å¬O§_¦³¬ÛÃö½d¨Ò¡C
|
|
|
|
|
¡@¼ÊºÙ: 温©_ ¡@ÀY»Î: ij½×ªÌ
¤¤¾Ç¥Í
- ©«¤l
- 104
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 110
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- Office2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2017-11-14
- ³Ì«áµn¿ý
- 2019-4-30
|
¦^´_ 1# jysun1
¤£ª¾¹D§AªºÀɮרÓì¬O¤°»ò¡AExcel?txt?Access?
Excelªº¸Ü¥ÎVBA´N«Ü¦n°µ¤F¡A
°£«D¬On©I¥s¨ä¥¦¸ê®Æ¨Ó·½¦A¥ÎVB.net°µ¤ñ¸û§´¡C |
|
¤@¤À§V¤O¡A¤@¤À¦¬Ã¬¡C
µo°ÝÃD«e¥i¥H¥ý·j¯Á¤º¤å¬O§_¦³¬ÛÃö½d¨Ò¡C
|
|
|
|
|
- ©«¤l
- 23
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 30
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 64bit
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2017-8-13
- ³Ì«áµn¿ý
- 2019-1-13
|
¦^´_ 2# faye59
:D «D±`·PÁ¤j¤jªº¦^Âа¨¤W¨Ó¸Õ¤@¤U |
|
|
|
|
|
|