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

[µo°Ý] DDE¨C¤ÀÄÁ°O¿ýªº¸ê®Æ±Æ§Ç°ÝÃD

¦^´_  f3202


ÁÂÁ«ü¾É...

¥i§_¦A«_¬N½Ð°Ýºô¤W°ª¤â...
Sht1.Range("A" & xRow & ":N" & xRow).Val ...
jaway µoªí©ó 2018-6-17 13:55



¤w¦Û¦æµo²{°ÝÃD...ÁÂÁ¦U¦ì°ª¤â!

TOP

¦^´_ 10# jaway
§Aªº·N«ä¬O«ü¡G
±N Sht1.Range("A" & xRow & ":N" & xRow).Value = Sht1.Range("A8:N8").Value ­×§ï¦¨
Sht1.Range("A" & xRow & ":O" & xRow).Value = Sht1.Range("A8:O8").Value
¡H

TOP

¦^´_  jaway
§Aªº·N«ä¬O«ü¡G
±N Sht1.Range("A" & xRow & ":N" & xRow).Value = Sht1.Range("A8:N8").Va ...
c_c_lai µoªí©ó 2018-6-18 08:34

¥ýÁÂÁÂC¤j...´N¬O±z»¡ªº·N«ä,§Ú¤w¸Ñ¨M³o­Ó°ÝÃD,
¥Ø«e¬O¤£ª¾­n¦p¦ó¦A¼W¥[¤@­Ó¬¡­¶Ã¯,°O¿ý©]½L,
¤£ª¾¥i§_½Ð±z«ü¾É...

TOP

¦^´_ 13# jaway
¸Õ¸Õ¬Ý¬O§_¥i¦æ¡G
  1. Sub ¦@¥Î°Ñ·Ó()
  2.     Set MyBook = ThisWorkbook
  3.    
  4.     If Time > Sheets("Sheet1").Range("AV2").Value And Time <= Sheets("Sheet1").Range("AW2").Value Then
  5.         Set Sht1 = MyBook.Sheets("Sheet2")  ' ©]½L -----
  6.         StartTime = Sheets("Sheet1").[AW1]  '   ¶}½L®É¶¡
  7.         EndTime = Sheets("Sheet1").[AW2]    '   ¦¬½L®É¶¡
  8.     End If
  9.         Set Sht1 = MyBook.Sheets("Sheet1")  ' ¤é½L -----
  10.         StartTime = Sheets("Sheet1").[AV1]  '   ¶}½L®É¶¡
  11.         EndTime = Sheets("Sheet1").[AV2]    '   ¦¬½L®É¶¡
  12.     Else
  13. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# c_c_lai

    ½Ð°Ý c_c_lai ¤j¤j¡G
  1. Sht1.Range("A9:N9").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  2.     Sht1.Range("A9:N9").Value = Sht1.Range("A8:N8").Value
½Æ»s¥N½X
¦]¬°E8=D8+D9
    ´¡¤J«á...E8·|Åܦ¨D8+D10¡BD8+D11.......
    ¦ý¬O§Ú§Æ±æ´¡¤J«áE8ªº¤½¦¡¡A¤@­È³£¬OD8+D9
    Àµ½Ð¤j¤j«ü¾É¡I¡IÁÂÁ±z¡I¡I

TOP

¦^´_  c_c_lai

    ½Ð°Ý c_c_lai ¤j¤j¡G¦]¬°E8=D8+D9
    ´¡¤J«á...E8·|Åܦ¨D8+D10¡BD8+D11.......
  ...
cslu37 µoªí©ó 2019-5-18 22:18

¤£¤Ó©úÁA¡A¯àÁ|¹ê¨Ò»¡©ú¶Ü?

TOP

¦^´_ 16# c_c_lai

     c_c_lai¤j¤j±z¦n¡G
    §Ú¬O·Q­n¼g¦¨  I10=D10+E11  ­n©T©w¤£ÅÜ
   
   ¦ý¨C´¡¤J¤@¦æ¡AE´N·|¦V¤U±À¤@Äæ¡C
   ¦pªþÀÉ¡G²Ä¤@¦¸´¡¤J¡÷I10ªº¤½¦¡´N·|Åܦ¨D10+E11
                   ²Ä¤G¦¸¦A´¡¤J¡÷I10ªº¤½¦¡´N·|Åܦ¨D10+E12
                   ²Ä¤T¦¸¦A´¡¤J¡÷I10ªº¤½¦¡´N·|Åܦ¨D10+E13........¥H¦¹Ãþ±À

   Àµ½Ð¤j¤j«ü¾É¡AÁÂÁ±z¡I¡I

´¡¤J°ÝÃD.png (18.41 KB)

´¡¤J°ÝÃD.png

TOP

¦^´_ 17# cslu37
¬O³o·N«ä¶Ü?
  1. Sht1.Range("E8").Value = "=D8+D9"
  2. Sht1.Range("A9:N9").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  3. Sht1.Range("A9:N9").Value = Sht1.Range("A8:N8").Value
½Æ»s¥N½X

TOP

¦^´_ 18# c_c_lai

  ÁÂÁÂ c_c_lai ¤j¤j^^~
  ²{¦b¤½¦¡¤£·|¤@ª½©¹¤U²¾°Ê¤@¦æ¤F!!
  ¤j¤j¯uªº¬O¤Ó¼F®`¤F!!ÁÂÁ¤j¤j¡ã¡ã¡ã

TOP

¦^´_ 18# c_c_lai


     ½Ð±Ð¤j¤j¡G
     ³o­ÓÀÉ®×¥u¯à°O¿ý¤@ºØ®É¶¡ªº°Ó«~(8:45~13:45)
     ­Y·Q ¦P®É°O¿ý 3ºØ¤£¦P®É¶¡ªº°Ó«~
      ¨Ò¦p¡G (°Ó«~¤@) 7:45~14:15
                   (°Ó«~¤G) 8:45~13:45
                   (°Ó«~¤T) 9:15~12:00
     ½Ð°Ý­n¦p¦ó­×§ï©O?  
     ·PÁ¤j¤j«ü¾É¡I¡I

TOP

        ÀR«ä¦Û¦b : ¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD