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

ö   
   Á¶È¸ 1204   Ãßõ 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 275/437
2023-07   1747   ÄÚÄí
2022-07   1499   ¿µ»êȸ»ó
2023-07   1479   ÁÒ½´¾Æ
2022-07   1211   ÀÌÈñÁÖ
2023-07   1837   È­Á¤Å¥»ï
2022-07   3174   kjeon
2023-07   1607   langrisser
2022-06   1159   È­¶õ
2023-07   892   ȸ»ó2
2022-06   1821   ¹Ú¹®Çü
2023-07   3570   ½ÅµµÇö
2022-06   1425   Sakura24
2023-07   1514   ¾Æ¸¶µ¥¿ì¾²
2022-06   1090   ´ÃÆĶõ
2023-07   1648   Å°¸®¿¡
2022-06   822   ¹üÀÌ´Ô
2023-07   1151   ¾²·¹±â´ÜÀå
2022-06   1526   ³ª³ª³ª³ª³ª
2023-07   1052   È­¶õ
2022-06   907   yollman