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

[µo°Ý] ¤j¶q½Æ¿ïªí³æªºµ{¦¡½X¦p¦ó²¼äªº¾Þ§@?

[µo°Ý] ¤j¶q½Æ¿ïªí³æªºµ{¦¡½X¦p¦ó²¼äªº¾Þ§@?

½Ð°Ý³oºØ¸Ó¦p¦ó¥i¥H¸û²¼ä©O?
§Ú­ì¥»ªº¼gªk¬O ­n¿é¥Xªº¸ê®Æ¼g¦bµ{¦¡½X¸Ì­±
¦ý¦]«~¶µ¤W¦ÊºØ,Åܦ¨¤@ºØ¼g¤@¦¸ µ{¦¡½X«Üªø.....






½Æ¿ïªí³æ.rar (21.44 KB)

¦^´_ 1# starry1314

¸Õ¸Õ¬Ý¬O³o¼Ëªº·N«ä¶Ü?
½Æ¿ïªí³æ.zip (24.79 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ starry1314 ©ó 2016-12-21 17:40 ½s¿è

¦^´_ 2# Hsieh


§¹¬ü.......
³ºµM¦³¥i¥H¨Ì±ø¥ó¦Û°Ê«Ø¥ß®Ö¨ú¤è¶ô....
¤ñ§Ú­ì¥»¤@­Ó¤@­Ó«Ø¥ßªº¦n¦h¤F

¥t·Q¦A°Ý¤@¤U,¥Ø«e¿ï§¹¤§«á¦bÂI¿ï²Ä¤G¦¸¥i¥H±N¤W¦¸¤Ä¿ïªº¶µ¥ØÅã¥Ü¤w¤Ä¿ï¶Ü?

¦³¤è¦¡ ¬O¶}±Ò¦bŪ¨ú¤@¦¸
CheckBox1.Value = IIf(.Range("C100") = "¤û¡B", True, False)

TOP

¦^´_ 3# starry1314
­ì³]­p¦b«ö¤U½T©w«á¿é¤J¸ê®Æ«e·|±N­ì¼g¤J¸ê®Æ²M°£µM«á¶ñ¤J¥Ø«e¤Ä¿ï¶µ¥Ø
¦Ü©ó±z©Ò´£¨ì²Ä¤G¦¸¤Ä¿ïªº­«½Æ°ÝÃD¡A¤£½T©w§Aªº¤u§@¬yµ{·Qªk
²{¥HÀˬd¤Ä¿ï¶µ¥Ø¬O§_¦s¦b©ó¤u§@ªí¤º§@§PÂ_¡A´£¥X­«½Æ¤Ä¿ïĵ§i
¥Ñ¿é¤JªÌ¦Û¦æ¨M©w¬O§_­«½Æ¿é¤J¡A¸ê®Æ±NÄ~Äò¼W¥[
½Ð°Ñ¦Òªþ¥ó


    ½Æ¿ïªí³æ.zip (26.42 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh


    ©êºp,»¡©úªº¤£°÷¸Ô²Ó
¬yµ{¬O¤@µ§­q³æ ¶ñ¤J¿ï¶µ¤§«á
·|°µ¤G«×¬Æ¦Ü¤T«×§ó§ï,¬G¶·Åý¤§«e©Ò¿ï¹Lªº¿ï¶µÅã¥Ü¤w¤Ä¿ï,
¤~¯àÅý­×§ï¤Hªº½T»{¤§«e¿ï¹L¤°»ò©Î¬O°w¹ï¨ä¤¤¤@¶µ°µ¨ú®ø,
¶ñ¤Jªº¸ê®Æ´N³£¥H³Ì«á¤@¦¸ÂI¿ïªºÄæ¦ì,´N¤£³°Äò·s¼W¤F

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-12-23 07:11 ½s¿è

¦^´_ 3# starry1314
#2 ¸ê®Æ¤£ÅÜ¡A¥u»Ý¦A¼W¥[¤@­Ó«ö¶s´N¦æ¤F¡G
  1. Private Sub CommandButton3_Click()      '  ¤ñ¹ï¿ï¥Î¸ê®Æ
  2.     Dim ct As Variant
  3.    
  4.     With MultiPage1.Pages(0)
  5.         For Each ct In .Controls
  6.             If Sheets("¿ï¥Î¸ê®Æ").Columns("B:B").Find(ct.Caption, lookat:=xlWhole) Is Nothing Then
  7.                 ct.Object.Value = False
  8.             Else
  9.                 ct.Object.Value = True
  10.             End If
  11.         Next
  12.     End With
  13. End Sub
½Æ»s¥N½X

TOP

¦^´_ 5# starry1314
¿ï¥Î¸ê®Æ¤u§@ªí¥uÀx¦s1±i­q³æ?
±Nµ{§Ç§ï¬°¶}±Òªí³æ®É¦P®ÉŪ¨ú§÷®Æ¬O§_¤w¸g¿ï¥Î¡A¦Û°Ê±N¤w¦s¦b¿ï¥Î¸ê®Æ¤u§@ªíªº¶µ¥Ø¤Ä¿ïÅã¥Ü

    ½Æ¿ïªí³æ.zip (26.69 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 6# c_c_lai


    ·PÁÂÀ°§U,¦]¬°­nÅý¨Ï¥ÎªÌ¤è«K¾Þ§@,³£¬O¥H³Ì§Ö³t¬°¥D~
§ï¬°¶}±Ò§Y¦Û°Ê«ö¤U¤ñ¹ï,§ó¤è«K¨Ï¥ÎªÌ¤F

TOP

¦^´_ 7# Hsieh

·PÁª©¤jªºÀ°¦£~~~§¹¬ü¸Ñ¨M¡I¡I
:victory:

TOP

¦^´_ 7# Hsieh


    ª©¤j,
½Ð°Ý³oªí³æ¸Ó¦p¦ó¥i¥H­×§ï¦¨¨Ì·Ó[Ãþ«¬¤£¦P]¤À¥h¹ïÀ³ªí³æªº¤À­¶©O?
¦p3­ÓÃþ«¬´N·|¦³¤T­Ó¤À­¶³o¼Ë
¥Ø«e¬O¤À¤£¦PÄæ¦ì ¿é¥X¨â¦¸¤@¼Ëµ{¦¡½X
¥i¥HÅܦ¨¤@°¦µ{¦¡½X·d©w¶Ü?
  1. Private Sub UserForm_Initialize()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. Set e = CreateObject("Scripting.Dictionary")
  4. Set f = CreateObject("Scripting.Dictionary")

  5. With Sheets("¸ê®Æ®w")
  6.    For Each a In .Range(.[C2], .[C65536].End(xlUp))
  7.       d(a.Value) = Array(a.Offset(, -2).Value, a.Value, a.Offset(, 1).Value, a.Offset(, 2).Value)
  8.    Next
  9. End With
  10. For Each ky In d.keys
  11.    With Me.MultiPage1.Pages(0)
  12.    .Caption = "ÂAª£®É½­"

  13.        With .Controls.Add("forms.checkbox.1")
  14.             .Top = s * 30
  15.             .Width = 100
  16.             .Height = 30
  17.             .Left = k * 100
  18.             .Caption = ky
  19.             .Value = Not Sheets("¿ï¥Î¸ê®Æ").Columns("B").Find(ky, lookat:=xlWhole) Is Nothing
  20.         End With
  21.    m = m + 1
  22.    s = (m) Mod 9
  23.    k = Int(m / 9)
  24.    End With
  25. Next
  26. '¤ôªG
  27. m = 0
  28. s = 0
  29. k = 0
  30. With Sheets("¸ê®Æ®w")
  31.    For Each a In .Range(.[E2], .[E65536].End(xlUp))
  32.       e(a.Value) = Array(a.Offset(, -2).Value, a.Value, a.Offset(, 1).Value, a.Offset(, 2).Value)
  33.    Next
  34. End With
  35. For Each ky In e.keys
  36.    With Me.MultiPage1.Pages(1)
  37.    .Caption = "¤ôªG"

  38.        With .Controls.Add("forms.checkbox.1")
  39.             .Top = s * 30
  40.             .Width = 100
  41.             .Height = 30
  42.             .Left = k * 100
  43.             .Caption = ky
  44.             .Value = Not Sheets("¿ï¥Î¸ê®Æ").Columns("B").Find(ky, lookat:=xlWhole) Is Nothing
  45.         End With
  46.    m = m + 1
  47.    s = (m) Mod 9
  48.    k = Int(m / 9)
  49.    End With
  50. Next
  51. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD