GBKEE

¦^´_ 1# symis
¬Ý¤£À´§Aªº»¡©ú!½Ð¶Ç¤W½d¨ÒÀÉ®×,·|²M·¡¨Ç.

GBKEE

¦^´_ 5# symis
¬O³o¼Ë¶Ü?

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, i As Integer, e As Range
   
4.     Set Rng = Range("A1:C1,F1:H1,A3:C3,F3:H3,B5:B7,D5:D7,E5:E7,A8,C9:D9")
   
5.     'Set Rng = Selection             '©Î¬O¤u§@ªí¤W¿ï©wªºÀx¦s®æ
   
6.     For i = 1 To Rng.Areas.Count
   
7.         'Areas ÄÝ©Ê ®M¥Î¦Ü½d¨Ò¯S©w¶Ç¦^ Areas ¶°¦X¡A¦¹¶°¦X¥Nªí¦h­«½d³ò¤¤ªº©Ò¦³½d³ò¡C°ßŪ¡C
   
8.         'Count ÄÝ©Ê¡C¶Ç¦^¶°¦Xª«¥ó¤¤ª«¥ó¼Æ¥Ø¡C°ßŪ Integer¡C
   
9.         For Each e In Rng.Areas(i)
   
10.             e.Value = e.Address     '¤£ª¾§A­n°Ê¿é¤J??¸ê®Æ
    
11.         Next
    
12.     Next
    
13. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# symis
¤£¨Æ¥ý¹w©w­n¿é¤Jªº½d³ò
½d³ò¬O­þ¸Ì:¶·»¡©ú¤@¤U

GBKEE

¦^´_ 10# symis
¦b§AªºÀɮפ¤,¤£¬O¤U©Ô¿ï³æÀ³¬OÅçÃÒ²M³æ.
¹w³]¤u§@ªí¤¤²¾°ÊÀx¦s®æªº¨Æ¥ó

1. Option Explicit
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3.     If Not Target.Validation Is Nothing Then Target = Split(Target.Validation.Formula1, ",")(0)
   
4. End Sub

½Æ»s¥N½X

¤U¸ü (17.93 KB)

2013-3-28 19:19

GBKEE

¦^´_ 14# barrykuo
Set Rng = Range("A1:C1,F1:H1,A3:C3,F3:H3,B5:B7,D5:D7,E5:E7,A8,C9:D9")
³]©wÅܼÆ="A1:C1,F1:H1,A3:C3,F3:H3,B5:B7,D5:D7,E5:E7,A8,C9:D9"³o¨Ç½d³ò
'Set Rng = Selection ³oµù¸Ñ¬O»¡©ú¤]¥i¥H: ³]©wÅܼÆ=¤u§@ªí¤W©Ò¿ï¾Üªº§@¥Î¤¤Àx¦s®æ½d³ò

GBKEE

¦^´_ 12# symis
§Aªº¹Ï¥Ü¬O¨t²Î ­n¨D§A­n§ó·s°Ñ·Ó
Àɮפ¤¦³¦WºÙ©w¸q=INVKind_13  °Ñ·Ó¨ì¨ä¥L¬¡­¶Ã¯  ->    ='C:\work\¯²µ|´î§Kªþ¥U\SampleÀÉ\[101txt_3.xlsm]²M³æ¿ï¶µ'!$D$52:$D$54

¤U¸ü (12.45 KB)

2013-4-4 15:02

¦p»Ý¤W¶ÇÀÉ®×  ¦p¹Ï:

¤U¸ü (31.81 KB)

2013-4-4 15:00

¸ê®ÆÅçÃÒ

¤U¸ü (62.48 KB)

2013-4-4 15:01

¤U©Ô²M³æ  ComboBox ±±¨î¶µ

¤U¸ü (55.57 KB)

2013-4-4 15:03