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

[µo°Ý] ¸ê®Æ­åªR+¥[®Ø½u

[µo°Ý] ¸ê®Æ­åªR+¥[®Ø½u

½Ð°Ý¦U¦ì°ª¤â¤j¤j, ¦p¦ó±N³o¬q¥\¯àÂରµ{¦¡½X
1.  ¦³ÂIÃþ¦ü¸ê®Æ­åªRªº·§©À, ¦]¬°®æ¦¡¤£¤@©w , ¦ý³W«h½T©wªº¬O§R°£±q¥ªÃä¼Æ¹L¨Ó¨â­Ó¡y-¡z
     «O¯d¬õ¦âªº¦rÅé

2.  µe½u«á§PÂ_¤£¦Pªº¥[²ÊÅé¤À¿ë



Q1.png
2017-7-29 06:24


TEST.rar (8.18 KB)

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2017/7/29 10:02): 2#µ{¦¡½X¤w§ó·s , ¦A¸Õ¸Õ¬Ý

¥»©«³Ì«á¥Ñ v03586 ©ó 2017-7-29 09:37 ½s¿è

¦^´_ 2# GBKEE


    ·PÁª©¤jªº¤ä´©,
    ·Q°Ý¤@¤U, ¥Lªº¥½½X³W«h¤£¤@©w¬OQQP ªº¸Ü, ¤]¥i¯à¬O§OªºAAP ¤§Ãþªº , ¤£©T©w, ¬OÁÙ­n¦b¥[¤@¦ê
  1. For i = 0 To UBound(sp) - IIf(InStr(E, "QQP"), 2, 1) and UBound(sp) - IIf(InStr(E, "AAP"), 2, 1)
½Æ»s¥N½X
³o¼Ë¶Ü?? ½T©w©T©w³W«h¼Ò¦¡±q¥ªÃä¼Æ¨Ó¨â­Ó¡y-¡z¬O­n§R°£ªº

TOP

¥»©«³Ì«á¥Ñ v03586 ©ó 2017-7-29 10:28 ½s¿è

¦^´_ 2# GBKEE


    ªO¤j¥[¤J¤F¥½½X³W«h«á, µ{¦¡¶]§¹Åܦ¨ ¥u«O¯d¥½½X, ¡yAAP , QQP ¡z
    ¤£¬OÅܦ¨«O¯d¹³¹Ï¤ù¤¤«O¯d¬õ¦â¦rÅ鳡¤À QQ
    §Ú«öF8 ¥h¶]  ·|Åܦ¨¤U­±³o¬q §â¥LÅܦ¨ AAP , QQP
  1. For i = 0 To UBound(sp) - IIf(Msg, 2, 1)
  2.                 E = Replace(E, sp(i) & "-", "")
  3.                 'Replace ¨ç¼Æ ¶Ç¦^¤@­Ó¦r¦ê , ¸Ó¦r¦ê¤¤«ü©wªº¤l¦r¦ê¤w³Q¨ú¥N¦¨¥t¤@¤l¦r¦ê, ¨Ã¥B¨ú¥Nµo¥Íªº¦¸¼Æ¤]¬O«ü©wªº
  4.             Next
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ v03586 ©ó 2017-7-29 12:56 ½s¿è

¦^´_ 5# GBKEE

   ¦p¹Ï¤ù»¡©ú , °ß¤@§äªº¨ì¤£Åܪº³W«h, ´N¬O±q¥ªÃ䩹¥kºâ¨â­Ó¡y-¡z ¤£«O¯d
    ¦pªG±q¥kÃäºâ, ¦³ªº·|¦³¥½½XQQP µ¥¦r½X
   
Q2.png
2017-7-29 12:46


     ¦³ªº¦r¦ê·|¦³¤T­Ó¡y-¡z  e.g.
     XX-XXXX-XXXX-QQP
     ¦³ªº¦r¦ê¥u¦³¨â­Ó¡y-¡z e.g.
    XX-XXXX-XXXX
    ­n«O¯dªº ¨Ì´`¦³®Ä³W«ß³W«h, ±q¥ªÃ䩹¥kºâ2­Ó¡y-¡z


TEST.rar (16.76 KB)

TOP

¦^´_ 7# GBKEE


    ·PÁªO¤jªº¨ó§U
  ²Ä¤E¦æ³o¤@¬q
  1. If UBound(sp) >= 2 Then
½Æ»s¥N½X
§ï¦¨³o¤@¬q´N¥i¥H§¹¦¨¤F !!! ¦A¦¸·PÁÂ~~

TOP

¦^´_  v03586
Hsieh µoªí©ó 2017-8-2 14:53



    ·PÁªO¤jªº´£¨Ñ¥t¤@ºØ¤è¦¡, ¹ï©óµe½uªº¤è¦¡, ¤S¾Ç¨ì¤@©ÛªO¤jªº¤è¦¡¼¶¼g

TOP

¦^´_ 8# Kubi


    ·PÁ¤j¤jªº´£¨Ñ !!

TOP

¦^´_ 14# ­ã´£³¡ªL

½Ð°Ý¤@¤U, §Ú¦³¨Ì·Ó§ÚªºÃB¥~»Ý¨D°µ¤F¤@¨Ç¤p­×§ï, ·Q½Ð°Ý¤@¤U
¦pªG§Ú­n§PÂ_µe½uªº¸ê®ÆÄæ¦ì¦bDÄæ¦ì ,  §Ú¦p¦ó­×§ïÅý¥Lºâ¾ãµ§¸ê®Æªº³Ì«á¤@Äæ ??
¬O¥[¤J¤U­±³o¤@¬q¶Ü???
  1. .Range("D65536").End(xlUp).Row To 2 Step -1
½Æ»s¥N½X
¦A¨Ó§Ú­nµe½uªº½d³ò¬OA2Äæ¨ìAD2Äæ
  1. Dim xR As Range, xH As Range
  2. For Each xR In [D2:D3000]
  3.     If xH Is Nothing Then Set xH = xR
  4.     If xR(2) <> xR Then
  5.         With Range(xR, xH)
  6.               .Borders.Weight = 4
  7.               If .Count > 1 Then .Borders(12).Weight = 2
  8.         End With
  9.         Set xH = xR(2)
  10.     End If
  11. Next
½Æ»s¥N½X

TOP

¦^´_ 16# ­ã´£³¡ªL

½Ð°Ý¤@¤U¤j¤j, ­×§ï«á§PÂ_¦¡¬°DÄæ¦ì¥u­n¦³¤@¼Ëªº¸Ü²Ó½u, ¤£¤@¼Ëªºµe²Ê½u¨Ó°µ¤À§O
¦ý¬O§Úªº§PÂ_¤@¼Ë¨Ï¥ÎDÄæ¦ì, ¦ý¸Ü½uªº½d³ò­nÂX¤jA2Äæ¦ì¨ìAD2¥H¤UªºÄæ¦ì³£­n¸Ü½u , ½Ð°Ý­n¦p¦ó©µ¦ù©O?
§PÂ_¦¡¤@¼Ë¬O¥ÑDÄæ¦ì
  1. Dim xxR As Range, xxH As Range
  2. For Each xxR In Range([D2], [D65536].End(xlUp))
  3.     If xxR.Row < 2 Then Exit Sub
  4.     If xxH Is Nothing Then Set xxH = xxR
  5.     If xxR(2) <> xxR Then
  6.         With Range(xxR, xxH)
  7.               .Borders.Weight = 4
  8.               If .Count > 1 Then .Borders(12).Weight = 2
  9.         End With
  10.         Set xxH = xxR(2)
  11.     End If
  12. Next
½Æ»s¥N½X
Q3.png
2017-8-6 15:43

TOP

¦^´_ 18# ­ã´£³¡ªL


    ©êºp, ¨S¦³¦X¨Ö®æ, ¦X¨Ö®æ¬O§Ú³B²z§¹µe½u¤~¦X¨Ö®æªº !!!


TEST2.rar (65.2 KB)

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD