½Ð°Ý¦p¦ó±Nªí®æªº¸ê°T¾ã²z¦¨§Únªº¸ê°T
- ©«¤l
- 27
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 318
- ÂI¦W
- 271
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-7-20
- ³Ì«áµn¿ý
- 2024-11-5
|
½Ð°Ý¦p¦ó±Nªí®æªº¸ê°T¾ã²z¦¨§Únªº¸ê°T
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤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
|
¦^´_ 1# amu1129 - Sub Ex()
- Dim Ar(), E As Range, Msg$, i%, y%, C%
- Ar = Array("a2", "g2", "a8", "g8")
- C = 4
- For i = 1 To Sheet1.[C2:F11].Columns.Count
- Msg = ""
- y = 0
- For Each E In [C2:F11].Columns(i).Cells
- If E <> "" Then
- Msg = IIf(Msg <> "", Msg & Chr(10), "") & "¦b" & Cells(E.Row, 1) & "©±¶R¤F" & Cells(E.Row, 2) & E & "ªK"
- y = y + 1
- End If
- Next
- Sheet2.Range(Ar(i - 1)) = IIf(Msg <> "", Msg & Application.Rept(Chr(10), IIf(y < C, C - y, 0)) & IIf(y < C, "¥H¤W", ""), "")
- Next
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 27
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 318
- ÂI¦W
- 271
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-7-20
- ³Ì«áµn¿ý
- 2024-11-5
|
¦^´_ 2# GBKEE
¶]¥X¨Ó¤F ÁÂÁª©¥D
¦ý§Ú·Q¦Aµy§@×§ï ¹³¤U¹Ï
§Ú¤gªk·Ò¿û§ï¦¨¥H¤U³o¼Ë
¦ý¬O¦n¹³¤£¹ï
§ÚÁÙ·Q½Ð°Ý¦V¤¤¶¡¨S¼ÆȪº¸Ü
·|¦³ªÅ¥Õ¦C ¥i¥H¤£n¦³ªÅ¥Õ¶Ü
¦pªGnקï¦r«¬ªº¸Ü n©ñ¦b°j°é¤ºÁÙ¬O°j°é¥~
·Ð½Ðª©¥D¬°¤p§Ì¸Ñ´b¤@¤U
Sub Ex()
Dim Ar(), E As Range, Msg$, i%, y%, C%
Ar = Array("a2", "g2", "a8", "g8")
C = 4
For i = 1 To Sheet1.[C2:F6].Columns.Count
Msg = ""
y = 0
For Each E In [C2:F6].Columns(i).Cells
If E <> "" Then
Msg = IIf(Msg <> "", Msg & Chr(10), "") & "¦b" & Cells(E.Row, 1) & "©±¶R¤F" & Cells(E.Row, 2) & E & "ªK"
y = y + 1
End If
Next
Sheet2.Range(Ar(i - 1)) = IIf(Msg <> "", Msg & Application.Rept(Chr(10), IIf(y < C, C - y, 0)) & IIf(y < C, "½Ð¦ÜA©±¨ú³f", ""), "")
Next
For i = 1 To Sheet1.[C7:F11].Columns.Count
Msg = ""
y = 0
For Each E In [C7:F11].Columns(i).Cells
If E <> "" Then
Msg = IIf(Msg <> "", Msg & Chr(10), "") & "¦b" & Cells(E.Row, 1) & "©±¶R¤F" & Cells(E.Row, 2) & E & "ªK"
y = y + 1
End If
Next
Sheet2.Range(Ar(i - 1)) = IIf(Msg <> "", Msg & Application.Rept(Chr(10), IIf(y < C, C - y, 0)) & IIf(y < C, "½Ð¦ÜB©±¨ú³f", ""), "")
Next
End Sub |
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤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
|
¦^´_ 3# amu1129 - Sub Ex()
- Dim Ar(), E, Msg$, i%, y%, C%, MsgAr
- Ar = Array("a2", "g2", "a8", "g8")
- C = 4
- With Sheet1
- For i = 1 To .[C2:F11].Columns.Count
- Msg = ""
- y = 0
- For Each E In .[C2:F11].Columns(i).Cells
- If E <> "" Then
- Msg = IIf(Msg <> "", Msg & Chr(10), "") & "¦b" & .Cells(E.Row, 1) & "©±¶R¤F" & .Cells(E.Row, 2) & E & "ªK"
- y = y + 1
- End If
- Next
- Sheet2.Range(Ar(i - 1)) = Msg
- Next
- End With
- With Sheet2
- For Each E In Ar ''''' ¥[¤J¤å¦r
- MsgAr = Split(.Range(E), Chr(10))
- If UBound(MsgAr) >= 1 Then
- For i = 0 To UBound(MsgAr)
- If i < UBound(MsgAr) Then
- y = InStr(MsgAr(i), "©±")
- If Mid(MsgAr(i), 1, y) <> Mid(MsgAr(i + 1), 1, y) Then
- MsgAr(i) = MsgAr(i) & Chr(10) & "½Ð¦Ü" & Mid(MsgAr(i), 2, y - 1) & "¨ú³f"
- End If
- End If
- Next
- End If
- If UBound(MsgAr) > -1 Then
- y = InStr(MsgAr(UBound(MsgAr)), "©±")
- MsgAr(UBound(MsgAr)) = MsgAr(UBound(MsgAr)) & Chr(10) & "½Ð¦Ü" & Mid(MsgAr(UBound(MsgAr)), 2, y - 1) & "¨ú³f" & Chr(10) & "¥H¤W"
- .Range(E) = Join(MsgAr, Chr(10))
- End If
- Next
- For Each E In Ar ''''' ³B²zÃC¦â
- MsgAr = Split(.Range(E), Chr(10))
- .Range(E).Font.ColorIndex = 3
- C = 1
- For i = 0 To UBound(MsgAr)
- If InStr(MsgAr(i), "¦b") > 0 Then
- y = InStr(MsgAr(i), "©±")
- Else
- y = 0
- End If
- If y > 0 Then .Range(E).Characters(Start:=C, Length:=y).Font.ColorIndex = 10
- C = C + Len(MsgAr(i)) + 1
- Next
- Next
- End With
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤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
|
¦^´_ 5# amu1129 - With Sheet2
- For Each E In Ar ''''' ¥[¤J¤å¦r
- MsgAr = Split(.Range(E), Chr(10))
- If UBound(MsgAr) >= 1 Then
- For i = 0 To UBound(MsgAr)
- If i < UBound(MsgAr) Then
- y = InStr(MsgAr(i), "¦Ü")
- yy = InStr(MsgAr(i + 1), "¦Ü")
- If Mid(MsgAr(i), y, 8) <> Mid(MsgAr(i + 1), yy, 8) Then
- yy = InStr(MsgAr(i), "(¤p¥]¸Ë)")
- Store = Mid(MsgAr(i), y + 1, yy - y - 2)
- MsgAr(i) = MsgAr(i) & Chr(10) & "½Ð¦Ü" & Store & "¨ú³f(¤À¾÷:123 ³sµ¸)"
- End If
- End If
- Next
- End If
- If UBound(MsgAr) > -1 Then
- i = UBound(MsgAr)
- y = InStr(MsgAr(i), "¦Ü")
- yy = InStr(MsgAr(i), "(¤p¥]¸Ë)")
- Store = Mid(MsgAr(i), y + 1, yy - y - 2)
- MsgAr(i) = MsgAr(i) & Chr(10) & "½Ð¦Ü" & Store & "¨ú³f(¤À¾÷:223 ³sµ¸)" & Chr(10) & Chr(10) & "½Ð³t¦Ü»â¨ú" & Chr(10) & "**½Ð©ó»â¨ú«á§iª¾"
- .Range(E) = Join(MsgAr, Chr(10))
- End If
- Next
- For Each E In Ar ''''' ³B²zÃC¦â
- MsgAr = Split(.Range(E), Chr(10))
- .Range(E).Font.ColorIndex = 3
- C = 1
- For i = 0 To UBound(MsgAr)
- y = InStr(MsgAr(i), "°e¦Ü")
- If y > 0 Then .Range(E).Characters(Start:=C, Length:=y + 1).Font.ColorIndex = 10
- If InStr(MsgAr(i), "¤À¾÷") > 0 Then .Range(E).Characters(Start:=C, Length:=Len(MsgAr(i))).Font.ColorIndex = 9
- C = C + Len(MsgAr(i)) + 1
- Next
- Next
- End With
½Æ»s¥N½X |
|
|
|
|
|
|