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

[µo°Ý] (¤v¸Ñ¨M!)~¦p¦ó³]©w¥»WorkBook¤¤,«ü©w¸ô®|¦ì¸m¶W³sµ²!

[µo°Ý] (¤v¸Ñ¨M!)~¦p¦ó³]©w¥»WorkBook¤¤,«ü©w¸ô®|¦ì¸m¶W³sµ²!

¥»©«³Ì«á¥Ñ StanleyVic ©ó 2011-8-4 11:16 ½s¿è



½Ð°Ý¦U¦ì¤j¤j.
¦p¤W¹Ï,¥»¤H·Q§â,Column (D)¤¤©ÒÅã¥Üªº ¸ô®| ¶i¦æ¶W³sµ²¦Ü«ü©w¦ì¸m.
¸U¤ÀÁÂÁÂ~
NeverTry , NeverNo !

¦^´_ 1# StanleyVic
¸Õ¸Õ¬Ý
  1. Sub Ex()
  2.     Dim E As Range
  3.     With ActiveSheet
  4.         For Each E In .[d4:d9]
  5.             .Hyperlinks.Add E, "", E.Text, E.Text, E.Text
  6.         Next
  7.     End With
  8. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE

ÁÂÁ§Aªº«ü±Ð..¤v¸g¥i¥H¹ê²{¤F§Ú·Q­nªºªF¦è. ¨ä¹ê¦bµo°Ý¤§«e, §Ú¤v¸g¸Õ¹L ¿ý§» ¤º¦P§A®t¤£¦h, ¦ý§Ú¸Õ¤F¦n¦h¦¸³£¤£¦æ, ²{¦b©ú¥Õ
­ì¦]¦b©ó§Ú¯Ê¤F...." With ¨º¤@­Ó¤u§@ªí.. "

§Ú¦³ÂI¶Ã :
¥»¨­§Ú²{¦bªº¥N½X³£¤@ª½¬O¦b "a¤u§@ªí" ¤¤¹B¦æ.  a¤u§@ªí¤¤ªº ¶Wµ²³s~¤S­nÁn©ú¦h¦¸?

«ç¤]¦n, ¥H«á§Ú¤]·|ª`·N¤@¤U. ¦A¦¸Á¤j¤jªºÀ°§U!
NeverTry , NeverNo !

TOP

¦^´_ 3# StanleyVic
¥»¨­§Ú²{¦bªº¥N½X³£¤@ª½¬O¦b "a¤u§@ªí" ¤¤¹B¦æ.  a¤u§@ªí¤¤ªº ¶Wµ²³s~¤S­nÁn©ú¦h¦¸?
¥i¥H¤F¸Ñ¤@¤U¶Ü?

TOP

¥»©«³Ì«á¥Ñ StanleyVic ©ó 2011-8-1 11:34 ½s¿è

¦^´_ 4# GBKEE

ÁÂÁ§Aªº¼ö¤ßÀ°§U.¥»¤H·s¤â.¥N½X¼g±o¦³ÂI¶Ã,Åý§A¨£¯º..
¬O³o¼Ëªº,¥»¨­¤v¸g¦bsheet2¤¤°õ¤U³o­Ó°Ê§@. ¥N½X¦U¤è­±§Ú¤v¸g¼g¦n,´N¬O®t¨º¤@¬qµ¹·d¶Ã¤F¦n¤[,³Ì«á§Ú¥Î¿ý,·í®É¦bMArco¤U.ok~¥i¥H.¦ý©ñ¶i¥h´N¤£¦æ.©ó¬O§Úµo¶K.¤~ª¾.§Ú¤í¤F With¤u§@ªí .  (¤£¹L«ç¤]¦n. ¤]­n¦A¦¸¦VÁÂÁÂ~)

Private Sub NegativeRecord_Click()

'Äò±i«¬¸¹¤u§@ªí§@¹Bºâ----------------------------------------------------------
Dim WsName, N, i, j, K As Integer  '¤£¦P¤u§@ªí
Dim X, Y, Z As Integer      '¦Û¨­¤u§@ªíªº½d³ò
Dim Sh As Worksheet         'Dim(«Å§iÅܼƬ°¨p¥ÎÅܼÆ)  «¬ºA¬° Worksheet(¤u§@ªí)
   
'²¾°£©Ò¦³Sh(¤u§@ªí)ªºHyperlinks(¶W³sµ²¶°¦Xª«¥ó)§R°£----------------------------
    For Each Sh In Sheets
        Sh.Hyperlinks.Delete
    Next

'¥ýDelete©Ò¦³ÂÂRecord!---------------------------------------------------------
X = 4: Y = Range("A65536").End(xlUp).Row
Range("A4:D" & Y).Hyperlinks.Delete
Range("A4:D" & Y).ClearContents

'³]©w©Ò¦³«¬¸¹Sheet¤¤,¥H³ÌUpdataªº¤èªk­pºâ¦] Out ¦Ó¤Þ­Pªº ­t¼ÆTotal °O¿ý------------
N = Worksheets.Count
    For WsName = 3 To N
        Sheets(WsName).Activate
        i = Sheets(WsName).Range("IV3").End(xlToLeft).Column
            For j = 2 To i
                If Sheets(WsName).Cells(3, j).Value = "Out" Then
                    For K = 4 To Sheets(WsName).Range("A65536").End(xlUp).Row
                       If Sheets(WsName).Cells(K, j).Value <> "" And Sheets(WsName).Cells(K, j + 1) < 0 Then
                           '§Û data¶i¥h, Ū¥X¹ïÀ³¸ô®| ¤Î ¶W³sµ² ---------------
                            Cells(X, "A").Value = Sheets(WsName).Cells(K, 1)
                            Cells(X, "B").Value = Sheets(WsName).Cells(1, j - 2)
                            Cells(X, "C").Value = Sheets(WsName).Cells(K, j + 1)
                            Cells(X, "D").Value = Sheets(WsName).Name & "!" & Sheets(WsName).Cells(K, j + 1). _
                            Address(RowAbsolute:=False, ColumnAbsolute:=False)
                                With Sheets(2)
                                    .Hyperlinks.Add Anchor:=.Cells(X, "D"), _
                                    Address:="", _
                                    SubAddress:=.Cells(X, "D").Value, _
                                    TextToDisplay:=.Cells(X, "D").Value
                                End With
                           
                                     X = X + 1
                      End If
                    Next K
                End If
            Next j
    Next WsName
        
        Sheets(2).Activate
   
'¥u«O¯d³ÌUPdate¸ê®Æ--------------------------------------------
   
            For Z = Range("A65536").End(xlUp).Row To 4 Step -1
                    If Cells(Z, "B").Value = Cells(Z - 1, "B").Value Then
                        Rows(Z - 1).Delete
                    End If
            Next Z
            
    MsgBox ("­t¼Æ¸ê®Æ¤v¸g¥þ³¡Åã¥Ü !")

End Sub

20002.JPG (134.98 KB)

20002.JPG

NeverTry , NeverNo !

TOP

¦^´_ 5# StanleyVic
§A³oµ{¦¡¬Osheet2(ª«¥ó)ªºµ{¦¡ ¥i¨Ï¥ÎÃöÁä¦r Me => ª«¥ó¥»¨­,  ¤Î­×§ï¤@¤U§R±¼¤@¨ÇActivate   °Ñ¦Ò°Ñ¦Ò
  1. Private Sub NegativeRecord_Click()
  2. 'Äò±i«¬¸¹¤u§@ªí§@¹Bºâ----------------------------------------------------------
  3. Dim WsName, N, i, j, K As Integer  '¤£¦P¤u§@ªí
  4. Dim X, Y, Z As Integer      '¦Û¨­¤u§@ªíªº½d³ò
  5. Dim Sh As Worksheet         'Dim(«Å§iÅܼƬ°¨p¥ÎÅܼÆ)  «¬ºA¬° Worksheet(¤u§@ªí)
  6. '²¾°£©Ò¦³Sh(¤u§@ªí)ªºHyperlinks(¶W³sµ²¶°¦Xª«¥ó)§R°£----------------------------
  7. '    For Each Sh In Sheets
  8. '       Sh.Hyperlinks.Delete
  9. '   Next

  10. '¥ýDelete©Ò¦³ÂÂRecord!---------------------------------------------------------
  11. X = 4: Y = Range("A65536").End(xlUp).Row
  12. Range("A4:D" & Y).Hyperlinks.Delete
  13. Range("A4:D" & Y).ClearContents

  14. '³]©w©Ò¦³«¬¸¹Sheet¤¤,¥H³ÌUpdataªº¤èªk­pºâ¦] Out ¦Ó¤Þ­Pªº ­t¼ÆTotal °O¿ý------------
  15. 'N = Worksheets.Count
  16.     For WsName = 3 To Sheets.Count
  17.         With Sheets(WsName)
  18.             .Hyperlinks.Delete   '¥i¦b¦¹ ²¾°£©Ò¦³ªºHyperlinks(¶W³sµ²¶°¦Xª«¥ó)§R°£
  19.             For j = 2 To .Range("IV3").End(xlToLeft).Column
  20.                 If .Cells(3, j).Value = "Out" Then
  21.                     For K = 4 To .Range("A65536").End(xlUp).Row
  22.                        If .Cells(K, j).Value <> "" And .Cells(K, j + 1) < 0 Then
  23.                            '§Û data¶i¥h, Ū¥X¹ïÀ³¸ô®| ¤Î ¶W³sµ² ---------------
  24.                             Cells(X, "A").Value = .Cells(K, 1)
  25.                             Cells(X, "B").Value = .Cells(1, j - 2)
  26.                             Cells(X, "C").Value = .Cells(K, j + 1)
  27.                             Cells(X, "D").Value = .Name & "!" & .Cells(K, j + 1).Address(RowAbsolute:=False, ColumnAbsolute:=False)
  28.                             Me.Hyperlinks.Add Anchor:=.Cells(X, "D"), _
  29.                                     Address:="", _
  30.                                     SubAddress:=.Cells(X, "D").Value, _
  31.                                     TextToDisplay:=.Cells(X, "D").Value
  32.                             X = X + 1
  33.                       End If
  34.                     Next K
  35.                 End If
  36.             Next j
  37.         End With
  38.     Next WsName
  39. '¥u«O¯d³ÌUPdate¸ê®Æ--------------------------------------------
  40.             For Z = Range("A65536").End(xlUp).Row To 4 Step -1
  41.                     If Cells(Z, "B").Value = Cells(Z - 1, "B").Value Then
  42.                         Rows(Z - 1).Delete
  43.                     End If
  44.             Next Z
  45.     MsgBox ("­t¼Æ¸ê®Æ¤v¸g¥þ³¡Åã¥Ü !")
  46. End Sub
½Æ»s¥N½X

TOP

¦^´_ 6# GBKEE

    HOHO~~·PÁ¤j¤jªº±Ð¾É..(¾Ç²ß.¾Ç²ß¤F~~)

Ãö©ó§Ú³o­Ó¤å¥ó,²{¦b§Ú¤S¹J¨ì¤@¨Ç·sªº°ÝÃD:
1. ¦pªG¤@­ÓExcel ­n¥Î©ó¦@¨É¦h¤H¨Ï¥Î¤è­±, ´N¦p§Ú³o­Ó "­ÜÀx«¬¸¹.xls " ¤º¥]¬AVBA¼gªº¥\¯à, ¿ý¤J¸ê®Æ + À˵ø / ¬d§ä + ¿é¥X¤í³fªº¼Æ¾Ú. µ¥µ¥¤p¤p¥N½X.½Ð°Ý¤j¤j§A¹ï§Ú¥H¤U¤èªk¦³¦ó«Øij©O?
   ¤@), ¦pªG§Ú³]©w¨C1¤ÀÄÁ ©Î 30¬í ´N¦Û°ÊSAVE¤@¦¸§@¨ê·s,
   ¤G), ¥ýSave²Ä¤@¦¸, ¦A¹L¦ævba ,¦Asave ²Ä¤G¦¸,
       (²Ä¤@¦¸¦¨¬°¨ê·s§O¤Hªº¼Æ¾Ú, ²Ä¤G¦¸§@¬°¦Û¤vªº¼Æ¾Ú«OÀx)

¦]¬°§Ú¥u·Q¨ì¥Î Thisworkbook +  save ªº¤è¦¡,  ÁÙ¦³¨ä¥Lªº¤èªk·Q¥i¥H¸Ñ¨M¦]¦@¨É¤j®aª§¤JDATA ¦Ó¤Þ°_ªº¨R¬ð,¤Î ¸ê®Æ¤£§ó·s,¦Ó¤Þ­P¬d§ä¤£¨ì§O¤Hªº·s¼Æ¾Ú!!
NeverTry , NeverNo !

TOP

¦^´_ 7# StanleyVic
¦@¥Î¬¡­¶Ã¯ªºThisWorkbook¹w³]¨Æ¥ó Workbook_SheetChange ¦³¿é¤J§Y¦sÀÉ ¸Õ¸Õ¬Ý
  1. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  2.         Me.Save
  3. End Sub
½Æ»s¥N½X

TOP

¦^´_ 8# GBKEE


    ·Q¤£¥XÁÙ¦³³o­Ó¤èªk...±j!!
NeverTry , NeverNo !

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD