½Ð°Ý¦¹¥\¯à¦³¨ä¥Lªº¤è¦¡¸Ñ¨M¶Ü?
- ©«¤l
- 1447
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1471
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2025-2-11
|
¦^´_ 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
|
|
|
|
|
- ©«¤l
- 1447
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1471
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2025-2-11
|
¦^´_ 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
|
|
|
|
|
- ©«¤l
- 1447
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1471
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2025-2-11
|
¥»©«³Ì«á¥Ñ 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
|
|
|
|
|
- ©«¤l
- 1447
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1471
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2025-2-11
|
¦^´_ 9# ÂŤÑÄR¦À
ÁÂÁ«e½ú¦^ÂÐ
©ú¤Ñ¦A¤U¸ü¨Ó¬ã¨s¬Ý¬Ý |
|
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
|
|
|
|
|
- ©«¤l
- 1447
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1471
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2025-2-11
|
©Î³\ ¦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
|
|
|
|
|
- ©«¤l
- 1447
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1471
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2025-2-11
|
¦^´_ 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
|
|
|
|
|
- ©«¤l
- 1447
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1471
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2025-2-11
|
¦^´_ 21# ÂŤÑÄR¦À
n¹B¥ÎÅܰʶq°µ¹Bºâ¥un¥Î
Split([B6],"__")(1) ´N¥i¥H¨ú±o¤F ¤£¥²©î¤@Äæ³á |
|
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
|
|
|
|
|
- ©«¤l
- 1447
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1471
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2025-2-11
|
¦^´_ 23# ÂŤÑÄR¦À
§Ú¶ý¶ý¦í°|n¨ì¤U¬P´Á¤T¡A¤£¤è«K³B²z
¦pªG¨ãÅ骺Åܰʶqn°µ¤°¹Bºâ¦pªG¯à°÷¨ãÅ黡©ú©Î¤W¶Ç§ó§¹¾ãªº½d¨Ò
ª©¤W°ª¤â¶³¶°¤]³£¯à»P«e½ú°µ¥æ¬y |
|
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
|
|
|
|
|
- ©«¤l
- 1447
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1471
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2025-2-11
|
¦^´_ 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
|
|
|
|
|
- ©«¤l
- 1447
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1471
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2025-2-11
|
¥»©«³Ì«á¥Ñ 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
|
|
|
|
|