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

½Ð°Ý¦¹¥\¯à¦³¨ä¥Lªº¤è¦¡¸Ñ¨M¶Ü?

¦^´_ 1# ÂŤÑÄR¦À


    ÁÂÁ«e½úµoªí¦¹¥DÃD»P½d¨Ò
«e½ú±Ô­zªº±¡¹Ò»P½d¨Ò¤£¤@¼Ë,¥i¥H¦A¸É¥R¤@¤U?
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 3# ÂŤÑÄR¦À


    ÁÂÁ«e½ú¦^´_
«á¾Ç«Ü·Q¾ÇDDE, Worksheet.Calculate ¨Æ¥ó (Excel) «ç»òÀ³¥Î
¤u§@»â°ì¤£¦b³o°Ï¶ô,©|¥¼¬ã¨s,½Ð«e½úµyµ¥¨ä¥L¼F®`ªº«e½úÀ°¦£
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2024-1-4 14:23 ½s¿è

¦^´_ 3# ÂŤÑÄR¦À


    ÁÂÁ«e½ú
«á¾Ç¾Ç²ß Private Sub Worksheet_Calculate()¤è®×¦p¤U,½Ð«e½ú°Ñ¦Ò
¼ÒÀÀµ²ªG:

½d¨ÒÀÉ:
Åܰʬö¿ý_20240104.zip (17.29 KB)
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 9# ÂŤÑÄR¦À


    ÁÂÁ«e½ú¦^ÂÐ
©ú¤Ñ¦A¤U¸ü¨Ó¬ã¨s¬Ý¬Ý
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

©Î³\ ¦P¤@­ÓÀx¦s®æ¸Ì¦³«ü¼Æ³s±µ¶¡¹j²Å¸¹ ¦A³s±µÅܰʶq¡A³o¼Ëªº¤è¦¡¥i¥H²Å¦X»Ý¨D¡A¨Ò¦p¡G
120__0
123__3
125__2
126__1
³o¼Ëªº¤è¦¡¤£¼W¥[Äæ¦ì¡A¤S¯à¨âºØ¼Æ¾Ú³£¬Ý±o¨ì¤S¯à«O¯d
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 19# ÂŤÑÄR¦À

[B6]=[B2]&"__"& [B2] -Val( [B5])
³o¼Ëªº¤è¦¡´N¥i¥H¤£¥²¦h¤@Äæ Á|¨Ò¦p¤U¡G
B2¬OÅÜ°ÊÁ`©e¶R

B1 Á`©e¶R
B2  126
B3. 120__0
B4. 123__3
B5. 125__2
B6. 126__1
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 21# ÂŤÑÄR¦À
­n¹B¥ÎÅܰʶq°µ¹Bºâ¥u­n¥Î
Split([B6],"__")(1)  ´N¥i¥H¨ú±o¤F ¤£¥²©î¤@Äæ³á
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 23# ÂŤÑÄR¦À
§Ú¶ý¶ý¦í°|­n¨ì¤U¬P´Á¤T¡A¤£¤è«K³B²z
¦pªG¨ãÅ骺Åܰʶq­n°µ¤°¹Bºâ¦pªG¯à°÷¨ãÅ黡©ú©Î¤W¶Ç§ó§¹¾ãªº½d¨Ò
ª©¤W°ª¤â¶³¶°¤]³£¯à»P«e½ú°µ¥æ¬y
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 26# ÂŤÑÄR¦À
¦pªG¬O³oºØÅÞ¿è§Úı±o
1.A1¦pªG¬O¬°¤FÅã¥Ü³Ì«áªº®t­È¡A´N¤£­n¦A¥Î¤½¦¡­pºâ¡A¦]爲B1­È´«¦ì¨ìC1®ÉA1¤½¦¡­È³£¬O0¡AA1­È§ï¥ÑVBAµ¹­È
2. VBA¸Ì¼g¡G
¦pªG¸õ°ÊªºB1<>C1,´N¥OA1=B1-C1,¦A¥OC1=B1,³o¼Ëªº¤è¦¡¥u¦³B1ÅÜ°Ê®Éif §PÂ_¦¡¤~·|¦¨¥ß¡A¥BA1¤]¤£·|¬O0
³Ì«á§âA1­È¤]¶ñ¤JAÄ檺²Ä¤@­ÓªÅ¥Õ®æ
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2024-1-9 11:12 ½s¿è

¦^´_ 30# ÂŤÑÄR¦À


    ¥i¯à¬O¼Æ¾ÚÅܰʤӧֹBºâ¤£¤Î
¹ê»Ú»Ý¨D¬O´X¬í­n°O¿ý¤@¦¸?
¶¡¹j®É¶¡¨ì¤~¹Bºâ

Option Explicit
Private Sub Worksheet_Calculate()
If Val(Format([A1], "SS")) Mod 3 = 0 Then'¶¡¹j3¬í
   Call RecordPrice
   Call Price
End If
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

        ÀR«ä¦Û¦b : ¦³¤ß´N¦³ºÖ¡A¦³Ä@´N¦³¤O¡A¦Û³yºÖ¥Ð¡A¦Û±oºÖ½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD