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

[µo°Ý] ½Ð°Ý¤U©Ô¿ï³æ¦p¦ó§¹¦¨

[µo°Ý] ½Ð°Ý¤U©Ô¿ï³æ¦p¦ó§¹¦¨

¥»©«³Ì«á¥Ñ brabus ©ó 2012-1-2 21:21 ½s¿è

¦pªþ¥ó
§Ú¦p¦ó§¹¦¨¬Û¹ïÀ³ªº¤U©Ô¿ï³æ
½Ð°ª¤â«ü±Ð
ÁÂÁÂ

¬¡­¶Ã¯1.rar (3.34 KB)

¬¡­¶Ã¯2.rar (5 KB)

jeason

¦^´_ 1# brabus


  §ÚµLªk¤U¸ü¼Ó¥Dªºªþ¥ó, ¤£¹L±z¥i¥H¹Á¸Õ¥Î¤U¦Cµ{¦¡½X¸Õ¸Õ¬Ý
With Range("F4").Validation
If Range("E4") = "" Then
.Delete
Else
.Delete
.Add xlValidateList, , , "=" & [E4]
End If
End With

TOP

¦^´_ 1# brabus


    ¬¡­¶Ã¯1.rar (4.17 KB)

TOP

¦^´_ 1# brabus
¥i¥Î VBA
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     Application.EnableEvents = False
  3.     If Target(1).Cells = [B5] Then
  4.         [C5] = ""
  5.         For Each E In Range([G5], [G5].End(xlDown))
  6.             If [B5] >= Val(Split(E, "~")(0)) And [B5] <= Val(Split(E, "~")(1)) Then
  7.                 S = IIf(S = "", E.Offset(, -1), S & "," & E.Offset(, -1))
  8.             End If
  9.         Next
  10.         With Range("C5").Validation
  11.             .Delete
  12.             If S <> "" Then
  13.             .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
  14.             xlBetween, Formula1:=S
  15.             End If
  16.         End With
  17.     End If
  18.     Application.EnableEvents = True
  19. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# register313


    ½Ð°Ý¤j¤jÀx¦s®æk5¼gµÛ=IF(ROW()>(8-COUNTIF($J$5:$J$8,"")),"",OFFSET($J$1,SMALL(IF($J$5:$J$8<>"",ROW($J$5:$J$8)," "),ROW(J1))-1,,,))
¥i§_¸ÑÄÀ¤@¤U¤°»ò·N«ä,ÁÂÁÂ
jeason

TOP

¦^´_ 5# brabus

¨£ªþÀɤ§¤À¸Ñ»¡©ú
¬¡­¶Ã¯1.rar (4.61 KB)

TOP

¦^´_ 2# dino1978


    ¬¡­¶Ã¯1.zip (4.32 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# GBKEE

ÁÂÁ¤j¤j¦^ÂÐ¥i¬O¤p§Ì¹ï©óvba¤£¬O«Ü¼ô±x,©Ò¥H¤£¤F¸Ñ±zªº¦^ÂÐ
¥i§_½Ķ¤@¤U©O
ÁÂÁÂ
jeason

TOP

¦^´_ 7# Hsieh

·PÁÂHsieh¤j¤jªº¦^ÂÐ
§Ú¬Ý±o¥X¨Ó±z¬O¥Î°}¦C¸Ñ¨M
¥i¬O¤º®e¬O¤°»ò·N«ä
­n«Ý§Ú¬ã¨s¤@¤U
¤£¹L§Ú¦Û¤v¦³·Q¿ìªk§@¥X¨Ó¸Ñ¨Mªº¤èªk
¥u¬O¬O¥Î«Ü²Âªº¤èªk
¦b·s¤W¶Çªº¬¡­¶Ã¯2
§Æ±æ§A¤£­n¯º¨ì¨{¤lµh
·P®¦
¯¬©Ò¦³¦³µ¹¤p§Ì¦^¤åªº¤j¤j­Ì
·s¦~§Ö¼Ö,¨Æ¨Æ¶¶§Q
Às¦~¤jµo[
jeason

TOP

§Ú¨S¦³¿ìªk¤U¸ü¸ê®Æ¡A¦ý¬O¤U©Ô¦¡¿ï³æ¥i¥H°õ¦æ¡i¸ê®ÆÅçÃÒ¡j->¡iÀx¦s®æ¤º¤¹³\-²M³æ¡j->¡i¦A¿ï¨ú²M³æ½d³ò¡j¡A³o¼ËÀ³¸Ó·|¤ñ¸û²³æ¡H

TOP

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD