- ©«¤l
- 552
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 578
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-2-8
- ³Ì«áµn¿ý
- 2024-7-9
|
¦^´_ 1# maiko
褣¤[«e¡A§Ú§@¤F¤@ÓÃþ¦üªº¡Aקï¤F¤@¤U¡A¤]¤£ª¾¬O¤£¬OÀ³§Aªºn¨D¡I- Private Sub Worksheet_Change(ByVal Target As Range)
- If Target.Address = [k3].Address Then
- Range("B2:G" & Cells(Rows.Count, 2).End(xlUp).Row).AutoFilter
- ActiveWorkbook.Worksheets("¤u§@ªí1").AutoFilter.Sort.SortFields.Clear
- ActiveWorkbook.Worksheets("¤u§@ªí1").AutoFilter.Sort.SortFields.Add Key:=Range( _
- "B2:B" & Cells(Rows.Count, 2).End(xlUp).Row), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
- xlSortNormal
- With ActiveWorkbook.Worksheets("¤u§@ªí1").AutoFilter.Sort
- .Header = xlYes
- .MatchCase = False
- .Orientation = xlTopToBottom
- .SortMethod = xlPinYin
- .Apply
- End With
- Range("B2:G" & Cells(Rows.Count, 2).End(xlUp).Row).AutoFilter
-
- shop = [k3]
- For Each Rng In Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row)
- If Rng = shop Then
- K = K + 1
- If K = 1 Then
- Set Rn = Rng.Offset(0, 1)
- Else
- Set Rn = Union(Rn, Rng.Offset(0, 1))
- End If
- End If
- Next
- aa = Rn.Address
- If aa = "" Then
- Exit Sub
- Else
- With [L3].Validation
- .Delete
- .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=" & aa
- .IgnoreBlank = True
- .InCellDropdown = True
- .InputTitle = ""
- .ErrorTitle = ""
- .InputMessage = ""
- .ErrorMessage = ""
- .IMEMode = xlIMEModeNoControl
- .ShowInput = True
- .ShowError = False
- End With
- End If
- [L3] = "½Ð¿ï¾Ü¤é´Á"
- End If
- If Target.Address = [L3].Address Then
- For Each Rang In Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row)
- If Rang = [k3] And Rang.Offset(0, 1) = [L3] Then
- [K5] = Rang.Offset(0, 2)
- [L5] = Rang.Offset(0, 5)
- End
- End If
- Next
- End If
- End Sub
½Æ»s¥N½X |
|