Excel¤U©Ô¦¡¿ï³æ¿ï¾Ü¯S©w®æ
- ©«¤l
- 26
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 61
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS7
- ³nÅ骩¥»
- OFFICE2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-6-10
- ³Ì«áµn¿ý
- 2017-12-12
|
Excel¤U©Ô¦¡¿ï³æ¿ï¾Ü¯S©w®æ
¦U¦ì«e½ú¦n
¤p§Ì·Q°µ¤@Ó¤U©Ô¿ï³æ
½Ð°Ý¦p¦ó±N¤U©Ô¿ï³æ¤º®e«ü©w¤@¨Ç¯S©w®æ©O? |
|
|
|
|
|
|
- ©«¤l
- 2025
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 2053
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- Office2007
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_¥«
- µù¥U®É¶¡
- 2011-3-2
- ³Ì«áµn¿ý
- 2024-3-14
|
¦^´_ 1# cubela
°ÝÃD»¡©ú¤Ó²²¤¡AµLªk¤F¸Ñ»Ý¨D |
|
{...} ªí¥Ü»Ýn¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡
|
|
|
|
|
- ©«¤l
- 26
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 61
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS7
- ³nÅ骩¥»
- OFFICE2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-6-10
- ³Ì«áµn¿ý
- 2017-12-12
|
|
|
|
|
|
|
- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 16
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-14
|
¥»©«³Ì«á¥Ñ luhpro ©ó 2014-9-7 08:57 ½s¿è
ML¤j¤j
§Ú°µ¤@Ó¤j·§ªº½d¨Ò¡A½Ð¬Ýªþ¥ó¡AÁÂÁÂ
cubela µoªí©ó 2014-9-7 02:02
¦]¬°¦b Excel ¹w³]¨ç¼Æ®w¤¤,§Ú¨Ã¨S¦³§ä¨ì §ì¨úÀx¦s®æ©³¦âªº¨ç¼Æ, ©Ò¥H§Ú¥Î Excel VBA ¨Ó¹ê²{.
ThisWorkBook :- Private Sub Workbook_Open()
- Dim lSRows&, lSRow&
- Dim rTar As Range
-
- bNInt = False
- Set vD = CreateObject("Scripting.Dictionary")
- lSRows = Sheets("¤u§@ªí1").Cells(Rows.Count, 4).End(xlUp).Row
-
- With Sheets("¤u§@ªí2")
- .Activate
- With .ComboBox1
- .Clear
- For lSRow = 2 To lSRows
- Set rTar = Sheets("¤u§@ªí1").Cells(lSRow, 4)
- If rTar.Interior.ColorIndex = 6 Then
- .AddItem rTar
- vD(rTar.Text) = lSRow
- End If
- Next
- End With
- End With
- bNInt = True
- End Sub
½Æ»s¥N½X Module1 :- Public vD, bNInt As Boolean
½Æ»s¥N½X Sheet2 :- Private Sub ComboBox1_Change()
- If bNInt Then
- Sheets("¤u§@ªí1").Cells(vD(ComboBox1.Text), 5).Copy [C5]
- Sheets("¤u§@ªí1").Cells(vD(ComboBox1.Text), 6).Copy [D5]
- End If
- End Sub
½Æ»s¥N½X
¤U©Ô¿ï³æ¯S©wÄæ¦ì-a.zip (16.16 KB)
|
|
|
|
|
|
|
- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 277
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-12-23
|
¦^´_ 3# cubela
ÅçÃÒ²M³æµLªk¨Ï¥Î¤£³sÄòÀx¦s®æ
¥Î»²§UÄæ¦ì¨ú±o³o¨Ç¤£³sÄò¸ê®Æ°µ¬°ÅçÃÒ²M³æ¨Ó·½
¥H¤u§@ªí2ªºAÄæ§@»²§UÄæ¦ì
¥H1000µ§¸ê®Æ°µ¬°¹w³]
¿ï¨ú¤u§@ªí2!A1:A1000
¿é¤J=IF(ROW()>COUNTA(¤u§@ªí1!$A:$A),"",INDIRECT("¤u§@ªí1!D"&SMALL(IF(¤u§@ªí1!$A$1:$A$1000<>"",ROW($1:$1000),""),ROW($1:1000))))
«öCTRL+SHIFT+ENTER§¹¦¨°}¦C¤½¦¡¿é¤J
קïÁpµ¸¤H¦WºÙªº¤½¦¡
=OFFSET(¤u§@ªí2!$A$1,1,,COUNTA(¤u§@ªí1!$A:$A)-1,)
¦p¦¹¤U©Ô²M³æ´N¯à¨ú±o³o¨Ç¸ê®Æ
nC¡ADÄæ¦Û°Ê¨ú±o¸ê®Æ
C5=VLOOKUP($B5,¤u§@ªí1!$D:$G,COLUMN(B$1),0)
¦V¥k¦V¤U½Æ»s |
|
¾Ç®üµL²P_¤£®¢¤U°Ý
|
|
|
|
|
- ©«¤l
- 26
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 61
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS7
- ³nÅ骩¥»
- OFFICE2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-6-10
- ³Ì«áµn¿ý
- 2017-12-12
|
·PÁ¼ӤW¨â¦ì¤j¤jªº¸Ñ»¡
¦ý¥Ø«eÁÙ¤£¯à¤U¸üªþ¥ó
§Ú¥ý¬ã¨s¬ã¨s¡AÁÂÁ |
|
|
|
|
|
|
- ©«¤l
- 26
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 61
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS7
- ³nÅ骩¥»
- OFFICE2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-6-10
- ³Ì«áµn¿ý
- 2017-12-12
|
¦^´_ cubela
ÅçÃÒ²M³æµLªk¨Ï¥Î¤£³sÄòÀx¦s®æ
¥Î»²§UÄæ¦ì¨ú±o³o¨Ç¤£³sÄò¸ê®Æ°µ¬°ÅçÃÒ²M³æ¨Ó·½
¥H¤u§@ªí2 ...
Hsieh µoªí©ó 2014-9-9 09:18
¤£¦n·N«ä¡AÁÙ¬O¤£À´@@ |
|
|
|
|
|
|
- ©«¤l
- 26
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 61
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS7
- ³nÅ骩¥»
- OFFICE2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-6-10
- ³Ì«áµn¿ý
- 2017-12-12
|
¦^´_ cubela
Hsieh µoªí©ó 2014-9-13 22:06
·PÁ¶Wª©!!!
§Ú·|¤F:victory:
¤£¹L·Q¦A½Ð±Ð¡A¹³³oÃþªº¤½¦¡¬On¥ÎKeyªºÁÙ¬O¥i¥H¥Î¿ï¶µ¿ï¥X¨Ó©O? |
|
|
|
|
|
|