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

µ{¦¡­×§ï

µ{¦¡­×§ï

½Ð°Ý¦U¦ì¦Ñ®v¡A¦p¦p¦óÅý¿ï¨ú½Æ»sªº½d³ò,¥i¨ÌSheet3¤u§@ªíªºF3Àx¦s®æ¡A°µ¨Ì¾Ú¡C
¥¼©R¦W.png
2019-6-3 10:54

ªþÀÉ: 20190603.rar (10.62 KB)
ÁÂÁ¦ѮvÀ°¦£!

Sub TEST()
Dim xAddress$
xAddress = "A3:" & [Sheet3!F3]
With Sheets("Sheet1")
    .Range(.[F1], .[A65536].End(xlUp)(2)).Offset(2, 0).ClearContents '²M°£­ì¦³¸ê®Æ
    .Range(xAddress) = Sheets("Sheet2").Range(xAddress).Value
End With
End Sub

=================

TOP

¦^´_ 2# ­ã´£³¡ªL

ÁÂÁ·Ǥj¦Ñ®vªº¦^µª¡A¤p§Ì¦]¬°¥\¤O¤Ó²L¡AµLªk§âµ{¦¡¯Ç¤J¦b»Ý­nªºµ{¦¡¸Ì¡A¦A½Ð¦Ñ®vÀ°¦£¡AÁÂÁ¦Ѯv!

Private Sub CommandButton9_Click()
With Sheets("Sheet3")
     
     Label3.Caption = Sheets("Sheet3").[f2].Value
     .Range("E2") = Label2.Caption
   
        
        
        End With
   
  Sheets(CStr([´X¦C])).Visible = True '¸õ¤u§@´M§ä¥N½X©w¸q
   Sheets(CStr([´X¦C])).Select '¸õ¤u§@´M§ä¥N½X©w¸q
   
   
        Range("DATA1").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheet3.Range( _
        "E1:E2"), CopyToRange:=Sheets("1-1").Range("A2:F2"), Unique:=False
        
         [A1] = "¾÷¥x«¬¸¹:" & Sheets("Sheet3").Range("E2").Value
         
        ' [A3:F3] = Sheets("1-1").Range("A3:F3").Value  '<<<<³o¸Ì¬O·Q¨ÌÅܰʪºÀx¦s®æ§ó§ïªº¦a¤è
      

   On Error Resume Next
    Sheets(CStr([g2])).Select
    Unload Me
   
UserForm1.Show
  
  

End Sub

TOP

¦^´_ 3# man65boy

¦³ª«¥ó, ¦³ªí³æ, ³o§Ú¤]§ï¤£°Ê~~

TOP

¦^´_ 4# ­ã´£³¡ªL
ÁÂÁ·Ǥj¡A§Ú§â­ì©lªºÀɮפW¶Ç¨Ó¡A¦]¬°­ì©lÀɪºµ{¦¡¡A¬O¥Î«÷´ê«¬ªº¡A©Ò¥H¹L¥HÂø¶Ã¡A³Â·Ð¦Ñ®v¤F@Àµ½Ð¦Ñ®vÀ°¦£!
¡A

    20190605.rar (45.71 KB)

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD