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

¤å¨ã¨t²Î

¤å¨ã¨t²Î

±z¦n:
§Ú¥i¥H§â¤å¨ã¨t²Î§ï¦¨³o­Ó¶Ü?
§Ú·Q§â»â¥Î³æ¸Ì­±ªº³¡ªù³æ¦ì©M¥Ó½Ð¤H¦W¦r¥Î³o¼Ë¿ï¾Ü.,¤£µM¦nÃø§ä³á
¥¼©R¦W.rar (470.04 KB)

TOP

¥»©«³Ì«á¥Ñ mark15jill ©ó 2012-10-18 15:43 ½s¿è

¦^´_ 1# JEAN

­Ó¤H«Øij
­Y­n±N¹ÏªíPO¤W
½Ð¥ý±N¬ÛÃö¸ê®Æ¾B½ª~
ÁקKIJªk..
¸ê°T¦w¥þ ¤Î ­Ó¤H¸ê®Æ¦w¥þ«OÅ@ªk  ³o¨âºØ


¥t¥~
¥u¥á¹Ï +¤@¬q»¡©ú «ÜÃøÅý¤H²M·¡ ±z­nªº¬O¤°»ò?
¬OÃB¥~ªºªí³æ ©ÎªÌ¬O  ·Óµ{¦¡§ï¼g?

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_ 1# JEAN
2# mark15jill  »¡ªº¬O

¸Õ¸Õ¬Ý ¬O³o¤è¦V¶Ü?


test.rar (13.33 KB)

TOP

¦]¬°§Ú¤£ª¾¹D­n¦p¦ó»¡©ú
¤~·|¥Î³o­Ó¤è¦¡

TOP

¤å¨ã¨t²Î

¤å¨ã°O¿ý2.rar (95.6 KB)
§Ú§ï¦¨¥Î¿ï¾Üªº,¤£·Q¥Î©Ô¤U¦¡¿ï¾Ü¡C

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-10-19 15:26 ½s¿è

¦^´_ 5# JEAN
¸Õ¸Õ¬Ý
  1. '[»â¥Î³æ]³¡ªù³æ¦ì¡G B3 ¦³ÅÜ°Ê ->¥Ó½Ð¤H¦W¦r¡G B4 ·|§óµÛÅܰʦW³æ
  2. Private Sub CommandButton1_Click()
  3.     ­º­¶
  4. End Sub
  5. Private Sub CommandButton2_Click()
  6.     Sheets("»â¥Î°O¿ý©ú²Óªí").Visible = True
  7.     Sheets("»â¥Î°O¿ý©ú²Óªí").Select
  8.     Me.Visible = False
  9. End Sub
  10. Private Sub Worksheet_Activate() '»s©w³¡ªù³æ¦ìªºÅçÃÒ, [»â¥Î³æ]¤u§@ªí¬°§@¥Î¤¤®Éªº¹w³]¥ó
  11.     Dim Ar As String, xI As Integer
  12.     With Sheets("¤H­û¸ê®Æ").[E2]
  13.         xI = 2
  14.         Do While .Cells(xI) <> ""
  15.             If Ar = "" Then
  16.                 Ar = "," & .Cells(xI, 1)
  17.             Else
  18.                 If InStr(Ar, "," & .Cells(xI)) & "," = 0 Then Ar = Ar & "," & .Cells(xI)
  19.             End If
  20.             xI = xI + 1
  21.         Loop
  22.     End With
  23.     With Range("B3").Validation
  24.         .Delete
  25.         If Ar <> "" Then .Add xlValidateList, , , Mid(Ar, 2)
  26.     End With
  27. End Sub
  28. Private Sub Worksheet_Change(ByVal Target As Range)
  29.     Application.EnableEvents = False
  30.     If Target(1).Address(0, 0) = "B3" Then
  31.         If Target(1) = "" Then Range("B4") = ""
  32.         ÅçÃÒB4
  33.     End If
  34.     Application.EnableEvents = True
  35. End Sub
  36. Private Sub ÅçÃÒB4()
  37.     Dim Ar As String, xI As Integer
  38.     With Sheets("¤H­û¸ê®Æ").[A2]
  39.         xI = 2
  40.         Do While .Cells(xI) <> ""
  41.             If .Cells(xI) = [B3] Then
  42.                 If Ar = "" Then
  43.                     Ar = "," & .Cells(xI, 3)   '¤¤¤å©m¦W ¦b²Ä3Äæ
  44.                 Else
  45.                     If InStr(Ar, "," & .Cells(xI, 3) & ",") = 0 Then Ar = Ar & "," & .Cells(xI, 3)
  46.                 End If
  47.             End If
  48.             xI = xI + 1
  49.         Loop
  50.     End With
  51.     With Range("B4").Validation
  52.         .Delete
  53.         If Ar <> "" Then .Add xlValidateList, , , Mid(Ar, 2)
  54.     End With
  55. End Sub
½Æ»s¥N½X

TOP

¦pªG­n¦h¤@­Ó¬d¸ß¥\¯àÀ³¸Ó«ç»ò°µ©O??

TOP

³o­Ó­n«ç»ò§ï~~

TOP

¦^´_ 7# sheau-lan
­n¦p¦ó¬d¸ß??
¦^´_ 8# JEAN
5# ªþÀÉ [¤H­û¸ê®Æ] ½Ð¥ý«Ø¥ß¦W³æ¸ê®Æ...
6#ªºµ{¦¡½X ½Æ»sÂл\  5# [»â¥Î³æ]¤u§@ªíªºµ{¦¡½X
¨ì¬¡­¶Ã¯µøµ¡ ­¶­º  °õ¦æ»â¥Î³æ ¥ý¿ïB3,¦A¿ïB4 ¬Ý¬Ý

TOP

§Ú¸Ì­±¤v¸g¦³«Ø¥ß¤H­û¦W³æ¤F
¬O­n§âµ{¦¡½X©ñ¦b»â¥Î³æ¸Ì­±¶Ü

TOP

        ÀR«ä¦Û¦b : ¤p¨Æ¤£°µ¡B¤j¨ÆÃø¦¨¡C
ªð¦^¦Cªí ¤W¤@¥DÃD