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

VBA ¤¤·j´MÄæ¦ìªº¼Æ¦r Âà´«¬°Äæ¦ì

VBA ¤¤·j´MÄæ¦ìªº¼Æ¦r Âà´«¬°Äæ¦ì

½Ð°Ý¤@¤U
¨Ï¥ÎVBA¤¤ªº
    Set C = Rows("1:1").Find(da, LookAt:=xlWhole)
   If Not C Is Nothing Then
  Y1 = C.Column   ' ¤é´Á¦ì¸m

±o¨ì¤@­Ó·j´M¼Æ¦r

½Ð°Ý¦p¦ó±N Y1 ªº¼Æ¦rÂର Äæ¦ì­È

¨Ò¦p
1=A
2=B
3=C
27=A1

¦^´_ 1# stran
Y1 = C.address(0,0)   'Cªº¦ì¸m
©Î
Y1 = Split(C.address,"$")(1)    'CªºÄæ¦ì¦r¥À

TOP

¦^´_ 2# stillfish00
 Y1 ªº¼Æ¦rÂର Äæ¦ì­È  , ¦P²z
=Split(Cells(1,Y1).address,"$")(1)

PS: 27¬OÄæ¦ìAA

TOP

¦^´_ 2# stillfish00


    ·PÁ±z

¥t¥~½Ð°Ý ¦p¥i¥H¦¬´M¨ìªºÄæ¦ì -1 Äæ¦ì
¨Ò¦p¸ê®Æ¬° AB
¦p¦ó-1 °h¤@Äæ ¬° AA

TOP

¦^´_  stillfish00


    ·PÁ±z

¥t¥~½Ð°Ý ¦p¥i¥H¦¬´M¨ìªºÄæ¦ì -1 Äæ¦ì
¨Ò¦p¸ê®Æ¬° AB
¦p¦ó-1 °h¤@ ...
stran µoªí©ó 2012-12-28 16:21

¦pªG¸ê®Æ¬°¤£¦bAÄæ
¥i¥Î
= Split(C.Offset(0,-1).address,"$")(1)

»yªk
¹Bºâ¦¡.Offset(RowOffset, ColumnOffset)
RowOffset ¥¿­Èªí¥Ü¦V¤U¦ì²¾¡A­t­Èªí¥Ü¦V¤W¦ì²¾
ColumnOffset ¥¿­Èªí¥Ü¦V¥k¦ì²¾¡A­t­Èªí¥Ü¦V¥ª¦ì²¾

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD