Hsieh

¦^´_ 1# 198188

¸ê®Æ­åªR

¤U¸ü (705.23 KB)

2013-1-9 22:40

Hsieh

¦^´_ 3# 198188
³oÃþ°ÝÃD±`¬O¥Ñ¨ä¥L³nÅéÂà¤J©Î¬Oºô­¶½Æ»s¶K¤W
­Y¬O¤W­z±¡ªp¥i¯à¥u¦³ÂǥѸê®Æ­åªR¨Ó­×¥¿
ÁÙ¦³¤@ºØ¥i¯à¬O§Aªº¤u§@ªíÀx¦s®æ¼Ë¦¡ªº¼Æ値®æ¦¡³]©w¦¨¤å¦r¡A©Ò¥H¿é¤J¼Æ¦r¤]·|³Q¦s¦¨¤å¦r

Hsieh

¦^´_ 5# 198188
http://forum.twbts.com/thread-4577-1-2.html
³y¦¨ÀÉ®×µê­Dªº­ì¦]¤Ó¦h¤F
¥ô¦ó¤@­Ó¾Þ§@³£·|³Q°O¿ý¤U¨Ó
VBA¹ïÀɮ׸ê®Æªº¾Þ§@¥²¶·ºÉ¥i¯à¥u¹ï³Ì¤p¸ê®Æ½d³ò°µ¾Þ§@

Hsieh

¦^´_ 9# 198188
A1¬O¼Æ­Èµ´¹ï¨S°ÝÃD
B1¬O¤å¦r¡A¨º´N­n¬Ý¤å¦r¬O§_¦³³W«h
³£¬O2¦ì¼Æ¥[%¶Ü?
¦³¥i¯à5%©Î100%³o¼Ë«D2¦ì¼Æ¶Ü?
¬O§_»Pdeposit¤§¶¡³£¦³ªÅ®æ?
­Y¥H§Aªº¨Ò¤l¨Ï¥ÎLEFT¨ú3­Ó¦r¤¸
%²Å¸¹ÁÙ¬O·|±NLEFT¨ú¥Xªº20%µø¬°¤å¦r
¦Ó²£¥Í«¬ºA¤£²Å
¥i§Q¥ÎEvaluate¨ç¼ÆÂন­pºâ¦¡

1. Sub ex()
   
2. [C1] = Evaluate([A1] & "*" & Left([B1], 3))
   
3. End Sub

½Æ»s¥N½X

¤U¸ü (86.14 KB)

2013-2-8 10:33

Hsieh

¦^´_ 11# 198188


    [B1]=Split([A1],"/")(0)

Hsieh

¦^´_ 16# 198188

1. For Each a In Range([A1], [A1].End(xlDown)) '³B²zAÄæ¤å¦r
   
2. d = IIf(InStr(a, "/") > 0, "/", IIf(InStr(a, " ") > 0, " ", "-")) '¨ú±o¤À¹j²Å¸¹
   
3. b = IIf(InStr(a, ", ") > 0, Replace(a, ", ", ","), a) '­Y¥HªÅ¥ÕÁ䬰¤À¹j¡A«h±N³r¸¹«áªºªÅ¥Õ®ø°£
   
4. mystr = Split(b, d)(UBound(Split(b, d))) '¥H¤À¹j²Å¸¹¤À¹j«á³Ì«áªº¦r¦ê
   
5. a.Offset(, 1) = Trim(Replace(b, d & mystr, "")) '¼g¤JBÄæ
   
6. a.Offset(, 2) = Trim(mystr) '¼g¤JCÄæ
   
7. Next

½Æ»s¥N½X

Hsieh

¦^´_ 21# 198188

    Set FRng = wb.Sheets("HK HAIPONG").Range("A:A").Find(A, lookat:=xlWhole, SearchDirection:=xlPrevious)
     If Not FRng Is Nothing Then
        If Trim(FRng.Offset(, 11).Value) <> "" then  
             A.Offset(, 1) = FRng.Offset(, 11).Value
             If rng Is Nothing Then Set rng = A.Offset(, 1) Else Set rng = Union(rng, A.Offset(, 1))
       End If
     End If

Hsieh

¦^´_ 23# 198188

¬Ý§Aªºµ{¦¡½X¦ü¥G¬OÁÙ¦³¥t¤@Àɮ׬°°õ¦æµ{¦¡ªºÀÉ®×
¦ý¬O¦bµ{¦¡½X¤º®e«o¤£¬O°w¹ïMaster.xlsxÀÉ®×°µ§ó·s
³o¼ËÂ_³¹¨ú¸qªº°ÝÃDµLªk¸Ñµª

Hsieh

¦^´_ 25# 198188

ThisWorkbook¬O«üµ{¦¡½X©Ò¦bªº¬¡­¶Ã¯