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

[µo°Ý] ½Ð°Ý¥X¶Ô¨t²Î³]­p

¦^´_ 49# v03586
1:1¡B1:2¡B1:3¡B1:4 ªº³¡¤À¥Ñ¥i¾Þ¾÷¼Æ°µ­Ó¥[Á`
¦p¦ó¥[Á`??
ªþÀÉ   ·s¥[¤W Â÷¾¤H­ûªº½ð°£+ ¥X¶Ôªº¨ú®ø

Ex.zip (411.19 KB)
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2016-8-25 20:57 ½s¿è

¦^´_ 51# v03586
µ{¦¡¦³¿ù»~,¥i¥ýGoogle ¤F¸Ñ¿ù»~¤~·|¶i¨B,

¥¼©R¦W.GIF
2016-8-25 20:48


"ÂI¤FÂ÷¾¤H­û¦W¦r·|¼u¥X¦p¤U¿ù»~"
§A¬O¦p¦ó¾Þ§@¨S³o¿ù»~
³o¤£¬O§R°£Â÷¾¤H­û
  1. Private Sub UserForm_Initialize()
  2.     ³]©w             '  Åª¨ú UserForm ¤º¤§Àô¹Ò³]©w
  3.     ¤H¤O¸ê®ÆŪ¨ú     '  °õ¦æ¼Ò²Õ¤¤¡yµ{¦¡¡z¡A¨Ã±q¡y¤H¤O¸ê®Æ®w¡z¤¤Åª¨ú¡uDA¯Z§O¡v¡B¡uDA»â¯Z¡v¡B
  4.                      '  ¡uDA¤u¸¹¡v¡B¡uDA²Õ§O¡v¡B¡uDA±Mªø¡vµ¥«Å§i¬°¤½¥ÎÅܼƤ§¡u¦r¨åª«¥ó¡v¡C
  5.     Â÷¾À˵ø '****¥[¤W³o­Ó¬Ý¬Ý
½Æ»s¥N½X
"1:1¡B1:2¡B1:3¡B1:4 ªº³¡¤À¥Ñ¥i¾Þ¾÷¼Æ°µ­Ó¥[Á`, ¦p¦ó¥[Á`??"
§Ú¦A¬Ý¬Ý¦p¦ó§@

Sub ¥X¶Ô¨ú®ø ¦³­×§ï
  1. Private Sub ¥X¶Ô¨ú®ø()
  2.     Dim St As String  ', i As Integer  'ÅܼƩw¸q As «Å§i«¬ºA
  3.     ¥X¶ÔAr(2) = xDay
  4.     St = ¥X¶ÔAr(2) & "," & ¥X¶ÔAr(3) & "," & ¥X¶ÔAr(4) & "," & ¥X¶ÔAr(5)
  5.     If ListBox1.ListIndex < 0 Or Not DA¥X¶Ô¸ê®Æ.exists(St) Then
  6.         If ListBox1.ListIndex < 0 Then
  7.             MsgBox "¨S¿ï¾Ü  ¥X¶Ô¤H­û !!!"
  8.         ElseIf Not DA¥X¶Ô¸ê®Æ.exists(St) Then
  9.             MsgBox St & "  ©|¥¼¥X¶Ô !!!"
  10.         End If
  11.         Exit Sub
  12.     Else
  13.         If MsgBox(St & "", vbYesNo, "¥X¶Ô¨ú®ø") = vbNo Then Exit Sub
  14.     End If
  15.     i = ListBox1.ListIndex
  16.     ListBox1.ListIndex = -1
  17.    DA¥X¶Ô¸ê®Æ(St).Delete (xlUp)
  18.    DA¥X¶Ô¸ê®Æ.Remove St
  19.     With Sheets("¥X¶Ô¸ê®Æ®w").[N5].Offset(i)
  20.             ListBox1.RowSource = ""
  21.             For i = 5 To 8
  22.                 .Cells(1, i) = "" '
  23.             Next
  24.             With .CurrentRegion
  25.                 ListBox1.RowSource = .Rows("2:" & .Rows.Count).Address(, , , 1, 1)
  26.             End With
  27.     End With
  28. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2016-8-27 13:22 ½s¿è

¦^´_ 53# v03586


¤w­×§ï§A´£ªº°ÝÃD.



   Ex.zip (428.85 KB)
§ó¥¿ª© ¤H­û¤H¤O¦^³øªí0827v2.xls
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 61# c_c_lai

°Ñ¦Ò¬Ý¬Ý

    Ex.zip (430.82 KB)
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 63# c_c_lai
§ÚªþÀÉ ¤H­û¤H¤O¦^³øªí0903V1.xls  
¤H­û¦^³ø¥[¯Z¤£¥¿½T,³o¸Ì»Ý­×§ï
  1. '  ***********************************
  2.             If R.Range("J1") <> "" And R.Range("J1") <> E Then         '  **¥X¶Ô¸ê®Æ®w , ©µªø¥[¯Z ¸ê®Æ   **
  3.                 i = Application.Match(UCase(R.Range("j1")), Ar1, 0)
  4.                 ¯¸§Oªí(i, ¤é¼Æ) = ¯¸§Oªí(i, ¤é¼Æ) + 1       '  ** Day(Rng(1)); ¥[¯Z§Oªº¥[Á`
  5.             End If
½Æ»s¥N½X
¦^´_ 64# v03586
§ó§ï¤H¾÷¤ñ , ¥i¨Ì¤H­û¦^­¶¦ì¸m­×§ï.¥i¦Û¤v½m²ß­×§ï.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 67# v03586


§ó·sª©¥»

    Ex.zip (417.46 KB)
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¬O«D·í±Ð¨|¡AÆg¬ü§@ĵ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD