[µo°Ý] ½Ð°Ý¦p¦ó¥ÎEXCEL¦Û°ÊÀx¦s¨C¤ÀÄÁ¸ê®Æ¨ì«ü©wÀx¦s®æ¤¤©O

jojomo

±z¦n¡G

½Ð°Ý¤p©f¦³­ÓexcelÀÉ®×·í¤¤¤w¸g¦³DDE³sµ²¡A¦Ó¨ä¤¤¦³­Ó­È¬O·|¨C¤ÀÄÁÅܰʤ@¦¸ªº¡A
·Q½Ð°Ý¤j¤j¦p¦óÅý³o­Ó¨C¤ÀÄÁÅܰʪº­È¦Û°ÊÀx¦s¦b½d¨Ò¤¤ªºA5:A34Àx¦s®æ¤¤©O??

¦b³Â»¶®a±Ú¤¤ª¦¤F¦n´X½g¤å³¹¡A¥i¬O§â¤å³¹¤¤ªºµ{¦¡½X¶K¨Ó¶K¥h...¤p©fªºÀÉ®×ÁÙ¬O¤@ª½¸õ¥X°»¿ùµøµ¡...
¯uªº¬O«Ü¦Ç¤ß~~
ÁÙ¦³³Ò¦U¦ì¤j¤jÀ°À°¤p©f¤F

¨F©Ôªo

©p¶K¤F¤°»òµ{¦¡½X¶K¥X¨Ó¬Ý¬Ý¦n¶Ü¡H

GBKEE

¦^´_ 1# jojomo
½Ð°Ñ¦Ò    http://gb.twbts.com/index.php?topic=11429.0

jojomo

¦U¦ì¤j¤j¦n~~
¥H¤U¬O¤p©f¦Û¤v°Ñ¦Ò½d¨Ò¸Õ¼gªº°j°éµ{¦¡¡A·Q­n¦b¨C¦¸DDE¸ê®Æ®æ¦³²§°Êªº®É­Ô´N¦Û°Ê½Æ»s¨ì«ü©wªºÀx¦s®æ¤¤¡A¦ý¬O¨C¦¸´ú¸Õ´N·|·í±¼¡A¤£ª¾¹D¬O­þ¸Ì¦³¿ù»~©O??½Ð°Ý¹J¨ì³o¼Ëªºª¬ªp­n«ç»òÅýµ{¦¡°±¤U¨Ó?
­ì¥»¬O§Æ±æ·í¦³³Ì·sªºDDE­È®É¡A´N¦Û°Ê½Æ»s¨ì¸Ó¦C«áªº¸ê®Æ¦C¤¤¡A¦ý¬O´N·|§e²{·í±¼ªºª¬ºA...
ÁÙ¦³³Ò¦n¤ßªº¤j¤j¬Ý¤@¤U¤F~~~ÁÂÁ±z~~

Private Sub Worksheet_Calculate()
Dim a As Integer
Dim b As Integer
Dim t As String

a = 6
b = 6

    For a = 6 To 35 Step 1
   
        If Worksheets("sheet1").Cells(a, 1) = Worksheets("sheet1").Cells(3, 7) Then
        
            For b = a To 35 Step 1
               
                Worksheets("sheet1").Cells(b, 2) = Worksheets("sheet1").Cells(2, 1).Value
                Worksheets("sheet1").Cells(b, 3) = Worksheets("sheet1").Cells(2, 2).Value
                Worksheets("sheet1").Cells(b, 4) = Worksheets("sheet1").Cells(2, 3).Value
               
            
            Next b
        
        End If
    Next a
End Sub

Hsieh

¦^´_ 4# jojomo

§â§Aªº®É¶¡¨ç¼Æ®³±¼¡AÁקK°ïÅ|ªÅ¶¡¤£¨¬

1. Private Sub Worksheet_Calculate()
   
2. [A65536].End(xlUp).Offset(1, 0).Resize(, 4) = Array(Format(Now, "hh:mm"), [A2].Value, [B2].Value, [C2].Value)
   
3. End Sub

½Æ»s¥N½X

jojomo

·PÁ¦U¦ì¤j¤jªº¦^ÂлPÀ°§U¡A¤×¨ä¯S§O·PÁÂHsiehªº¼ö¤ßÀ°¦£~~~¯uªº«ÜÁÂÁ±z~~
¦]¬°µ¥¯Å¤£°÷¡A©Ò¥H¬Ý§O½g¤å³¹ªºµ{¦¡½X«o¨Sªk¤U¸üÀɮפU¨Ó¾Ç²ß¡A¤p©f¯uªº¬O¬Ý±oÃú¨F¨F~
¤£¹L§Ú·|Ä~Äò§V¤O~§Æ±æ¤]¦³¾÷·|¯à¼ö¤ßÀ°§U¦³»Ý­nªºªB¤Í~~~§V¤O§V¤O~~

¯uªº«ÜÁÂÁ¤j®a~~~³o¸Ì¯u¬O¦n¦a¤èªü~~~