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

[µo°Ý] °õ¦æ¶¥¬q¿ù»~-2147417848(80010108) Automation¿ù»~

[µo°Ý] °õ¦æ¶¥¬q¿ù»~-2147417848(80010108) Automation¿ù»~

¥»©«³Ì«á¥Ñ li_hsien ©ó 2015-4-22 13:48 ½s¿è

¤p§Ì¨Ï¥ÎExcel 2003°õ¦æ¤U¤è»yªk µo¥Í°õ¦æ¶¥¬q¿ù»~-2147417848(80010108) Automation¿ù»~

¥H¤U»yªk¬O¸ê®ÆÅçÃҨϥΤU©Ô²M³æªº¾Þ§@

  1. final_substance = Worksheets("Temp_Substance").Range("A65536").End(xlUp).Row

  2.     '«Ø¥ßSubstance¤U©Ô¿ï³æ
  3.     With Worksheets("³W®æ¤ñ¹ïªí").Range("E4:E" & Range("C65536").End(xlUp).Row).Validation
  4.         .Delete
  5.         .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
  6.         xlBetween, Formula1:="=INDIRECT(""Temp_Substance!$A2:$A" & final_substance & """)"        
  7.         .IgnoreBlank = True
  8.         .InCellDropdown = True
  9.         .InputTitle = ""
  10.         .ErrorTitle = ""
  11.         .InputMessage = ""
  12.         .ErrorMessage = "½Ð¥H¤U©Ô¿ï³æ¤è¦¡¿ï¨ú"
  13.         .IMEMode = xlIMEModeNoControl
  14.         .ShowInput = True
  15.         .ShowError = True
  16.     End With
½Æ»s¥N½X
¿ù¦b³o¤@¦æ
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=INDIRECT(""Temp_Substance!$A2:$A" & final_substance & """)"

¦bExcel 2007°õ¦æ¨S¦³°ÝÃD

¦ý¦bExcel 2003¾Þ§@·|µo¥Í¤U¤è¿ù»~
p.jpg

GOOLGEª¦¤å¤F¦n¤[¤]§ä¨ì¤@¨Ç¤è¦¡

¦ý³£¨S¦³¸Ñ¡@§xÂZ¦n¤[.....

½Ð¦U¦ì¤j¤j¨ó§U

·PÁ¡I¡I¡I
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

¦^´_ 2# lpk187

·PÁÂlpk187¤j¨ó§U

«á¨Óµo²{¬O§Ú¥²¶·¤Á´«¨ì©Ò­n³]©w¤U©Ô¿ï³æªº¤u§@ªí
(e.g. Worksheets("³W®æ¤ñ¹ïªí").activate)

¥ýactivate¹L¥h¦A°õ¦æ¤U©Ô²M³æªº»yªk´N¥i¥H¤F...

Excel 2007³£¨S¦³³o­Ó°ÝÃD

¯u¬O­ÓÃø±o¸gÅç

¥t¥~±z´£¤Î¸óSheetªº¸ê®Æ¨Ó·½

Excel 2003¥»¨­¦n¹³¦³­­¨î¡A¦ý¬O¥i¥H¥ÎINDIRECTªº¤è¦¡¾Þ§@

ÁÙ¬O¥i¥H°õ¦æ
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

TOP

¦^´_ 1# li_hsien

¸ê®ÆÅçÃÒ²M³æ¦b2003¦n¹³¤£¯à¸ó¤u§@ªí¡A¤£¹L¥i¥H¥Î©w¸q¦WºÙ¨Ó¸ó¤u§@ªí¨Ï¥Î¡A¦p¤Uªºµ{¦¡½X¸Õ¬Ý¬Ý¦æ¤£¦æ
  1. final_substance = Worksheets("Temp_Substance").Range("A65536").End(xlUp).Row
  2. Names("½d³ò").RefersToLocal = "=Temp_Substance!$A$2:$A$" & final_substance
  3.    

  4.     '«Ø¥ßSubstance¤U©Ô¿ï³æ
  5.     With Worksheets("³W®æ¤ñ¹ïªí").Range("E4:E" & Range("C65536").End(xlUp).Row).Validation
  6.         .Delete
  7.         .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
  8.         xlBetween, Formula1:="=½d³ò"
  9.         .IgnoreBlank = True
  10.         .InCellDropdown = True
  11.         .InputTitle = ""
  12.         .ErrorTitle = ""
  13.         .InputMessage = ""
  14.         .ErrorMessage = "½Ð¥H¤U©Ô¿ï³æ¤è¦¡¿ï¨ú"
  15.         .IMEMode = xlIMEModeNoControl
  16.         .ShowInput = True
  17.         .ShowError = True
  18.     End With
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD