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

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

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

¤j®a¦n¡A

·Q½Ð±Ð¦p¦ó±N¸ê®Æ¥ý¶i¦æºI¨ú«á¡A¦A¬Û¥[©O? »¡©ú¦p¤U¡G

Â^1¨ú.PNG
2021-8-1 10:36


¥ÑE4¶}©l©¹¤U¬O¸ê®Æ¡A§Æ±æ±N³o¨Ç¸ê®Æ¶i¦æ³B²z¡G
E4¡G3~10  ¡A ¬Û´î¬O7
E5¡G¬O0
E6¡G10~24¡A¬Û´î¬O14
E7¡G¬O7
Æبä¾lÃþ±À

§Æ±æ±NE4¶}©l©¹¤Uªº­È³£¬Û¥[¡G7+0+14+7+0+13+6=47¶ñ¦bE1 (¦ÓE1ªº¤½¦¡¸Ó¦p¦ó¤U©O?)
¸ê®Æ¤£¥u¦³7µ§¡A¦ý¬°¤F¤è«K¡A¶È¦C¥X7µ§¡C

³Ì«áªþ¤Wªþ¥óÀÉ¡G ¬¡­¶Ã¯1.zip (6.95 KB)

·Q½Ð¤j®a¨ó§U´£¨Ñ·Qªk¡AÁÂÁ±z­Ì¡C

¥»©«³Ì«á¥Ñ 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

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


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

TOP

¦^´_ 8# hcm19522


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

TOP

°}¦C
=SUM(ABS(INT(SUBSTITUTE(0&E4:E19,"~","."))-(0&MID(E4:E19,FIND("~",E4:E19&"~")+1,9))))

TOP

­Y¬O­pºâ½c¼Æ,
3~10 ... À³¸Ó¬O8½c

TOP

¦^´_ 3# gaishutsusuru


    {=SUM(IFERROR(LEFT(RIGHT(SUBSTITUTE("~"&B4:B99,"~",REPT(" ",9)),{18,9}),9)*{-1,1},))
ÀH·NºÛ "EXCEL°g"  blog  ©Îhttps://hcm19522.blogspot.com/ EXCEL¨ç¼Æ

TOP

¦^´_ 6# ML089


­ì¨Ó¦p¦¹¡AÁÂÁ±zªºÀ°¦£¡A¤½¦¡¥i¥H¥Î!!

TOP

¦^´_ 5# gaishutsusuru


    =SUM(MMULT(-LEFT(RIGHT(SUBSTITUTE(REPT(0,30)&E4:E20,"~",REPT(" ",15)),{30,15}),15),{1;-1}))
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 4# ML089


  ÁÂÁ±zªº¨ó§U¡A¦ý¦n¹³­Y½d³ò§ï¦¨E4:E20¡A«h·|¥X²{¿ù»~¡C(¦ü¥G¬O¦]¬°¦pªGÀx¦s®æ¬OªÅ¥Õ®É¡A·|¤£¯à°õ¦æ)

½Ð°Ý¸Ó¦p¦ó³B²z©O? ÁÂÁ±z¡C

TOP

        ÀR«ä¦Û¦b : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD