[µo°Ý] «ö¤UÀx¦s®æ¦³¶W³sµ²¥\¯à®É¡A¦P®É±Ò°Ê¥¨¶°

takeshilin88

½Ð°Ý¦U¦ì¤j¤j¡G
Excel¤u§@ªí¤¤¡A¬Y¨ÇÀx¦s®æ(¨Ò¦pB3¡BM3¡BB30¡BM30)¡A¤w¤À§O³]©w¶W³sµ²¡A
¥u­n·Æ¹«ÂIÀ»³o¥|­Ó¥ô¦ó¤@ÂIÀx¦s®æ®É¡A¯à§_¦P®É±Ò°Ê¥¨¶°¡A
½Ð°Ý¸Ó¦p¦ó³]©w©O¡H
ÁÂÁÂ

jackyq

'2¿ï¤@
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub

takeshilin88

¦^´_ 2# jackyq

¦b¤u§@ªí¤¤¡G
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Mail_Range
End Sub

¦bModule1¤¤¡G

1. Sub Mail_Range()
   
2.     Dim Source As Range
   
3.         
   
4.     Set Source = Nothing
   
5.     On Error Resume Next
   
6.    
   
7.     '·s¼Wµ{¦¡½X¶}©l¡A§@¥Î¤¤Àx¦s®æ°±¦b­þ­Ó³¡ªù§O¡A´N³]©w¬°Source
   
8.    
   
9.     If ActiveCell = Cells(3, 2) Then
   
10.     Set Source = Range("A1:J26").SpecialCells(xlCellTypeVisible)
    
11.     ElseIf ActiveCell = Cells(3, 13) Then
    
12.     Set Source = Range("L1:U26").SpecialCells(xlCellTypeVisible)
    
13.     ElseIf ActiveCell = Cells(30, 2) Then
    
14.     Set Source = Range("A28:J52").SpecialCells(xlCellTypeVisible)
    
15.     ElseIf ActiveCell = Cells(30, 13) Then
    
16.     Set Source = Range("L28:U52").SpecialCells(xlCellTypeVisible)
    
17.     Else
    
18.     End If
    
19.    
    
20.         
    
21.     On Error GoTo 0
    
22. 
    
23.     Source.Copy
    
24.          
    
25.    '±N¦¹½d³ò½Æ»s¨ì«ü©wªº½d³ò©Î½Æ»s¨ì°Å¶K襤
    
26. 
    
27. 
    
28. End Sub

½Æ»s¥N½X

¦ý¬Oµøµ¡¨ì·s¶l¥ó®É¡A«ö·Æ¹«¥kÁä->¶K¤W¡A
¨S¦³¸ê®Æ­C¡A
¬O¤£¬OModule1µ{¦¡½X­þ¸Ì¦³»~¡H
¦Ó¾É­P¨S¦³½Æ»s¨ì°Å¶K襤©O¡H
ÁÂÁÂ

jackyq

If ActiveCell.Address = Cells(3, 2).Address Then

¨ä¾lÃþ±À

takeshilin88

¦^´_ 4# jackyq


    Jack¤j¤j¡G

   µo²{§ï¦¨
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub

   ´N¥i¥H¥¿±`¨Ï¥Î¤F¡A
   ·PÁ¤j¤jªºÀ°¦£~~