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

[µo°Ý] ¦p¦ó¦^¶Ç¬Û¹ïÀx¦s®æ¤§¶¡¬Û´î

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

·PÁª©¤jÀ°¦£¡A¤½¦¡¤w¸g¨S¦³°ÝÃD¤F¡C
¦ý·í¼Æ¾Ú¤Ó¦h¤Î¼Æ¾Ú§ïÅÜ¡A»Ý­n«Ü­@®É¶¡­pºâ¡A¬Æ¦Ü°±¤U¨Ó¡C

TOP

¦Aªþ¤W§¹¾ãªºÀɮסAÁÂÁ¤j¤j!
test5a.rar (888.39 KB)
¦A¦¸»¡©ú:
¨Ò¤l¤¤¡A¦³"*"ªºÀx¦s®æ´£¥Ü­«½Æ¤F¬Û¹ïÄæ¦ìªºÀx¦s®æ¡A¨Ò¦p¨Ò¤l¤¤X12-X14¦³"*"¡A´£¥ÜW12-W14­«½Æ¤FÄæ¦ìAQ12-AQ14
1) ¦pªG·Q±N¤@³s¦ê¦³"*"³¡¤Àªº³Ì¤U¤@­ÓÀx¦s®æ(¤@³s¦ê¦³"*"³¡¤À¤§¤U¦³¾÷·|¦A¥X²{¤@³s¦ê¦³"*"³¡¤À©Î1­Ó¦³"*"³¡¤À)¡A¦^¶Ç¬Û¹ïÀx¦s®æ¤§¶¡¬Û´î(¥H¤W¨Ò¤l:X14=W14-W11) ¤Î
2) ±N¥u¦³1­Ó¦³"*"³¡¤ÀªºÀx¦s®æ¡A¦^¶Ç¬Û¹ïÀx¦s®æ¤§¶¡¬Û´î(¨Ò¤l¤¤:AJ7=AG7-AG6)
(¦³"*"³¡¤À¬O¥i¥Î¨ä¥L¦r²Å¥N´Àªº)

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2015-11-6 11:09 ½s¿è

¦^´_ 12# donod

Sub TEST()
Dim R&, x&, y&, H, xR As Range
R = Cells(Rows.Count, 1).End(xlUp).Row ¡¦¥H¢ÏÄæÀË´ú³Ì«á¤@µ§¸ê®Æ¦C¸¹
If R < 5 Then Exit Sub
For x = Range("X1").Column To Range("AB1").Column¡@'X ~ AB Äæ
¡@¡@For y = 5 To R
¡@¡@¡@¡@Set xR = Cells(y, x)
¡@¡@¡@¡@If xR = "    *" Then
¡@¡@¡@¡@¡@¡@If H = "" Then H = Val(Range("W" & y - 1))
¡@¡@¡@¡@¡@¡@If xR(2, 1) = "" And H <> "" Then
¡@¡@¡@¡@¡@¡@¡@¡@xR = "=" & Val(Range("W" & y)) & "-" & H
¡@¡@¡@¡@¡@¡@End If
¡@¡@¡@¡@End If
¡@¡@¡@¡@If IsNumeric(xR) Then H = ""
¡@¡@Next y
Next x

'¨ä¥¦Äæ¦ì©¹¤U¥[¤J¡]³W«h¦p¤W¡A¥u¦³¬Û´î­ÈªºÄ椣¦P¡^¡@
End Sub

¢°¡D¥ý¥Î¤½¦¡²£¥ÍÀˬd­«ÂЪº"    *" °O¸¹
¢±¡D¦A¨Ï¥Îvba¶i¦æ¨â­È¬Û´î
¢²¡D¥H¤W¥u¥Ü¨Ò¢æ¡ã¢Ï¢ÐÄ檺°µªk¡A¨ä¥¦Äæ½Ð¦Û¦æ¥h®M¤J
¢³¡D¬Û´î­È¥H¤½¦¡ = ??? - ??? ªí²{¡A¤è«K°µ¤ñ¹ï¬O§_¥¿½T

TOP

¦^´_ 13# ­ã´£³¡ªL
¥i¥H¤F¡A·PÁª©¤j¦A¦¸±Ð±Â!
³s³Æµù³£µ¹§Ú­Ì¥[¤W¡A­ì¥»¤£©ú¥Õªº¦a¤è³£²M·¡¤F!
·P®¦³o¨àªº¤j¤jµL¨p©^Äm¡AÁÂÁ±z­Ì!

TOP

¦^´_ 14# donod


µ¹­Ó°Ñ¦Ò¤è®×¡A¯à¥Î«h¥Î¡AÀ³¥i¨Æ¥b¥\­¿¡G
Xl0000082.rar (358.14 KB)

¥u­n¦b¡e²Ä¥|¦C¡f³]¦n¤½¦¡¡A¤Î¼Ð°O¬Û´î­ÈªºÄæ¦ì¡Aµ{¦¡¥þ¦Û°Ê³B²z¡ã¡ã

TOP

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

§Ö³t¤F«Ü¦h¡A«Ü¦³¥Î¡A®Ä²v¤]´£°ª¤F¡AÁÂÁ­㴣³¡ªLª©¤j±Ð±Â!

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD