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

ö   
   Á¶È¸ 1332   Ãßõ 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 333/439
2022-11   953   ¼ÒÀ½±â
2022-11   2937   Astarot
2022-11   2510   Mode
2022-11   1021   ¼­¿ï»ç¶÷
2022-11   2420   Sgtsteam
2022-11   1412   ³ªÀÇÁ¤Ã¼´Â
2022-11   1411   ¼ÛÁÖÇü
2022-11   1246   ÇãÀα¸¸¶Æ¾
2022-11   2037   µþ±â´ëÀå
2022-11   1820   »õÃÑ
2022-11   1260   ¶Ñ¾Ó
2022-11   1403   È­Á¤Å¥»ï
2022-11   2881   ·ù³Ù¾ÆÀ̽º
2022-11   1751   Àܺñ
2022-11   1487   ¿ä¸¦·¹ÀÌ
2022-11   1420   cho609495
2022-11   1254   Caroline
2022-11   1189   ±èÇüÁØ1
2022-11   1737   °­Çѱ¸
2022-11   1687   ¯´Ô