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

[µo°Ý] ½Ð°Ý¸Ó¦p¦ó¤ñ¹ï°}¦C¤¤ªº¸ê®Æ»P¤u§@ªí©m¦W ?

¦^´_ 1# j1221
If ThisWorkbook.Sheets(iM).Name = varA(I, 1, 8) & "" Then
¤u§@ªí¦WºÙ¬O "¦r¦ê", varA(I, 1, 8) ¬O¼Æ¦r  & ""   ³sµ²¦Û²Å¸¹ÂàÅܬ°¦r¦ê
ªþÀÉ Private Sub Workbook_Open()  
    Sheets("TXF").[B7:P18007] = ""   ¨S³o¤u§@ªí

©Ò¦³ªº Module ¤@¯ë¼Ò²Õ ¥u¥i¥H¦³¤@­Ó Sub Auto_Open()

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD