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

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

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

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

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

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

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

·PÁÂG¤j¸Ñµª

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

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

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2015-7-17 19:19 ½s¿è

¦^´_ 4# blue2263
¤£©T©wRange ("B4") ¥i¥Î Selection ´À¥N
½×¾Â¤W·j´M  Application.FileDialog,VBAªº»¡©ú¦³½d¨Ò,
¸Õ¸Õ¬Ý,¯u¤£¦æ,¦Aµo°Ý.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

TOP

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

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

TOP

        ÀR«ä¦Û¦b : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD