ªð¦^¦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«ç»ò¤@¦^¨Æ??

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2015-11-17 23:11 ½s¿è

Sub Find_No()
T$ = Replace("ABC~", "~", "~~")¡@¡÷±N ~ «eÀY¦A¥[­Ó ~ ¡A¥Hªí¥Ü±N ~ µø¬°¤å¦rªº¤@³¡¥÷¡A¡e¨ú¥N¡f¥\¯à¥ç¦P
Set xF = [A:A].Find(T, Lookat:=xlWhole)
MsgBox xF.Address
End Sub

Set C = .Columns(12).Find(Replace(Value, "~", "~~"), lookat:=xlWhole)

ª`·N¡G¤£­n±N value ³]¬°¦Û­qÅܼơA¨ä¬°vba¹w³]ÃöÁä¦r¡A§ï¥Î§Oªº§a¡A¨Ò¦p¡GxVal

TOP

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

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD