[µo°Ý] ½Ð±Ð(excelµù¸Ñ´¡¤J¿ï¾Ü¹Ï¤ù)VBA­n¦p¦ó¼g?

blue2263

½Ð±Ð¤j¤j
Àx¦s®æ¿ï¾Ü«á->´¡¤Jµù¸Ñ->µù¸Ñ´¡¤J¿ï¾Ü¹Ï¤ù
µ{¦¡½XÀ³¸Ó­n¦p¦ó¼g?

³Â·Ð¤j¤jÀ°§Ú¸Ñµª,ÁÂÁÂ

blue2263

·PÁÂG¤j¥i¥H¥Î¤F

GBKEE

¦^´_ 7# blue2263

1. Option Explicit
   
2. 'VBAªº»¡©ú¦³ FileDialog ªº½d¨Ò,
   
3. Sub Ex()
   
4.     Dim E As Variant
   
5.     'Dim Box As FileDialog, E As Variant
   
6.     'Set Box = Application.FileDialog(msoFileDialogOpen)
   
7.      'With Box
   
8.      With Application.FileDialog(msoFileDialogOpen)
   
9.         .Show
   
10.         For Each E In .SelectedItems
    
11.             MsgBox E
    
12.             '¾É¤J§Aªºµ{¦¡
    
13.         Next
    
14.     End With
    
15.    
    
16. End Sub

½Æ»s¥N½X

blue2263

G¤j±z¦n
¼u¥X¿ï¾Üµøµ¡,§Ú¼g¤£¥X¨Ó
ÁÙ½ÐG¤jÀ°¦£
ÁÂÁÂ

blue2263

¦nªº,ÁÂÁÂG¤j

GBKEE

¦^´_ 4# blue2263
¤£©T©wRange ("B4") ¥i¥Î Selection ´À¥N
½×¾Â¤W·j´M  Application.FileDialog,VBAªº»¡©ú¦³½d¨Ò,
¸Õ¸Õ¬Ý,¯u¤£¦æ,¦Aµo°Ý.

blue2263

·PÁÂG¤j¸Ñµª

¦ý§Ú·Q­nµ{¦¡¥\¯à¬O
¤£­n©T©wR4Àx¦s®æ,¥H²{¦b©Ò¿ïÀx¦s®æ,
´¡¤J¹Ï¤ùÀÉ®×,§Æ±æ¯à¼u¥X¹ï¸Ü®Ø,¦Û¤v¿ï¾Ü

·Ð½ÐG¤jÀ°¦£ÁÂÁÂ

GBKEE

¦^´_ 2# jackyq
Shape ³£¥i¥H¥[¤J­I´º¤ù

1. Option Explicit
   
2. Sub Ex()
   
3.     With Range("B4")     '«ü©wÀx¦s®æ
   
4.         .ClearComments   '²M°£µù¸Ñ
   
5.         .AddComment      '´¡¤Jµù¸Ñ
   
6.         With .Comment    'µù¸Ñ
   
7.             .Visible = True '¥i¨£
   
8.             .Text "´¡¤J «ü©w¹Ï¤ù"   '¤å¦r
   
9.             With .Shape.OLEFormat.Object  'ª«¥ó
   
10.                 .ShapeRange.Fill.UserPicture "d:\001.jpg" '¹Ï¤ù¦WºÙ
    
11.             End With
    
12.         End With
    
13.     End With
    
14. End Sub

½Æ»s¥N½X

jackyq

µù¸Ñ¨S¿ìªk´¡¤J¹Ï¤ùªº