[µo°Ý]½Ð°Ý¦p§@¨ì«ö¤@¤UÀx¦s®æ¡A´N¯à§PÂ_¥X©Ò¦b¦ì¸mªº¦WºÙ
- ©«¤l
- 34
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 67
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 10
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-4-1
- ³Ì«áµn¿ý
- 2021-5-5
|
[µo°Ý]½Ð°Ý¦p§@¨ì«ö¤@¤UÀx¦s®æ¡A´N¯à§PÂ_¥X©Ò¦b¦ì¸mªº¦WºÙ
¦b¦P¤u§@¤¤¦³3Ó¦WºÙªº³]©w¡A¨Ò¦p¬OABC¡BDEF¡BGHI¡A¨ärange ¤À§O¬O$A$1¡G$G$30¡B $A$31¡G$G$45¡B $A$46¡G$G$78
¦³¨S¦³¤èªk¯à¦b«ö¤@¤UÀx¦s®æ¡A´N¯à§PÂ_¥X©Ò¦b¦ì¸mªº¦WºÙ |
|
|
|
|
|
|
- ©«¤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# abbay262
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xR
xR = Array("ABC", "DEF", "GHI")
For Each xS In xR
If Not Intersect(Target, Range(xS)) Is Nothing Then
'§Aªº³B²zµ{§Ç
MsgBox xS
Exit Sub
End If
Next
End Sub |
|
{...} ªí¥Ü»Ýn¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡
|
|
|
|
|
- ©«¤l
- 34
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 67
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 10
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-4-1
- ³Ì«áµn¿ý
- 2021-5-5
|
¦^´_ 2# ML089
±z¯u§Q®`¡A¤Ó·PÁ¤F¡I
¾Ç¨ì¤F¤@©Û |
|
|
|
|
|
|