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

[µo°Ý] ½Ð±Ð¤@¤U¦³Ãö´M§ä½Æ»sªº¤èªk½Ð¦U¦ì°ª¤â«ü¾É¤@¤U!... ÁÂÁÂ

[µo°Ý] ½Ð±Ð¤@¤U¦³Ãö´M§ä½Æ»sªº¤èªk½Ð¦U¦ì°ª¤â«ü¾É¤@¤U!... ÁÂÁÂ

¦U¦ì¤j¤j¤£¦n·N«ä¤pªº¤S¦³°ÝÃD·Q½Ð±Ð¤@¤U!...
¤pªº±q¼Ï¯Ã¤ÀªRªí§ì¨ú¸ê®Æ«á·Q±N¸ê®Æ¸g¥Ñ·j´M«á½Æ»s¨ì«ü©wÄæ¦ì
¤pªº·j´M½×¾Âµo²{³£¿z¿ï¥\¯à¤ñ¸û¦h... ¸g¥Ñ¿ý»s¥¨¶°«á§ó§ï¦ý¦³¨Ç¸ê®ÆÁÙ¬O¨S¦³¿ìªkÅã¥Ü!..
·Q½Ð±Ð¦U¦ì¤j¤j¿ù»~ªº¦a¤è¬°¦ó!.?
¥Ø«e·Q­n¥\¯à¦p¤U :
­È¯Z´ú¸ÕÀÉ.zip (86.02 KB)


¤pªº¦³¨Ï¥Î¹L²©ö¤è¦¡¥i¥H¨Ï¥Î , ¦ý¥u­nWeeklyÅܧó´N¥²¶·ÅܰʽаݬO§_¦³³sÄòªº»yªk©O?
  1. Dim myRng1 As Range, myRang2 As Range
  2. Set myRng1 = Sheets("Âà¼g¬ö¿ý").Range("B3:B19")
  3. Set myRng2 = Sheets("¹Ïªí¤ÀªRByÁ`¼Æ").Range("B9")
  4. With myRng1
  5.     Set myRng2 = myRng2.Resize(RowSize:=.Rows.Count, ColumnSize:=.Columns.Count)
  6.     End With
  7. myRng2.Value = myRng1.Value
  8. Set myRng1 = Nothing
  9. Set myRng2 = Nothing
½Æ»s¥N½X
¥t¦³¿ý»s¥¨¶°«á½s¼g¦p¤U : ¦ý¦ü¥G»yªk¿ù»~¾É­P½Æ»s½d³ò¥¢±Ñ·Q½Ð¦U¦ì¤j¤j¦³ªÅµy·L«ü¾É¤@¤U§Y¥i!... ¤pªº·|¦Û¤v§V¤O¬ã¨sªº~... ©êºp!. ÁÂÁÂ~
  1. Private Sub CommandButton2_Click()

  2. Dim i As Integer, k As Integer
  3. Dim ListRow As Range, myRange As Range
  4. Dim Week As Range

  5. With Sheets("¹Ïªí¤ÀªRByÁ`¼Æ")
  6. Set Week = Sheets("Âà¼g¬ö¿ý").Cells(1, 2)
  7. Set myRange = .Cells.Find(What:=Week, lookat:=xlWhole)
  8.     k = myRange.Row
  9.     For i = 9 To 25
  10.         '.Cells(i, k).Value = Sheets("Âà¼g¬ö¿ý").Cells(i, k)
  11.     Next

  12. With Sheets("Âà¼g¬ö¿ý")
  13.    
  14.     For i = [B65536].End(xlUp).Column To 1 Step -1
  15.                   
  16.         If Sheets("Âà¼g¬ö¿ý").Cells(i, 1).Value <> 0 Then
  17.             If Sheets("¹Ïªí¤ÀªRByÁ`¼Æ").Cells(9, k + 1).Value = "" Then
  18.                 Sheets("¹Ïªí¤ÀªRByÁ`¼Æ").Cells(9, k).Value = Sheets("Âà¼g¬ö¿ý").Cells(i, "B")
  19.             'Else
  20.                 'Sheets("¹Ïªí¤ÀªRByÁ`¼Æ").Cells(9, k).Value = Sheets("¹Ïªí¤ÀªRByÁ`¼Æªí").Cells(9, k).Value + 1
  21.             End If
  22.         End If

  23.     Next
  24. End With
  25. End With
  26. End Sub
½Æ»s¥N½X

¤£¦n·N«ä½Ð±Ð¦U¦ì¤j¤j
¤pªº¦³¨Ì·ÓGBKEE ¤j¤j©Òµoªº¤å³¹ : http://forum.twbts.com/thread-15664-1-8.html "·j´M§Ç¸¹¹ïÀ³ªº¤u§@ªí¡A¨Ã±N¥Ø¼Ð±a¦^·j´M¦C¤¤"
¼ÒÀÀGBKEE ¤j¤j©Ò¼gªºµ{¦¡½X!... ¸ÕµÛ¼W´î¬Y¨Ç»yªk¦ý¬OÁÙ¬O¨S¦³¿ìªk¨Ì·Ó¶g§OÅܧó½Æ»s¨ì«ü©wSheetsªº¶g§O¤U!...  (±q¾îªºÂনª½ªº±a¤J)
¤pªº­è±µÄ²Excel VBA¨S¦h¤[©Ò¥H¦³«Ü¦h¤£À´±o¦a¤è , ©êºp½Ð¨£½Ì!ÁÙ¬O·Q¦b½Ð°Ý¤@¤U«ü©wÀx¦s®æªº½Æ»s¤è¦¡!... ÁÂÁÂ~~
  1. Private Sub CommandButton3_Click()
  2. Dim D As Object, Sh As Worksheet, Sh1 As Worksheet, fRng As Range, sRng As Range
  3. Dim I As Integer, J As Integer, sNum As String, FstAddr As String
  4. Set Sh = Sheets("¹Ïªí¤ÀªRByÁ`¼Æ")
  5. Set Sh1 = Sheets("Âà¼g¬ö¿ý")
  6.     For I = 5 To Sh.[B9].End(xlDown).Column
  7.         sNum = Sh.Cells(2, I)
  8.         For J = 3 To Sheets("Âà¼g¬ö¿ý").[B3].End(xlDown).Count
  9.             Sh1(J).Activate
  10.             Set sRng = Sh1(J).Range("B1")   '³]©w³Q·j´MªºRange
  11.             sRng.Select
  12. '            On Error Resume Next
  13.             Set fRng = sRng.Find(sNum, lookat:=xlWhole)   '¦bSheets(J)ªºsRng¤¤´M§ä §Ç¸¹
  14.             If Not fRng Is Nothing Then    '¦³§ä¨ì
  15.                 Sh.Cells(I, 1) = fRng.Offset(0, -1)   '«þ¨©¬ÛÃö¸ê®Æ
  16.     End If
  17.         Next
  18. Next1:
  19.     Next
  20.     Sh.Activate

  21. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD