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

[µo°Ý] ½Ð°Ý«ç¥ÎVBA ¿ï¨ú ¦³ªÅ®æªº½d³ò®æ

[µo°Ý] ½Ð°Ý«ç¥ÎVBA ¿ï¨ú ¦³ªÅ®æªº½d³ò®æ

¦w¦w °Ý¤@¤U¦U¦ì ½Ð°Ý «ç»ò¥ÎVBA°µ¨ì¹Ï¤ù¤@¼Ë   §ä¨ìÁ`¦C¼Æ ¸ò¦æ¼Æ   ,  µM«á¬°¥L­Ì¥´¤W½u®æ  (*ª`·N¤@¤U ¤¤¶¡¦³ ¤£±a¤W½uªº®æªº)

Â^¨ú.PNG (55.76 KB)

Â^¨ú.PNG

Book1.rar (6.68 KB)

ÁÂÁ ¤j¤jªº±Ð¾Ç

TOP

¥»©«³Ì«á¥Ñ »a³· ©ó 2019-12-14 10:04 ½s¿è

¦^´_ 1# adrian_9832


    §Ú°µªº«Ü²²¤¡A¥i¥H¸Õ¥Î¬Ý¬Ý...
   
    ¤£¹L«e´£¬OAÄæ­n¦³¸ê®Æªº±¡ªp¤U¡C
  1. Sub test()
  2. x = Cells(Rows.Count, 1).End(xlUp).Row

  3. For i = 1 To x
  4.     If Cells(i, 1) <> "" Then Cells(i, 1).CurrentRegion.Borders.LineStyle = xlContinuous
  5. Next i
  6. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD