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

[µo°Ý] ¨D§U«Ø¥ß°j°éÀ³¥Î

¦^´_ 20# GBKEE


    ¤j¤j¦n ¯u¬O©êºp°¨¤W¤W¶ÇÀÉ®× 1¸ê®ÆÀÉ  2§¹¦¨ÀÉ·|¦Û¤v²£¥Í
§Ú­n¿ï¨úªº¸ê®Æ¬° a5:E68,BH5:BI68
¿ï¨ú§¹¦¨¤§«á±N·|¦³¤C¦C¸ê®Æ ©ñ¸m·sÀÉ®× µM«á¸ê®Æ¦Û°Ê¶i¦æ±Æ§Ç ³Ì«áÀx¦sÀɦW

1(¸ê®ÆÀÉ).zip (38.1 KB)

¶}¤ß¾Ç²ß,¾Ç²ß«Ü¶}¤ß

TOP

¦^´_ 21# linsurvey2005
¦A¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Selection_Copy()
  3.     Dim fs As String, Nwb As Workbook, SourceWb As Workbook, R As Integer, k As Range, myfilename As String
  4.     On Error GoTo 11                                                                                 'µ{°õ¦æ¦¡¦p¦³¿ù»~.¨ì ¼Ð°O12:³B¸Ì
  5.     fs = Application.GetOpenFilename("Excel ÀÉ®×(*.xls),*.xls")
  6.     If fs = "False" Then Exit Sub
  7.     Set SourceWb = Workbooks.Open(fs)
  8.     Set k = Application.InputBox("¿ï¨ú¶É±×->¼[¬W½s¸¹,¨½µ{,¤è¦V¤Îªì¨Ï­È,«e¦¸ºÊ´ú­È", Type:=8)        'ª«¥ó:Range:¦p¨ú®øInputBoxªº¿é¤J->k¤£¬°ª«¥ó¿ù»~­È=1004
  9.     Set Nwb = Workbooks.Add
  10.     With Nwb.Sheets(1)                                                                              'ª«¥ó:·s¼W¬¡­¶Ã¯ªº²Ä1­Ó¤u§@ªí
  11.         '·s¼W¬¡­¶Ã¯®É,§@¥Î¤¤ªº¬¡­¶Ã¯·|²¾¨ì¦¹·s¼W¬¡­¶Ã¯
  12.         SourceWb.Activate                                                                           '§@¥Î¤¤ªº¬¡­¶Ã¯:¦¹¬¡­¶Ã¯(SourceWb)
  13.         Do
  14.             R = Application.Max(3, .Cells(.Rows.Count, 1).End(xlUp).Row + 1)
  15.             k.Copy .Cells(R, 1)                                                                     '½Æ»s©Ò¿ï°_ªºªº½d³ò
  16.             If MsgBox("¬O§_Ä~Äò", vbYesNo) = vbNo Then Exit Do
  17.             Set k = Application.InputBox("¿ï¨ú¶É±×->¼[¬W½s¸¹,¨½µ{,¤è¦V¤Îªì¨Ï­È,«e¦¸ºÊ´ú­È", Type:=8) 'ª«¥ó:Range:¦p¨ú®øInputBoxªº¿é¤J->k¤£¬°ª«¥ó¿ù»~­È=1004
  18.         Loop
  19. 9:
  20.         .Activate
  21.         DoEvents
  22.         myfilename = Format(Date, "yymmdd") & "-Tilt-PDA.xls"
  23.         Application.SendKeys myfilename, True
  24.         fs = Application.GetSaveAsFilename("E:\")
  25.         If fs <> False Then .Parent.SaveAs fs
  26.         .Parent.Close 0
  27.     End With
  28. 10:
  29.     SourceWb.Close 0
  30.     Exit Sub
  31. 11:
  32.     If Err = 424 Then
  33.         If Nwb.Sheets(1).UsedRange.Rows.Count > 1 Then GoTo 9                                         '¤w¦³¿ï¾Ü½d³ò¹L:·s¼W¬¡­¶Ã¯»Ý¦sÀÉ
  34.         GoTo 10
  35.     End If
  36.     k.Select
  37.     MsgBox "©Ò¿ïªº " & k.Areas.Count & " ½d³ò:¤£¦b¦P¤@¦C¤W,¦C¼Æ¤£¬Ûµ¥", , "¤£¥i½Æ»s!!"
  38.     Resume Next                                                                                          '¦^¨ìµ{¦¡½X¿ù»~¦æªº¤U¤@¦æ
  39. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 22# GBKEE


    ÁÂÁ¤j¤j¡A½s­×¤§«á¿ï¨úÀx¦s®æ¥i¥H¥¿±`§e²{¡A¦ý¬OÂI¿ï"§_"¥X²{ª¬ªp¡A¸Ô¹Ï¤ù
(½Ð°Ý¤j¤j ¥X²{ª¬ªp³o¤@¦æ¬O§i¶D§Ú¦A¿ï¾Ü¸ê®Æ¥Îªº¶Ü?)

´ú¸Õ«áª¬ªp.jpg (61.7 KB)

´ú¸Õ«áª¬ªp.jpg

¶}¤ß¾Ç²ß,¾Ç²ß«Ü¶}¤ß

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD