Standart olmayan tarih / saat verilerinin bir Excel elektronik tablo hücresinde ayrıştırılması

Bu konuda bir tavsiyeyi her şeyden çok arıyorum. İşyerindeki her yer için mağaza saatleri içeren bir elektronik tablom var. Formatlar bundan farklı olabilir:

"Mon-Sat 9:30am-9:00pm 
Sunday 11:00am-6:00pm"

Bunun aşırı noktasına:

"Mon-Thurs 9:30am-9:00pm 
Fri & Sat 9:30am-11:00pm
Sunday 9:30am-6:00pm
Stat Hol 11:00am-6:00pm"

Bu hücrenin önceliği insan tarafından okunabilir biçimde olmalıdır, ancak haftanın her günü için mağazanın hangi saatte kapandığını (her zaman 6:00, 9:00 veya 11:00) göstermek için bu verileri ayrıştırmam gerekiyor.

Bu verileri Excel'in beğendiği bir tarih / saat biçiminde değiştirmek daha iyi, daha sonra insan tarafından okunabilir hücre için bir araya getirecek mi, yoksa bu kapanma zamanlarını biçimini değiştirmeden almak için mevcut verileri ayrıştırmak mümkün mü (veya hatta tercih edilir)? ?

Burada, verileri gösterdiğiniz biçimlerde ayrıştırabilen ve "boşlukları doldurabilen" Kullanıcı Tanımlı bir işlevdir. Haftanın her günü için bir kez artı "hol" için bir giriş - bir değerler dizisi döndürür. Belirli bir günün kapanma süresi tanımlanmadıysa, öğe boş bir dize içerecektir "".

Bu formülü kullanmak için, =ClosingTime($B2)yatay bir sekiz hücre aralığında dizi formülü olarak girersiniz . Aşağıdaki örnekte, içindeki formülü girersiniz C2. Ardından seçin C2:J2. Son olarak, ctrl+shiftvururken basılı tutarak onaylayın enter. Daha sonra, c2:j2seçili durumdayken, istediğiniz kadar konum için aşağı sürükleyebilirsiniz.

UDF, verileri ayrıştırmak için normal bir ifade kullanır. Bir satırda iki hafta içi isim varsa, aralarındaki günleri aynı kapanış saatiyle doldurur; sadece bir hafta içi gün, o zaman sadece hafta içi o doldurur.

Bu Kullanıcı Tanımlı İşlevi (UDF) girmek için alt-F11, Visual Basic Düzenleyicisi'ni açar. Projenizi Proje Gezgini penceresinde vurguladığınızdan emin olun. Ardından, üst menüden Ekle / Modül'ü seçin ve aşağıdaki kodu açılan pencereye yapıştırın.

Option Explicit
Function ClosingTime(S As String)
    Dim RE As Object, MC As Object, M As Object
    Const sPat As String = "(?:(?:\b(mon|tue|wed|thu|fri|sat|sun|hol).*\b(mon|tue|wed|thu|fri|sat|sun|hol))|\b(mon|tue|wed|thu|fri|sat|sun|hol)).*?(\b\d+:?\d*)p"
    Dim arWkDays As Variant
    Dim I As Long, J As Long
    Dim sTemp As String
    Dim V(0 To 7) As Variant

For I = 0 To 7
    V(I) = ""
Next I

arWkDays = VBA.Array("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Hol")

Set RE = CreateObject("vbscript.regexp")
With RE
    .Global = True
    .MultiLine = True
    .ignorecase = True
    .Pattern = sPat
    If .test(S) = True Then
        Set MC = .Execute(S)
        For Each M In MC
            With WorksheetFunction
            'submatches 0-1 is range; 2 is single day; 3 is the closing time
            If M.submatches(0) <> "" And M.submatches(1) <> "" Then
                For I = .Match(M.submatches(0), arWkDays, 0) To .Match(M.submatches(1), arWkDays, 0)
                    V(I - 1) = CDate(M.submatches(3) & "PM")
                Next I
            ElseIf M.submatches(2) <> "" Then
                V(.Match(M.submatches(2), arWkDays, 0) - 1) = CDate(M.submatches(3) & "PM")
            End If
            End With
        Next M
    End If
End With

ClosingTime = V

End Function

Kavramı göstermek için bir şeyi bir araya getirdim. Bunun, dizi formülleriyle büyük ölçüde uyumlu olabileceğine eminim, ancak hızlı ve takip etmesi kolay gidiyordum.

Yapının açıklaması

A ve B sütunları örnek verilerinizdir. Her satıra mağaza kimliğini eklediğimi unutmayın. Verilerin şifrelenmesi durumunda bu iyi bir uygulamadır ancak gerekli değildir. Her mağaza için günlere göre kapanma süreleri istiyorsunuz ve mağazalarda çok sayıda kayıt var, bu yüzden sonunda her gün bir giriş içerecek bir mağaza özet satırı ekledim. Özet satırları çıktınızın ayrı bir "raporunda" olabilir.

Görev, günlük bilgileri kullanılabilir forma dönüştürmeyi gerektirir ve bu bir karışıklıktır. Kayıtlarınızı ayrıştırmak için formül yazmaya çalışmak, çeşitli biçimlerde verilen bir kabustur. Bunun yerine kullandığım yaklaşım, karşılaştığınız sırada bir "gün" ifadeleri listesi oluşturmak ve her bir cümleyi bir kez elle çevirmektir.

Bu aynı zamanda en düşük ortak payda öbeklerini kullanarak birkaç girdi kaydetmenizi sağlar. Örneğin, ilk örnekte üç harfli gün kısaltmaları kullandınız, ikincisinde ise "Perşembe" kullandınız. "Pzt-Per" kullanmak her iki durumda da eşleşir.

Gün aralıklarınızın çoğu tirelenir, ancak "Fri & Sat" için "&" kullandınız. Ayrıca bir "Fri-Sat" olabileceği ihtimaline göre, listeye yeni bir giriş yaptım.

Büyük küçük harflerin tümü aynı değilse, el ile temizleyebilir veya her şeyi büyük veya küçük harfe zorlamak için metin işlevlerini kullanabilirsiniz.

Bu ekran görüntüsünde bazı sütunları geçici olarak gizledim. Gün tümcesi listesi, 1. satırdaki gün ifadeleriyle birlikte N sütununda başlar. İhtiyaç duyduğunuzda bir sonraki sütuna başka bir cümle ekleyin. Satır 2, standart Excel günü numaralandırmasını kullanarak ifadeyle ilişkilendirilmiş gün listesini içerir. 0 gün tatil yaptım (Ekran görüntüsümde görünmediğini görüyorum, ancak S2 olur 0. Pzt / Çar / Cuma 246 olur.

İlk formül

Günlük çevirilerin altındaki hücrelerin tümü aynı formülü kullanır, bu nedenle gerektiği gibi kopyalayıp yapıştırın:

=IF(ISERROR(FIND(N$1,$B3)),"",N$2)

Bu, o satırın program kaydındaki sütun başlığının gün ifadesini arar. İfade bulunursa, hücre dahil edilen gün listesini satır 2'den alır, aksi takdirde boştur. Bu yüzden her bir program kaydı için bir cümlenin eşleşmesi gerekir ve bu satır için gösterilecek olan günlük listedir.

Yardımcı Sütunlar

Bu ekran görüntüsü, açıklamayı basit tutmak için iki yardımcı sütun ortaya koyuyor. L sütunu gün listesini özetler. Sadece bir eşleşen giriş olacak ve bu sadece onu birleştiriyor. L3 hücresi şunları içerir:

=SUM(N3:AB3)

Aralığı istediğiniz kadar büyük yapabilirsiniz, böylece her gün ifadesini her eklediğinizde ayarlamanıza gerek kalmaz. Gerektiği gibi sütun aşağı kopyalanabilir.

K sütunu, program kaydından çıkarılan yakın süreyi içerir. L3'teki formül:

=IF(ISBLANK(B3),"",REPT(MID(B3,LEN(TRIM(B3))-5,1),IF(MID(B3,LEN(TRIM(B3))-5,1)="1",2,1))&":00pm")

Bunu ayrıştırmanın herhangi bir yöntemi dağınık olacaktır, çünkü zamanlar farklı rakamlara sahiptir. Bu formül kapanış saati birim hanesini bulur. Eğer öyleyse bu o bir kez kullanır 6veya 9ve tekrarlar 1zaman olup olmadığını 11. Daha sonra ": 00pm" i birleştirir. Bir ISBLANK testi ekledim, çünkü düzenimde bazı boş satırlar var.

Günlere göre kod çözme

Bu bizi sorunun etine getiriyor.

Bu ekran görüntüsü haftanın her günü ve tatiller için bir sütun ortaya koymaktadır. Yine, özet satırları dışındaki tüm hücreler için kullanılan tek bir formül vardır. C3 hücresi şunları içerir:

=IF(ISERROR(FIND(COLUMN()-3,$L3)),"",$K3)

Örneğim, üçüncü sütundaki günleri başlatıyor ve bunlardan ilki, 0. gün olarak kodlanan Tatiller. Bu formül, sütunla ilişkilendirilen gün sayısını hesaplar ve bu satırın gün listesinde olup olmadığını kontrol eder. Öyleyse, satır için çıkarılan zaman değerini alır, aksi takdirde boş bırakılır. Yani kaydın günü cümlesindeki her gün kaydın kapanma zamanını alıyor. O satırın programına dahil olmayan günler hiçbir şey alamaz.

Haftanın günlük programının tamamı, o mağaza için satırların birleştirilmesidir. Özet satırları başka bir yerde ise, her bir özete giden satırları tanımlamak için mağaza kimliğini kullanabilirsiniz.

Bu konsept demosu için özet satırından hoşlanmadım. C5 hücresi:

=C3&C4

C11 hücresi:

=C7&C8&C9&C10

Bu, satır sayısına göre otomatikleştirilebilir veya bileşen satırlarını birleştirmek yerine doğrudan özet satırı oluşturulabilir.

Bunun için Power Query Eklentisini kullanırdım. Excel 2016'dan itibaren Power Query, "Al ve Dönüştür" bölümünün altındaki Veri şeridinde yerleşik olarak bulunur.

Power Query, mevcut bir Excel Tablosundan başlayabilir. Önemli olan, en sağdaki sınırlayıcıyı bölmek için "Sütunu Sınırlayıcıya Göre Böl" seçeneğini kullanmaktır. Daha sonra dizenin zaman bölümlerini yeni Zaman sütunlarına bölerek geriye doğru çalışabilirsiniz.

Sorgu sonucu bir Excel Tablosu olarak teslim edilebilir. Bunu herhangi bir makro veya fonksiyon kodu yazmadan oluşturabilirsiniz - sadece Power Query penceresinde tıklayabilirsiniz.

OneDrive'ımdan indirebileceğiniz ve deneyebileceğiniz bir çalışma çözümü oluşturdum:

http://1drv.ms/1AzPAZp

Dosya: Power Query demo - Standart olmayan tarih saat verilerini ayrıştırma