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

[µo°Ý] ¦p¦ó±NDEE³sµ²¨ìExcelªº¸ê®Æ,¨Ì·Ó·Q­nªº®É¶¡°O¿ý¤U¨Ó.

¦^´_ 10# Hsieh


  ·PÁÂHsiehª©¥D¤j¤j,¯uªº¬O³o­Ó°ÝÃD,§ó·sµ{¦¡½X«á¤w¸g¸Ñ¨M¤F.
  ¯u¬O«D±`·PÁ¤j¤jªºÀ°¦£.

TOP

¦^´_ 10# Hsieh


    ª©¥D¤j¤j§A¦n,§Ú·Q½Ð±Ð¤@¤U,¦P¼Ëªºªí¸ò°O¿ý¼Ë¦¡,¦pªG§Ú·Q­n¸ê®Æ¬Û¤Ï¹L¨Ó¬ö¿ý,Åܦ¨¾ú¥v¸ê®Æ¤@ª½©¹«á±À,¦b(A2,B2,C2)¥Ã»·ªº¬O«O«ù³Ì·sªº,
    ¤£ª¾¹D¦³¨S¦³¿ìªk?
    ¦]¬°§Ú¥i¯à·|§ì³Ì·sªº50µ§©Î100µ§¤§Ãþªº¼Æ¾Ú¨Ó°µ¤@¨Ç­pºâ(Ãþ¦ü¤º®e),©Ò¥H·Q­n§ì¨ú©T©wÄæ¦ì¨Ó­pºâ.(²{¦b³Ì·sªº¼Æ¾Ú³£¬O¤@ª½©¹«á±À)
    ¦A³Â·Ð¤j¤j¸Ñ´b¤@¤U. ^^


¬ö¿ý.rar (5.73 KB)

TOP

§A¸ÕµÛ¿ý»sA2:C2´¡¤JÀx¦s®æ
¦A¶ñ¤J´N¦æ¤F
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 13# Hsieh


    ª©¥D¤j¤j,½Ð±Ð¤@¤U,§Ú¿ý»s¦n¤§«á,À³¸Ó¥[¤J¦b­ì¨Óµ{¦¡½X¤¤­þ¤@­Ó¦ì¸m©O?
    §Ú¦Û¤v¦³¸ÕµÛ¥[¤J°õ¦æ,¦ý¬O,³£¤£¬O¥¿½Tªºµ²ªG.
    ¥H¤U¬O¿ý»s¥X¨Óªºµ{¦¡½X:
    Sub Macro1()
'
' Macro1 Macro
    Range("A2:C2").Select
    Selection.Insert Shift:=xlDown
End Sub

§Ú¬O·s¤â«Ü¦h¤£À´,¯u¬O©êºp,¦A³Â·Ð¤j¤j¸Ñ´b¤F.

TOP

¦^´_ 14# aries
  1. Private Sub Worksheet_Calculate() '³o¬OSheet1¹w³]ªº­«ºâIJ°Ê¨Æ¥óµ{¦¡
  2.     Dim A As Range
  3.      With Sheet2
  4.      .[A2:C2].Insert xlShiftDown
  5.      Set A = .Cells(2, 1).Resize(, 3)
  6.      If A.Row > 100 Then i = i + 3: .Cells(1, i + 1).Resize(, 3) = [A1:C1].Value '¨ì²Ä100¦C®É¥k²¾3Äæ
  7.      Set A = .Cells(2, i + 1).Resize(, 3)
  8.      If IsError([C2].Value) Then Exit Sub
  9.        If .[C3] <> [C2] Then   '¦¨¥æ»ù¦³²§°Ê®Éªº±ø¥ó¦¨¥ß®É
  10.             A.Value = [A2:C2].Value '±NShse1ªº¤é´Á,®É¶¡,¦¨¥æ»ù°O¿ý¨ìSheet2
  11.             Else
  12.             .[A2:C2].Delete xlShiftUp '¥¼²§°Ê»ù®æ´N§R°£´¡¤Jªº
  13.        End If
  14.     End With
  15. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 15# Hsieh


    ÁÂÁª©¥D¤j¤j,¤w¸g¥i¥H¦bA2~C2«O«ù¬O³Ì·s¸ê®Æ,¦ý¬O²{¦bµLªk¨ì100¦C¤§«á´«¦æ,Åܦ¨¤@ª½¦bA~C©¹¤U¬ö¿ý¦Ó¤w.
    ©êºp,¦A³Â·Ð¤j¤j¤F,ÁÂÁÂ!!

TOP

¦^´_ 16# aries
  1. Private Sub Worksheet_Calculate() '³o¬OSheet1¹w³]ªº­«ºâIJ°Ê¨Æ¥óµ{¦¡
  2.     Dim A As Range
  3.      If IsError([C2].Value) Then Exit Sub
  4.      With Sheet2
  5.      i = .[IV1].End(xlToLeft).Column - 2
  6.        'If .[C3] <> [C2] Then   '¦¨¥æ»ù¦³²§°Ê®Éªº±ø¥ó¦¨¥ß®É
  7.           If .Cells(65536, i).End(xlUp).Row = 100 Then i = i + 3: .Cells(1, i).Resize(, 3).Value = [A1:C1].Value
  8.           .Cells(2, i).Resize(, 3).Insert xlShiftDown
  9.           .Cells(2, i).Resize(, 3) = [A2:C2].Value '±NShse1ªº¤é´Á,®É¶¡,¦¨¥æ»ù°O¿ý¨ìSheet2
  10.        'End If
  11.     End With
  12. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ aries ©ó 2010-11-26 10:25 ½s¿è

¦^´_ 17# Hsieh

ÁÂÁª©¥D¤j¤j,¦A¥´ÂZ§A¤F.²{¦b¥i¥H´«¦æ¤F,¥u¬O´«¦æ¤§«á³Ì·s¸ê®Æ¤]¸òµÛ´«¦æ¤F.
A~CÅܦ¨Â¸ê®Æ,¦³¿ìªkÅýA~C³£¬O³Ì·sªº¸ê®Æ,¦Ó¸ê®Æ¤@ª½©¹A~C¤§«á²¾°Ê¶Ü?

¥t¥~,§Ú°õ¦æ¤¤¦³¥X²{¿ù»~°T®§,«á¨Óµo²{¬O¦]¬°Äæ¦ì¤£¨¬,¤w¸g¶]¨ìIV,§Ú´N§ï¨ì3000¦C¦b´«¦æ,´N¥¿±`¤F.
©êºp,¦A¦¸³Â·Ð¤j¤j.

TOP

¥»©«³Ì«á¥Ñ aries ©ó 2010-11-29 09:34 ½s¿è

¦^´_ 17# Hsieh

(¦]¬°«e¤@«Ê¤@¶}©l§Ñ¤FÂI¦^´_,«á¨Ó¤~½s¿è¥[¤J¦^´_½X,¤£½T©wª©¥D¤j¤j¦³¨S¦³¦¬¨ì°T®§,¦b±H¤@¦¸)

ÁÂÁª©¥D¤j¤j,¦A¥´ÂZ§A¤F.²{¦b¥i¥H´«¦æ¤F,¥u¬O´«¦æ¤§«á³Ì·s¸ê®Æ¤]¸òµÛ´«¦æ¤F.
A~CÅܦ¨Â¸ê®Æ,¦³¿ìªkÅýA~C³£¬O³Ì·sªº¸ê®Æ,¦Ó¸ê®Æ¤@ª½©¹A~C¤§«á²¾°Ê¶Ü?

¥t¥~,§Ú°õ¦æ¤¤¦³¥X²{¿ù»~°T®§,«á¨Óµo²{¬O¦]¬°Äæ¦ì¤£¨¬,¤w¸g¶]¨ìIV,§Ú´N§ï¨ì3000¦C¦b´«¦æ,´N¥¿±`¤F.
©êºp,¦A¦¸³Â·Ð¤j¤j.

(§Ú¦³·Q¹L,¦pªG¦bº¡3000¦C´N´«¦æ,§ï¦¨º¡3000¦C´N¦bABC°µ´¡¤J°Ê§@,¬O¤£¬O´N¥i¥H,¦A³Â·Ð¤j¤j«ü±Ð.)

ª©¥D¤j¤j,§Ú¦³¦A¥J²Ó¬Ý¹L,µo²{¦¨¥æ»ù¤£ºÞ¦³¨S¦³²§°Ê,³£·|¤@ª½¬ö¿ý,¤£ª¾¹D¬O­þ¸Ìªº°ÝÃD?

TOP

¦^´_ 17# Hsieh


  ª©¥D¤j¤j,§Ú·Q»¡ª½±µ¥Î¤§«eªº¤£¯à¸õ¦æªº¦n¤F,¤ñ¸û¥¿±`,±z¤£¥Î¦A³Â·Ð¤F.
  ÁÂÁª©¥D¤j¤jªº«ü±Ð.:)

TOP

        ÀR«ä¦Û¦b : ¹D¼w¬O´£ª@¦Û§Úªº©ú¿O¡A¤£¸Ó¬O¨þ¥¸§O¤HªºÃ@¤l¡C
ªð¦^¦Cªí ¤W¤@¥DÃD