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

»y¥y°ÝÃD

¦^´_ 1# basarasy
If Range("B6").Value = "" then  [a1]=1 ¬O¥¿½Tªº
If Range(ess dss).Select = "" Then      ¬O¿ù»~ªº
Select ¤èªk¡C­n±N³æ­ÓÀx¦s®æ±Ò°Ê¬°§@¥Î¤¤Àx¦s®æ

Range½d³òªº®Ñ¼g¤è¦¡->  Range("¤å¦r")
¦pªG ¦P¬O¼Æ¦rªºÅܼƭn¬Û¥[¥Î"+"
ÅܼƤ@­Ó¬O¼Æ¦r ¤@­Ó¬O¤å¦r¬Û¥[¥Î"&"

TOP

b]¦^´_ 4# basarasy
**©Ò¦³ess dss ¤¤¶¡³£¦³&  ,¥u¬Opost¥X¨Ó®É§â§Ú©Ò¦³ªº&³£del.
dss = 29   <-ÅܼƬO¼Æ¦r
ess = 17   <-ÅܼƬO¼Æ¦r
sss = 0     <-ÅܼƬO¼Æ¦r
Range½d³òªº®Ñ¼g¤è¦¡->  Range("
¤å¦r")


¬°¦ó§Úrun¨ì If Range("B6" ...    ½ÐªþÀɤW¨Ó

TOP

        ÀR«ä¦Û¦b : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD