[µo°Ý] §PÂ_«ü©wÄæ¦ì¤º¬O§_¦³³]©w¤½¦¡

jsc0518

Dear all,
§Ú·Q¦bD2Äæ¦C¶}©l³]©w¡AÀ°§Ú§PÂ_C2Äæ¦C°_¡A¨äC2¡BC3¡BC4.....Äæ¦ì¤ºªº¸ê®Æ¬O§_¬O±a¦³¤½¦¡
­Y¬OÄÝ©ó¤H­ûKEYINªº¡A´N©óD2¡BD3¡BD4...Åã¥Ü"µL¤½¦¡"
¤Ï¤§Äæ¦ì¤º®e¦³³]©w¤½¦¡¡A´N©óD2¡BD3¡BD4...Åã¥Ü"¦³¤½¦¡"

¤U¸ü (52.7 KB)

2021-12-16 11:05

§PÂ_«ü©wÄæ¦ì¤º¦³³]©w¤½¦¡.rar (9.04 KB)

¤U¸ü¦¸¼Æ: 3

2021-12-16 11:05

samwang

Dear all,
§Ú·Q¦bD2Äæ¦C¶}©l³]©w¡AÀ°§Ú§PÂ_C2Äæ¦C°_¡A¨äC2¡BC3¡BC4.....Äæ¦ì¤ºªº¸ê®Æ¬O§_¬O±a¦³¤½¦¡
­Y¬O ...
jsc0518 µoªí©ó 2021-12-16 11:05

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
For i = 2 To [c65536].End(3).Row()
    If Cells(i, "c").HasFormula Then
        Cells(i, "d") = "¦³¤½¦¡"
    Else
        Cells(i, "d") = "µL¤½¦¡"
    End If
Next
End Sub

jsc0518

¦^´_ 2# samwang
Dear samwang,
¤U¤È¦n¡A·PÁ±zªº¼ö¤ß¦^ÂлP±Ð¾É¼Ú¡A·P®¦¡I
Thank you. ^^