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

[µo°Ý] Àx¦s®æ¨q¥X¤º®e¦Û°Ê¤À¦C°ÝÃD½Ð±Ð

[µo°Ý] Àx¦s®æ¨q¥X¤º®e¦Û°Ê¤À¦C°ÝÃD½Ð±Ð

DEAR  ALL ¤j¤j
1  RANGE("A1")=111
2 RANGE("A2")=222
3 RANGE("A3")= A1&a2
  3.1 ¦¹®É RANGE("A3") ¨q¥X 111222
  3.2 ½Ð°Ý§Ú¦p¦óÅý   RANGE("A3") ¨q¥X    111
                                                  222
      3.2.1 §Y·|¦Û°Ê±N   RANGE("A1") »P  RANGE("A2")¤§¤º®e ¦Û°Ê¤À¦C¨q¥X©ó  RANGE("A3")
4·Ð¤£§[½ç±Ð   THANKS*10000
ù

DEAR  ALL ¤j¤j
¨Ï¥Î VBA ¥i  ²[¼Æ¦³µL¿ìªk???

Sub AA()
Sheet1.Range("B5") = Sheet1.Range("A1") & Chr(10) & Sheet1.Range("A2") & Chr(10) & Sheet1.Range("A3")
End Sub
ù

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2015-12-12 10:41 ½s¿è

=A1&CHAR(10)&A2&CHAR(10)&A3¡@³]¬°¡e¦Û°Ê´«¦C¡f

®æ¼Æ¤Ö¥i¥Î¡A¦hªº¸Ü¡AÁÙ¬OVBA¥i¾a¡ã¡ã


³Ì²©öªº¦Û­q¨ç¼Æ¡]­­³æÄæ©Î³æ¦C¡^¡G
Function ¤å¦r¦ê(RR, uM)
¤å¦r¦ê = Join(Application.Transpose(RR), uM)
End Function

RR¬°Àx¦s®æ½d³ò¡AuM¬°³s±µ²Å¸¹¡ã¡ã
¤½¦¡½d¨Ò¡G
=¤å¦r¦ê(A1:A3,CHAR(10))
=¤å¦r¦ê(A1:A3,"/")

TOP

DEAR  ­ã´£³¡ªL SIR
·PÁ±z¸Ô²Ó¤§»¡©ú  THANKS*10000
ù

TOP

        ÀR«ä¦Û¦b : ¬O«D·í±Ð¨|¡AÆg¬ü§@ĵ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD