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

[µo°Ý] ½Ð°Ý¦p¦ó±N¸ê®Æ¶i¦æºI¨ú«á¡A¦A¬Û¥[©O?

¦^´_ 8# hcm19522


  
«D±`ÁÂÁ±z©âªÅÀ°¦£¡A¤½¦¡¥i¥H¥Î!

TOP

¦^´_ 10# ­ã´£³¡ªL


ÁÂÁ­㴣¤j¤jªºÀ°¦£©M´£¨Ñ·Qªk!

TOP

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2023-11-30 09:38 ½s¿è

ÁÂÁ½׾Â,ÁÂÁ¦U¦ì«e½ú
«á¾ÇÂǦ¹©«À³¥Î­è­è¾Ç¨ìªº¦WºÙ ªº«Ø¥ß»P¨Ï¥Î,¾Ç²ß¤è®×¦p¤U,½Ð¦U¦ì«e½ú«ü±Ð
°õ¦æµ²ªG:
20231130_1.jpg
2023-11-30 09:34


«Ø¥ßªº¦WºÙ:
20231130_2.jpg
2023-11-30 09:38


Option Explicit
Sub TEST()
Dim Brr, V&, i&
'¡ô«Å§iÅܼÆ
Range([E4], [E65536].End(3)).Name = "¸ê®Æ½d³ò"
'¡ô¥O«ü©wÀx¦s®æ½d³ò¥H "¸ê®Æ½d³ò"¦r¦ê¬°¦W ¯Ç¤J¦WºÙ¸Ì
[E1].Name = "µ²ªG®æ"
'¡ô¥O[E1]Àx¦s®æ¥H "µ²ªG®æ"¦r¦ê¬°¦W ¯Ç¤J¦WºÙ¸Ì
Brr = Range("¸ê®Æ½d³ò")
'¡ô¥OBrrÅܼƬO¤Gºû°}¦C,¥H¦WºÙ¬° "¸ê®Æ½d³ò"ªº°Ñ·ÓÀx¦s®æ­È±a¤J°}¦C
For i = 1 To UBound(Brr)
'¡ô³]¶¶°j°é!i±q1 ¨ì Brr°}¦CÁa¦V³Ì¤j¯Á¤Þ¦C¸¹
   If Not Trim(Brr(i, 1)) Like "#*" Then GoTo i01
   '¡ô¦pªG°}¦C­È¥h°£ÀY§ÀªÅ¥Õ¦r¤¸«áªº¦r¦ê ¤£¬O¥H¼Æ¦r¶}ÀY,´N¸õ¨ì¼Ð¥Ü i01¦ì¸m
   V = V + Abs(Evaluate(Replace(Brr(i, 1), "~", "-")))
   '¡ô¥OVÅܼƲ֥[ ­pºâªº¼Æ­È
i01: Next
Range("µ²ªG®æ") = V: MsgBox V
'¡ô¥OVÅܼƭȱa¤J [E1]Àx¦s®æ
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

        ÀR«ä¦Û¦b : ¯àµ½¥Î®É¶¡ªº¤H¡A¥²¯à´x´¤¦Û¤v§V¤Oªº¤è¦V¡C
ªð¦^¦Cªí ¤W¤@¥DÃD