µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Excel£¸¯ë°Ï
» ±a¥X¹ïÀ³È
 
1
2
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
±a¥X¹ïÀ³È
ã´£³¡ªL
µoµu®ø®§
¥[¬°¦n¤Í
ã´£³¡ªL
·í«eÂ÷½u
UID
13768
©«¤l
2839
¥DÃD
10
ºëµØ
0
¿n¤À
2895
ª÷¿ú
2895
ÂI¦W
0
§@·~¨t²Î
¡e²¤¡f
³nÅ骩¥»
¡e²¤¡f
¾\ŪÅv
100
©Ê§O
¨k
¨Ó¦Û
¡e²¤¡f
¦b½u®É¶¡
2113 ¤p®É
µù¥U®É¶¡
2013-5-13
³Ì«áµn¿ý
2024-12-22
ª©¥D
©«¤l
2839
¥DÃD
10
ºëµØ
0
¿n¤À
2895
ÂI¦W
0
§@·~¨t²Î
¡e²¤¡f
³nÅ骩¥»
¡e²¤¡f
¾\ŪÅv
100
©Ê§O
¨k
¨Ó¦Û
¡e²¤¡f
µù¥U®É¶¡
2013-5-13
³Ì«áµn¿ý
2024-12-22
11
#
¸õÂà¨ì
»
µoªí©ó 2022-1-7 12:21
|
¥u¬Ý¸Ó§@ªÌ
¦^´_
10#
PJChen
TEXT(???,"¥¿¼Æ;t¼Æ;¹s;¤å¦r")
TEXT(IF(B4:E4="",-1,B4:E4),"1;;1;!1")
ªÅ®æ--Âন-1
¥¿¼Æ¥H1ªí¥Ü, t¼Æ"", ¹s¥H1ªí¥Ü, ¤å¦r¥H1ªí¥Ü
TOP
Andy2483
µoµu®ø®§
¥[¬°¦n¤Í
Andy2483
(«pÁy¥Öªº¾Ç¥Í)
·í«eÂ÷½u
UID
36777
©«¤l
1447
¥DÃD
40
ºëµØ
0
¿n¤À
1471
ª÷¿ú
1471
ÂI¦W
0
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Excel 2010 & 2016
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
¥xÆW
¦b½u®É¶¡
1429 ¤p®É
µù¥U®É¶¡
2020-7-15
³Ì«áµn¿ý
2024-12-5
¡@¼ÊºÙ:
«pÁy¥Öªº¾Ç¥Í
¤j¾Ç¥Í
©«¤l
1447
¥DÃD
40
ºëµØ
0
¿n¤À
1471
ÂI¦W
0
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Excel 2010 & 2016
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
¥xÆW
µù¥U®É¶¡
2020-7-15
³Ì«áµn¿ý
2024-12-5
12
#
µoªí©ó 2023-1-5 15:05
|
¥u¬Ý¸Ó§@ªÌ
¥»©«³Ì«á¥Ñ Andy2483 ©ó 2023-1-5 15:09 ½s¿è
¦^´_
6#
PJChen
ÁÂÁ«e½úµoªí¦¹¥DÃD»P½d¨Ò
¤µ¤Ñ¾Ç²ß
http://forum.twbts.com/thread-23571-1-1.html
¦¹©«ªì¦¸¾Ç¨ìSwitch ¨ç¼Æ,
«á¾ÇÂǦ¹©«½m²ßVBA Switch ¨ç¼Æ,½Ð°Ñ¦Ò
ÁÂÁ 㴣³¡ªL«e½ú
°õ¦æ«e:
¤U¸ü
(266.29 KB)
2023-1-5 15:04
°õ¦æµ²ªG:
¤U¸ü
(282.66 KB)
2023-1-5 15:04
Option Explicit
Sub ±a¥X¹ïÀ³È_1()
Dim Brr, i&, j&, K%, S$
Brr = Range([¤ñµá¦h!Q4], [¤ñµá¦h!A65536].End(3))
For i = 1 To UBound(Brr)
ReDim T(1 To 5)
For j = 1 To 5
T(j) = Val(Replace(Brr(i, j), "W", 1))
Next
K = Switch(T(2) > 0, 6, T(3) > 0, 9, T(4) > 0, 12, T(5) > 0, 15, T(1) > 0, 1)
Brr(i, 1) = Brr(i, K)
Next
[W:W].ClearContents
[¤ñµá¦h!W4].Resize(UBound(Brr), 1) = Brr
Set Brr = Nothing: Erase T
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
TOP
ÀR«ä¦Û¦b :
¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
 
1
2
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
EXCEL±MÄÝ°Q½×°Ï
Excel£¸¯ë°Ï
Excelµ{¦¡°Ï
¶i¶¥À³¥Î±M°Ï
OFFICE ¨t¦C
Word
PowerPoint
Access
Office¤£¤À°Ï
µ{¦¡»y¨¥
VB »P VB.Net
C »P C#
Java »P J#
µ{¦¡³]p¤£¤À°Ï
¸ê®Æ®w
ORACLE
My SQL
MS SQL
ºô¶³]p
ASP »P ASP.NET
PHP
PHP+MySQL ¤Jªù¹ê§@
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
ºô¶³]p¤£¤À°Ï
¹q¸£»P§@·~¨t²Î
¹q¸£¦UºØµwÅé°Q½×
¤@¯ë¹q¸£³nÅé°Q½×
½×¾Â¨Æ°È
ºÞ²z¤½§i
§ë¶D¤Ï¬M
·s¤â´ú¸Õ
·R ¡E ¥Í¬¡
¤½¯q§G§iÄæ
¥Í¬¡»P·P°Ê
[¦¬Âæ¹¥DÃD]
[Ãöª`¦¹¥DÃDªº·s¦^´_]
[³q¹L QQ¡BMSN ¤À¨Éµ¹ªB¤Í]
¥Ó½Ð¤Í±¡Ãì±µ
Facebook¯»µ·