- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
        
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-11-6 16:51 ½s¿è
¦^´_ 5# mark15jill
½T¹ê¬O¶·¦p¦¹ªº,¤@¨Ó¥iª¾°ÝÃDªº·½¬G ,¤G¬O¥i¸`¬Ù½×¾Â¸ê·½.
¦^´_ 4# kai6929
³o¥u¬O±N¥Ø쥻. 1#µo°Ýn½Æ»s¦bSheet2.A2ªº¸ê®Æ,²¾°Ê¨ìSheet2.L13
¸Õ¸Õ¬Ý- Option Explicit
- Sub check()
- Dim K As String, M As Boolean, xRow As Integer, xi As Integer
- Dim Rng As Range
- With ActiveSheet.Shapes(Application.Caller)
- With .TextFrame
- K = .Characters.Text
- If Left(K, 1) = "¡½" Then
- .Characters.Text = "¡¼¥[¤u¤@"
- M = False
- Else
- .Characters.Text = "¡½¥[¤u¤@"
- M = True
- End If
- .Characters(1, Len(K) + 1).Font.Size = 10
- .Characters(1, 1).Font.Size = 10
- End With
- .TopLeftCell.Offset(, 1) = M
- .TopLeftCell.Offset(, 2) = IIf(CSng(M) = 0, 0, 1)
- End With
- Sheet2.Range("L13").CurrentRegion.Offset(1).Clear
- Set Rng = Sheet2.Range("L13").CurrentRegion.Rows(1)
- With ActiveSheet
- xRow = 25
- Do While .Cells(xRow, "C") <> ""
- If .Cells(xRow, "C") = 1 Then
- xi = xi + 1
- Rng.Copy
- With Sheet2.Cells(Rows.Count, "L").End(xlUp).Offset(1)
- .PasteSpecial
- .Cells(1) = xi '¶µ¦¸
- '¸ê®Æ¦s©ñ¦b¦X¨ÖÀx¦sÓªº²Ä1ÓCells
- .Cells(1, 2) = ActiveSheet.Cells(xRow, "A") '¥[¤u¶µ¥Ø
- .Cells(1, 3) = ActiveSheet.Cells(xRow, "F") '¥[¤u³W®æ
- .Cells(1, 6) = ActiveSheet.Cells(xRow, "H") '(³æ»ù)
- .Cells(1, 7) = ActiveSheet.Cells(xRow, "I") '¦¸¼Æ
- .Cells(1, 8) = ActiveSheet.Cells(xRow, "K") '¥[¤u¶O¥Î
- End With
- End If
- xRow = xRow + 1
- Loop
- End With
- Application.CutCopyMode = False
- End Sub
½Æ»s¥N½X |
|