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

[µo°Ý] {½Ð¯q} ¤U©Ô¦¡¿ï³æ¦³¤º®e¸ê®Æ¡A¦p¦ó¥ÎVBA©Î¨ä¥L¤è¦¡§e²{¼Æ¾Ú¦b¯S©wÃC¦âªí®æ¤º?

Sub Test_a1()
Dim xA As Range
Set xA = Cells(9, [i3] * 3 - 1)
xA(3, 2).Resize(4) = [j3:j6].Value
xA(10) = [L3].Value '
xA(11, 3) = [L5].Value
End Sub

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD