ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¦³ÃöVBA»yªkªº°ÝÃD

¦³Ãö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«ç»ò¤@¦^¨Æ??

¤Ó·PÁ¤F!!³o¼Ë´N¥i¥H¤F!!

TOP

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD