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

Àx¦s®æ¸ê®Æ¦³ÅÜ°ÊÃC¦â´£¿ô

Àx¦s®æ¸ê®Æ¦³ÅÜ°ÊÃC¦â´£¿ô

½Ð°Ý¦U¦ì¤j¤j
¸ê®Æ¬O±qWEB¶×¤J
¶}±Ò¬¡­¶Ã¯«á·|¦Û°Ê§ó·s
§Æ±æ¦³ÅܰʼƾڪºÀx¦s®æ·|ÃC¦â´£¿ô(¤ñ¤èÅܦ¨¶À©³)
ÁÂÁ¦U¦ì¤j¤j

¦^´_ 1# coafort


    ÁÂÁ«e½úµoªí¦¹¥DÃD»P±¡¹Ò
«á¾Ç«Øij:
1.ÁôÂä@­Ó»²§Uªí
2.¦b§ó·s¸ê®Æ«e¥ý±N¸ê®Æ½Æ»s¨ì1.ªº»²§Uªí
3.§ó·s¸ê®Æ«á³]­p­Óµ{¦¡¤ñ¹ï¨âªí¨C­ÓÀx¦s®æ,­È¤£¤@¼ËªºÅÜ©³¦â
4.¥²­n®É¥iÅã¥Ü³QÁôÂ꺻²§Uªí¥X¨Ó¬d¬Ý«e¤@¦¸ªºÂ¸ê®Æ
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_  coafort


    ÁÂÁ«e½úµoªí¦¹¥DÃD»P±¡¹Ò
«á¾Ç«Øij:
1.ÁôÂä@­Ó»²§Uªí
2.¦b§ó·s¸ê®Æ«e¥ý±N¸ê ...
Andy2483 µoªí©ó 2023-4-12 07:51


ÁÂÁ¤j¤j
½Ð°Ý¤j¤j³o­Ó¦³¿ìªkª½±µ¼gµ{¦¡³B²z¶Ü¡H
ÁÂÁÂ

TOP

¦^´_ 3# coafort


    ÁÂÁ«e½ú¦^´_
«á¾Ç¾Ç²ß¤è®×¦p¤U,½Ð«e½ú°Ñ¦Ò
1.¦b ThisWorkbook ¼Ò²Õ¸Ì´Ó¤J¥H¤Uµ{¦¡½X
2.°±¯d¦bÀɮ׶}±Ò§ó·sWEB¸ê®Æªº¤u§@ªí
3.Àx¦sÀÉ®×
4.Ãö³¬ÀÉ®×
5.­«·s¶}±Ò¦¹ÀÉ®×

Option Explicit
Public Brr0412, Sh0412 As Worksheet, xR0412 As Range
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
Sh0412.Activate
On Error GoTo 0
End Sub
'===============================
Private Sub Workbook_Open()
Call ¸m¤J»²§Uªí_ÁôÂÃ
Call §ó·sWEB¸ê®Æ
Call ¤ñ¹ï_¤£¦P­ÈÅÜ©³¦â
End Sub
'===============================
Sub ¸m¤J»²§Uªí_ÁôÂÃ()
Application.DisplayAlerts = False
Set Sh0412 = ActiveSheet
Set xR0412 = Range(Sh0412.[A1], Sh0412.UsedRange): Brr0412 = xR0412
On Error Resume Next
Sheets("»²§Uªí_WEB").Delete
On Error GoTo 0
With Sheets.Add
   .Name = "»²§Uªí_WEB"
   .Visible = False
   xR0412.Copy .[A1]
   .UsedRange.ClearContents
   .UsedRange = Brr0412
End With
End Sub
'===============================
Sub ¤ñ¹ï_¤£¦P­ÈÅÜ©³¦â()
Dim Brr, xR As Range, i&, j%, xU As Range
Set xR = Range(Sh0412.[A1], Sh0412.UsedRange): Brr = xR
Set xU = Sh0412.[A1]
For i = 1 To UBound(Brr0412)
   For j = 1 To UBound(Brr0412, 2)
      If Brr(i, j) <> Brr0412(i, j) Then
         Set xU = Union(xU, xR(i, j))
      End If
   Next
Next
xR.Interior.ColorIndex = xlNone
xU.Interior.ColorIndex = 6
Set xU = Nothing: Set xR = Nothing: Set xR0412 = Nothing
Erase Brr, Brr0412
End Sub
'===============================
Sub §ó·sWEB¸ê®Æ()
'½Ð´Ó¤J¥²¶·§ó·sªºµ{¦¡½X
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_  coafort


    ÁÂÁ«e½ú¦^´_
«á¾Ç¾Ç²ß¤è®×¦p¤U,½Ð«e½ú°Ñ¦Ò
1.¦b ThisWorkbook ¼Ò²Õ¸Ì´Ó¤J¥H¤Uµ{ ...
Andy2483 µoªí©ó 2023-4-12 12:54


ÁÂÁ¤j¤j
½Ð°Ý¤j¤j¬O¦bThisWorkbook«ö¥kÁä´¡¤J¼Ò²Õ¶Ü¡H
ÁÂÁÂ

TOP

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2023-4-12 19:07 ½s¿è

¦^´_ 5# coafort



    http://forum.twbts.com/thread-23945-1-1.html

ThisWorkbook¡H
³o©«ªº4¼Ó¦³¹Ï¤ù¥i¬Ý
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_  coafort



   

ThisWorkbook¡H
³o©«ªº4¼Ó¦³¹Ï¤ù¥i¬Ý
Andy2483 µoªí©ó 2023-4-12 19:02


¤F¸Ñ

«D±`ÁÂÁ¤j¤j

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD