중간에 숫자 찾아서 입력 방법 좀 부탁드립니다..

함수/공식

작성자

c571****

작성일

2023-11-20 15:48

조회

122

엑셀버전 : 엑셀2010 이전

운영체제 : 윈도우10

질문 요약 : ,

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim iMax As Long, iLast As Long
    Dim DateRange As String, NumRange As String, Cell As Range
 
    iLast = <a href="http://usedrange.rows.co/" target="_blank" rel="noopener">UsedRange.Rows.Co</a>unt + UsedRange.Row - 1
    DateRange = "C9:C" & iLast  '// 날짜 수정이 시작되는 셀과 열범위 지정
    NumRange = "B9:B" & iLast   '// 번호가 입력되어야할 범위 지정
 
    If Intersect(Target, Range(DateRange)) Is Nothing Then Exit Sub
 
    For Each Cell In Intersect(Target, Range(DateRange)).Cells
        If <a href="http://application.co/" target="_blank" rel="noopener">Application.Co</a>unt(Range(NumRange)) = 0 Then
          iMax = 0
        Else
          iMax = Application.Max(Range(NumRange))
        End If
        If IsDate(Cell.Value) Then
            If IsEmpty(Cells(Cell.Row, Range(NumRange).Column)) Then _
            Cells(Cell.Row, Range(NumRange).Column) = iMax + 1
        Else
            Cells(Cell.Row, Range(NumRange).Column) = Empty
        End If
    Next Cell
 
End Sub
 
 
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAALYAAAEhCAYAAADS5FpLAAAgAElEQVR4Ae1d3Y70unGc19r3MeZV4tgB9gnik1wFuTf20nZyk1zF2e8kgYF9GAVNsclii0WR3/6Qo+0DzBFFNtml6hLFofqbvf3tb3/b3vv5uz/8afvXP/7n9uvrj+319a/bj9f/2/77x2v4/O/rj+3H/7xur6+vsf11+/Hjx/Zfv/51e339dfuXP/7H9ttf/rzdbrd343jvdXxGf+eG6+szubl9VDB/94c/b7/95d+23/3yp03K+/mft3/45S+h/Pf/9O/bb/95r//9P+52v//lL5uURdRXFbbw+x5upL9zU9dNi5sPE/Z7bhAVth/3G9x5+AAefvOb32z+cQ6upoHbtsh/Mkv5f3UGnJs6L1LLuFlGTQwgv6Tv0+Lc8FgzblzYnLNlWljwlgE4EQjjZhf2y327PT1vbxYgq9+27e35abvdX3IPsY27G0/Ph5GO9rlnKDGAahb81cYnfpk9q1c/hyPjgNUfBti2rWZLcNe6X5YbwsFIjBg3t+en23a737d7Iey3rV4faX973u73+/aUhP2y3W/3bZe59H3aCm0f7I/hYwB3y5ftOQ0ovnR85pfbl+Mo5iOebWMcsPqRMRju2hh8HfnY3BAOikmgoiVDEdNNXIq8GGFr71r92/Z8f97e3p6zsF/uG87Scsfl84q9Dg9HBhBMUvHlHoXd9JvMt2Sfq+SRsz0VNzM2YrnGgbSzeuyrZWPbiVt7X5IbwkGpnX1lkLWkjOQj42ZY2G/P9302BmELmDR5i08AXbPPsHKJAcwWsQSCbPlN/cBe6qSP+KouvVInLBhRpiZWnwygUNp24YbeV+SGclDM2CKlG0ySQEosMm7GhA2CDTNeVHMLZLrb4EY4wjt73O49gihhlqV+owNrX/gVPGn5VLSYk1KUuZHVZ4tcKm3PcOd+e4kFD+3stZ75sPY4VojtJ3PTwidiDpPP7bYvedMytEAZThg3A8KOa8v4BU4dhy+QKPg4Kz49v+zr9Jr9ER/dj1TT6p1b9bt/ca3a62DxKDbh3gwiVzJ1/a7GpSi19rAUGRmjgTuPn0sseGpRvdaGj6q9DhaPn85NAx9CSTiwEsqMmwFhw2hSxBm4mP3Igh/tzVByygAGU9aX+WX2L8/wpRa/hFYApapOYSf7WsGMwXDXul6VG8rBy/aim21iA0/oGj1MNx8jbFy73siaiIktomUAQzNsC4mdfHRNHx6psS4te6h9+dTRMWqE5TojytTA6pMBFI62VdzQA4tX5YZxILP0HufWrtXOEOMmChtpnFNmAOegWcurc8PjwbhxYXPOlmlhwVsG4EQgjBsX9sSg9Lpmwevtf2U7xs1NGvzjHFxOA6vczezOWwXfTBzODWefceNLEc7ZMi0seMsAnAiEcePCnhiUXtcseL39r2zHuNmFbd7PJyJYve5b40Yw7B2n/WS1s/vMyUEuMIBqwfY8Q0poZXxmz+rVz+HIOGD1hwE8bbVGSah7p2ZkDKabT05btemjfMOdAdxJsePoa2+S+rhxe09bXYUbErtiwiBvseFOYbqJS5HjmzEVVJmnLbWVNNSe9/4nr0cZQLiGVExpqD1+w4SpN0IawtNWIxWJS6DmS1J6SezkiWqf+HiOMKXMdDMs7FoaqoDBVUmZttqXJsoA2gtB0lt+Uz9zQ6WlyEkOQupP867ZZJB75lJp24U7d6bBA5O9CNfa5QPsZYCv5IbiK2bsVdNWkXkhsZEK2SPsQDwIkpIT/Vp7hPMVqZnZ3+cL217r6ty08OVckSXTVo//7rGVgngmbOl7eCSRx5kIqmqflRZKCU+46fQljV22lKLMQ5j6kTEauPP4uXRJbjo5SDHKdBQlxs3wUiSNKoHU9UcxG8OCfyBNlAEM/tBXAhCenfAUAL/MfgBPdmMEnBpYfTKAgrFlfEEPLF6SG8rBQ6St9qeJNoMH20JiJ598T8U1PKbLUvt+PFlYRpSpgdUnAygcbcPSobJNCZ1S8arcMA5klt7jzHfRlBzGTZyx1WzekQGch2gdz84NjwXjxoXNOVumhQVvGYATgTBuXNgTg9LrmgWvt/+V7Rg3nrYa17lCkH8uxMEqdzO781bBNxOHc8PZZ9z4UoRztkwLC94yACcCYdy4sCcGpdc1C15v/yvbMW52YZv384kIVq95BbqZLB1g7xjfELK9yuQjFhhAtaPjDPql46gje2QcsHrbX85rtgR3rftluSEcjMSIcfPFaav2dXUOIwO4W/BUy/qvvHJ7T1tdhZurpK2y9NGo7baw8w0gpZRq2Z1vULmh5JUuJFSVHvDs+NZwb2X12FfLxrYTt/a+JDeEA5mt7RMfz5UTPTJu4hrbEK+9Kimbo2mraagTITGAqb8WYBwhAVdDmC6r5pjmKnXpMdclaunRz03yeSiUY3ThhjGuyA3lwCzbzpLZGDdjwsa7TAQWVUVBxuAEMZ0IiQGE+O6ihHHe5VfwN9Jos99SlOf12SKXyjHOcOd+e+mK3LQ4yLkiC6etnt1xGsSz4FXHwRstzsb62Kraq7N4FJtwbwaR68sJu2wpRZmHMPUjYzRw5/Fz6ZLcdHKQYpTpKEqMm7EZG4eEGbtM2u9IH8VxYpkBDM3oC/sGMWkGWIdfT1stfyUXufxqbljstkdIW4XtHBGufIo1MRDbFHZjnLDMsemf1N7TVnFbtozJ13NTjV3YHNCnp05aIBRTZLqJM7axnnDKAE6AspxL54aHhHHjwuacLdPCgrcMwIlAGDcu7IlB6XXNgtfb/8p2jBtPW/V01Wum665yN7M7bxV8M3E4N5x9xo0vRThny7Sw4C0DcCIQxo0Le2JQel2z4PX2v7Id42YXtnk/n4hg9ZpzAZvSbE8S9031rWAaHwoMIJh82+IZN6PcM3tWT4ln+mD1diCxs+8gVFuVettdzhk3H5a2WqaD6mtpkppYQcgAVky/XVWbG56GunZKL9FGcVPA22QSdcZNXIqYvIc0SK2+8muryX4vjKaVSi8G0Az9LU9HuBnlPtkjs/K6G5LNsKks1/QhFqweepNcEXlq4JPdnsMIoci4GRZ2LW21cAakCChYrYR/SYKgsR8DiDbftdzNzSj3YC/cpqVIl6ilBxMwq88RpNooZmyRTOU3G/MwdEIcEzbeZUJKodpIDJBCwQMwLXYHTzt8o2MPN0GUA9xb+4JOie0np/S2tCFilmuWz/1+L2bwAmfjST8g7DJJRh3forirdxbeCCattBegtfuO52fCHuW+am+IFZsQ2iByFZp+d1JjNjOb+toYndpIONSlOTJuBoRtRsQZG8toFi5IM7TaXwQYQBzuu5ab3Ixyz+w9bTXKCwmCbRsJgnx0lRIeeR1bN83gfVdFx+tucjPKPbUvn8gavzb1ZmZOxqw+GYQC04bM0ruOdFIs++EZ4ybO2Gg6p8wAzkGzllfnhseDcePC5pwt08KCtwzAiUAYNy7siUHpdc2C19v/ynaMG09bjet/Icg/F+JglbuZ3Xmr4JuJw7nh7DNufCnCOVumhQVvGYATgTBuXNgTg9LrmgWvt/+V7Rg3u7DN+/lEBKvXvALc7IT9UcwHYXuVyUcsMIBqR8cZ9EvHUUf2yDhg9ba/nFdsR3B8N256U52FWsbNh6WtVlMki4C+583jo6Zmxpce9/tW/k16ez3tFxEsePs9ZMfS194kLXTj9mXqcQsTuy5WX7vbmS3DXRujIWwlpyReB6m9QaqkrZL3/jIr2dkbz9WLHNvBQ8sL/NoqXo68wYXkJWzS8rfihmhJubBHxk1cY9cELEMc62tpqyJgXJXIoyQIuJix2ymIDKC9EPz1VOoXOxnhpCXAiZjyEEcO9jZWn3vm0tF2BMd34qYrpplYOiGOCVsFKwNDrkgLTH7v305B7AleEAMIsuV3h/i03cAe+Njxf3JqZvZ3FHZqEx5PcHwnbs5imniLBcbNgLDjmsi+yJCpGgXfSE9tpSAygHoh0vewjGn4rdrrYPGY8ARx6csJXaOqMROlqf+pMXYfCYe6NMdvxU0jpoaWcMq4GRC2GRZmbPprqwO/nMkABq/oC2EEMemXHLnxoiiZ/VenZias5iYYxPGtuGExTVyWBcbNxwhbt/8q6akyG4nz23set7JWN08KXdOH5Yn1S+3Lp46OUVJlz4woUzOrTwZQsLZjOFjwggN6rfBPvW7wtKP2Y5j2i7PXpZfM6rUdj0fbakyxC5QZN1HYYDmpyABOgrOUW+eGh4Nx48LmnC3TwoK3DMCJQBg3LuyJQel1zYLX2//KdowbT1s1a3chyj8X4GCVu5ndeavgm4nDueHsM258KcI5W6aFBW8ZgBOBMG5c2BOD0uuaBa+3/5XtGDe7sGVvs/bqmdXrvjVuBMP+KL4hxD1J/XGdGtEMoNriODg+S3Fk9qxe/RyOjANWfxjA01ZrlKS6Co8jMWK6+dy0VXmLlG4YeDOYrioXGMDdgqdaVtNlHyA1sz9F9Czz0bnJKsqluBQ5vv1RQR3TWfvTVsvswPcIOwOWUvqF0M68gmSPwxQ3HTbY8gg3tq+eszFiMlm6+dW+PLZv+tI2Xes352ZY2ENpq8J5ePcv20c2uagMSHfwQJDyyMLVkE3GCh7AfofztG/nnYgpo2OiZPW5Zy4dbdPjtgOHc5OZtCXGzZiwcRYQwURVUYEVotpzEQohAkoGEEz2n7kFIVC/sVMQD9jjWGXiVtFiTo6i3A1YvekeThu2wtF78miiO3ut352bAWGXSTIixPARpaLg4xdL+YJ3Ri5K4EzY1TRU4lfGrdqjw2gTbrQgLn0pYZ8sTJSm/qfG2AF52urz9mZio6c/y82AsNVVPEogdfotZh1YS8s3XrU5EVtT2OgLYTC/zH4wXXR3ZQSc/LP6ZAAFYzuIw7kBKk2RcfMxwtbtP5s+GsUszsMHRG7whXZbl87lBtEx4lGHCo9g65fal08dHSP5qRaMKJMNq08GULC2YzhY8IIDeq2Pmrb6MdxEYUMMJhWbwZuEaRW3zg2PBOPGhc05W6aFBW8ZgBOBMG5c2BOD0uuaBa+3/5XtGDeetmrW7kKUfy7AwSp3M7vzVsE3E4dzw9ln3PhShHO2TAsL3jIAJwJh3LiwJwal1zULXm//K9sxbnZhy15o7dUzq9d9a9wIhv1UTSvFPWYBIB9ts2QzgGqHYxVjVPxKH2bP6tXP4cg4YPWHAcJm/oHfERzOTY3UvY5x87lpqwUe2XjXH7cpGsIJA7hbemrmkTGtcW6UCTzGpYh9M6YmtfqRtFUdZ5+1ipkWmqTYFnZp7KmZJR945tzsbAwLezhtNfhpz9Zi0i1syQOJyyZ5nONqyCZj7a6zvZynJUBt6RU62P/Vbm6xYfW2f912BIdzU+N0r2PcjAkbs+kg0ehUYNiPYGQA0TyIAQR55tfa41ietnrtX6IdEHaZnCJCDB+ZMo1wRVC47EiPx0JZ5cmZsKtpqA2/VfvSZUhtDTN+yBLUlxKetio0pXTRB+VmQNhGFTBjl7Of3AAojr5HdlPY6AthBNL1Cyn4ZfaD6aK7K4af1SNALRvbQRzOjfJ4PDJuPkbYuHa1W3pMZAYjAxjMYEtP7OSja+uw3LBbidS+fOroGAaKOTWiTK2sPhlAwdqO4XBugEpTZNxEYRvrCacM4AQoy7l0bnhIGDcubM7ZMi0seMsAnAiEcePCnhiUXtcseL39r2zHuPG0Vd3d8eO+y3UVHla5m9mdtwq+mTicG84+48aXIpyzZVpY8JYBOBEI48aFPTEova5Z8Hr7X9mOcbMLm6Vgsnrdt8aNYNg7xreO2wZ7tvA63JLNAKpddb9aGolfZs/q1c/hyDhg9YcBIkZz7SM4nJsaqXsd4+bT01aLV9svL9sLwcgA7uaemkloC8lY5S+36lvfl+07/xJtXIrYN2NKY61+IG1V3jqamUpHtse2sEvrlHvSyBXBHskeK7ux1TiQgVg9OtFyw7YDh3OjPB6PjJthYQ+lrQbhvWzPTzHBqCFyBvBwKSAEeZzjasgmY4W+YC/naQnQwFL6ZKJk9WXv/exoO4LDualxutcxbsaEjTOkCCaqigosrH/10dj+oUgGEC8piAEESf3GTtYexyoTt4oWc3IU5W7A6k33cNqwFR7911brP0r5Dm4GhA1fAnETX8SNgo+zYvgCaeqtHUrgTNjFWl07mvFFyPrFtWqv/eLx0VMz9XKq1/rNuRkQttIYjzBjl7Of3AA6S+MXGMjxNUPJaVPY6Av7Fnc0+GX2g+miuys227J6BKhlYzuIw7lRHo9Hxs3HCBvXrjZtFbbj8CeFLUQGMNjhGPFpoWvrsNyIdTpb4xagjCuf3b586ugYFkt5bkSZGll9MoCCtR3D4dwAlabIuInCNtYTThnACVCWc+nc8JAwblzYnLNlWljwlgE4EQjjxoU9MSi9rlnwevtf2Y5x42mruMPj5eukrq5yN7M7bxV8M3E4N5x9xo0vRThny7Sw4C0DcCIQxo0Le2JQel2z4PX2v7Id48aF/QBRZ8FT6NW9fGmE/f+0x99450DHUUf2KONDikNqZvXJAAoN24Dn5GUD48aFDRyvWmTB2/FeLaU3RuHtebvf7ykficWGcePCZowtVM+CV4OYUnQbuSLYL9ljpaQk1GZitAll+0ZVDVi9tuOxZltJjcYuUGbcuLCBpFWLLHgHvCBIeYwXT3Ej9NAX7OU8LUW6RC09aqJs1Qev5n/HMWqp0aZTOmXcuLATResWWPAQcRAlCPJM2NYexyqT2ooWc3IU5W7A6k33cGps8QZkyWwwDOPGhQ0krVpkwVO810lbLZPD5LrDp3j06FXvR8aNC7vkackzFrwAls1qUp/+AcMDpfRiBNi1gQ3jxoUNJK1aZMELeGFLT+zkoxNcWjNjKjG1L2dLHaPNiVlGJGNWnwyg0LB1YQNPFyw2hX3B6x25JMaNz9gjLE6yZcGbBGcpt4wbF/ZSYaqDYcGrW3+vWsaNp63qN28/XidlVWK5yv3N7rxV8M3E4dxw9hk3LmzO2TItLHjLAJwIhHHjwp4YlF7XLHi9/a9sx7jZhc1SB1m95hXYzU5mz+qBcQZQTap7stIoY8f18XdLzXRu+O/RfNCvrcbN/ft9u0O+QvoJ4UO9hiQf28L21MzMlC05N5YROY9LEfb2p1bfSims2YsbVp8htYWd7cJo9/hLU5gwE58iOGtrr6umZur14TFd6zfnZljY7ZRCJmBWn0PSLWx5zRqfCmcZbGF0sJfztKQpniwZx7HEsLP64wi1G7vNYzmGc1PygWeMmzFh4yxQfY/Pgs3qM0QGMFtEUYIgz4QdRAz2ONYVUjPxeuy1fnduBoRdJsmIEMOn+ALJBMzqc2jOhO2pmZkrW3JuLCM/tcaOg3zljF31FdYV3zo1M0TCuTmq+ue+PE4QNmzp6ZNCHxThEWy3+6h9+dTRMarMpEr2tGH1qSMUGrZMmNC7+TSj1wrfJzxtFdj84mIzeF+MZTV3zg2PCOMmrrF5x69qYQC/yv/KfpwbHh3GjQubc7ZMCwveMgAnAmHceNqq7u74MaUmiFge/jPxZitcszuvMPqmJ84NDzzjxpcinLNlWljwlgE4EQjjxoU9MSi9rlnwevtf2Y5x48J+gKiz4Cn06l6+NMIeNyaHMXtWr34ORxm/lrLA6g8DRIxmDHmTKte8f+7bS61frGPcuLAbpK3SxIK347ta2qq8RGuLGePCuHFhI0uLllnwanAfP23VhV2L6yXruoUtr+fjY12WFUXKAGZmKktgL1VpKWKWBmp+PLJUAVZ/HOGY0lumPeASqtabceMzdo2txepY8BBmECUI8kzY1h7HmprSWwCRP1muf768aEgnjBsXdqJo3QILniK+TtqqXlE+yrUVT57cFEqMGxe2IWrFUxa8gJVlB0r9Q/7a6sv2krZBfMZeUY8fhqkpbNjSEzv56AyX1swPlraK2316LYxMxo3P2IyxhepZ8BaCOA0K48aFPS0k/Y5Z8PpHuK4l48aF/QAxZ8F7AOifDpFx42mr6dWtvsL1o4jl4T+ffkt1OmB3Xmf3S5s5Nzy8jBtfinDOlmlhwVsG4EQgjBsX9sSg9Lpmwevtf2U7xo0L+wGizoKn0Kv71dIIe9yYc8HsWb36ORxZeiqrPwzgaas1Sr5NXVvYnrZaE4LP2DVWFqtrC7sE62mrOx8u7FIXS551CxvSUGVZUbyO9rTVObHtDt4ceFO99nAT1seetpri5DN2omLdwpmwPW31GDsX9pGT5Wqawva01Wq8XNhVWtaqbAobtvTETj66tq5u31H78p9k6RhtJtg/AWP1tdGOtp62WuPpgnVNYV/wekcuiXHjM/YIi5NsWfAmwVnKLePGhb1UmOpgWPDq1t+rlnHjaatXSNH0azim2a5yf7M7bxV8M3E4N5x9xo0vRThny7Sw4C0DcCIQxo0Le2JQel2z4PX2v7Id48aF/QBRZ8FT6NX9ammEPWtPW1W2vvh4FrwvhrOUuzY3nrZaC5bP2DVWFqtrC7sE62mrOx8u7FIXS551C9vTVlP8XNiJinULPcL2tNUyfi7sko8lz86E7Wmrx7C5sI+cLFfTFLanrVbj5cKu0rJWZVPYsKUndvLRlNPqNiC197TVT4l6M3if4vFxBnVueKwYNz5jc86WaWHBWwbgRCCMGxf2xKD0umbB6+1/ZTvGjaetesrnMeXzCpyscjezO28VfDNxODecfcaNL0U4Z8u0sOAtA3AiEMaNC3tiUHpds+D19r+yHeNmF7bsbcKvCCUiWL3+FVfdMNUOFfvqXqraw5EBVBM6DuzLrpiaOYpbrxePV+UmXGNFM/jzC7f0J/2QkVxm3Nyen27b7X7f7oWw42b9oT4O+Pa83e/37SkJm9nblEr+x98ZwN2jHUf/Wqv8HUAdUzDk+ufntwgW/1agHUf7ZqJyiV0Tq889c8n6y/jquHNPLF2TG8aj1Lfigsxs4YtvWbOfxaXI8UdL9uZa/dv2fH/e3qqvcmv20S1knlWB3PpXRY+XmhnZvEdhmx+IlFkdnzaWn7awS+vH48ZqZpKw357vW5gMO4WdHsXFE6EMhpx1Bw9uEBk7PTRkECOY4AXs5bwXT+gb/meJ1xZWr+3mCDi6cEP3a3NjeYwzedxybN3wQhHjZmzGRuF0CjvFR+zTsiHVpgIDmAxUlHCDnAkkiBjscaztBE+2tcRrC6vX9ny0OM5w55576crcbFuLR1xGWlba3AwIu7yThOzwKadMs1YvwciXgsIcms+C96ipmaO4gZJUvCo3+wW2hC0PYa4Z6c+4GRB24nkv9MzYL8/7siX0aN99DGDoWvUVpnB4CsiNF9ewzH4AT75aRjyrzz3DU6F2JxdPC8ANXbF4SW7SBVoeX7aXF21sa0asGDefK+ytnOVrMdZLYABDO2zpiZ18dKzwmLfrMWrfj0dx8UelDUjukUoUB6z1b7fmF0cZ65LcZJIOT3mZpW2ck7kpMG6isI31hFMGcAKU5Vw6NzwkjBsXNudsmRYWvGUATgTCuHFhTwxKr2sWvN7+V7Zj3Hjaqu7u+DGta0UsD/9Z5W5md94q+GbicG44+4wbX4pwzpZpYcFbBuBEIIwbF/bEoPS6ZsHr7X9lO8bNLuxK6mAgg9Xr623dTFbmRu2139lerfqz+9XSH/aKMa+gur/dGgewFEV2Tay+6NzYrya4TfdwyoKntuxaV+cm4K/wiPvYi6atRuoPaa4aknxsB280/ZPbl+msrfTI+DLnkLrL6vO15BLH4WmrjEepb8Ulsyslppu4FGFv0Wr1o2mrLfsMkgHMFrn0eKmZO/ZR3HrF1+bGamySsMfTVltprho6fudli1iSPIuYsdeVJQf2MkJ6bLOsv4NDS7wasHptN0fA0YUbuncLe9QH2Iu7OdxYHuNMXlt2AidaZNyMzdijaaun9gqvT9iBeBDkmUCsffYWoggJVEWLObHEazOr1/Z8tDjOcOeee4kFD+1GfVh7HOsrU3p5Lo4g+pIkqPJOErLDp/gCicHusc90ngVvNP2zap/dhZLYBPgyc+n13PSfb6kxXpPWydHUkzGqOPCGjzMlfvFFL1K+Kjf7dRoezcWnGJl6PWXcjM3YOpocJZCFqKWyAbJqnwdkAIMF6xvEpF805EbytNXE6OrcJKBWMw+RtprQkxshtzeFDVtjYicfvafCI9Wux6h9+RTRMTKKWskSrzasXtvLrcgu3NAVi5fkJl3gkUeZpS1fydwUGDdxxjbWE04ZwAlQlnPp3PCQMG5c2JyzZVpY8JYBOBEI48aFPTEova5Z8Hr7X9mOceNpq2k3JK/rhCz/PDgHq9zN7M5bBd9MHM4NZ59x40sRztkyLSx4ywCcCIRx48KeGJRe1yx4vf2vbMe42YVdSR0MZLB6zSuwG8EVe9xnvll7YJwBVBMcp3hLB3vWWM/sWb36ORwr1xRsWL0ZgPojuE33cHpVbhiPuI+9ZtqqvP1KuR3wZrASvXbwRtM/ub2nra7CTXxZVk0L1rfJFaGYKqabuBQ5vv3Z+9fqW2mo1h7P3yPs8mpG0z+TPQ5T3HTYYMt4DdjG6tGmLCccH5wrgl5GfSR7HORLubE8ik4mCHs0bXXPFJOtI5tchEyeJ/okayBdHvPF6sYIJvQBezlPS4P0JEkjk4IlXs1YvbabI+Dowg3d2awEJntx1AfYywBzuLE8xpncpkkcLnavYNyMzdgoHCGlUJU4MiAL4nbAhy4RMAOI1xOIB0GeCcTa41hfmZppcZzhLnB2ZPeJ/agPa1/4lLg1fhk325p4pwZWnwyg0LJdMm11J7sQMt4YcGlSPBP2aPpn1d74FJuALwRSX0jYJwsj3tSTMao4DA8iMvzia2Belpv9Og2P5uJTjEy9njLdjM3YOpocJZCFaqXSgJRv/mBTDXIckwEMzVVfEUOaWWANz+z911ZJ3CR0/b+MG0N2jHdqMDpI9bWCtcEf0O0AAAbUSURBVH2QtFURs4g2fEDk9hKbwoatMR1LhwqPVLseo/bl+k3HsFjKc0u8trJ6bZe43/O1R4zqs4obumLxktykCzzyiJpRvpK5KTBu4oxtrCecMoAToCzn0rnhIWHcuLA5Z8u0sOAtA3AiEMaNC3tiUHpds+D19r+yHePG01Z1/e/Hw/cBEc3Dfla5m9mdtwq+mTicG84+48aXIpyzZVpY8JYBOBEI48aFPTEova5Z8Hr7X9mOcbMLW/Zb4VV1IoLV6ytcu8lYscc9yVYKIgOoWOi+L+wV49s7Zs/q1c/hWLmmYMPqzQDUH8FtuofTq3LDeOzVjPRn3Nyen27brZo6WKuPtB9+PTW++KiO05epxQDuHnmqZf1XS7m9p62uws37NdMUtgrnXpux7SvyYDyStirgP0LYO0r9f0q17My5SPY6gBzltXv1mtFIysc3Y7sFq7f983nC0Ylbe7ZverXaj6M+kj0O86XcWB77NSOQGTdxjW0H16s81o+lrca7Mm4b4VJBPeiRAdT2dATS5TFfrIaMYEIfsJfztDToErX0OHKwY2H1e+vh/4CjCzcMcG1uLI/9mhGKGDdjwkbhSKAKVYkbCxKiI22NnGwGEEcIogRBngnE2uNYnrb6VP9eJSRJbFNyWcGaOWHxZvWmezht2bY1I92ZbgaEXd5JMmD4FOJugWz/wXcGUKmQLxSHGR9vtDgbq03VXgeLR7EJ8EMg9WWEp60KPV/BzR6Gn9eM9Ge6GRB2VIMeumbs/hREBjC4q/qyM4vceP5rqxqectZdkJsE1Aq7XzMyBNPNJwt7v/PFuXyKyT1d2F5gAEMrbI3ZscJyw67hqX351GnhyfAs8drC6rU9THv7U02fbsBBFTd0xeIluUkXeORRnhY2zsncFBg3UdjGesIpAzgBynIunRseEsaNC5tztkwLC94yACcCYdy4sCcGpdc1C15v/yvbMW48bRXWv0KSfy7CwSp3M7vzVsE3E4dzw9ln3PhShHO2TAsL3jIAJwJh3LiwJwal1zULXm//K9sxblzYDxB1FjyFTvfEYT9f38hKH2bP6tXP4SjjQ4pDamf1yQAKFVvcx26lOssojBsXNnC8apEFb8fL01DXTumNL8vekerswl5VsZ242sIuB0lpqI08GuyR7LFSUhhqMzHahPLxreFuwuoPA1QS50TwfanOMhrjxmfsGteL1bHgHWCCIGVZUaQMGKGHvmAv52kp0iVq6cEEzOoPiCtjlGkPuISq9WbcuLBrbC1Wx4KHMIMoQZBnwrb2OFaZQFW0mBMmYFZvuofTlu2701ZrDr+2rid4X4toHW9n3MiXrcPMZmZoEbLaVO3N5YrNZ6f07i5bwob0WYNPTxk3PmMrQwsfWfAC5EdN6U18W2F/aNpq8jKt0AzeNFRrOG5yA1t6YicfXVuH5Uas09ma/wJsubbVMdoMWFGqNavXdjwebXG77wwH48ZnbOR40TIL3qJwvxQW48aF/aVh+DlnLHg/N9q1ejFuXNgPEGcWvAeA/ukQGTeetuqpqtdM1f30W6rTAbvzOrtf2sy54eFl3PhShHO2TAsL3jIAJwJh3LiwJwal1zULXm//K9sxbnZhV1IHAxmsXvMK7CZjxb66l1phmgFUUzoO7OOmvVrFZ/dwG/Xq53CsXFOwYfVmgFHcpns4vSo3jEfcx/7ptNVP/bXVIvjyAsD+ylIOYzt4j5qaOYo784Gla3ITXwh9btrq8e3PTmytvv/XVmW2srMonvcHDy0lfyDeII18COyR7LHSZLZhU1mucSAWrL7sjWcJRydu7dsWtlrtx1EfyR6H+VJuLI8i+A9LW7WD61Ue64d+bbWYsfeElncLG0iXG6dYDRnBhKsAezlPSwPIhNOrrR+PHOx2rL4+SsiYiz67cMMw3cKGa+3yAfbibg43lsfy1T7Ti9LDuIlfHu3g2s3Uo3CElEJV0sfYSw3+XNX9Xszg6kWODCDaBOJBkGfBs/Y41lemZlocZ7gLnBfnpqaZfP3vTls9CnIfHOvLO0mEGD6FuNE+w9NSSoXUCjieCVv6Hu5evNHijKM2VXvwJ8WER25SvZ7DTx2zazL1ZIwqjgZuAzGcXpWb/VoNj4aAFCNTr6eMm7EZW0eTY9eMDSmIYg+zLQ4lZQYw2FV9RQzpd5zlxvNfW028hhtN16oLcpOAWmGDZk5+U72lm08WNi5FlOR0RUWhKWxZq6cZ9YFSM0dxF4zkk0tyky7PChs1k1Nwk7kpMG6isI31hFMGcAKU5Vw6NzwkjBsXNudsmRYWvGUATgTCuHFhTwxKr2sWvN7+V7Zj3Hjaqlm7C1H+eXwO/h/LFELMEJGUcgAAAABJRU5ErkJggg==" />
 
여기서 중간에 숫자를 지웠다가 다시 쓰면 제일 큰숫자로 넘어가는데 그 지워진 숫자를 채우고 넘어가게 할수있을까요..?

공감

0명

c571****

회원등급 : 4레벨

포인트 : 224 EP

총질문 : 23 개 (마감율 : 43%)

채택답변 : 0 개

게시글

중간에 숫자 찾아서 입력 방법 좀 부탁드립니다.. (6)
2023.11.20
엑셀 함수좀 도와주세요 ㅜㅜ (9)
2023.11.20
시트 번역을 하고 싶습니다 (1)
2023.08.23
시트 번역을 하고싶습니다 (1)
2023.08.10
함수 인식이 안되는 이유를 모르겠습니다 (3)
2023.07.11

전체 6

김재규 님 114

2023-11-21 14:52
@c571**** 님 시트명: 23년 11월
```
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim rLastCell As Range, lLastRow As Long, lLastCol As Long
    Dim iStartRow As Integer, rng As Range
    Dim rDate As Range, rNum As Range
    
    Set rLastCell = ActiveCell.SpecialCells(xlLastCell)
    lLastRow = rLastCell.Row
    iStartRow = 8
    lLastCol = Cells(iStartRow, 1).End(xlToRight).Column
    Set rng = Cells(iStartRow + 1, 1).Resize(lLastRow - iStartRow, lLastCol)
    Set rDate = rng.Columns(3)
    Set rNum = rng.Columns(2)
    
    If Intersect(Target, rDate) Is Nothing Then Exit Sub
    Select Case VarType(Target)
        Case vbDate
            Target.Offset(0, -1).Value = WorksheetFunction.Max(rNum) + 1
        Case vbEmpty
            Application.DisplayAlerts = False
            With Target.Offset(0, -1)
                .Value = .Value
            End With
            Application.DisplayAlerts = True
        Case Else
    End Select
 
End Sub
```
- c571**** 님 작성자
  
  2023-11-21 15:48
  
  @김재규 님 안되는거 같습니다... ㅜ
  - 김재규 님 114
    
    2023-11-22 10:12
    
    @c571**** 님 첨부파일 참조
    
    첨부파일 : 23년-2월-수입검사-QC대조리스트22년08월부터_Rev02_임한울_20231120-수정.xlsm
    
    c571**** 님 작성자
    
    2023-11-22 10:28
    
    @김재규 님 제가 설명을 잘못해서 죄송합니다
    
    저는 예를 들어 10번까지 숫자가 채워졌는데 7번을 지우고 다른 곳에 기입을 하면 7번이 채워지고 11번부터 다시 카운팅이 되게 하고싶습니다.. ㅜㅜ
    
    삭제된 댓글입니다.
    
    김재규 님 114
    
    2023-11-22 14:37
    
    @c571**** 님 첨부 참조
    
    C열 날짜 삭제-->B열 셀주소/숫자 임의 장소 저장 후 삭제
    
    C열 새로운 날짜 입력-->임의 장소에 있던 숫자 해당 셀에 복원 및 임의 장소 셀주소/숫자 삭제
    
    첨부파일 : 23년-2월-수입검사-QC대조리스트22년08월부터_Rev02_임한울_20231120-수정-2.xlsm

« 피벗테이블

특정조건에 해당되는 표준편차 구하기 도움 부탁드립니다~ »

목록보기

전체 13,306

번호	카테고리	제목	작성자	작성일	추천	조회
알림		[📚교재 출간 안내] 「진짜쓰는 실무엑셀」 , 드디어 출간되었습니다! (235) 오빠두엑셀 \| 2022.02.03 \| 추천 514 \| 조회 259430	오빠두엑셀	2022.02.03	514	259430

공지사항	문서서식	⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (197) 오빠두엑셀 \| 2021.10.28 \| 추천 280 \| 조회 17671	오빠두엑셀	2021.10.28	280	17671
64367	VBA	New 특정셀에 여러 변수 값을 대입하여 나오는 계산 값을 변수에 맞게 한번에 출력되게 하는 방법이 있을까요?? 박재관 \| 16:01 \| 추천 0 \| 조회 7	박재관	16:01	-	7
64366	문서서식	New 전체인쇄와 시트1개 인쇄시 이미지 품질 저하문제 (2) 코코마 \| 15:23 \| 추천 0 \| 조회 13	코코마	15:23	-	13
64360	함수/공식	New 각 열의 텍스트를 비교하여 일치율에 따라 관련열 값 가져오기 (1) 요코하마박 \| 13:50 \| 추천 0 \| 조회 24	요코하마박	13:50	-	24
64359	구글시트	New 엑셀 또는 구글시트 - 다른시트 데이터의 새로운값만 순차적으로 가져오는방법.. (3) myyh**** \| 13:42 \| 추천 0 \| 조회 21	myyh****	13:42	-	21
64355	함수/공식	New sumifs 문의 드립니다. (2) 답변완료 sarangh**** \| 12:43 \| 추천 0 \| 조회 21	sarangh****	12:43	-	21
64353	함수/공식	New 엑셀 수식이 안 먹어요~ (2) 안녕 \| 11:40 \| 추천 0 \| 조회 35	안녕	11:40	-	35
64352	VBA	New 명령단추 클릭시 색상변경 (1) 본아이디 \| 11:39 \| 추천 0 \| 조회 20	본아이디	11:39	-	20
64351	VBA	New Sendkey 초기화 관련 문의 임정호 \| 11:27 \| 추천 0 \| 조회 18	임정호	11:27	-	18
64340	함수/공식	New 셀 값을 변경하는 수식 사용 중에 작동이 안돼서 문의드립니다. (4) 슈바츠론 \| 09:35 \| 추천 0 \| 조회 27	슈바츠론	09:35	-	27
64333	함수/공식	New 실시간 데이터 연동 방법 좀 알려주실 수 있나요?? (2) dfgkdflglkdf \| 00:27 \| 추천 0 \| 조회 40	dfgkdflglkdf	00:27	-	40
64329	함수/공식	New IF와 VLOOKUP을 같이써서 처리를 해야하는 셀인데 어떻게 해야 맞는지 모르겠네요 ㅠㅠ... (1) fkdn**** \| 2023.11.29 \| 추천 0 \| 조회 52	fkdn****	2023.11.29	-	52
64327	함수/공식	New 몇주째 도저히 모르겠습니다ㅜㅜ 일별/주간/월별 데이터 불러올 함수 알려주실분 꼭 부탁드립니다. (5) 답변완료 shin**** \| 2023.11.29 \| 추천 0 \| 조회 83	shin****	2023.11.29	-	83
64326	구글시트	New 엑셀이나 구글시트에서 특정 데이터를 입력하면 표시,금지 할수있는 방법을 알수있을까요 ? (2) 다운이남편 \| 2023.11.29 \| 추천 0 \| 조회 37	다운이남편	2023.11.29	-	37
64325	함수/공식	New 엑셀함수관련 문의드립니다 기초적인부분이지만 해결방법이 궁금합니다 (3) 답변완료 gnsdlgns \| 2023.11.29 \| 추천 0 \| 조회 46	gnsdlgns	2023.11.29	-	46
64320	파워쿼리/피벗	New 파워쿼리 엑셀 파일 불러오기 액세스 거부 ㅜㅠ (1) 방글당근 \| 2023.11.29 \| 추천 0 \| 조회 38	방글당근	2023.11.29	-	38
64317	VBA	New 집계함수를 반영하니 계산시간이 많이 걸립니다 다른방법이 없는지요 (3) 슈토파이터 \| 2023.11.29 \| 추천 0 \| 조회 57	슈토파이터	2023.11.29	-	57
64316	문서서식	New 조건부서식 하나가 막히는 데 도와주세요 수캄 \| 2023.11.29 \| 추천 0 \| 조회 47	수캄	2023.11.29	-	47
64312	함수/공식	New 특정 텍스트 추출 (4) ggplay**** \| 2023.11.29 \| 추천 0 \| 조회 69	ggplay****	2023.11.29	-	69
64311	함수/공식	New 함수 문의 (1) 비갠오후 \| 2023.11.29 \| 추천 0 \| 조회 49	비갠오후	2023.11.29	-	49
64310	함수/공식	New 기간 중복을 제외하고 주당 사용 일수 계산 문의드립니다. (2) 함수시르미 \| 2023.11.29 \| 추천 0 \| 조회 29	함수시르미	2023.11.29	-	29
64294	함수/공식	New 표준편차 계산시 특정월의 데이터만 계산하고 싶습니다 (2) 전설 \| 2023.11.29 \| 추천 0 \| 조회 37	전설	2023.11.29	-	37
64292	함수/공식	New 다중조건으로 다른문서 데이터 가져오기 (4) 답변완료 abc472091z \| 2023.11.29 \| 추천 0 \| 조회 50	abc472091z	2023.11.29	-	50
64287	차트/그래프	New 자동 생성/변경 차트 문의 (1) 나짱보이 \| 2023.11.28 \| 추천 0 \| 조회 42	나짱보이	2023.11.28	-	42
64286	함수/공식	New SUMIF 함수 문의드립니다. !! (2) 김태훈 \| 2023.11.28 \| 추천 0 \| 조회 61	김태훈	2023.11.28	-	61
64281	VBA	New 거래처 조회 (7) 슈토파이터 \| 2023.11.28 \| 추천 0 \| 조회 75	슈토파이터	2023.11.28	-	75
64278	피벗테이블	New 피벗테이블를 이용하여 차트 만들 때 평균을 표시하고 싶습니다~! (5) 답변완료 션 \| 2023.11.28 \| 추천 0 \| 조회 55	션	2023.11.28	-	55
64266	함수/공식	New 엑셀 수식 수정 어떻게 해야될까요?? (1) 편안하게 \| 2023.11.28 \| 추천 0 \| 조회 65	편안하게	2023.11.28	-	65
64263	기능/도구	New 인쇄 영역 음영 구분하여 자동 설정 할 수 있는 방법이 있을까요? (2) 답변완료 르밍 \| 2023.11.28 \| 추천 0 \| 조회 43	르밍	2023.11.28	-	43
64257	함수/공식	New DATA가 열방향일때의 월별 DATA를 구하고 싶습니다. (3) 전설 \| 2023.11.28 \| 추천 0 \| 조회 52	전설	2023.11.28	-	52
64251	함수/공식	New 맨 밑 행부터 몇 개까지 같은 값인지 알고싶습니다 (6) 답변완료 노창복 \| 2023.11.27 \| 추천 0 \| 조회 83	노창복	2023.11.27	-	83