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

[µo°Ý] ½Ð°Ý¦¹¬q¥¨¶°¦p¦ó²¤Æ©Î¥[§Ö³t«×??

[µo°Ý] ½Ð°Ý¦¹¬q¥¨¶°¦p¦ó²¤Æ©Î¥[§Ö³t«×??

¥»©«³Ì«á¥Ñ t8899 ©ó 2013-9-6 06:44 ½s¿è

Sub zzzzz()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayStatusBar = False
ActiveSheet.DisplayPageBreaks = False

With Sheets("Sheet6")

     Range("D16").Select
    Selection.Copy
    Range("b65536").End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False

           Range("C16").Select
    Selection.Copy
    Range("O65536").End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
  
    Range("C18").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("P65536").End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

             Range("B16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("Q65536").End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
end with
end sub
---------------------------------------------------------------------------------------------
¥t¥~ ¦¹¨â­Ó¥i§_©ñ¦bwith ¸Ì­±
1.°õ¦æ¥t¤@­Ó¥¨¶°
2.Sheets("Sheet3").Range("Z2:Z111").Value = Sheets("Sheet3").Range("C2:C111").Value (¬O§_«D¦P¤@­Óª«¥ó?)

¦^´_ 1# t8899
¦¹¨â­Ó¥i§_©ñ¦bwith ¸Ì­±,¸Õ¸Õ¬Ý§a!
  1. Option Explicit
  2. Sub zzzzz()
  3. Application.ScreenUpdating = False
  4. Application.EnableEvents = False
  5. Application.DisplayStatusBar = False
  6. ActiveSheet.DisplayPageBreaks = False
  7. With Sheets("Sheet1")
  8.      .Range("B65536").End(xlUp).Offset(1) = .Range("D16").Value
  9.      .Range("O65536").End(xlUp).Offset(1) = .Range("C16").Value
  10.      .Range("P65536").End(xlUp).Offset(1) = .Range("C18").Value
  11.      .Range("Q65536").End(xlUp).Offset(1) = .Range("B16").Value
  12. End With
  13. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ t8899 ©ó 2013-9-6 08:42 ½s¿è
¦^´_  t8899
¦¹¨â­Ó¥i§_©ñ¦bwith ¸Ì­±,¸Õ¸Õ¬Ý§a!
GBKEE µoªí©ó 2013-9-6 07:15

¿ï¾Ü©Ê¶K¤W¦³10­Ó°Ñ¼Æ
±zªº¼gªk¥u¦³¶K¤W"­È" ªº³¡¥÷
¤@¯ë¥Îªº¬O
1­È
2­È»P¼Æ¦r®æ¦¡
3®æ¦¡
4¥þ³¡
³o4­Ó­Ó§O"»yªk"¬O?(®M¦b§A¼gªº¸Ì­±)
Option Explicit Àˬd,¦pªG¥¼«ü©w On ©Î Off¡A«h¹w³]­È¬° On ,À³¸Ó¤£¥Î±¾?
¥t¥~ ¤U­±¨â­Ó¥i§_©ñ¦bwith ¸Ì­±
1.°õ¦æ¥t¤@­Ó¥¨¶°
2.Sheets("Sheet3").Range("Z2:Z111").Value = Sheets("Sheet3").Range("C2:C111").Value (¬O§_«D¦P¤@­Óª«¥ó?)

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-9-6 12:42 ½s¿è

¦^´_ 3# t8899
¥t¥~ ¤U­±¨â­Ó¥i§_©ñ¦bwith ¸Ì­±   ¸Õ¸Õ´Nª¾¹D(§A¸Õ¹L¶Ü?)
¬O§_«D¦P¤@­Óª«¥ó? ½Ð¦A»¡©ú¥Õ
  1. Option Explicit ³¯­z¦¡
  2. ¦b¼Ò²Õ¼h¦¸¤¤±j­¢¨C­Ó¦b¼Ò²ÕùتºÅܼƳ£¥²¶·©ú½Tªº«Å§i¡C
  3. »yªk
  4. Option Explicit
  5. ½Ðª`·N
  6. Option Explicit ³¯­z¦¡¥²¥X²{¦b¼Ò²ÕùØ¡A¥B¦b¥ô¦óµ{§Ç¤§«e¡C
  7. ·í Option Explicit ¦b¼Ò²Õ¤¤¨Ï¥Î®É¡A¥²¶·¥H Dim¡A Private¡BPublic¡BReDim ©Î Static ³¯­z¦¡¨Ó©ú½T«Å§i©Ò¦³ªºÅܼơC¦pªG¨Ï¥Î¥¼«Å§iªºÅܼƦWºÙ¡A«h¦b½sĶ¶¥¬q®É¡A·|µo¥Í¿ù»~¡C
  8. ¦pªG¥¼¨Ï¥Î Option Explicit ³¯­z¦¡¡A«h©Ò¦³¥¼«Å§iªºÅܼƳ£¬O Variant «¬ºA¡A°£«D¹w³]ªº«¬ºA¥t¥H Deftype ³¯­z¦¡©Ò«ü©w¹L¡C
  9. ªþµù Option Explicit ¥iÁקK¥´¿ùÅܼƦWºÙ©Î¦b¦³®Ä½d³ò¤º¬Û¦PªºÅܼƦWºÙ¡C
½Æ»s¥N½X
  1. Option Explicit
  2. Sub Ex()
  3.     [F8:F14].Clear
  4.     With Range("D4")
  5.         .Cells = "=888"
  6.         .NoteText "µù¸Ñ¤å¦r"                                     'µù¸Ñ
  7.         .Interior.ColorIndex = 8
  8.         .Copy Range("F8")                                        '¥þ³¡
  9.         Range("F9").Value = .Value                               '­È
  10.         Range("F10").Formula = .Formula                          '¤½¦¡
  11.         Range("F11").NumberFormatLocal = .NumberFormatLocal      '¼Æ¦r®æ¦¡
  12.         Range("F12").Interior.ColorIndex = .Interior.ColorIndex  '¹Ï¼Ë ¦â±m
  13.         Range("F13") = .Value
  14.         Range("F13").Font.Size = .Font.Size + 2                  '¦r«¬¤j¤p
  15.         Range("F14").NoteText .NoteText                          'µù¸Ñ
  16.     End With
  17. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_  t8899
¥t¥~ ¤U­±¨â­Ó¥i§_©ñ¦bwith ¸Ì­±   ¸Õ¸Õ´Nª¾¹D(§A¸Õ¹L¶Ü?)
GBKEE µoªí©ó 2013-9-6 09:25


§Ú¸Õ¹L¤U­±³o¤@¬q©ñ¦bWith Sheets("Sheet1")¸Ì,¬O¤£·|¥X²{¿ù»~¡A¦ý·|³y¦¨µ{¦¡¶]ªº¤£¹ï(·|¶]¨ì«D«ü©wªº¤u§@ªí°µ°Ê§@)
run clear ======>À³¸Ó¬O³o­Ó¥X°ÝÃD
For i = 350 To 21 Step -1
  If IsError(Cells(i, "h")) Then Run "clear": Exit For
next
©Ò¥Hµª®×¬O¤£¦æ

TOP

¦^´_ 5# t8899
  1. For i = 350 To 21 Step -1
  2.   If IsError(Cells(i, "h")) Then Run "clear": Exit For
  3. next
½Æ»s¥N½X
IsError(Cells(i, "h"))  ¬O With Sheets("Sheet1") ¸ÌªºCells(i, "h") ¶Ü?,
¤£¬O­n«ü©ú¤u§@ªí  IsError(Sheets("¤u§@ªí¦WºÙ").Cells(i, "h"))

Run "clear"  ³o¬O VBAªºÃöÁä¦r Clear ¤èªk,³Ì¦n´«­Ó¦r¦ê
¥t¥~ Run ªºµ{§Ç¦bª«¥ó¼Ò²Õ(¤£¦b¤@¯ë¼Ò²Õ¸Ì)      ­n«ü©ú¼Ò²Õ Run "Sheet1.µ{§Ç"
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_  t8899 IsError(Cells(i, "h"))  ¬O With Sheets("Sheet1") ¸ÌªºCells(i, "h") ¶Ü?,
¤£¬O­n«ü©ú¤u§@ªí ...
GBKEE µoªí©ó 2013-9-6 10:23


IsError(Cells(i, "h"))  ¬O With Sheets("Sheet1") ¸ÌªºCells(i, "h") ¶Ü?  

¬Oªº!
Run "clear"  ³o¬O VBAªºÃöÁä¦r Clear ¤èªk,³Ì¦n´«­Ó¦r¦ê  

ÁÂÁÂ!¤w§ï¬° ACLEAR

¦³µL¥²­n¥ÎWITH ? §Ú¥Îªºµ²ªG·Pı¤£¥X¦³¤ñ¸û§Ö

TOP

¦^´_ 7# t8899
¬OWith Sheets("Sheet1") ¸ÌªºCells(i, "h") ´N¥i¥ÎWith. (§Ö¤£§Ö??? ¤£ª¾§Aªº·Qªk)
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ t8899 ©ó 2013-9-6 12:33 ½s¿è
¦^´_  t8899
¬OWith Sheets("Sheet1") ¸ÌªºCells(i, "h") ´N¥i¥ÎWith. (§Ö¤£§Ö??? ¤£ª¾§Aªº·Qªk)
GBKEE µoªí©ó 2013-9-6 10:55


  Range("F10").Formula = .Formula           '¤½¦¡
  Range("F11").FormulaLocal = .FormulaLocal  '¼Æ¦r®æ¦¡
¸Õªºµ²ªG,³o¨â­Ó³£¬O¤½¦¡????
³o¤U­±¨â­Óªº»yªk?
1.copy ­È»P¼Æ¦r®æ¦¡
2.copy ®æ¦¡

Sub Macro1()
With Range("D2")
Range("B65536").End(xlUp).Offset(1) = ????
End With
End Sub

TOP

¦^´_ 9# t8899
´N³o¼Ë¦h½m²ß,·|¶i¨Bªº
§ó¥¿(¿N»æ¦Y¦h¤F)
  1. Range("F11").NumberFormatLocal = .NumberFormatLocal      '¼Æ¦r®æ¦¡
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD