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

[µo°Ý] ¦p¦ó¦bÁc²Å骺¨t²Î°µ¥X³q¥Îªºvba

[µo°Ý] ¦p¦ó¦bÁc²Å骺¨t²Î°µ¥X³q¥Îªºvba

¦]¬°¤u§@ªºÃö«Y ¥xÆW©M¹ï©¤³£¦³¿ì¤½«Ç ¸ê®Æ»á¦h ³Ìªñ·Q¨Ï¥Îexcel vba»s§@¤@¨Ç»²§U
¥i¬O¦]¬°ÁcÅé©M²Å骺Àô¹Ò ¾É­PÁ`¦³¤@Ãä¿ì¤½«Ç¤£¯à¨Ï¥Î §Ú¸Ó«ç»ò°µ ÁÂÁÂ

¦^´_ 1# greedner
©¹³o¤è¦V¸Õ¸Õ¬Ý
  1. Sub Auto_Open()   '¤@¯ë¼Ò²Õªºµ{¦¡½X(Àɮ׶}±Ò®É¦Û°Ê°õ¦æªºµ{¦¡)
  2.     Dim myPick As Integer
  3.     Do Until myPick = 1 Or myPick = 2
  4.         myPick = Application.InputBox("1.ÁcÅ骩 , 2.²Ê^ª©", "ÁcÅé / ²Ê^")
  5.     Loop
  6.     If myPick = 1 Then
  7.        ' ©I¥s³]©w_ÁcÅ骩ªºÅܼƵ{¦¡
  8.     ElseIf myPick = 2 Then
  9.         '©I¥s³]©w_²Ê^ª©ªºÅܼƵ{¦¡
  10.     End If
  11. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE

ÁÂÁ§Aªº±Ð¾Ç §Ú¹Á¸Õ¬Ý¬Ý

TOP

§Ú¦³ÂI¤£À´ª©¥Dªº·N«ä»¡¡A¦pªG±zªºVBAµ{§Ç³£¬O¥Î­^¤å¼¶¼g
¦b¨Ï¥Î¤W¡A·|¦³¤£¯à¶}±Òªºª¬ªp¶Ü@@?

TOP

¦^´_ 4# handsometrowa
ÁöµMvbaªºµ{¦¡½X³£¬O­^¤å,¦ýÅܼƪº¤º®e¥i¥H¬O¤¤¤å  
1# »¡: ÁcÅé©M²Å骺Àô¹Ò ¾É­PÁ`¦³¤@Ãä¿ì¤½«Ç¤£¯à¨Ï¥Î
¦]¬°:ÁcÅ骩¤¤¦³¨Ç²Ê^¦r¬O¤£¯à¥Îªº,²Ê^ª©¤¤¦³¨ÇÁcÅé¦r¬O¤£¯à¥Îªº
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

½Ð°Ý,µ{¦¡½X¤¤¤£¥Î¤¤¤å,´N²ÁcÀô¹Ò³£¥i¥H¥Î¤F?
lmh

TOP

¦^´_ 6# mhl9mhl9

§â»¡©ú©M¤º®e¥þ¥Î¤W¤F­^¤å¡A¦b¨º¦b¦Í²Î¤]¨S¦³°ÝÃD¤F¡C
¥u¬O¦b¥~Æ[¤W©M¨Ï¥Î·|¦³¤£«K§a~~~

TOP

¦^´_ 2# GBKEE


1.  VBAÅÜ¼Æ ¤£­n¥Î¤¤¤å©R¦W
2. ¤¤¤å°T®§©ñ¦b¬Y¤@­Ó¤u§@ªí¤º¡AVBA¥Î¯Á¤Þ½s¸¹¨Ó¬d¸ß¿ï¥Î
3. Ác²¨Ï¥Î¤è¦¡¥u­n¿ï©Ò¦³¤u§@ªí¦A¥ÎÁc²Âà´«¥\¯à

¥H¤W¤è¦¡¤@ºØ·Qªk¡A§Ú¤]¨S¦³³B²z¹L
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

        ÀR«ä¦Û¦b : ¬°¤H³B¥@­n¤p¤ß²Ó¤ß¡A¦ý¤£­n¡u¤p¤ß²´¡v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD