GBKEE

¦^´_ 1# gca78000
PS: ¦³§ó¥¿
²M³æ¤u§@ªí¼Ò²Õªºµ{¦¡½X

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     With Target
   
3.         If .Address = "$A$2" And IsNumeric(.Text) Then  'A2
   
4.             With Sheets("¸ê®Æ°Ï").Range("B1")
   
5.                 ComboBox1.List = .Resize(.Cells.End(xlDown).Row).Value
   
6.             End With
   
7.             If .Cells >= 0 And .Cells <= ComboBox1.ListCount Then
   
8.                 ComboBox1.Value = ComboBox1.List(.Value - 1)
   
9.             End If
   
10.         End If
    
11.     End With
    
12. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 6# gca78000
A2µL°ÊÀR  ¤u§@ªí¼Ò²Õ¦³³\¦h¹w³]ªº¨Æ¥óµ{§Ç

¤U¸ü (129.17 KB)

2015-11-25 05:50