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

Sheets ¨Ï¥ÎÅܼƪº»yªk ?

Sheets ¨Ï¥ÎÅܼƪº»yªk ?

Sheets("temp") , «ü temp ¬°¦Wªº Sheet ,
¦pªG temp ¬O¥Ñ¨Ï¥ÎªÌ¿é¤J®É , ¨º»yªkÀ³¸Ó¦p¦ó¼g ??
¦] Sheets(temp) , ³£Åã¥Ü¿ù»~ ....
    Sheets("temp") , ¤S«ü©w¬° temp , «D¨Ï¥ÎªÌ©Ò¿é¤Jªº

¦^´_ 1# oliwa

¤£ª¾¬O§_¬O§A­nªº¥\¯à

Sub test()
   Dim temp$
   temp = InputBox("Please input sheet Name")
   Sheet2.Name = temp
End Sub

TOP

°²³]§A±N·Q­n³]©wªº¦WºÙ¨Ì§Ç©ñ¦b¤@­Ó¥s°µsheet3ªºsheet ªºa1, a2, a3......
¨º¥L´N¥i¥H¨Ì§ÇÀ°§Aª½±µ¼g¤J¨C­ÓsheetªºName
Sub xx()
For sh = 1 To 10
Sheets(sh).Name = Sheets("sheet3").Range("a" & sh)
Next

End Sub

TOP

§Ú«á¨Ó¸Õ¨ì
With Sheets("" & Data_Comp & "")
´N¦¨¥\¤F , ¦ý§Ú¤£ª¾¦ó·N ?
Data_Comp¬O¥t¤@­Óµ{§Ç©I¥s®Éªº°Ñ¼Æ .....
·PÁ¦U¦ì¨ó§U ....

TOP

        ÀR«ä¦Û¦b : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD