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

[µo°Ý] ½Ð±Ðµ{¦¡½X²¤Æ¡A¥[³t¹Bºâ¡AÁÂÁÂ!

¥»©«³Ì«á¥Ñ n7822123 ©ó 2018-10-3 01:11 ½s¿è

¦^´_ 1# jks2018


¨SÀɮסA¤£ª¾¹D­n·F¹À?
  1. Sub ¤£ª¾¹D­n·F¹À()
  2. Sheets("°]°È¤ÀªR").Activate
  3. Dim RG As Range
  4. Set RG = Union([b3], [b4], [b5], [b6], [b9])
  5. RG = "=R[43]C[7]"
  6. Columns("B:I").AutoFit
  7. End Sub
½Æ»s¥N½X
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD