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

[µo°Ý] If...then «á­±¥y¤l¤Óªø

[µo°Ý] If...then «á­±¥y¤l¤Óªø

IF¥y¤l¤Óªø.rar (7.76 KB) ½Ð°Ý­n«ç¼ËÁY´î¥y¤l©O
§Ú­n¼gªº·N«ä¬O
¦pªGC9¦³¾·ªº®É­Ô
¨ú®ø¦X¨ÖÀx¦s®æ¨Ã¥B¸ê®Æ­åªR¡A¥H"¥]"¬°°ò·Ç¡A±NÀx¦s®æ¤À¶}

¦ý§Ú©È§Ú¼gªºµ{¦¡½X¡A·|Åܦ¨  ¸ê®Æ­åªR¸òIF¨SÃö«Y
½Ð±Ð¦U¦ì¤j¤j¤F

[attach]25057[/attach]
  1. Sub ¥¨¶°2()
  2. '
  3. ' ¥¨¶°2 ¥¨¶°
  4. If Range("C9") Like "*¾·*" Then Range("C9").UnMerge

  5. Range("C9").TextToColumns Destination:=Range("C9"), DataType:=xlDelimited, _
  6. TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
  7. Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
  8. :="¥]", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
  9. End Sub
½Æ»s¥N½X

¦^´_ 1# popomilk


    ¹ï¤£°_¦U¦ì¤j¤j
§Ú¤w¸g¸Ñ¨M¤F

³Â·Ð©¿²¤¦¹½g

TOP

        ÀR«ä¦Û¦b : ®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí ¤W¤@¥DÃD