ªð¦^¦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

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD