- ©«¤l
- 2834
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2890
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-22
|
Private Sub CommandButton1_Click()
Dim xF As Range
Set xF = [ªí³æ2!2:2].Find([D1].Value, Lookat:=xlWhole)
If xF Is Nothing Then MsgBox "§ä¤£¨ì²Å¦X¤é´Á!": Exit Sub
xF(3, 1).Resize(3) = [B3:B5].Value
End Sub
Private Sub CommandButton2_Click()
Dim xF As Range
Set xF = [ªí³æ2!2:2].Find([D8].Value, Lookat:=xlWhole)
If xF Is Nothing Then MsgBox "§ä¤£¨ì²Å¦X¤é´Á!": Exit Sub
xF(3, 2).Resize(3) = [B10:B12].Value
End Sub |
|