- ©«¤l
- 17
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 28
- ÂI¦W
- 0
- §@·~¨t²Î
- windows7
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2015-12-11
- ³Ì«áµn¿ý
- 2016-2-16
|
[µ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·Qn¥\¯à¦p¤U :
ȯZ´ú¸ÕÀÉ.zip (86.02 KB)
¤pªº¦³¨Ï¥Î¹L²©ö¤è¦¡¥i¥H¨Ï¥Î , ¦ý¥unWeeklyÅܧó´N¥²¶·ÅܰʽаݬO§_¦³³sÄòªº»yªk©O?- Dim myRng1 As Range, myRang2 As Range
- Set myRng1 = Sheets("Âà¼g¬ö¿ý").Range("B3:B19")
- Set myRng2 = Sheets("¹Ïªí¤ÀªRByÁ`¼Æ").Range("B9")
- With myRng1
- Set myRng2 = myRng2.Resize(RowSize:=.Rows.Count, ColumnSize:=.Columns.Count)
- End With
- myRng2.Value = myRng1.Value
- Set myRng1 = Nothing
- 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!. ÁÂÁÂ~- Private Sub CommandButton2_Click()
- Dim i As Integer, k As Integer
- Dim ListRow As Range, myRange As Range
- Dim Week As Range
- With Sheets("¹Ïªí¤ÀªRByÁ`¼Æ")
- Set Week = Sheets("Âà¼g¬ö¿ý").Cells(1, 2)
- Set myRange = .Cells.Find(What:=Week, lookat:=xlWhole)
- k = myRange.Row
- For i = 9 To 25
- '.Cells(i, k).Value = Sheets("Âà¼g¬ö¿ý").Cells(i, k)
- Next
- With Sheets("Âà¼g¬ö¿ý")
-
- For i = [B65536].End(xlUp).Column To 1 Step -1
-
- If Sheets("Âà¼g¬ö¿ý").Cells(i, 1).Value <> 0 Then
- If Sheets("¹Ïªí¤ÀªRByÁ`¼Æ").Cells(9, k + 1).Value = "" Then
- Sheets("¹Ïªí¤ÀªRByÁ`¼Æ").Cells(9, k).Value = Sheets("Âà¼g¬ö¿ý").Cells(i, "B")
- 'Else
- 'Sheets("¹Ïªí¤ÀªRByÁ`¼Æ").Cells(9, k).Value = Sheets("¹Ïªí¤ÀªRByÁ`¼Æªí").Cells(9, k).Value + 1
- End If
- End If
- Next
- End With
- End With
- End Sub
½Æ»s¥N½X |
|