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

ö   
   Á¶È¸ 1179   Ãßõ 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/437
03-06   955   Æĸ®´ë¿Õ
2023-02   918   »ç¶ûÇ϶ó
03-05   740   »ç´©½º
2023-02   1331   MASS
03-04   1113   ¹Ì·¡1
2023-02   921   ¿µ»êȸ»ó
02-29   720   ¹Ì´ã
2023-01   1157   ¹Î»çÀå
02-29   1081   JBJB
2023-01   1306   ¿À·Î¶ó
02-28   730   ȲȥÀ»ÇâÇØ
2023-01   1470   ¹Ì´ã
02-26   782   dotcat
2023-01   3845   VSPress
02-24   720   ºû³ª·¡
2023-01   1745   ¹ß¸®ÀǸ®
02-23   756   Ä«¹Ä
2023-01   1784   Sikieiki
02-21   833   cpuinfo
2023-01   921   tantan11