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

»ù®æ¬ö¿ýªº»yªk¦³¼g¿ù¶Ü??

¦^´_ 30# c_c_lai


    C¤j§Ú¬O¥Î§AªºÀɮסAµM«á§â²Ä¤G¦C¤½¦¡¥N¤J¡A´ú¸Õµ²ªG¨S¦³¤ÏÀ³¡A§Ú²{¦b¥Xªù¤F¡A§Ú¦^®a«á·|±NÀɮפW¶Ç
´ú¸Õµ²ªG¬OÁ`¶q¤@ª½¦³ÅÜ°Ê¡A¦ýµ{¦¡³£¨S°Ê§@

TOP

¦^´_ 31# ÂŤÑÄR¦À
§Ú¶¶¤â¼g¤F¤@°¦´ú¸Õµ{¦¡¡A§A±N¥¦©ñ¤J¦Ü Module1 ¤º°õ¦æ¬Ý¬O§_¦³¼W¥[¼g¤J¦C¡A
¦pªG¨S¦³³o¤~¥sÆF²§¡C
  1. Sub Test()
  2.     Dim cts As Integer
  3.    
  4.     For cts = 3 To 13 Step 2
  5.         Cells(2, cts) = Cells(2, cts) + 1
  6.     Next cts
  7. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2016-4-8 12:54 ½s¿è

¦^´_ 32# c_c_lai


    C¤jÁÂÁ¡A§Ú¦^®a«á´ú¸Õ¡A¦ý­è­è¨º­ÓÀɮ׬°¤°»ò·|¨S°Ê§@¡H
§Ú¥þ³¡ªºµ{¦¡³£¨S¦³°Ê¡A¥u§â²Ä¤G¦Cªº¤½¦¡¥N¤J¦Ó¤w°Ú¡A«ç»ò·|³o¼Ë¡H

¤W­z¼W¥[ªºµ{¦¡¥Î·N¬O´ú¸Õ¦³¨S¦³¼W¥[¦C¶Ü¡H¨º¸ò­ì¥»ªºµ{¦¡¦³Ãö«Y¶Ü¡H

TOP

¦^´_ 33# ÂŤÑÄR¦À

TOP

¦^´_ 33# ÂŤÑÄR¦À

TOP

¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2016-4-8 22:26 ½s¿è

¦^´_ 35# c_c_lai

ªÑ²¼0.rar (18.55 KB)
    C¤j¡A¥þ³¡³£¨S¿ù­ò¡A§Ú¬O¥Î§AªºÀɮסA©Ò¥H§¹¥þ¨S§ï¡A§Ú¤W¶Ç§A¬Ý¬Ý
¥´¶}¤§«á¨S¦³¥ô¦ó°Ê§@¡A¬Æ¦Ü§Ú¤â°Ê¥h§ó§ï¶q¡AÁÙ·|¥X²{¿ù»~

TOP

¦^´_ 35# c_c_lai

ªÑ²¼10.rar (26.63 KB)
C¤jªþ¥ó¬O³Ì²×ª©¥»¡A¦¹ª©¥»¤£¥Î½Æ»s®É¶¡¡A¥u­n©¹¤U¼gB2-E2¡BF2-I2...¥H¦¹Ãþ±À¡A§Ú¤£ª¾¹D¦pªG³o¼Ëªº¸Ü¥H¤U­n¦p¦ó§ó§ï

Private Sub Worksheet_Change(ByVal Target As Range)
    '  ·í D2 Äæ¦ì¦³²§°Ê®É¡A «h¥h©I¥s RecordPrice ªº¤èªk (Method)¡C
    If Target.Address = "$D$2" Or Target.Address = "$H$2" Or Target.Address = "$L$2" Or Target.Address = "$P$2" Or _
              Target.Address = "$T$2" Or Target.Address = "$X$2" Or Target.Address = "$AB$2" Or _
              Target.Address = "$AF$2" Or Target.Address = "$AJ$2" Or Target.Address = "$AN$2" Then
        Call RecordPrice(Target.Address)
    End If
End Sub

¯uªº­n¥´100­Ó¶Ü??

TOP

¦^´_ 36# ÂŤÑÄR¦À
½Ð¥ý§â§A¨ººÝ¾ã­Ó´ú¸Õªºµ{§Çµ²ªG¸Ô²Ó¦a´y­z¤@¤U¡A
¥]§t¨é°Ó³nÅ骺±Ò°Ê¡A¥H¤Î¬O§_¦b¶}½L´Á¶¡¹B§@¡H
¨Ã§â°õ¦æ«áªºµe­± (¤@¤ÀÄÁ«e«áªº°õ¦æªºµe­±)
Hard Copy ¥X¨Ó¤W¶Ç¡A§Ú·QÁA¸Ñ³o¤§«e§AªºÂ¦³µ{¦¡
¬O¦p¦ó°õ¦æOKªº¡C¦]¬°µ{¦¡µ²ºc¥¼ÅÜ¡AÅܰʪº¶È¶È¬O
ÅÞ¿è§PÂ_¤£¦P¦Ó¤w¡A¦b§ÚºÝµL½×·s§¡¯à¥¿±`¹B§@¡A
¬°¦ó§A¨ººÝ´N¤£¦æ¡H

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2016-4-10 14:28 ½s¿è

¦^´_ 37# ÂŤÑÄR¦À
  1. Option Explicit
  2. Private Sub Workbook_Open()
  3.     Dim xRng As Range, First_Aaddres  As String, xRng_Name As String
  4.     Application.Calculation = xlCalculationAutomatic
  5.     With Sheets("RTD")
  6.         Set xRng = .Rows(2).Cells.Find("TotalVolume", LookIn:=xlFormulas)
  7.         If Not xRng Is Nothing Then
  8.             First_Aaddres = xRng.Address
  9.             Do
  10.                  xRng_Name = Split(xRng.Formula, "'")(1)
  11.                  xRng_Name = "TotalVolume" & Split(xRng_Name, ".")(0)
  12.                 .Names.Add xRng_Name, xRng  ''¦WºÙ©w¸q:©Ò¦³Á`¶qªºDee¤½¦¡ªºÀx¦s®æ
  13.                 Set xRng = .Rows(2).Cells.FindNext(xRng)
  14.             Loop Until xRng.Address = First_Aaddres
  15.         End If
  16.     End With
  17. End Sub
½Æ»s¥N½X
­«ºâ¨Æ¥ó¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Private Sub Worksheet_Calculate()
  3.         Dim Rng As Range, E As Variant
  4.         On Error Resume Next ' Àɮ׶}±Ò®É DEE¶Ç¦^¿ù»~­È
  5.         Set Rng = UsedRange.Cells.SpecialCells(xlCellTypeFormulas, xlErrors)
  6.         If Not Rng Is Nothing Then Exit Sub
  7.         On Error GoTo 0 '¶}½L¤£¦A³B²zµ{¦¡½Xªº¿ù»~
  8.        If Time < #9:00:00 AM# Or Time > #1:31:00 PM# Then Exit Sub '«DÀç·~®É¶¡
  9.         For Each E In Me.Names
  10.             If E.Name Like "*TotalVolume*" Then   'Á`¶qªº¦WºÙ
  11.                 If Range(E.Name) > 0 Then
  12.                     With Cells(Rows.Count, Range(E.Name).Column).End(xlUp)  ''Á`¶q¦WºÙ©Ò¦bªº³Ì©³¦C©¹¤W¨ì¦³¸ê®ÆªºÀx¦s®æ
  13.                             If .Row = 2 Or .Row > 2 And .Value <> Range(E.Name).Value Then
  14.                                 .Offset(1).Cells(1, -2).Resize(, 4) = Range(E.Name).Cells(, -2).Resize(, 4).Value
  15.                             End If
  16.                     End With
  17.                 End If
  18.             End If
  19.         Next
  20. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 38# c_c_lai

C¤j¡A³o¼Ë»¡¦n¤F¡A§A¤@¶}©l¶Çµ¹§ÚªºªÑ²¼0§Ú¥Î¤â°Ê§ó§ï¬O¥i¥H°õ¦æªº¡A©Ò¥H§Ú´N§â­ì¥»¨º¥÷®M¤J¤½¦¡¡A¤§«á´N¤£¯à°õ¦æ¡A§Ú"§¹¥þ"¨S¦³Åܧó¡A©Ò¥H§Ú¦b·Q¤§«e¨º¥÷¥i¥H°õ¦æ¬O¦]¬°"¯Â¼Æ¦r"¡A«á¨Ó±a¤J¤½¦¡«áµLªk°õ¦æ¡A·|¤£·|¬O¦]¬°µ{¦¡¹ï¤½¦¡ªº§PÂ_¥X²{°ÝÃD??

¦]¬°­ì¥»¥Î¼Æ¦r¥i¥H°õ¦æ¡A±a¤J¤½¦¡«á´N¤£¦æ¡A©Ò¥H§Ú»{¬°°ÝÃD¤£·|¥X²{¦b¨é°Óªº³nÅé¡A¦]¬°¦pªG°ÝÃD¥X²{¦b³nÅé¡A¨º¤@¶}©lªºªÑ²¼0´N¤]·|µLªk°õ¦æªü¡A¦ý¯Â¼Æ¦rª©ªº«o¥i¥H°õ¦æ¡A¥H¤W¬O§Ú±o¬Ýªk¡AC¤j»{¬°©O??

TOP

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD