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

[µo°Ý] ¦p¦ó¦Û°Ê½Æ»s¸ê®Æ

[µo°Ý] ¦p¦ó¦Û°Ê½Æ»s¸ê®Æ

¤p§Ì§Ú¦³¤@ÀɮסA·Q­nªÅ¥ÕÄæ¦ì¥i¥H¦Û°Ê½Æ»s»P¤W¤@µ§¸ê®Æ¬Û¦PªºÄæ¦ì¤£ª¾¸Ó«ç»ò°µ©O?

¨Ò¦pªþ¥ó¤¤ªº¹Ï¤ù¡A¥ªÃ䪺¬°­ì©lÀɮסA¥kÃ䬰§Ú·Q¦Û°Ê½Æ»s«áªºµ²ªG¡A¦]¬°¸ê®Æ¶q«Ü¤j

¬O§_¦³§ó²«Kªº¤è¦¡½Æ»s©O?

¹Ï¤ù2.jpg (57.56 KB)

¹Ï¤ù2.jpg

80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

f5~¯S®í~ªÅ®æ~½T©w¡CÁä¤J=¸¹¡AÁä¤J¡ôÁä¡Actrl+enter

TOP

¯uªº¬O¤Ó·PÁ¤j¤j¤F~³o¼Ë§Ú´N¤£¥ÎºCºC§ì¸ê®Æ¤F
¯u¬O¦n¥Îªº¤è¦¡
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 1# dragonbx
®Ú¾Ú¹Ï¤ù¤º®e ²©ö°µªºÂX¥R¥¨¶°
  1. Sub Macro2()
  2. '
  3. ' Macro2 Macro
  4. '
  5. ' §Ö³tÁä: Ctrl+e
  6. '
  7.     Range("A3:A7").Select
  8.     Selection.FormulaR1C1 = "=R[-1]C"
  9.     Range("A3:A7").Select
  10.     Selection.AutoFill Destination:=Range("A3:K7"), Type:=xlFillDefault
  11.     Range("A3:K7").Select
  12.     Range("A9:A13").Select
  13.     ActiveCell.FormulaR1C1 = "=R[-1]C"
  14.     Range("A9:A13").Select
  15.     Selection.FormulaR1C1 = "=R[-1]C"
  16.     Selection.AutoFill Destination:=Range("A9:K13"), Type:=xlFillDefault
  17.     Range("A9:K13").Select
  18.     Range("A15:A20").Select
  19.     Selection.FormulaR1C1 = "=R[-1]C"
  20.     Selection.AutoFill Destination:=Range("A15:K20"), Type:=xlFillDefault
  21.     Range("A15:K20").Select
  22. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD