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

[µo°Ý] ½Ð°Ýoffset(ÅܼÆ)¸Ó¦p¦ó½s¼g

¦^´_ 1# lifedidi
  1. Option Explicit
  2. Sub Test()
  3.     Dim x As String, y As Variant
  4.     x = "A1"
  5.     y = "0,0"
  6.     y = Split(y, ",")
  7.     Sheet2.Range(x).Offset(y(0), y(1)) = "A"
  8.     y = "1,3"
  9.     y = Split(y, ",")
  10.     Sheet2.Range(x).Offset(y(0), y(1)) = "B"
  11.     y = "3,1"
  12.     y = Split(y, ",")
  13.     Sheet2.Range(x).Offset(y(0), y(1)) = "C"
  14. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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