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

[µo°Ý] ½Ð°Ý¦p¦ó¦b¦Û­qªí³æ¤¤À³¥ÎVLOOKUP¨ç¼Æ

[µo°Ý] ½Ð°Ý¦p¦ó¦b¦Û­qªí³æ¤¤À³¥ÎVLOOKUP¨ç¼Æ

½Ð±Ð¦U¦ì
¤p§Ì§Æ±æ¯à°÷¦b¦Û­qªí³æ¤¤1¸ò2ªº¦ì¸m
¿é¤J«~¶µ  ¥k¤è´N¥i¥H¦Û°ÊÅã¥Ü¹ïÀ³ªºª÷ÃB
¦pªþ¹Ï©Ò¥Ü
½Ð±ÐLabelªº­ÈÀ³¸Ó­n«ç»ò³]©w?

Label3 = Val(Label1) + Val(Label2)

TOP

¦^´_ 2# koo

·PÁ¦^ÂÐ
¸É¥R¤@¤U°ÝÃD
Lebel3ªº¼gªk¤w¸g½T»{
¦p¤U¹Ï
§Ú§Æ±æ¦b¥ª°¼¿é¤J«~¶µ«á ¥k°¼ªºLebel1´NÅã¥Ü¥X»ù®æ
³o¼Ëªº¸ÜÀ³¸Ó­n«ç»ò¼g!?

TOP

¦^´_ 3# minture3

¬O³o¼Ë¶Ü¡H
  1. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  2. For Each rn In Sheets("¤u§@ªí1").Range("a2:a4" & Sheets("¤u§@ªí1").Cells(Rows.Count, "A").End(xlUp).Row)
  3.     If TextBox1.Value = rn Then
  4.         Label1.Caption = Sheets("¤u§@ªí1").Cells(rn.Row, "b")
  5.         Exit For
  6.     Else
  7.         Label1.Caption = "¬dµL¦¹¸ê®Æ"
  8.     End If
  9. Next
  10. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# lpk187

¤£¦n·N«ä
¦pªG§Ú¬O­n§â¸ê®Æ©ñ¦b­Ó¤H¬¡­¶¥¨¶°(´N¬O¤£ºÞ¶}­þ­ÓÀÉ®× ³o­Ó¥¨¶°³£¥i¥H¨Ï¥Îªº¨º­Ó)

³o¼Ëªº¸Ü
For Each rn In Sheets("¸ê®Æ®w")³oÃ䪺À³¸Ó«ç»ò­×¥¿??
§Ú­è­è¸Õ¤F¤@¤Uª½±µ§ï¦¨­Ó¤H¬¡­¶¥¨¶°ªº¨º­Ó¤u§@ªí¦WºÙ
¦ý¬O°õ¦æ«á¨S¦³¤ÏÀ³!

·PÁÂ!!

TOP

¦^´_ 6# minture3

¦A¸Õ¸Õ¬Ý,¥H«e§Ú¨S¥Î¹L³o¤è¦¡°µ¹L¡A©Ò¥H¤]¤£ª¾¹ï¤£¹ï¡Aµ{¦¡©Mªí³æ¤Î"¸ê®Æ®w"³£­n©ñ¦b­Ó¤H¥¨¶°¤u§@ï("PERSONAL.xlsb")¤¤
  1. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  2. For Each rn In Workbooks("PERSONAL.xlsb").Sheets("¸ê®Æ®w").Range("a2:a" & Workbooks("PERSONAL.xlsb").Sheets("¸ê®Æ®w").Cells(Rows.Count, "A").End(xlUp).Row)
  3.     If TextBox1.Value = rn Then
  4.         Label1.Caption = Workbooks("PERSONAL.xlsb").Sheets("¸ê®Æ®w").Cells(rn.Row, "b")
  5.         Exit For
  6.     Else
  7.         Label1.Caption = "¬dµL¦¹¸ê®Æ"
  8.     End If
  9. Next
  10. End Sub
½Æ»s¥N½X
  1. Public Sub test()
  2. UserForm1.Show
  3. End Sub
½Æ»s¥N½X

TOP

¦^´_ 6# lpk187

·PÁ¦^ÂÐ !!
¦­¤W©âªÅ¸Õ¤F¤@¤U
µo²{¤W¦^ªº¼gªk¬O¥i¦æªº

¤£¹Lªí³æ¤¤¤@©w­n¦³¤@­Ótextbox2
¬Q¤Ñ¦]¬°§Ú§â¥¦®³±¼ ©Ò¥H°õ¦æ¤F´N¨S¦³¤ÏÀ³~~
¦ý¬O¤@©w­n¶}µÛPERSONAL³o­ÓÀÉ®×
¦pªG§âÀÉ®×ÁôÂäF ¤]·|Åܦ¨¨S¦³¿ìªk°õ¦æ~!!·|¥X²{"ROWS¤èªk¥¢±Ñ"

¦Ü©ó«ü©wWorkbooks("PERSONAL.xlsb").Sheets("¸ê®Æ®w")
¸Õ¤F¤@¤U·|¥X²{"À³¥Îµ{¦¡©Îª«¥ó©w¸q¤Wªº¿ù»~"

TOP

        ÀR«ä¦Û¦b : ¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤Hµh­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD