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

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

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

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...Åã¥Ü"¦³¤½¦¡"
Noname.jpg
2021-12-16 11:05


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

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

TOP

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

TOP

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD