­ã´£³¡ªL

¦b¤u§@ªíªí®æª½±µ¿é¤J¤Î¾Þ§@¤£¬O§ó¤è«K???
¥Îªí³æı±o¤Ï¦Óê¤â~~

­ã´£³¡ªL

¨®½ø½s¸¹ ¤Î ¥q¾÷¤H­û ªº²Õ¦X³£©T©w¤£­«ÂÐ???

¸Õ¸Õ~~
Dim vD As Object

Private Sub CommandButton1_Click()
Dim T$, T1$, T2$, R&
T1 = TextBox1:   T2 = TextBox2:   T = T1 & "|" & T2
If T1 = "" Then MsgBox "§A¥²¶·¿é¤J (¨®½ø½s¸¹)  ": Exit Sub
If T2 = "" Then MsgBox "§A¥²¶·¿é¤J (¥q¾÷¤H­û)  ": Exit Sub
R = Val(vD(T))
If R = 0 Then MsgBox "¨®½ø/¥q¾÷¡G" & T1 & "/" & T2 & "¡A³o²Õ¦X¤£¦s¦b¡@": Exit Sub
If R < 0 Then '¥X¨®
   Cells(-R, 3).Resize(1, 4) = ""
   Cells(-R, 4) = Now: ComboBox1.Text = ""
   vD(T) = -R
Else '¦^¨®
  If ComboBox1.Text = "" Then MsgBox "³o¬O¡i¦^¨®¡j½ë¡A(¦^¨®ª««~) ¥²¶·¿é¤J ": Exit Sub
  Cells(R, 3) = T2:   Cells(R, 5) = Now:   Cells(R, 6) = ComboBox1.Text
  vD(T) = -R
End If
End Sub

Private Sub UserForm_Initialize()
Dim T$, T1$, T2$, i&
Set vD = CreateObject("Scripting.Dictionary")
Arr = Range([F1], [A65536].End(xlUp))
For i = 2 To UBound(Arr)
    T1 = Arr(i, 1):   T2 = Arr(i, 2):   T = T1 & "|" & T2
    If T1 = "" Or T2 = "" Then GoTo 101
    vD(T) = i
    If Arr(i, 4) = "" Or Arr(i, 5) <> "" Then vD(T) = -i
101: Next i
ComboBox1.List = Array("NO", "Yes")
End Sub

111_v1.rar (30.02 KB)

¤U¸ü¦¸¼Æ: 4

2018-12-6 15:41

­ã´£³¡ªL

¦^´_ 11# man65boy


1) °²¨Ï³~¤¤§â¤u§@ªí¤ºªº¸ê®Æ¨ä¤¤¤@¦C¡A§R°£®É¡A¦A¦¸¨Ï¥Îªí³æ¿é¤J®É¡A¤]­n§â·sªº¸ê®Æ¡A¶ñ¸É¦b¨º¤@¦C
   __¬O«ü[²M°£]§a! ¦CÅܦ¨ªÅ¥Õ, ¦Ó¤£¬O¾ã¦C§R°£???
  __©Ò¥H, ·sªº¸ê®Æ­n±q¤¤¶¡¦³ªÅ¥Õªº¦CÀu¥ý¶ñ¸É, ¨S¦³¤¤¶¡ªÅ¥Õ¦C¤F, ¤~±q³Ì«á¤@¦C¤U­±ªÅ¥Õ¦C¶ñ¼g???
  __­n·s¼g¤Jªº¸ê®Æ»P³Q§R°£ªº¨S¦³¹ïÀ³Ãö«Y???
2) ¤v¦³[¦^¨®]®É¶¡ªº¦C, ¤£¦A¹ï¨ä°µ¥ô¦ó³B²z???  (ªí¥Ü¸Ó¤u§@¤w§¹¦¨)
3) ¥u¦³[¥X¨®]®É¶¡ªÌ, µ¥[¦^¨®]®É, ¥u­n¶ñ¤J__¤H­û(2)/¦^¨®®É¶¡/ª««~???
4) ·s¼W[¥X¨®]®É, ¥u¶ñ¤J__¨®½ø/¤H­û(1)/¥X¨®®É¶¡???

­ã´£³¡ªL

¦^´_ 11# man65boy

Dim vD As Object

Private Sub CommandButton1_Click()
Dim T$, T1$, T2$, R&
T1 = TextBox1:   T2 = TextBox2:   T = T1 & "|" & T2
If T1 = "" Then MsgBox "§A¥²¶·¿é¤J (¨®½ø½s¸¹)  ": Exit Sub
If T2 = "" Then MsgBox "§A¥²¶·¿é¤J (¥q¾÷¤H­û)  ": Exit Sub
R = Val(vD(T))
If R = 0 Then '¥X¨®
   R = [A:A].Find(What:="", LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext).Row
   Cells(R, 1) = T1: Cells(R, 2) = T2:  Cells(R, 4) = Now
   vD(T) = R
Else '¦^¨®
  If ComboBox1.Text = "" Then MsgBox "³o¬O¡i¦^¨®¡j½ë¡A(¦^¨®ª««~) ¥²¶·¿é¤J ": Exit Sub
  Cells(R, 3) = T2:   Cells(R, 5) = Now:   Cells(R, 6) = ComboBox1.Text
  vD(T) = 0
End If
TextBox1 = "": TextBox1.SetFocus: TextBox2 = "": ComboBox1 = ""
End Sub

Private Sub UserForm_Initialize()
Dim T$, T1$, T2$, i&, Arr
Set vD = CreateObject("Scripting.Dictionary")
Arr = Range([F1], [A65536].End(xlUp))
For i = 2 To UBound(Arr)
    T1 = Arr(i, 1):   T2 = Arr(i, 2):   T = T1 & "|" & T2
    If T1 <> "" And T2 <> "" And Arr(i, 3) = "" Then vD(T) = i
Next i
ComboBox1.List = Array("NO", "Yes")
End Sub

111_v2.rar (27.91 KB)

¤U¸ü¦¸¼Æ: 6

2018-12-6 20:18