ªð¦^¦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 : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD