- ©«¤l
- 66
- ¥DÃD
- 28
- ºëµØ
- 0
- ¿n¤À
- 95
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-10-1
- ³Ì«áµn¿ý
- 2018-6-26
|
¦³ÃöVBA»yªkªº°ÝÃD
µ{¦¡¦p¤U:
Dim Lastrow7 As Integer
Dim Value As String
Lastrow7 = ¤u§@ªí5.[L65536].End(xlUp).Row
Value = UserForm1.ComboBox16
With Worksheets("¤u§@ªí1")
Dim C As Range
Set C = .Columns(12).Find(Value, lookat:=xlWhole)
If C Is Nothing Then MsgBox "¬dµL¦¹¦r¦ê" Else MsgBox "·j´M¦r¦ê¦ì¸m" & C.Address
End With
©_©Çªº¬OValue³æ¯Âªº¬Otest,1234´N§ä±o¨ì
¦ý¬O¦pªG¦r¤¸¦h¤F¤@Ó"~",´N§ä¤£¨ì¡C
½Ð°Ý³o¬O«ç»ò¤@¦^¨Æ?? |
|