[µo°Ý] ³s±µºô¸ô§ì¨ú¸ê®Æ¶×¤J¤u§@ªí³t«×ºC?¦³µL¿ìªk§ïµ½?

t8899

¦^´_  t8899
Rows(13).Delete   ->²Ä13¦C¸Ô¬Ý  FormulaR1C1, Rows  ªºVBA »¡©ú
GBKEE µoªí©ó 2013-9-4 21:06

ÁÂÁÂ!
¥t¥~½Ð±Ð¤@¤U,¤U­±«Å§i¦p¦ó§ï¬°¤½¥Î?
Private Declare Function MsgBoxTest Lib "user32" Alias "MessageBoxTimeoutA" ( _
¬O±N private §ï¬° public ´N¥i¥H¤F¶Ü?

t8899

¦^´_  t8899
GBKEE µoªí©ó 2013-9-3 07:59

¦³µL¿ìªk¤@ª½³B©ó³s½uª¬ºA?(¹³DDE)

t8899

¦^´_  t8899
GBKEE µoªí©ó 2013-9-7 06:44

½Ð°Ý¦b³oºØª¬ºA¤U¡Aºô¯¸¼Æ¾Ú§ó·s¡A¤u§@ªí¤]§Y®É§ó·s??¬O§_·|¤Ó®øÏäexcel¸ê·½ (¹«¼Ð¤@ª½¥X²{º|¤æª¬)

t8899

§â¨â­Ó³s±µ¹ï¥~ºô¸ô§ì¸ê®Æ¥¨¶°®³±¼¡A¥¨¶°°õ¦æ§¹¶O®É¤£¨ì1¬í


Sub zzzzz()

'Application.Interactive = False
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayStatusBar = False
ActiveSheet.DisplayPageBreaks = False
Dim sh As Worksheet
Set sh = ActiveSheet
timestock '==============>³s±µºô¸ô§ì¨ú¸ê®Æ¶×¤J¤u§@ªí, ®øÏä3¬í,¹«¼Ð¥X²{º|¤æª¬
º¦¶^°±  '================>³s±µºô¸ô§ì¨ú¸ê®Æ¶×¤J¤u§@ªí ,®øÏä2¬í,¹«¼Ð¥X²{º|¤æª¬

Sheets("sheet6").Select

  If Range("H16").Value = 0 Then Run "Aclear"

With Sheets("sheet6")
'A1 ®É¶¡-------------------------------------------------------------------

Sheets("sheet6").Unprotect

      [A1] = Now
t = [TEXT(A1,"hh:mm")+LOOKUP(--TEXT(A1,"s"),{0,15,30,45})/86400]

Range("a65536").End(xlUp).Offset(1).Value = Format(t, "hh:mm:ss")
      
  Sheets("sheet6").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
      

.Range("Z8").Value = .Range("H16").Value
.Range("Z9").Value = .Range("I16").Value
.Range("B65536").End(xlUp).Offset(1) = .Range("D16").Value   'Á`©e¶R¼Æ¶q-©e½æ¼Æ¶q
.Range("O65536").End(xlUp).Offset(1) = .Range("C16").Value   '¨Cµ§¶R
.Range("P65536").End(xlUp).Offset(1) = .Range("C18").Value   '¨Cµ§½æ
.Range("Q65536").End(xlUp).Offset(1) = .Range("B16").Value   '¶R¶i±i¼Æ
.Range("R65536").End(xlUp).Offset(1) = .Range("B18").Value   '½æ¥X±i¼Æ
.Range("C65536").End(xlUp).Offset(1) = .Range("H2").Value    '«ü¼Æº¦¶^
.Range("W65536").End(xlUp).Offset(1) = .Range("I2").Value    '¦¨¥æª÷ÃB
.Range("X65536").End(xlUp).Offset(1) = .Range("B15").Value   '¦¨¥æ±i¼Æ OK
.Range("S65536").End(xlUp).Offset(1) = .Range("B17").Value   'Á`¶Rµ§
.Range("T65536").End(xlUp).Offset(1) = .Range("B19").Value   'Á`½æµ§ OK
.Range("AH65536").End(xlUp).Offset(1) = .Range("AE16").Value 'º¦°±¶R¶i
.Range("AI65536").End(xlUp).Offset(1) = .Range("AF16").Value '¶^°±½æ¥X
.Range("Z65536").End(xlUp).Offset(1) = .Range("M2").Value    'ÁúªÑ
.Range("E65536").End(xlUp).Offset(1) = .Range("H18").Value   '¥x«ü»ù¦ì
.Range("AF65536").End(xlUp).Offset(1) = .Range("U10").Value  '¤Wº¦¤ñ¨Ò
  .Range("AE65536").End(xlUp).Offset(1) = .Range("H12").Value '5ÀÉ®t
.Range("D65536").End(xlUp).Offset(1) = .Range("I4").Value    '¨Cµ§¶R´î½æ(²Ö)
.Range("AC65536").End(xlUp).Offset(1) = .Range("B14").Value  '¦¨¥æµ§¼Æ
.Range("G65536").End(xlUp).Offset(1) = .Range("G15").Value   '«e20ÀɧY®Éºâ¥X»P¤W¤@½LªºÂI¼Æ
.Range("s10:t10").Value = .Range("J2:K2").Value              ' º¦¶^¤ñ¨Ò (¼È¦s)
'--------------------------------------------------------------------------
End With

'---------------------------------------------------------------------
     
Application.EnableEvents = False
Sheets("Sheet3").Range("Z2:Z111").Value = Sheets("Sheet3").Range("C2:C111").Value
Application.EnableEvents = True
   
'--------------------------------------------------------------
If Sheets("Sheet3").Range("R26").Value = 1 Then
price
end if
     sh.Activate

Application.ScreenUpdating = True
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
' Application.Interactive = True
      
End Sub

t8899

¦^´_ 2# GBKEE
Book1.rar (60.37 KB)

¤U¸ü¦¸¼Æ: 11

2013-9-9 10:51

t8899

¦^´_  t8899 ½Ð¬ÝªþÀÉ ­×§ï§Aªºµ{¦¡½X,¤u§@ªíªº¤½¦¡
GBKEE µoªí©ó 2013-9-10 15:12

ªþÀɸ̨S¦³ BOOK2 .XLS ?

t8899

¦^´_  t8899 ½Ð¬ÝªþÀÉ ­×§ï§Aªºµ{¦¡½X,¤u§@ªíªº¤½¦¡
GBKEE µoªí©ó 2013-9-10 15:12

¤£ª¾§Ú°µªº¹ï¤£¹ï??
¤T­Óexcel ¿W¥ßµøµ¡¦U¦Û¦b¶]??¥t¥~¨â­Óµøµ¡¥i§_ÁôÂÃ?

t8899

¦^´_  t8899 ½Ð¬ÝªþÀÉ ­×§ï§Aªºµ{¦¡½X,¤u§@ªíªº¤½¦¡
GBKEE µoªí©ó 2013-9-10 15:12

Application.OnTime Time + #12:00:15 AM#, "ThisWorkbook.EX"
12:00:15 ===>­â±á12:00:15 ¶}©l§ó·s?? 15¬í§ó·s¤@¦¸??
¥i§_§ï¬° 12:00:05 ¶}©l§ó·s?15¬í§ó·s¤@¦¸? (§Y 12:00:05¡A12:00:20, 12:00:35....)

³o¨â­Ó¥¨¶°¥i§_©ñ¦b¦P¤@­Ó¬¡­¶Ã¯?(¤Ö¤@­Óexcel ,¸û¬Ù¸ê·½)

ÁôÂõøµ¡¤w§ä¨ì "HiddeX " ¸Ñ¨M (   http://dejavu.narod.ru/hiddex.html   )

t8899

¦^´_ 32# GBKEE

For Each i In Array(20, 24)
°}¦C 20 ,24===> ¦p¦óºâ¥X?

t8899

¦^´_  t8899
GBKEE µoªí©ó 2013-9-12 20:32

¥ÎIE ³s±µ http://udn.megatime.com.tw/asp/hot/ShortOperate.asp?lcount=20&m=puplim&align=v
«ö¥kÁä ¶×¥X¦Ü Microsoft Excel
¥X²{

¤U¸ü (82.21 KB)

2013-9-13 15:50