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

(VBA)ShowDataForm¥i§_¤U±ø¥ó?

(VBA)ShowDataForm¥i§_¤U±ø¥ó?

½Ð°Ý°ª¤â

sheetªº¤º®e¦p¤U
¬ì¥Ø,¦¨ÁZ
°ê¤å,100
­^¤å,90
°ê¤å,80
­^¤å,70

¤p§Ì±Nsheet¸Ì­±ªºAÄæ¨ìBÄæ¥H¤U¦¡°µ¥Xªí³æ¡A¦ý³oªí³æ¤ñ¸û²³æ¡A°ê¤å­^¤å³£·|¬Ý¨ì¡A
¦³¨S¦³¿ìªk¥[¥H­×§ï¡A¨Ò¦p¥u¨q¥X°ê¤å¦¨ÁZ¦Ó¤£­n¬Ý¨£­^¤å¦¨ÁZ ?

With Worksheets(str1)
    .Activate
    Intersect(.UsedRange, Columns("A:B")).Name = "database"
    .ShowDataForm
  End With

¦^´_ 1# akila
  1. With Worksheets(str1)
  2.         .[A:A].Name = "database"
  3.         .ShowDataForm
  4.     End With
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : µoµÊ®ð¬Oµu¼ÈªºµoºÆ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD