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

½Ð°Ý¦p¦ó§å¦¸ÅýÅçÃÒ²M³æªºÄµ§i³]©w¬°Ãö³¬©O?

½Ð°Ý¦p¦ó§å¦¸ÅýÅçÃÒ²M³æªºÄµ§i³]©w¬°Ãö³¬©O?

¥»©«³Ì«á¥Ñ starry1314 ©ó 2015-9-2 13:31 ½s¿è

¦]¦³¼Æ¦Ê®æÅçÃÒ²M³æ,¨S¿ìªk¨Ï¥Î¿ï¨úªº¨ÓÃö³¬¿ù»~´£¿ô ·|¾É­P³]©w³Q§R°£

¦³¨Ï¥Î¿ý»sªº¦ý¨S¿ìªk®M¥Î¦Ü§OªºÀx¦s®æ
©w¸q¦WºÙ·|³QÂл\±¼
¥u·QÅý¥L°õ¦æÃö³¬¿ù»~¨º¦æ¡A¦ý¦pªG«e­±
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=_1_2_1_1"¡@§R±¼¡@·|¤£¯à°õ¦æ
Sub ¿ù»~´£¿ô()
'
    Range("G6:H6").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=_1_2_1_1"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .IMEMode = xlIMEModeNoControl
        .ShowInput = True
        .ShowError = False
    End With
End Sub

Sub Macro1()
Dim xR As Range
For Each xR In Cells.SpecialCells(xlCellTypeAllValidation)
¡@¡@xR.Validation.ShowError = False
Next
End Sub

TOP

¦^´_ 2# ­ã´£³¡ªL
½Ð°Ý³o¬q¸Ó¦p¦ó¨Ï¥Î©O? §Ú¥ý¿ï¨ú¤@®æÀx¦s®æ¦b°õ¦æ©Î¬O¿ï¨ú©Ò¦³­n¨ú®ø¿ù»~´£¿ôªºÀx¦s®æ¤]¬O¥X¿ùµLªk°õ¦æ

TOP

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

½Ð°Ý¦pªG¬O¦X¨ÖÀx¦s®æ¸Ó«ç»ò¨Ï¥Î©O?  ¦b³o¬qµ{¦¡½X¸Ì­± ¤£ª¾¦p¦ó¥[¤J.value

TOP

¦^´_ 4# starry1314


     Range("G6:H6").Validation.ShowError = False

TOP

¦^´_ 5# lpk187


¤£¦æ®@~³o¥u¬O¿ï¨ú¨º¤@®æ¦X¨ÖÀx¦s®æ, ³o¤äµ{¦¡¤£ª¾¹D«ç»òÅý¥L¦b¦X¨ÖÀx¦s®æ¤]¥i¹B§@....°O±o§OºØµ{¦¡À³¥Î¦b¦X¨ÖÀx¦s®æ¥u­n.VALUE§Y¥i

TOP

¦^´_ 4# starry1314

¦X¨Ö®æ¡A¥ý¸Ñ°£¦X¨Ö¡A¦A´_­ì
Sub Macro1()
Dim xR As Range
On Error Resume Next
For Each xR In Cells.SpecialCells(xlCellTypeAllValidation)
¡@¡@With xR.MergeArea
¡@¡@¡@¡@¡@.UnMerge
¡@¡@¡@¡@¡@.Item(1).Validation.ShowError = False
¡@¡@¡@¡@¡@.Merge
¡@¡@End With
Next
End Sub

­Y­n«ü©w¿ï¨ú°Ï¡A¥i§ï¦¨¡G
For Each xR In Selection.Cells.SpecialCells(xlCellTypeAllValidation)
¡@
Next

TOP

¥»©«³Ì«á¥Ñ lpk187 ©ó 2015-9-3 14:10 ½s¿è

¦^´_ 6# starry1314


    §Aªº°ÝÃD¤£¬O¥u­n"Ãö³¬¿ù»~´£¿ô"¶Ü¡H
ÁÙ¬O­«°µ¤@­Ó·sªºÅçÃÒ²M³æ¡A¿é¤J·sªºÅçÃÒ¸ê®Æ«á¡A¦AÃö±¼¡H
­Y¥u¬O"Ãö³¬¿ù»~´£¿ô"©M¦X¨ÖÀx¦s®æ¦³¤°»òÃö«Y¡H2¼Óªºµª®×¤@¼Ë¥i¥HÃö³¬¡A¤]¤£·|§R±¼­ì¨ÓªºÅçÃÒ¸ê®Æ
©ÎªÌ§âÀɮשñ¤W¨Ó¬Ý¬Ý
¥t¥~¥ÑVBA¥Ñ¼g¤J¨ìÅçÃÒ¸ê®ÆªºÀx¦s®æªº¿ù»~­È¡A¤£¥Î"Ãö³¬¿ù»~´£¿ô"¤]¥i¥H¼g¤J
ÁÙ¦³_1_2_1_1¬O©w¸qªº¦WºÙ¶Ü¡H

TOP

¦^´_  starry1314


§Aªº°ÝÃD¤£¬O¥u­n"Ãö³¬¿ù»~´£¿ô"¶Ü¡H
ÁÙ¬O­«°µ¤@­Ó·sªºÅçÃÒ²M³æ¡A¿é¤J·sªºÅçÃÒ¸ê®Æ«á¡A¦AÃö±¼¡H
­Y¥u¬O"Ãö³¬¿ù»~´£¿ô"©M¦X¨ÖÀx¦s®æ¦³¤°»òÃö«Y¡H2¼Óªºµª®×¤@¼Ë¥i¥HÃö³¬¡A¤]¤£·|§R±¼­ì¨ÓªºÅçÃÒ¸ê®Æ
©ÎªÌ§âÀɮשñ¤W¨Ó¬Ý¬Ý
¥t¥~¥ÑVBA¥Ñ¼g¤J¨ìÅçÃÒ¸ê®ÆªºÀx¦s®æªº¿ù»~­È¡A¤£¥Î"Ãö³¬¿ù»~´£¿ô"¤]¥i¥H¼g¤J
ÁÙ¦³_1_2_1_1¬O©w¸qªº¦WºÙ¶Ü¡H
lpk187 µoªí©ó 2015-9-3 14:09




1.¬Oªº,§Ú­nªº¬OÃö³¬¿ù»~´£¿ô
2.¨S¦³­n¿é¤J·sªºÅçÃÒ¸ê®Æ
3.2¼Óµª®×¬O¥i¥HÃö³¬,¦ý¥u¯àÀ³¥Î¦b¥¼¦X¨Ö¹LªºÀx¦s®æ¤W,§_«h·|³ø¿ù¡I¢¶¼Ó¤j¤j¦³§ó·s·s¥N½X¡A¤w¸Ñ¨M¦¹¥N½X¹J¨ì¦X¨ÖÀx¦s®æ³ø¿ù±¡ªp
4._1_2_1_1¡@¡×¡@©w¸q¦WºÙ

¥Ø«e¤w¸Ñ¨M°ÝÃDÅo¡ã·PÁÂ

TOP

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


    ·PÁ¤j¤j¡ã¤w¸Ñ¨M°ÝÃDÅo¡ã
¦¹¦Û°Ê¸Ñ°£¦X¨Ö«á¦A¦X¨Öªº¥N½X¡@¯u¹ê¥Î

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