[µo°Ý] ¦³Ãösheet¦WºÙªº°ÝÃD

imzues

sheetªº¦W¦r·Ó¨C¤Ñªº¤é®ð¨Ò¦p¡G0424 0425 0426....¥H¦¹Ãþ±À
¦ý§Ú·Q­n·Ó·í¤Ñ¤é´Á§ì¨ì¨º±isheet¡A³o³¡¥÷¸Ó«ç»ò¼g¡A§Ú¸Õ¤F«Ü¤[¦ý¸Õ¤£¥X¨Ó!!!

Dim D As String
Dim M As String
Dim Rowno As Integer

D = Day(Now)
M = Month(Now)

If Len(D) = 1 Then
D = "0" + D
Else
D = D
End If

If Len(M) = 1 Then
M = "0" + M
Else
M = M
End If

With Workbooks.Open("a.xls")
¦A¨Ó´N¸Õ¤£¥X¨Ó¤F!!

Hsieh

With Workbooks.Open("a.xls")  '¶}±ÒÀÉ®×
      with .sheets(format(date,"mmdd")) '¶}±ÒÀɮפºªº¤é´Á¤u§@ªí
      end with
end with

imzues

With Workbooks.Open("a.xls")  '¶}±ÒÀÉ®×
      with .sheets(format(date,"mmdd")) .Range("a:a") '¶}±ÒÀɮפºªº¤é´Á¤u§@ªí
      end with
end with

½d³ò¤@¼Ëª½±µ¥[¦b«á­±¶Ü???

Hsieh

¦^´_ 3# imzues


    With Workbooks.Open("a.xls")  '¶}±ÒÀÉ®×
      with .sheets(format(date,"mmdd"))'¶}±ÒÀɮפºªº¤é´Á¤u§@ªí
           with .Range("a:a") '¤u§@ªí¤ºªºAÄæ

                end with
      end with
end with

³o¬Oª«¥ó¶¥¼hªº·§©À°ÝÃD
WORKBOOKS¤º¥]§tWORKSHEETS
WORKSHEETS¤º¥]§tRANGE

GBKEE

¦^´_ 3# imzues
With Workbooks.Open("a.xls")  '¶}±ÒÀÉ®×
      .Sheets(Format(Date, "mmdd")).Activate '¶}±ÒÀɮפºªº¤é´Á¤u§@ªí¦¨¬°¨Ï¥Î¤¤ªº¤u§@ªí
End With

imzues

§Ú­n§âªF¦èCopy¹L¥h¡A¦ý¤£ª¾¨º¼g¿ù¤F!!!

Sub JC()
'
Dim MySheet As Worksheet
Dim D As String
Dim M As String
Dim Rowno As Integer


D = Day(Now)
M = Month(Now)


If Len(D) = 1 Then
D = "0" + D
Else
D = D
End If

If Len(M) = 1 Then
M = "0" + M
Else
M = M
End If

    Set MySheet = ActiveSheet   
With Workbooks.Open("A.xls")

    With .Sheets(Format(Date, "mmdd"))     

           With .Range("R56:V75")            

        MySheet.Range("E18").End(xlDown).Offset(1, 0).Resize(, .Count) = .Value
        
    End With
                 
      End With

               .Close 0

         End With
'

End Sub

Hsieh

Resize(, .Count) ³o·|¬O¦h¤j½d³ò©O?
³o¥i¬O¥u¦³¤@¦C100Äæ­ò

imzues

20x20¥ª¥kªº½d³ò

chin15

With .Range("R56:V75")  
³o®Éªº  Resize(, .Count)
¬O 1¦C100Äæ ªº½d³ò

imzues

¤F¸Ñ¤F~·PÁÂ~§Úª¾¹D¸Ó«ç»ò§ï¤F!!!