- Sub ll()
- Dim Dn As Integer
- Dim Rng As Range
- Dim NameRng As Range, DnRng As Range
- Set Rng = Selection
- Set NameRng = Rng.Areas(1)
- Set DnRng = Rng.Areas(2)
- Set Rng = AssoDnRng(NameRng, DnRng)
- '
- End Sub
- ''
- Function AssoDnRng(NameRng As Range, DnRng As Range)
- Dim Str, Dn
- For ii = 1 To NameRng.Rows.Count
- Str = NameRng(ii, 1)
- 'Str = Left(Str, Len(Str) - 7)
-
- For ii1 = 1 To DnRng.Rows.Count
- Dn = DnRng(ii1, 1)
- Select Case Str
- Case "¿Çìå0.SLDPRT", "·aí·0.SLDPRT"
- Select Case Dn
- Case 159, 219, 273, 325, 377, 426
- End Select
- Case "¿Çìå.SLDPRT", "·aí·.SLDPRT"
- Select Case Dn
- Case 300, 350, 400, 450, 500, 550, 600, 650, 700, 800, 900, 1000, 1100, 1200, 1300, 1400, 1500, 1600, 1700, 1800, 1900, 2000, 2100, 2200, 2300, 2400, 2600, 2800, 3000, 3200, 3400, 3600, 3800, 4000
- 'Debug.Print NameRng(ii, 1).Address, Str, DnRng(ii1, 1).Address, Dn
- End Select
- Case "¸1°å0.SLDPRT", "½î°å0.SLDPRT"
- Select Case Dn
- Case 159, 219, 273, 325, 377, 426, 300, 350, 400, 450, 500, 550, 600, 650, 700, 800, 900
- End Select
- Case "½î°å1.SLDPRT", "½î°å2.SLDPRT"
- Select Case Dn
- Case 1000, 1100, 1200, 1300, 1400, 1500, 1600, 1700, 1800, 1900, 2000, 2100, 2200, 2300, 2400, 2600, 2800, 3000, 3200, 3400, 3600, 3800, 4000
- End Select
- 'Debug.Print NameRng(ii, 1).Address, Str, DnRng(ii1, 1).Address, Dn
- Case "½î°å3.SLDPRT"
- Select Case Dn
- Case 2100, 2200, 2300, 2400, 2600, 2800, 3000, 3200, 3400, 3600, 3800, 4000
- End Select
-
- End Select
- Next ii1
- Next ii
- Set AssoDnRng = DnRng
- End Function
复制代码
|