»y¥y°ÝÃD

basarasy

½Ð°Ý³o¥y¦p¦ó¥´¤~¥¿½T.
If Range("B6").Value = "" then  [a1]=1

¬°¦ó¤£¥i¥H³o¼Ë¥´ Range("B6").Value = ""  ??

¤£ª¾¿ù¦b¨º¸Ì><
dss = 29
ess = 17
sss = 0
Do
If dss = 34 Then ess = ess + 2

If Range(ess & dss).Select = "" Then
Range(ess & dss).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
   
    Else
    Range(ess & dss).Select
        With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End If

dss = dss + 1
sss = sss + 1
Loop Until sss = 10

victorl

¬Ý¤£À´§Aªº»Ý¨D­C???
°ÝÃD¬ORange("B6").Value ªþ¥[¤§µ{¦¡½X½T¬ORange(ess dss).Select ¦Ó¥BRange»yªk¤]¿ù¤F§a???

GBKEE

¦^´_ 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¬Û¥[¥Î"&"

basarasy

¦^´_ 3# GBKEE

©Ò¦³ess dss ¤¤¶¡³£¦³&  ,¥u¬Opost¥X¨Ó®É§â§Ú©Ò¦³ªº&³£del.

¬°¦ó§Úrun¨ì If Range("B6").Value = "" then  [a1]=1   ®É¥L»¡§Ú¿ù»~?

GBKEE

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¨Ó

basarasy

¦^´_ 5# GBKEE

¨ä¹ê§Ú¬O·Q¼g
eg.  if a1:b3="" then  ®æ¬O¥Õ¦â  Else  ®æ¬O¶À¦â

a1 ¦³ªF¦è ®æ¬O¥Õ¦â
b2 ÉNªF¦è ®æ¬O¶À¦â

Hsieh

¨Ï¥Î®æ¦¡¤Æ±ø¥ó§Y¥i

basarasy

¦^´_ 7# Hsieh

¤£¯à¥Î><

Hsieh

¤U¸ü (47.67 KB)

2010-7-2 20:28

¦^´_ 8# basarasy

basarasy

¦^´_ 10# Hsieh

§Ú¬O·Q°µ³o­Ó.