[µo°Ý] ¸ê®ÆÅçÃÒ-¤U©Ô¦¡¿ï³æ-¦r«¬¤j¤p°ÝÃD

jsc0518

Dear all,
¬O§_¥i¥H¨Ï¥ÎVBA±N¦b¿z¿ï¹Lµ{¤¤ªº¦r«¬©ñ¤j©O¡H
¤£µM¿z¿ï®É¡A¤£©ö§PŪ(¦r¤Ó¤p)

ÁÂÁ¦U¦ì¥ý¶i¡I

¤U¸ü (91.82 KB)

2021-9-13 19:49

jsc0518

¦^´_ 1# jsc0518

Dear all,

§Ú¦bºô¸ô¤W¦³¬Ý¨ì¤U¦C»yªk¡A¬O¥i¥HIJ°Ê¤U©Ô¦¡¿ï³æ¸Óµe­±·|©ñ¤j¡A¦ý§Ú·Q°Ý¬O§_¥i¥H«ü©w¦b"¬Y¤@Äæ¦ì"
¦]¦¹»yªk¬O§Ú¥u­nÂI¸Ó¤u§@ªí¥ô¦ó¤@Äæ¦ì®É¡A¥¦³£·|©ñ¤j¡C


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'updateby Extendoffice
    On Error GoTo LZoom
    Dim xZoom As Long
    xZoom = 100
    If Target.Validation.Type = xlValidateList Then xZoom = 130
LZoom:
    ActiveWindow.Zoom = xZoom
End Sub

samwang

¦^´_ 2# jsc0518

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'updateby Extendoffice
On Error GoTo LZoom
Dim xZoom As Long
If Target.Column = 6 Then
xZoom = 100
If Target.Validation.Type = xlValidateList Then xZoom = 130
LZoom:
ActiveWindow.Zoom = xZoom
End If
End Sub

jsc0518

¦^´_ 3# samwang
Dear samwang,
¤Ó·PÁ±z¤F¡A¨Ï¥Îª¬ªp´N¬O§Ú·Q­nªº¡A·P®¦¡I¡I

jsc0518

¦^´_ 3# samwang
Dear samwang,
¦­¦w±z¦n¡I
½Ð±Ð¨â­Ó°ÝÃD¡G
1.§Ú·Q­n¦b"«ü©wªºÄæ¦ì"¤~·|±Ò°Ê©ñ¤jªº¥\¯à¡A­n«ç»ò§ï©O¡H
2.°²³]§Ú¦b B1¡BF1¡BZ1³£¦³¤U©Ô¬O¿ï³æ¡A­n«ç»ò§ï©O¡H
ÁÂÁ±z¡I

samwang

¦^´_ 5# jsc0518

2.°²³]§Ú¦b B1¡BF1¡BZ1³£¦³¤U©Ô¬O¿ï³æ¡A­n«ç»ò§ï©O¡H
>> ½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo LZoom
Dim xZoom As Long
xZoom = 100
If Target.Address = "$B$1" Or Target.Address = "$F$1" Or Target.Address = "$Z$1" Then
If Target.Validation.Type = xlValidateList Then xZoom = 130
End If
LZoom:
ActiveWindow.Zoom = xZoom
End Sub

jsc0518

¦^´_ 6# samwang
Dear samwang,
·PÁ±zªº¼ö¤ß¦^ÂлP«ü¾É¡A³o»yªk¥i¥H¥Î¥B¹ê¥Î¡AÁÂÁ±z