ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

Àµ¨D«ô°U°ª¤â¤j¤j½Ð±Ð¦p¦ó¥ÎVB±N¤@°ïdataÂনªí®æ,ÁÂÁÂ

Àµ¨D«ô°U°ª¤â¤j¤j½Ð±Ð¦p¦ó¥ÎVB±N¤@°ïdataÂনªí®æ,ÁÂÁÂ

°ª¤â¤j¤j½Ð±Ð¦p¦ó¥ÎVB±N¤@°ïdataÂনªí®æ,ÁÂÁÂ

table.zip (16.78 KB)

¥»©«³Ì«á¥Ñ faye59 ©ó 2018-9-6 00:46 ½s¿è

¦^´_ 1# jysun1


    ¥Ø«e¨Ì·Ó§Aµ¹ªºÀÉ®×¼g¡A¼g¨ì§A­ì¥»ªºÀɮ׮ɽЦۦæ­×§ï¡C
¥ý¸Õ¸Õ¬ÝVBAªº³¡¤À¡C
  1. Sub ex()
  2. For Each aa In Sheets("¤u§@ªí1").Range([A3], [A3].End(xlDown))
  3. If aa.Offset(, 0) = "°Ï" Then '¦pªGµ¥©ó°Ï¤~°õ¦æ
  4.     Select Case aa.Offset(, 1) '­n¦^¶Çªº¦ì¸m
  5.     Case "1"
  6.         X = 10
  7.     Case "2"
  8.         X = 11
  9.     Case "3"
  10.         X = 12
  11.     Case "4"
  12.         X = 13
  13.     Case "5"
  14.         X = 14
  15.     End Select
  16.     If Sheets("¤u§@ªí1").Cells(4, X) = "" Then 'Àx¦s®æ¬°ªÅ¥Õ¤£´«¦æ
  17.     Sheets("¤u§@ªí1").Cells(4, X) = aa.Offset(3, 1)
  18.     Else
  19.     Sheets("¤u§@ªí1").Cells(4, X) = Sheets("¤u§@ªí1").Cells(4, X) & Chr(10) & aa.Offset(3, 1)
  20.     End If
  21. End If
  22. Next
  23. End Sub
½Æ»s¥N½X
¨Ì·Ó§Aµ¹ªºÀÉ®×°Ï¡B¸ô¡B´É¡A¥u­n"°Ï"¤@¼Ë"¸ô"¸ò"´É"´N·|¬O¤@¼Ë¡A©Ò¥H¥u¦^¶Ç¼Óªº¸ê®Æ¶ñ¤J¡C
¤@¤À§V¤O¡A¤@¤À¦¬Ã¬¡C
µo°ÝÃD«e¥i¥H¥ý·j¯Á¤º¤å¬O§_¦³¬ÛÃö½d¨Ò¡C

TOP

¦^´_ 1# jysun1


    ¤£ª¾¹D§AªºÀɮרӭì¬O¤°»ò¡AExcel?txt?Access?
Excelªº¸Ü¥ÎVBA´N«Ü¦n°µ¤F¡A
°£«D¬O­n©I¥s¨ä¥¦¸ê®Æ¨Ó·½¦A¥ÎVB.net°µ¤ñ¸û§´¡C
¤@¤À§V¤O¡A¤@¤À¦¬Ã¬¡C
µo°ÝÃD«e¥i¥H¥ý·j¯Á¤º¤å¬O§_¦³¬ÛÃö½d¨Ò¡C

TOP

¦^´_ 2# faye59
:D «D±`·PÁ¤j¤jªº¦^Âа¨¤W¨Ó¸Õ¤@¤U

TOP

        ÀR«ä¦Û¦b : ¥ÌÄ@°µ¡BÅw³ß¨ü¡C
ªð¦^¦Cªí ¤W¤@¥DÃD