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

²Õ¦X¦r¦ê¥[¤JªÅ¥Õ¦r¤¸°Ï¹j

¦^´_ 3# zz5151353

¤Ó¦n¤F¡A§A³o²µuªºVBA§Ú¬Ý±oÀ´¡C¦³¤@¦æ¦n¹³¥i¥H¤£¥Î¡C
  1. Function zz(i As Range) As String
  2.     For Each j In i
  3.         zz = Trim(zz & " " & j)
  4.     Next
  5.     'zz = Application.WorksheetFunction.Substitute(A, " ", " ")
  6. End Function
½Æ»s¥N½X
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP


¥i»s¦¨¼W¯q¶°«á¤Þ¥Î
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

  1. Function QQString(QBase, QMark$, QBy%) As String
  2. Dim TT$, xR
  3. If Val(QBy) > 0 Then QBase = QBase
  4. For Each xR In QBase
  5. ¡@¡@If xR <> "" Then TT = TT & QMark & xR
  6. Next
  7. QQString = Mid(TT, 2)
  8. End Function
½Æ»s¥N½X
¡@
¤½¦¡¡G=QQString(A1:E5,"-",0)
¡@¡@¡@=QQString(A1:E5,"-",1)
¡@
QMark¡]³s±µ²Å¸¹¡^¡DQBy=0¡]´`¦C¡D¥Ñ¥ª¦Ó¥k¡Ö¥Ñ¤W¦Ó¤U¡^¡DQBy>0¡]´`Äæ¡D¥Ñ¤W¦Ó¤U¡Ö¥Ñ¥ª¦Ó¥k¡^

TOP

¦^´_ 13# ­ã´£³¡ªL

If Val(QBy) > 0 Then QBase = QBase

½Ð°Ý³o¥y©ñ¦bFunction ©M ©ñ¦b Sub¤¤·|¦³¤£¦Pµ²ªG¡A爲¤°麽¡H
ss

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD