¿¢¼¿ ¸ÅÅ©·Î Áú¹®ÀÔ´Ï´Ù.

ö   
   Á¶È¸ 1130   Ãßõ 0    

1;셀 DŽ16;1676;를 시트1060;름에서 가1256;오기 매크/196; 관/144; 1656;문1077;니다.

첫번1704; 시트 1060;름1060; 111068;  ,.160;번1704; 시트 1060;름1060; 1월 21068; 1064; ᅆ1;우

첫번1704; 시트셀에 "01/01 실 시 사 항" 셀에 =getSheetName(A1)  & " 실 시 사 항" 매크/196; 사용Ȣ16;여 1096; 나Ꮢ1;니다.

문1228;lj16; 

첫번1704; 시트셀에서  "01/02 예 1221; 사 항" 1060;라lj16; 항목1064;데... 셀에 =getSheetName(A1)  & " 예 1221; 사 항" 매크/196; 함수를 Ǻ12;떻,172; 1201;용Ȣ16;면 .112;까요?

댓글 감사합니다.


참1312;한 visual basic1077;니다 

Function getSheetName(anyCell As Range)

  Application.Volatile

  getSheetName = anyCell.Parent.Name

End Function

ªÀº±Û Àϼö·Ï ½ÅÁßÇÏ°Ô.
´ëÃæ µ¹°Ô¸¸ ¸¸µé¾îºÃ½À´Ï´Ù

Function getSheetName2(anyCell As Range)

  Dim ix As Integer, i As Integer, rtn As String, nxt As Boolean

  Application.Volatile

  ix = Worksheets.Count
 
  nxt = False
 
  For i = 1 To ix
    If (nxt = True) And (rtn = "") Then
        rtn = Sheets(i).Name
    End If
   
    If Sheets(i).Name = anyCell.Parent.Name Then
        nxt = True
    End If
   
  Next
 
  getSheetName2 = rtn

End Function
´Ù¸¥ ½ÃÆ®¸¦ ÂüÁ¶ÇÏ·Á¸é
 =getSheetName(Sheet2!A1)  & " ¿¹ Á¤ »ç Ç×"
ó·³ »ç¿ëÇÏ¼Å¾ß ÇÕ´Ï´Ù. ½ÃÆ®¸íÀ» »ý·«Çϸé ÇöÀç È°¼ºÀÎ ½ÃÆ®°¡ »ç¿ëµË´Ï´Ù.


QnA
Á¦¸ñPage 336/438
04-07   587   ±è¹ÎöGC
2023-02   1366   Landa
2022-01   1153   ±èµ¿Çõ1
04-06   639   Xecus
2023-02   15688   ½ºÀ§Æ®È¨
2022-01   1490   ¯´Ô
04-04   813   ÀÌÇÏ´Ã
2023-02   2225   ¸¶ÄÉ·Î
2022-01   3702   ½ÎÀÌÁ¦ÀÌ
04-03   625   gusoong
2023-02   1600   eu4you
2022-01   1516   ¼úÀÌ
04-02   733   Àâ½Ä
2023-02   1065   LevinF
2022-01   1402   DB´ººñ
04-01   558   ÀÌ´ë¹ü
2023-02   740   ·¹¹ÝÅͽº
2022-01   1420   Smile
03-30   974   ¹Ú¹®Çü
2023-02   1224   L2½ºÀ§Ä¡