(VBA)ShowDataForm¥i§_¤U±ø¥ó?
- ©«¤l
- 1
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 9
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-7-19
- ³Ì«áµn¿ý
- 2013-8-7
|
(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 |
|
|
|
|
|
|