c_c_lai

¦^´_ 30# stillfish00
¦^´_ 29# ML089
¸g stillfish00 ´£¿ô¡A§Ú¤Wºô¬d¤F¤@¤U¡A¦³¤@½g¤å³¹¥i¨Ñ°Ñ¦Ò¡G
Compatibility Between the 32-bit and 64-bit Versions of Office 2010
¤å³¹¤º¦³Ãö ActiveX Control and COM Add-in Compatibility ªº»¡©ú¡C

ML089

¦^´_ 30# stillfish00

ÁÂÁ¦^ÂÐ

§Ú¬OExcel 2007 (32¦ì¤¸)

debug StrVdFml ¬O ªÅ¦r¦ê

¶}³]­p¼Ò¦¡§R±¼combobox1¡A¥Î¦Û¤vªºExcel­«·s·s¼W¤@­Ócombobox1¡A¤]¬O¤£¦æ

¦pªG¬O§Ú¦Û¤vEXCELªº°ÝÃD´N¤£­n¦A®ö¶O¤j®aªº®É¶¡¡AÁÂÁ¤j®a

ML089

¦^´_ 31# c_c_lai

ÁÂÁÂ
³o¤Ó²`¶ø¤F¡A¦³¬Ý¨S¦³À´
°²¤é¦h¤@ÂI®É¶¡§Ú¦A¨Ó¬ã¨s

stillfish00

¦^´_ 32# ML089
³o¼Ë¬Ý°_¨Ó©M±±¨î¶µµLÃö¡A¬O§Aªº¸ê®ÆÅçÃÒ²M³æ®ø¥¢¤F¡A¾É­P§PÂ_«áÁôÂñ±¨î¶µ¡A§Ú¤U¸ü¦^¨ÓÅçÃÒ²M³æ¬O¦³¨Ó·½ªº¡C

ML089

¦^´_ 34# stillfish00


§Ú¤U¸üªºÀɮ׸̬O¨S¦³³] ¸ê®ÆÅçÃÒ²M³æ¡A©Ò¥H¥u­n³]©w¤F  ¸ê®ÆÅçÃÒ²M³æ ´N°õ¦æµL»~¡C

§Ú¨ä¤¤¤ñ¸û¤£À´ªº¬O¡A¬JµM¨Ï¥Î ¸ê®ÆÅçÃÒ²M³æ ¬°¦óÁÙ­n¥Î COMBOBOX ¿ï³æ¡A
¦pªG­n¥Î COMBOBOX ¿ï³æ¤]³]¤FLIST¶µ¥Ø¡AÀ³¸Ó´N¤£»Ý¨Ï¥Î ¸ê®ÆÅçÃÒ²M³æ¤~¹ï¡A
ı±o¦³ÂIµe³D²K¨¬ªº·Pı

stillfish00

¦^´_ 35# ML089
¦P·N§Aªº¬Ýªk¡A­n¬Ý­ì¥»¥¦ªº¥Øªº¬O¤°»ò¡A©Î³\´N¬O¬°¤F¯à±±¨î²M³æ¥~Æ[©Î¦r«¬/¦rÅé¤j¤p§a¡A
¬°¤F¬üÆ[¦Ó±Ä¥Î±±¨î¶µ¹ê²{¤]¬O«Ü¦³¥i¯àªº¡C

c_c_lai

¦^´_ 33# ML089
°²³]§A¹q¸£¦w¸Ëªº§@·~¨t²Î¬O Win7 64 Bits¡A
Office ¦pªG¬° 64 Bits¡A «h«Øij§A¨Ï¥Î (¦w¸Ë) 32 ¦ì¤¸ªº Office¡A
¥H§K²£¥Í¤ä´©¤Wªº§Þ³N°ÝÃD¡C¦P²z¡B¦p¬° 2007 ¥ç¦p¤W­z«Øij¡C

c_c_lai

¦^´_  stillfish00


§Ú¤U¸üªºÀɮ׸̬O¨S¦³³] ¸ê®ÆÅçÃÒ²M³æ¡A©Ò¥H¥u­n³]©w¤F  ¸ê®ÆÅçÃÒ²M³æ ´N°õ¦æµL»~ ...
ML089 µoªí©ó 2013-11-7 11:06

²z½×¤W¡A¥u­n¦b²Ä¤@¦¸³]©w¤F  "¸ê®ÆÅçÃÒ²M³æ"¡A¨Ã¦P®É¤©¥HÀx¦s¡A
Ãö³¬«á¦A¦æÆ[¹î "¸ê®ÆÅçÃÒ²M³æ" ¤w§_·~¤w¦s¦b¡A«Kª¾µª®×¤F¡C

c_c_lai

¦^´_ 35# ML089
¦^´_ 34# stillfish00
³Ì²¼ä§Ö³t¡B¥¿½Tªº¸Ñ¨M¤è¦¡¦p¤U¡A½Ð­×¥¿¡G

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Dim StrVdFml As String
   
3.    
   
4.     On Error Resume Next
   
5.         CellValidation                  '  2013/11/7  ¼W­× by  stillfish00
   
6. 
   
7.         StrVdFml = Replace(ActiveCell.Validation.Formula1, "=", "")
   
8.         ActiveCell.Validation.InCellDropdown = False
   
9.     On Error GoTo 0

½Æ»s¥N½X

c_c_lai

¦^´_ 36# stillfish00

1. Sub CellValidation()      '  stillfish00 ´£¨Ñ
   
2.     With Sheets("Sheet2").[A2:A25].Validation
   
3.         .Delete
   
4.         .Add Type:=xlValidateList, Formula1:="=Sheet1!$A$3:$A$20"
   
5.     End With
   
6. End Sub

½Æ»s¥N½X