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

[µo°Ý] ¦p¦ó¥Îvbaª¾¹D§@¥ÎÀx¦s®æ&Äæ&¦Cªº¦ì¸m

[µo°Ý] ¦p¦ó¥Îvbaª¾¹D§@¥ÎÀx¦s®æ&Äæ&¦Cªº¦ì¸m

¦pÃD¡G

§Ú·Q³z¹L¥¨¶°ªº¤è¦¡±oª¾§@¥ÎÀx¦s®æ¦ì¸m¡A¨Ò¦p±oª¾¬°RANGE("A5")
¤]·Q³z¹Lvba¦Û°Ê¬d¸ß¬Y¤@ÃöÁä¦r¡A¬d¸ß§¹¤§«á¡A·Q±oª¾¬d¸ßªºÀx¦s®æ¦ì¸m
¨Ã¥B·Qª¾¹D¦p¦ó¤@¨Ö±oª¾Äæ»P¦Cªº¦ì¸m

³Â·Ð¦U¦ì¤j¤j¤F
PKKO

¦^´_ 1# PKKO
  1.   With Selection(1)
  2.     MsgBox "©Ò¿ïªºÀx¦s®æ¦ì¸m¬° : " & .Address(0, 0) & vbCrLf & vbCrLf & "¦C¸¹¬° : " & .Row & ", Ä渹¬° : " & .Column
  3.   End With
½Æ»s¥N½X

TOP

¦^´_ 1# PKKO
  1. Sub ex()
  2. MsgBox "¥Ø«e§@¥Î¤¤Àx¦s®æ" & ActiveCell.Address
  3. MsgBox "¥Ø«e³Q¿ï¨úÀx¦s®æ" & Selection.Address
  4. FindStr = InputBox("¿é¤J¬d¸ß¦r¦ê", , "·j´M")
  5. Set a = Cells.Find(FindStr, lookat:=xlWhole)
  6. If a Is Nothing Then MsgBox "¬dµL¦¹¦r¦ê" Else MsgBox "·j´M¦r¦ê¦ì¸m" & a.Address
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# Hsieh


    ·P®¦¡A¹ê¦b¤Ó¼F®`¤F!
PKKO

TOP

        ÀR«ä¦Û¦b : ¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD