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

[µo°Ý] ¦h±ø¥ó¬d¸ß³]©wªº°ÝÃD

[µo°Ý] ¦h±ø¥ó¬d¸ß³]©wªº°ÝÃD

½Ð±Ð¦U¦ì¥ý¶i,ªí³æ¦h±ø¥ó³]©w,¦p¦ó³]¬°,[ªÅ¥Õ±ø¥ó]¬°¥þ³¡,¨Ò,[¥«³õ]ªÅ¥Õ=¥þ³¡.¤T­Ó±ø¥ó³£ªÅ¥Õ,ªí¥Ü¥þ³¡¬d¸ß,ÁÂÁÂ.
¦h±ø¥ó¬d¸ß.jpg

¦h±ø¥ó¬d¸ß.rar (27.82 KB)

§ù¤p¥­

¦^´_ 16# hcm19522 ·PÁÂhcm19522¤j¤j¤£¥ÎVBA¤]¯à¹F¦¨,¦n¦n¾Ç²ß.
§ù¤p¥­

TOP

ÀH·NºÛ "EXCEL°g"  blog  ©Îhttps://hcm19522.blogspot.com/ EXCEL¨ç¼Æ

TOP

¦^´_ 14# dou10801

A20~A60

T=arr(i, 1):  V=val(mid(T,2))
if left(T, 1) <> "A" or V < 20 or V > 60 then goto i01

TOP

¦^´_ 12# ­ã´£³¡ªL

©ú&#32454;.rar (8.79 KB)

§ù¤p¥­

TOP

¦^´_ 12# ­ã´£³¡ªL ½Ð±Ð­ã´£¤j¤j,¦pªG¬O¦r¦ê¦p¦ó¤U±ø¥ó,[¨Ò]«È¤á½s¸¹±qA01-A100,§Ú­n§äA20-A60ªº¸ê®Æ,­n«ç»ò§PÂ_,·P®¦.
§ù¤p¥­

TOP

¦^´_ 11# dou10801


²³æ°µ¤@­Ó:
1) ¥u¿é¤J¶}©l¤é´Á:¨ú¥X>=«ü©w¤é´Á¸ê®Æ
2) ¥u¿é¤Jµ²§ô¤é´Á:¨ú¥X<=«ü©w¤é´Á¸ê®Æ
3) ¨âºØ³£¦³:¨ú¥X>=¤Î<=°Ï¶¡¸ê®Æ, ª`·N:¨â­Ó¤é´Á¤£¥i­Ë¿ù, §Yµ²§ô¤é´Á¤£¥i¤p¤_¶}©l¤é´Á; ­Y¨â­Ó¤é´Á¬Û¦P=¥u¨ú¦P¤@¤Ñ¸ê®Æ
4) ¨âºØ³£ªÅ:¤£¤ñ¸û¤é´Á, µø¬°¤é´Á³£²Å¦X, ¶È¤ñ¹ï¨ä¥¦±ø¥ó

Sub TEST()
Dim Arr, D1, D2, X, i&, j%, N&
Sheets(2).UsedRange.ClearContents
D1 = [j2]: D2 = [k2]: X = [L2:N2]
Arr = Range([i1], [a65536].End(xlUp))
For i = 2 To UBound(Arr)
    If IsDate(D1) Then If CDate(Arr(i, 9)) < D1 Then GoTo i01
    If IsDate(D2) Then If CDate(Arr(i, 9)) > D2 Then GoTo i01
    For j = 1 To 3
        If X(1, j) <> "" And X(1, j) <> Arr(i, Mid(135, j, 1)) Then GoTo i01
    Next j
    N = N + 1
    For j = 1 To UBound(Arr, 2): Arr(N + 1, j) = Arr(i, j): Next
i01: Next i
If N > 0 Then Sheets(2).[a1].Resize(N + 1, UBound(Arr, 2)) = Arr
End Sub


'============================

TOP

¦^´_ 3# ­ã´£³¡ªL ¾Ç²ß­ã´£³¡ªL¤j®vªº±Æ°£ªk,¼W¥[¨â­ÓIF§PÂ_¤é´Á°Ï¶¡,¤]¥i¹F¦¨,°Ï´Á¤é´Á+¦h±ø¥ó§PÂ_,·P®¦.
§ù¤p¥­

TOP

¦^´_ 9# n7822123
·PÁ«üÂI¡A¤é´Á§PÂ_+link¤ñ¹ï¡A¹F¦¨§Ú¶·¨D·P®¦¡A­ì¥ý¥H¬°link¥i¥H°Ï¶¡§PÂ_¤é´Á¡A¥ý¦bÀ´¤F¡AÁÂÁ¡C
§ù¤p¥­

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2021-7-24 00:52 ½s¿è

¦^´_ 8# dou10801


§AªºIÄæ¨Ã«D¥¿±`ªº¤é´Á®æ¦¡¡A¬O¦r¦ê

¥¿±`ªº¤é´Á¬O¥i¥H¥[´î¹Bºâªº¡AEx:  A = #7/24/2021#   ,  Msgbox A+1    '2021/7/25

­n¥ýÂন¤é´Á®æ¦¡¡A¦A¤ñ¤j¤p´N¦n¤F



¤é´Á¦Û = Cells(2, "J")
¤é´Á¤î = Cells(2, "K")
For R = 2 To UBound(MA1) + 1
   T = Cells(R, "I")
   ¤é´ÁStr = Left(T, 7) & "/" & Right(T, 2)
   ¤é´Á = CDate(¤é´ÁStr)   '¦r¦ê => ¤é´Á
  If ¤é´Á >= ¤é´Á¦Û And ¤é´Á <= ¤é´Á¤î Then   '·j´M
    '===========
    '-----§Aªºµ{¦¡-----
    '===========
  End If
Next
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD