ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó¶K¤W¸ê®Æ«á¡A·í¸ê®Æ­«½Æ¡A§R°£¨ì¸ê®Æ¥¿½T¬°¤î¡H

[µo°Ý] ¦p¦ó¶K¤W¸ê®Æ«á¡A·í¸ê®Æ­«½Æ¡A§R°£¨ì¸ê®Æ¥¿½T¬°¤î¡H

1.rar (387.2 KB)

¥ý½Æ»s¤@¦ê¤å¦r¡A¥´¶}¤å¥ó¡A«ö¤@¤UB2¡A
·|¦Û°Ê±N½Æ»sªº¤å¦r¶K¦b¤U¤è¡A·í¶K¤Wªº¤å¦r»P¤W¤@µ§­«½Æ«h·|³Q²M°£¡A
·Ó¹D²z·|«ùÄò¨ì¤å¦r¤£­«½Æ¤~·|Ä~Äò¦V¤U¶K¤W¡AÁٽЫe½ú­ÌÀ°À°¦£¡AÁÂÁ¡I

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2022-11-22 15:05 ½s¿è

¦^´_ 1# av8d


    ÁÂÁ«e½úµoªí¦¹¥DÃD»P½d¨Ò
¥Î«ö¶s±Ò°Ê¥¨¶°¤ñ¸û³æ¯Â¹F¨ì·Q­nªº±¡¹Òµ²ªG
¨Ò¦p:
1.InputBox()
2.¶K¤J½Æ»sªº¦r¦ê¤è¦¡
3.¹F¨ì¥Øªº


PS:
Worksheet_SelectionChange()®e©ö¦³Ä²µo¦AIJµoªº´`Àôª¬ªp

TOP

¥»©«³Ì«á¥Ñ singo1232001 ©ó 2022-11-22 15:19 ½s¿è

¦^´_ 1# av8d

1 v1.zip (462.13 KB)

TOP

¦^´_ 3# singo1232001

ÁÂÁ«e½ú¡A§Ú´¿¦¨¥\¹L¡A¦ý¥u­­©ó«ü©wÀx¦s®æ¡A¦pªþ¥ó
2.rar (386.8 KB)

TOP

¦^´_ 2# Andy2483

ÁÂÁ«e½úªº¤j¤OÀ°¦£¡A§Ú¤~²¨¾Ç²L¡A©|¶·§V¤O¡A¨ÌµM¥u¯à¥ý¯à¥Î¦A§ï¼g¡A¥H¤U¬O§¹¦¨«~

3.rar (386.9 KB)

TOP

¦^´_ 5# av8d


    ®¥³ß«e½ú
«á¾Ç¦³¸Õ¦¨¥\:
2022-11-23_094110.JPG
2022-11-23 09:42


«á¾Ç¦³­Ó·Qªk:
¨¾¤îIJµo¦AIJµo,¤£ª¾¹D¥¿¤£¥¿½T??
½Ð«e½ú­Ì«ü¾É!ÁÂÁÂ
1.«e¤è¥[ Application.EnableEvents = False:IJµo¥¢®Ä
2.«á¤è¥[Application.EnableEvents = True:IJµo±Ò°Ê
3.Application.EnableEvents = True: Exit Sub:Â÷¶}«eIJµo±Ò°Ê

­ìµ{¦¡½X²K¥[¦p¤U:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
    If Left(Target.Address(0, 0), 1) = "A" Then
    ElseIf Left(Target.Address(0, 0), 1) = "B" Then
        If Cells(Target.Row, 2) = "¶K¤W¤å¸¹" Then
        [B1] = ""
            For i = 0 To 5000
                If Cells(3 + i, 2) = "" Then
                    Cells(3 + i, 2).Select
                    ActiveSheet.PasteSpecial xlPasteValues
                    [B1] = "§¹¦¨"
                    '§PÂ_¬O§_­«½Æ½Æ»s
                    If Cells(3 + i, 2) = Cells(2 + i, 2) Then
                        [B1] = "­«½Æ½Æ»s"
                        Cells(3 + i, 2) = ""
                    End If
                    Application.EnableEvents = True: Exit Sub
                End If
            Next
        End If
    ElseIf Left(Target.Address(0, 0), 1) = "C" Then
        If Cells(Target.Row, 3) = "¶K¤W¦W¦r" Then Application.EnableEvents = True: Exit Sub
        
    ElseIf Left(Target.Address(0, 0), 1) = "D" Then
        If Cells(Target.Row, 4) = "·j´M¤å¸¹ ¡ô¡ô¡ô" Then [D1].Select
        
    ElseIf Left(Target.Address(0, 0), 1) = "E" Then
        If Cells(Target.Row, 5) = "½Æ»s¤å¸¹" Then [D1].Select
        
    ElseIf Left(Target.Address(0, 0), 1) = "F" Then
        If Cells(Target.Row, 6) = "½Æ»s¦W¦r" Then [D1].Select
        
    ElseIf Left(Target.Address(0, 0), 1) = "G" Then
        If Cells(Target.Row, 7) = "·j´M¦W¦r ¡ô¡ô¡ô" Then [G1].Select
    End If
Application.EnableEvents = True
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
    If Target.Address(0, 0) = "D1" Then
        If [D1] = "" Then ActiveSheet.Range("E2").AutoFilter Field:=1: Application.EnableEvents = True: Exit Sub
        [G1] = ""
        '·j´M¤å¸¹
        Range("E2").AutoFilter Field:=1, Criteria1:="*" & Target & "*"
        ActiveWindow.ScrollRow = 1
   
    ElseIf Target.Address(0, 0) = "G1" Then
        If [G1] = "" Then ActiveSheet.Range("F2").AutoFilter Field:=2: Application.EnableEvents = True: Exit Sub
        [D1] = ""
        '·j´M¦W¦r
        Range("G2").AutoFilter Field:=2, Criteria1:="*" & Target & "*"
        ActiveWindow.ScrollRow = 1
    End If
Application.EnableEvents = True
End Sub

TOP

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD