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

[µo°Ý] Range(Cells(1324, 71), Cells(1380, 80))»yªk¦³¿ù¶Ü?

[µo°Ý] Range(Cells(1324, 71), Cells(1380, 80))»yªk¦³¿ù¶Ü?

½Ð±Ð¥ý¶i¤j¤j
With Sheets("TempA")
         Sheets("Temp").Range(Cells(1324, 71), Cells(1380, 80)).Copy   .Cells(4, 5)
End With
¥X²{¿ù»~1004
¦Ó§ï¥Î
With Sheets("TempA")
        Sheets("Temp").Range("BS1324:CB1380").Copy    .Cells(4, 5)
End With  
´N¥i¥H
¬°¤°»ò©O?
¥H«e±`¥ÎRange(Cells(1,1),cells(2,4))¨ú¥NRange("A1:D2")¬O¥i¦æªº§r¡I   
¬°¤°»ò©O?

¦^´_ 1# yangjie

With Sheets("TempA")
         Sheets("Temp").Range(Sheets("Temp").Cells(1324, 71), Sheets("Temp").Cells(1380, 80)).Copy   .Cells(4, 5)
End With
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

±N With Sheets("TempA") §ï¬° With Sheets("Temp") ¸`¬Ùµ{¦¡½Xªø«×

With Sheets("Temp")
         .Range(.Cells(1324, 71), .Cells(1380, 80)).Copy   Sheets("TempA").Cells(4, 5)
End With
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¥»©«³Ì«á¥Ñ yangjie ©ó 2014-6-30 20:14 ½s¿è

Á¤F
§¹¥þ§l¦¬
¤S¦³¤@©_·Q      ·Q¦A½Ð±Ð¨â¦ìª©¥D:
¦³µL¤è¦¡¼gªk¥i±NExcel  ¦UÄæ¦U¦C(¤£§t¤W­±¥\¯à¦C)
§¹¥þ·h¤Juserform¤º(§t¨÷¶b)
©ÎªÌ
¨ÏExcel ³Ñ¤U¦UÄæ¦U¦C(¤£§t¤W­±¥\¯à¦C)(§t¨÷¶b)§Q¥ÎComdButton¦A«ì´_­ì¨Ï©Îuserform
·¥·Q¤F¸Ñ¡A¾Ç²ß¡CÁÂÁ¡I

TOP

¦^´_ 4# yangjie
¥þ¿Ã¹õÀ˵ø¬O§_²Å¦X»Ý¨D?

    play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# yangjie
§A¥i¥H©¹Microsoft Office Spreadsheet control§ä§ä¡AÀ³¸Ó²Å¦X»Ý¨D
¤£¹L§Ú¤]¨S¹ê§@ªº¸gÅç¡C

TOP

¦^´_ 6# stillfish00
½Ð±Ðstillfish00
¦p±z©Ò¨¥©Ò¹Ï
±NA.xls  sheets(1) ©Ô¤Juserform1
userform1  À³¦p¦ó¤U»yªk

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2014-7-3 15:11 ½s¿è

¦^´_ 5# Hsieh
½Ð±ÐHseih ª©¤j     ­Ó¤H°Ñ¦Ò±zªº  ¥i§_À°§ÚÀ˵ø
'¨ú®øµøµ¡ªº...
Sub hideAll()
  With Application
    If .Version >= 12# Then
        Application.DisplayFullScreen = False
    Else
        '±N2003©Ò¦³©R¥O¦CÁôÂÃ
        For Each theBar In .CommandBars
            '±NÅã¥Ü¤¤ªº©R¥O¦C¦¬¶°°_¨Ó¨ÃÁôÂÃ
            On Error Resume Next
            If theBar.Enabled Then
                theCollection.Add theBar, theBar.Name
                theBar.Enabled = False
            End If
            On Error GoTo 0
        Next
        '2003ª¬ºA¦C
        .DisplayStatusBar = False
    End If
    .DisplayFormulaBar = False
    .DisplayScrollBars = True
    .Caption = " "
    .ActiveWindow.Caption = ""
    .ActiveWindow.DisplayHeadings = True
    .ActiveWindow.DisplayWorkbookTabs = False
    .WindowState = xlMaximized
  End With
  app_Initialize
  canClose = "False"
End Sub
[attach]18608[/attach][attach]18609[/attach]¤S¦pªþ¥ó  ¶}°_±K½X 520
¦boffice2010 2013 §¡¥X²{  "½sĶ¿ù»~µo¥Í©ó¦¹ÁôÂüҲÕ"-----
¥i§_À°§Ú¶}¶}¬Ý   ¿ù»~¦b­þ?
(±Nµn¿ýÀÉ0701.xls ¸m¤J¾Ç¥ÍºÞ²z¸ê®Æ§¨¶}0701.xls)

TOP

¦^´_ 5# Hsieh
½Ð±ÐHseih ª©¥D
      ¦b³]©w¤Þ¥Î¶µ¥Ø ¤Ä±¼¿òº|;Calendar control11.0  ¤@¤Á§¡¥H¸Ñ¨M
¼Ó¤W8#À£ÁY¤§ÀÉ¥i½Ð±z§R°£¶Ü?(¦]§t³\¦h¤H¦W)«ô°U¡I

TOP

¦^´_ 6# stillfish00
½Ð±Ðstillfish00
6#¤§¹Ï¤º®e¬O¦p¦ó°µ¨ìªº? ¥i§_±Ð¤@±Ð?

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD