¨Ï¥Î ¸ê®Æ>ÅçÃÒ>Àx¦s®æªº¤U©Ô¦¡²M³æ¡A¥i¥HÅý¤U©ÔÅã¥Üµ¡®æ¼W¥[¦C¼Æ¶Ü?
- ©«¤l
- 7
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 61
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- OFFICE2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- KHH
- µù¥U®É¶¡
- 2010-11-21
- ³Ì«áµn¿ý
- 2012-10-24
|
¨Ï¥Î ¸ê®Æ>ÅçÃÒ>Àx¦s®æªº¤U©Ô¦¡²M³æ¡A¥i¥HÅý¤U©ÔÅã¥Üµ¡®æ¼W¥[¦C¼Æ¶Ü?
½Ð°Ý¨Ï¥Î ¸ê®Æ>ÅçÃÒ>Àx¦s®æªº¤U©Ô¦¡²M³æ¡A¤U©ÔÅã¥Üµ¡®æ¥u¦³8¦C¡A¶W¥X§Y¶·¨Ï¥Î±²¶b¡A¥i¥HÅý¤U©ÔÅã¥Üµ¡®æ¼W¥[¦C¼Æ¶Ü?
|
-
1
µû¤À¤H¼Æ
-
|
|
|
|
|
|
¡@¼ÊºÙ: ªü¦N ¡@ÀY»Î: ¤£®¢¤U°Ý,¤£Â_¾Ç²ß,¤~·|¶i¨B
ª©¥D
- ©«¤l
- 647
- ¥DÃD
- 190
- ºëµØ
- 24
- ¿n¤À
- 1037
- ÂI¦W
- 0
- §@·~¨t²Î
- windows7
- ³nÅ骩¥»
- Office 2010 ; OOO3.0 ; Google
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦Ë«n
- µù¥U®É¶¡
- 2010-5-2
- ³Ì«áµn¿ý
- 2022-6-24
|
¥»©«³Ì«á¥Ñ Hsieh ©ó 2010-12-12 23:49 ½s¿è
¦^´_ 1# sasser
°ò¥»¤W³o¤@©« ¥H«e¦bEXCELHELP ¤W¦³¤Hµoªí¹L
¦ý¥Ø«eEXCELHELP¥H¤wÃöª©
§Ú±N¤å³¹¶K¦b³oHUNGCHILIN
Àɮ׳sµ²¤]¨S¦³¤FµLªk¤U¸ü
¨Ï¥Î¤U¦Cµ{¦¡ COPY «á ¶K¨ì³oÓÀɮפ¤ªº THISWORKBOOK µ{¦¡°Ï¤º´N¥i¥H¨Ï¥Î¤F
----------------------------------------------------------------------------------------
¥[ªø ÅçÃÒ ªºªø«×¤Î¼e«×¡@
³o½gÃö©óÅçÃÒªº¤å³¹ ¹ï©óÅçÃÒ¦³«Ü¤jªºÀ°§U
¥i¥H¬ð¯}excel¨î¨ÏÅçÃÒ²M³æ©Ôªø·|¤ñ¸û¤è«K
Âà¶Kµ¹¦U¦ì°Ñ¦Ò- Option Explicit
- Dim oDpd As Object
- Dim sFml1
- Dim prvTarget As Range
- Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
- Const dFixedPos As Double = "0.8"
- Const dFixWidth As Double = "16" ' §ïÅÜ DropDown ªº¼e«×
- Dim vld As Validation
- Dim lDpdLine As Long
- If Not prvTarget Is Nothing Then
- If Not oDpd Is Nothing Then
- If oDpd.value = 0 Then
- prvTarget.value = vbNullString
- Else
- prvTarget.value = Range(Mid(sFml1, 2)).Item(oDpd.value)
- End If
- Set prvTarget = Nothing
- End If
- End If
- On Error Resume Next
- oDpd.Delete
- sFml1 = vbNullString
- Set oDpd = Nothing
- On Error GoTo 0
- If Target.Count > 1 Then
- Set oDpd = Nothing
- Exit Sub
- End If
- Set vld = Target.Validation
- On Error GoTo Terminate
- sFml1 = vld.formula1
- On Error GoTo 0
- Set prvTarget = Target
- lDpdLine = Range(Mid(sFml1, 2)).Rows.Count
- With Target
- Set oDpd = ActiveSheet.DropDowns.Add( _
- .Left - dFixedPos, _
- .Top - dFixedPos, _
- .Width + dFixWidth + dFixedPos * 2, _
- .Height + dFixedPos * 2)
- End With
- With oDpd
- .ListFillRange = sFml1
- .DropDownLines = lDpdLine
- .Display3DShading = True
- End With
- Terminate:
- End Sub
½Æ»s¥N½X Âà©«¦Û excelhelp |
|
|
|
|
|
|
¡@¼ÊºÙ: ªü¦N ¡@ÀY»Î: ¤£®¢¤U°Ý,¤£Â_¾Ç²ß,¤~·|¶i¨B
ª©¥D
- ©«¤l
- 647
- ¥DÃD
- 190
- ºëµØ
- 24
- ¿n¤À
- 1037
- ÂI¦W
- 0
- §@·~¨t²Î
- windows7
- ³nÅ骩¥»
- Office 2010 ; OOO3.0 ; Google
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦Ë«n
- µù¥U®É¶¡
- 2010-5-2
- ³Ì«áµn¿ý
- 2022-6-24
|
³oÓn¥ÎVBA¤~¿ìªº¨ì ¦¹©«nÂà¨ìVBAª© |
|
|
|
|
|
|
- ©«¤l
- 7
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 61
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- OFFICE2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- KHH
- µù¥U®É¶¡
- 2010-11-21
- ³Ì«áµn¿ý
- 2012-10-24
|
¦^´_ 3# HUNGCHILIN
·PÁª©¥D«ü¾É, ´ú¸Õok, ¸Ñ¨M¤F§Úªº§xÂZ, ¤£¹L¤º®e©|¥¼§¹¥þ°Ñ³z, »Ýn¦AªáÂI®É¶¡¬ã¨s |
|
|
|
|
|
|
- ©«¤l
- 7
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 61
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- OFFICE2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- KHH
- µù¥U®É¶¡
- 2010-11-21
- ³Ì«áµn¿ý
- 2012-10-24
|
¦^´_ 2# HUNGCHILIN
µo²{¤@Óª¬ªp, ·í¦P¤@Àx¦s®æ¤w¿é¤J§¹¦¨, Y¦A¿ï¨ú¸ÓÀx¦s®æ®É, «hì¥ý¤º®e·|³Q²MªÅ, ½Ð°Ý¦³¸Ñ¶Ü?
|
|
|
|
|
|
|
- ©«¤l
- 135
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 165
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »´ä
- µù¥U®É¶¡
- 2010-12-9
- ³Ì«áµn¿ý
- 2012-8-27
|
¥»©«³Ì«á¥Ñ FAlonso ©ó 2010-12-14 12:25 ½s¿è
- If Not prvTarget Is Nothing Then
- If Not oDpd Is Nothing Then
- If oDpd.value = 0 Then
- prvTarget.value = vbNullString
- Else
- prvTarget.value = Range(Mid(sFml1, 2)).Item(oDpd.value)
- End If
- Set prvTarget = Nothing
- End If
- End If
- On Error Resume Next
- oDpd.Delete
- sFml1 = vbNullString
- Set oDpd = Nothing
- On Error GoTo 0
½Æ»s¥N½X ³o¬qµ{¦¡«ç»ò¸Ñ,·Q¤F«Ü¤[³£¨SÀYºü
ÁÙ¦³³oÓVBA¦ü¥G¦³¤@Ó«á¿ò¯g,´N¬O·íclick¦³¤U©Ô¦¡²M³æ®æ¤l®É,¥¦·|¦Û°Ê¼W¥[¤@Ó¤U©Ô¦¡²M³æ(¤Î¨ä½s¸¹¤]¸`¸`¤W¤É),·d±o¸Ó®æ¤lº¡¬O²M³æ,²V¶Ã¦Ü·¥
¦³¨S¦³¿ìªk§â²M³æªº.listfullrange¤Î.dropdownlines³]©wreplace±¼´Nºâ¤F? |
|
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|