¦p¦ó¥Î¼Æ²ÕOR ¨ä¥L¤èªk¥[³t?

basarasy

½Ð°Ý¤j¤j¦p¦ó¥Î ¼Æ²Õ MYarr() ¥[³t OR ¨ä¥L¤èªk¥[³t ¥H¤Uªº½X?
¦]¬°¹Ï¤Ó¦h,¥[¤J®É«ÜºC :'(

1. Private Sub Ex()
   
2.    
   
3.     Dim Ps, Pc, A
   
4.     With Application.FileDialog(msoFileDialogOpen)
   
5.         .Title = "´M§ä¹Ï¤ùÀÉ"
   
6.         .AllowMultiSelect = True   '¦h­«¿ï¨úÀÉ®×
   
7.         .ButtonName = "¶}±Ò¹Ï¤ùÀÉ"
   
8.         .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
   
9.         .FilterIndex = 1
   
10.         If .Show = False Then
    
11.             MsgBox "¨S¦³¿ï¾Ü¥ô¦ó¹Ï¤ùÀÉ", vbOKOnly + vbExclamation : Exit Sub
    
12.         Else
    
13.            Set Ps = .SelectedItems
    
14.         End If
    
15.     End With
    
16.    
    
17. Application.ScreenUpdating = False
    
18. 
    
19.     Sheet3.Select
    
20.    
    
21.     With ActiveSheet
    
22.       .Range("A1:A20000").Value = ""
    
23.      .Pictures.Delete
    
24.     Set A = .Range("A1")
    
25.            
    
26.     For Each Pc In Ps
    
27.                        
    
28.     .Hyperlinks.Add Anchor:=A, Address:=Pc, TextToDisplay:=Pc
    
29.                
    
30.        With .Pictures.Insert(Pc)
    
31.             .Height = 34
    
32.             .Width = 54
    
33.             .Left = A.Offset(, 1).Left
    
34.             .Top = A.Offset(, 1).Top
    
35.         End With
    
36.         Set A = A.Offset(1)
    
37.     Next
    
38.   
    
39.     .Shapes.SelectAll              
    
40.     Selection.Placement = xlMoveAndSize
    
41.    
    
42.     End With
    
43.    
    
44.     Sheet1.Select
    
45.    
    
46.     Application.ScreenUpdating = True
    
47.       
    
48.     Range("A2").Select
    
49.         
    
50.     MsgBox "´¡¤J§¹¦¨"
    
51.   
    
52. End Sub

½Æ»s¥N½X

GBKEE

½Ð°Ý¤j¤j¦p¦ó¥Î ¼Æ²Õ MYarr() ¥[³t OR ¨ä¥L¤èªk¥[³t ¥H¤Uªº½X?
¦]¬°¹Ï¤Ó¦h,¥[¤J®É«ÜºC
basarasy µoªí©ó 2011/3/15 22:08

¥i¯à³o´N¬O­ì¦]§a!

basarasy

¦^´_ 2# GBKEE

½Ð°ÝGBKEE¤j¤j,¦bFor  Next ®É ,¥i¥H¥Î¼Æ²Õ¥[³t ¶Ü?

GBKEE

¦^´_  GBKEE

½Ð°ÝGBKEE¤j¤j,¦bFor  Next ®É ,¥i¥H¥Î¼Æ²Õ¥[³t ¶Ü?
basarasy µoªí©ó 2011/3/16 08:59

°ÝÃD¬O¹Ï¤ù¤Ó¦h ´¡¤J¤u§@ªí¶O®É!
´«­Ó¤è¦¡¨ÓÅã¥Ü¬Ý¬Ý

¹Ï¤ùÅã¥Ü.rar (336.15 KB)

¤U¸ü¦¸¼Æ: 11

2011-3-16 10:57

basarasy

¦^´_ 4# GBKEE
ÁÂÁÂGBKEE¤j¤jªº¤èªk.
¦ý¦³¤èªk¹³´¡¤J¹Ï¤ùªº¶Ü?
¦]¬°¹Ï¤ù¥ªÃä¬O No. ©M 给¤H¬Ý¹Ï¤ù ¥´ª`¸Ñªº¦C
ÁÙ¦³¥Î¿z¿ï®É¹Ï¤ù¤]¥u¥X²{¿z¿ï¤Fªº¹Ï¤ù.

GBKEE

¦^´_ 5# basarasy
½Ð­×§ï ¹Ï¤ù.xls ªº CommandButton1_Click
¦A§R±¼ ComboBox1_Change()
¸Õ¸Õ¬Ý¬O§_¦p§Aªº·Qªk

1. Private Sub CommandButton1_Click()
   
2.     Dim A, i
   
3.     With Application.FileDialog(msoFileDialogOpen)
   
4.         .Title = "´M§ä¹Ï¤ùÀÉ"
   
5.         ''''''''''''''''''''''''''''''''''''''''''''
   
6.         .InitialView = msoFileDialogViewThumbnail
   
7.         '³]©w InitialView ÄÝ©Ê ¬°Åã¥Ü¹Ï¤ù
   
8.         ''''''''''''''''''''''''''''''''''''''''''''''
   
9.         .AllowMultiSelect = False      '¤£¤¹³\ ¦h­«¿ï¨úÀÉ®×
   
10.         .ButtonName = "¶}±Ò¹Ï¤ùÀÉ"
    
11.         .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
    
12.         .FilterIndex = 1
    
13.         If .Show Then
    
14.             Image1.Picture = LoadPicture(.SelectedItems(1))
    
15.         Else
    
16.             Image1.Picture = LoadPicture(LPicture)
    
17.         End If
    
18.     End With
    
19. End Sub

½Æ»s¥N½X

basarasy

¦^´_ 6# GBKEE


    §Ú°µ¤F­Ó¨Ò¤l

¤U¸ü (57.84 KB)

2011-3-16 19:53

¿z¿ï«á

¤U¸ü (25.81 KB)

2011-3-16 19:53

GBKEE

½Ð°Ý¤j¤j¦p¦ó¥Î ¼Æ²Õ MYarr() ¥[³t OR ¨ä¥L¤èªk¥[³t ¥H¤Uªº½X?
¦]¬°¹Ï¤Ó¦h,¥[¤J®É«ÜºC
basarasy µoªí©ó 2011/3/15 22:08

§Aªº¨Ò¤l ¤£¬O¦^¨ì­ìÂI¶Ü?

basarasy

¦^´_ 8# GBKEE

¦]¬°¹Ï¤ù¤@©w­n©ñ¥X¨Ó给¤H¬Ý¡A¬Ý¨£¹Ï¤ù¤~ª¾¹Dª`¸Ñ­n¥´¤°»ò¡D

GBKEE

¦^´_ 9# basarasy
­×§ï§A1¼Óªºµ{¦¡¦p¤U

1. 
   
2. Private Sub Ex()
   
3.     Dim Ps, Pc, A
   
4.     With Application.FileDialog(msoFileDialogOpen)
   
5.         .Title = "´M§ä¹Ï¤ùÀÉ"
   
6.         .AllowMultiSelect = True   '¦h­«¿ï¨úÀÉ®×
   
7.         .ButtonName = "¶}±Ò¹Ï¤ùÀÉ"
   
8.         .InitialView = msoFileDialogViewThumbnail
   
9.         .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
   
10.         .FilterIndex = 1
    
11.         If .Show = False Then
    
12.             MsgBox "¨S¦³¿ï¾Ü¥ô¦ó¹Ï¤ùÀÉ", vbOKOnly + vbExclamation: Exit Sub
    
13.         Else
    
14.            Set Ps = .SelectedItems
    
15.         End If
    
16.     End With
    
17.     Application.ScreenUpdating = False
    
18.     With Sheet3
    
19.         .Range("A2:d20000").Clear                          'A2¥H¤U ²M°£ (¥þ³¡)
    
20.         .Range("A2:d20000").EntireRow.AutoFit              '«ì´_¬°¼Ð·Ç¦C°ª
    
21.         .Pictures.Delete
    
22.         Set A = .Range("A2")
    
23.         For Each Pc In Ps
    
24.             A.Value = A.Row - 1
    
25.             .Hyperlinks.Add Anchor:=A.Cells(1, 3), Address:=Pc, TextToDisplay:=Pc
    
26.             With .Pictures.Insert(Pc)
    
27.                 .Height = 34
    
28.                 .Width = 54
    
29.                 .Left = A.Offset(, 3).Left
    
30.                 .Top = A.Offset(, 3).Top
    
31.             End With
    
32.             Set A = A.Offset(1)
    
33.         Next
    
34.         '.Shapes.SelectAll
    
35.         .Pictures.Placement = xlMoveAndSize
    
36.         .Range("a1:c1").EntireColumn.AutoFit                       '¦Û°Ê½Õ¾ãÄæ¼e
    
37.         .Range("A2:a" & .Range("A2").End(xlDown)).RowHeight = 34   '³]©w¦C°ª
    
38.     End With
    
39.     Sheet1.Select
    
40.     Application.ScreenUpdating = True
    
41.     ActiveSheet.Range("A2").Select
    
42.     MsgBox "´¡¤J§¹¦¨"
    
43. End Sub

½Æ»s¥N½X