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

[µo°Ý] ¸ê®Æªº½Æ»s¡B¶K¤W¡A»yªk°ÝÃD

¥»©«³Ì«á¥Ñ n7822123 ©ó 2019-6-21 14:11 ½s¿è

¦^´_ 9# iceandy6150


UsedRange¬O­pºâ¬Y­Ó¤u§@ªíªº¨Ï¥Î½d³ò~~~©Ò¥H«e­±³Ì¦n«ü©w¬O­þ­ÓSheet
§Aªº«ö¶s¦b¤u§@ªí1¡A©Ò¥H¤u§@ªí1¤@¶}©l´N¬OActivate¤F~~~~
ºÉ¶q¤£­n¤@ª½¤Á´«¤u§@ªí.........§â¦Û¤v§Ë²V¶Ã¤F~~~§Ú¥ú¬Ý§Aªº»¡©ú...§Ú¦Û¤v¤]²V¶Ã¤FXD
¨Ì·Ó§Aªº¼gªk¡A§Ú»{¬°§AÁÙ¬Oª½±µ«ü©w­þ­Ó¤u§@ªí¤ñ¸û¦w¥þ^.^
§A¦bppt¤u§@ªíªº¾Þ§@¤ñ¸û¦h¡A«ö¶s«o³]¦b¤u§@ªí1ªº½T®e©ö¥X°ÝÃD

¦pªG¬O§Ú¡A´N³o¼Ë¼gºO~~~

With Sheets("PPT")
  If .[A1].Value <> "" Then .[A1:Z200].Delete Shift:=xlShiftUp    '²M°£©Ò¦³¸ê®Æ
  [A1].CurrentRegion.Copy
  .[A1].PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
  , SkipBlanks:=False, Transpose:=False
  Application.CutCopyMode = False
  A = .UsedRange.Rows.Count
  For i = 2 To A
    .Range("U" & i).Value = .Range("G" & i).Value + 1
  Next i
End With
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 10# ­ã´£³¡ªL


    ¦nªº¡A«D±`·PÁÂ

¥u¬O¦]¬°¦³®É­Ô«Üªø¤@¦ê
§Ú³£·Q¬Ù¤@¤U¡A¨þ¨þ
«¢Åo~¤j®a¦n§r

TOP

UsedRange¬O­pºâ¬Y­Ó¤u§@ªíªº¨Ï¥Î½d³ò~~~©Ò¥H«e­±³Ì¦n«ü©w¬O­þ­ÓSheet
§Aªº«ö¶s¦b¤u§@ªí1¡A©Ò¥H¤u§@ªí1¤@¶}©l´N¬OActivate¤F~~~~
ºÉ¶q¤£­n¤@ª½¤Á´«¤u§@ªí.........§â¦Û¤v§Ë²V¶Ã¤F~~~§Ú¥ú¬Ý§Aªº»¡©ú...§Ú¦Û¤v¤]²V¶Ã¤FXD
¨Ì·Ó§Aªº¼gªk¡A§Ú»{¬°§AÁÙ¬Oª½±µ«ü©w­þ­Ó¤u§@ªí¤ñ¸û¦w¥þ^.^
§A¦bppt¤u§@ªíªº¾Þ§@¤ñ¸û¦h¡A«ö¶s«o³]¦b¤u§@ªí1ªº½T®e©ö¥X°ÝÃD

¦pªG¬O§Ú¡A´N³o¼Ë¼gºO~~~

With Sheets("PPT")
  If .[A1].Value <> "" Then .[A1:Z200].Delete Shift:=xlShiftUp    '²M°£©Ò¦³¸ê®Æ
  [A1].CurrentRegion.Copy
  .[A1].PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
  , SkipBlanks:=False, Transpose:=False
  Application.CutCopyMode = False
  A = .UsedRange.Rows.Count
  For i = 2 To A
    .Range("U" & i).Value = .Range("G" & i).Value + 1
  Next i
End With
¦^´_ 11# n7822123

³á~ ¨º§Úª¾¹D¤F  «ö¶s¦b­þ¤@­¶¡A«ö¤U«ö¶sªº®É­Ô¡A¨º¤@­¶´N¬OActivate¤F
¥ô¦ó«ü¥O©Î¬O¬Ù¤F "«e­±¦a§}" ªº¼gªk¡A³£¬O°w¹ï³o¤@­¶­±¦b°Ê§@

©Ò¥H¦pªG¤T­ÓSHEET¡A¤À§O¬O¡i¥\¯à°Ï¡j¡B¡iµ²ªG°Ï¡j¡B¡i¿é¥X°Ï¡j
«Ü¦h«ö¶s¥\¯à³£¬O¼g¦b¡i¥\¯à°Ï¡jªº¸Ü

§Ú¥u­n¼g
Range("A1:B5").select  ==>> ¡i¥\¯à°Ï¡jªºA1~B5·|³Q¿ï¨ú

¦pªG·Q­n°w¹ï¥t¥~¨â­Ó­¶­±¥h°µ³B²z
§Ú´N¥²¶·¥ý¼gWITH

With Sheets("µ²ªG°Ï")
.Range("A1:B5").select    ==>>  ¡iµ²ªG°Ï¡jªºA1~B5·|³Q¿ï¨ú    «e­±­n¥["ÂI"¡A¤~¬O°w¹ïWithªºSheet¨Ó°Ê§@

¨º¨Ó­Ó´ú¸Õ
¦pªGµ{¦¡¦p¤Uªº¸Ü
Range("A1:B5").select

With Sheets("µ²ªG°Ï")
.Range("A1:B5").select
End with

With Sheets("¿é¥X°Ï")
.Range("A1:B5").select
End with

ªGµM´N·|¨Ä¨Äªº¥h¿ï¨ú¦USheet¿ï¨ú¸Ó¹ïÀ³ªº°Ï¶ô
¡i¥\¯à°Ï¡jªºA1~B5·|³Q¿ï¨ú
¦A¨Ó¬O
¡iµ²ªG°Ï¡jªºA1~B5·|³Q¿ï¨ú
¦A¨Ó¬O
¡i¿é¥X°Ï¡jªºA1~B5·|³Q¿ï¨ú

­ì¨Ó¦³ÂI ¸ò¨S¦³ÂI  ÁÙ¦³WITH  ¬O³o¼Ë¥Î±o³á
§Ú·|¤F  YA~ ·PÁ¤j¤j±Ð¾Ç~
«¢Åo~¤j®a¦n§r

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD