Nhờ các a viết cho đoạn code cho file (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
A

alibaba2209

Thành viên thường trực
Tham gia
4/12/10
Bài viết
283
Được thích
13
như trong file! sheet "List BB" ô C2 có thời gian làm từ ngày mùng 1, 2, 3, e muốn nó xuất ra 3 ngày liên tục theo fom sheet "Xuat Tong Nhat Ky"
 

File đính kèm

Sắp xếp theo thời gian sắp xếp theo bầu chọn
Bạn đọc bài này thử xem: http://www.giaiphapexcel.com/forum/...-lại-công-việc-theo-ngày-(Nhật-ký-công-trình)
Không bạn dùng thử Code này xem sao
Mã: 
Sub Nhatky()
     Dim sArr(), dArr(1 To 65535, 1 To 5)
    Dim i As Long, j As Long, k As Long
    Dim Bd, Kt, Nt
   
With Sheets("List BB")
    sArr = .Range(.[C2], .[C65536].End(xlUp)).Resize(, 8).Value2
End With
For i = 1 To UBound(sArr, 1)
    Bd = sArr(i, 4): Kt = sArr(i, 6): Nt = sArr(i, 8)
    If sArr(i, 1) <> Empty Then
        For j = 1 To Kt - Bd + 1
            k = k + 1
            dArr(k, 1) = k
            dArr(k, 2) = Bd + j - 1
            dArr(k, 3) = sArr(i, 1)
            dArr(k, 4) = sArr(i, 2)
            dArr(k, 5) = sArr(i, 3)
        Next j
    End If
    If sArr(i, 1) <> Empty And sArr(i, 8) <> Empty Then
        k = k + 1
        dArr(k, 1) = k
        dArr(k, 2) = Nt
        dArr(k, 3) = "Nghi" & ChrW$(7879) & "m thu " & sArr(i, 1)
        dArr(k, 4) = sArr(i, 2)
        dArr(k, 5) = sArr(i, 3)
    End If
Next i
Sheets("Xuat Tong Nhat Ky").Range("A2:G65535").ClearContents
Sheets("Xuat Tong Nhat Ky").Resize(k, 5) = dArr()
End Sub
 
Chỉnh sửa lần cuối bởi điều hành viên:
Upvote 0
Sharava36 đã viết:
Bạn đọc bài này thử xem: http://www.giaiphapexcel.com/forum/...-lại-công-việc-theo-ngày-(Nhật-ký-công-trình)
Không bạn dùng thử Code này xem sao
Mã: 
Sub Nhatky()
     Dim sArr(), dArr(1 To 65535, 1 To 5)
    Dim i As Long, j As Long, k As Long
    Dim Bd, Kt, Nt
   
With Sheets("List BB")
    sArr = .Range(.[C2], .[C65536].End(xlUp)).Resize(, 8).Value2
End With
For i = 1 To UBound(sArr, 1)
    Bd = sArr(i, 4): Kt = sArr(i, 6): Nt = sArr(i, 8)
    If sArr(i, 1) <> Empty Then
        For j = 1 To Kt - Bd + 1
            k = k + 1
            dArr(k, 1) = k
            dArr(k, 2) = Bd + j - 1
            dArr(k, 3) = sArr(i, 1)
            dArr(k, 4) = sArr(i, 2)
            dArr(k, 5) = sArr(i, 3)
        Next j
    End If
    If sArr(i, 1) <> Empty And sArr(i, 8) <> Empty Then
        k = k + 1
        dArr(k, 1) = k
        dArr(k, 2) = Nt
        dArr(k, 3) = "Nghi" & ChrW$(7879) & "m thu " & sArr(i, 1)
        dArr(k, 4) = sArr(i, 2)
        dArr(k, 5) = sArr(i, 3)
    End If
Next i
Sheets("Xuat Tong Nhat Ky").Range("A2:G65535").ClearContents
Sheets("Xuat Tong Nhat Ky").Resize(k, 5) = dArr()
End Sub
Nhấp chuột vào đây để mở rộng...
code bị lỗi. Bạn xem dùm lại chút
 
Upvote 0
Xin lỗi mình nhầm. Bạn thay dòng này Sheets("Xuat Tong Nhat Ky")Resize(k, 5) = dArr lại như thế này Sheets("Xuat Tong Nhat Ky").Range("A2").Resize(k, 5) = dArr
 
Upvote 0
Sharava36 đã viết:
Xin lỗi mình nhầm. Bạn thay dòng này Sheets("Xuat Tong Nhat Ky")Resize(k, 5) = dArr lại như thế này Sheets("Xuat Tong Nhat Ky").Range("A2").Resize(k, 5) = dArr
Nhấp chuột vào đây để mở rộng...
[TABLE="width: 554"]
[TR]
[TD]01/01/2016[/TD]
[TD]Đá hộc xây vữa M100 móng, chân khay, sân cống[/TD]
[/TR]
[TR]
[TD]02/01/2016[/TD]
[TD]Đá hộc xây vữa M100 móng, chân khay, sân cống[/TD]
[/TR]
[TR]
[TD]03/01/2016[/TD]
[TD]Đá hộc xây vữa M100 móng, chân khay, sân cống[/TD]
[/TR]
[TR]
[TD]04/01/2016[/TD]
[TD]Nghiệm thu Đá hộc xây vữa M100 móng, chân khay, sân cống[/TD]
[/TR]
[TR]
[TD]02/01/2016[/TD]
[TD]Bê tông chèn ống cống M100[/TD]
[/TR]
[TR]
[TD]03/01/2016[/TD]
[TD]Bê tông chèn ống cống M100[/TD]
[/TR]
[TR]
[TD]04/01/2016[/TD]
[TD]Nghiệm thu Bê tông chèn ống cống M100[/TD]
[/TR]
[TR]
[TD]03/01/2016[/TD]
[TD]Lắp đặt ống cống D100[/TD]
[/TR]
[TR]
[TD]04/01/2016[/TD]
[TD]Lắp đặt ống cống D100[/TD]
[/TR]
[TR]
[TD]04/01/2016[/TD]
[TD]Nghiệm thu Lắp đặt ống cống D100[/TD]
[/TR]
[TR]
[TD]04/01/2016[/TD]
[TD]Bê tông chèn ống cống M100[/TD]
[/TR]
[/TABLE]
Nhấp chuột vào đây để mở rộng...
Ngày có thể theo thứ tự được không bạn như này này
[TABLE="width: 554"]
[TR]
[TD]01/01/2016[/TD]
[TD]Đá hộc xây vữa M100 móng, chân khay, sân cống[/TD]
[/TR]
[TR]
[TD]02/01/2016[/TD]
[TD]Đá hộc xây vữa M100 móng, chân khay, sân cống[/TD]
[/TR]
[TR]
[TD]02/01/2016[/TD]
[TD]Bê tông chèn ống cống M100[/TD]
[/TR]
[TR]
[TD]03/01/2016[/TD]
[TD]Đá hộc xây vữa M100 móng, chân khay, sân cống[/TD]
[/TR]
[TR]
[TD]03/01/2016[/TD]
[TD]Bê tông chèn ống cống M100[/TD]
[/TR]
[TR]
[TD]03/01/2016[/TD]
[TD]Lắp đặt ống cống D100[/TD]
[/TR]
[TR]
[TD]04/01/2016[/TD]
[TD]Nghiệm thu Đá hộc xây vữa M100 móng, chân khay, sân cống[/TD]
[/TR]
[TR]
[TD]04/01/2016[/TD]
[TD]Nghiệm thu Bê tông chèn ống cống M100[/TD]
[/TR]
[TR]
[TD]04/01/2016[/TD]
[TD]Lắp đặt ống cống D100[/TD]
[/TR]
[TR]
[TD]04/01/2016[/TD]
[TD]Nghiệm thu Lắp đặt ống cống D100[/TD]
[/TR]
[TR]
[TD]04/01/2016[/TD]
[TD]Bê tông chèn ống cống M100[/TD]
[/TR]
[/TABLE]
Nhấp chuột vào đây để mở rộng...
 
Upvote 0
alibaba2209 đã viết:
như trong file! sheet "List BB" ô C2 có thời gian làm từ ngày mùng 1, 2, 3, e muốn nó xuất ra 3 ngày liên tục theo fom sheet "Xuat Tong Nhat Ky"
Nhấp chuột vào đây để mở rộng...

Bạn xem file này, tôi cố gắng tạo kết quả giống như ý bạn nhưng còn cột F công thức "siêu" quá không hiểu nên bạn tự lập công thức cho cột F nhé.
 

File đính kèm

Upvote 0
Hình như quy trình nghiệm thu bê tông của bạn sai rồi thì phải:
Đổ bê tông ngày 4/1 đến 6/1/2017; Nghiệm thu 7/1/2016
Mà Theo TCVN 4453-1995 thì:
- Khi cường độ bê tông đạt 70% cường độ thiết kế thì được triển khai các công việc tiếp theo
- Khi cường độ bê tông đạt 100% cường độ thiết kế thì nghiệm thu bê tông
 
Upvote 0
Ba Tê đã viết:
Bạn xem file này, tôi cố gắng tạo kết quả giống như ý bạn nhưng còn cột F công thức "siêu" quá không hiểu nên bạn tự lập công thức cho cột F nhé.
Nhấp chuột vào đây để mở rộng...
Vâng cột F để em ^^! Macro1 bỏ đi à anh. Muốn đổi mầu thì trong khu này à anh [If Left(.Range("C" & i), 4) = "Nthu" Then .Range("C" & i).Resize(, 3).Font.ColorIndex = 3] bảng số mầu xem ở đâu ạ
 
Upvote 0
Sharava36 đã viết:
Hình như quy trình nghiệm thu bê tông của bạn sai rồi thì phải:
Đổ bê tông ngày 4/1 đến 6/1/2017; Nghiệm thu 7/1/2016
Mà Theo TCVN 4453-1995 thì:
- Khi cường độ bê tông đạt 70% cường độ thiết kế thì được triển khai các công việc tiếp theo
- Khi cường độ bê tông đạt 100% cường độ thiết kế thì nghiệm thu bê tông
Nhấp chuột vào đây để mở rộng...
Dạ vâng! em cảm ơn.. file demo thôi anh ạ
 
Upvote 0
alibaba2209 đã viết:
anh ơi! hộ em sửa chút code. khóa vùng in có giữ liệu. định dạng kẻ ô như này ạ
Nhấp chuột vào đây để mở rộng...
Bạn dùng tạm Code này nha:
Mã: 
Sub Dinhdang()
    Dim Edate As Long, Er As Long, i As Long
Application.ScreenUpdating = False
Er = Sheet1.Range("C65535").End(3).Row
Sheet1.Range("A3:G" & Er).Borders.LineStyle = xlNone
For i = Er To 3 Step -1
    If Sheet1.Range("B" & i) <> Empty Then
        Edate = Sheet1.Range("B" & i).End(xlDown).Row
        If i = Er Then
            Sheet1.Range("A" & i & ":G" & i).Borders.LineStyle = xlContinuous
            Sheet1.Range("A" & i & ":G" & i).Borders(xlInsideHorizontal).Weight = xlHairline
        Else
            Sheet1.Range("A" & Edate - 1 & ":G" & i).Borders.LineStyle = xlContinuous
            Sheet1.Range("A" & Edate - 1 & ":G" & i).Borders(xlInsideHorizontal).Weight = xlHairline
        End If
    End If
Next i
Application.ScreenUpdating = True
End Sub
 
Chỉnh sửa lần cuối bởi điều hành viên:
Upvote 0
Sharava36 đã viết:
Bạn dùng tạm Code này nha:
Mã: 
Sub Dinhdang()
    Dim Edate As Long, Er As Long, i As Long
Application.ScreenUpdating = False
Er = Sheet1.Range("C65535").End(3).Row
Sheet1.Range("A3:G" & Er).Borders.LineStyle = xlNone
For i = Er To 3 Step -1
    If Sheet1.Range("B" & i) <> Empty Then
        Edate = Sheet1.Range("B" & i).End(xlDown).Row
        If i = Er Then
            Sheet1.Range("A" & i & ":G" & i).Borders.LineStyle = xlContinuous
            Sheet1.Range("A" & i & ":G" & i).Borders(xlInsideHorizontal).Weight = xlHairline
        Else
            Sheet1.Range("A" & Edate - 1 & ":G" & i).Borders.LineStyle = xlContinuous
            Sheet1.Range("A" & Edate - 1 & ":G" & i).Borders(xlInsideHorizontal).Weight = xlHairline
        End If
    End If
Next i
Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
Vâng em cảm ơn nhiều ạ!
 
Upvote 0
Sharava36 đã viết:
Bạn dùng tạm Code này nha:
Mã: 
Sub Dinhdang()
    Dim Edate As Long, Er As Long, i As Long
Application.ScreenUpdating = False
Er = Sheet1.Range("C65535").End(3).Row
Sheet1.Range("A3:G" & Er).Borders.LineStyle = xlNone
For i = Er To 3 Step -1
    If Sheet1.Range("B" & i) <> Empty Then
        Edate = Sheet1.Range("B" & i).End(xlDown).Row
        If i = Er Then
            Sheet1.Range("A" & i & ":G" & i).Borders.LineStyle = xlContinuous
            Sheet1.Range("A" & i & ":G" & i).Borders(xlInsideHorizontal).Weight = xlHairline
        Else
            Sheet1.Range("A" & Edate - 1 & ":G" & i).Borders.LineStyle = xlContinuous
            Sheet1.Range("A" & Edate - 1 & ":G" & i).Borders(xlInsideHorizontal).Weight = xlHairline
        End If
    End If
Next i
Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
Anh ơi còn khóa Vùng in nữa ạ..phiền anh tý nữa!
 
Upvote 0
Sharava36 đã viết:
Thầy ơi. Bây giờ mình muốn gạch chân chữ N.thu (N.thu: ) thì phải làm sao ạ
Nhấp chuột vào đây để mở rộng...

Bạn thử Record Macro xem sao.
Ví dụ trong Code của tôi thêm 1 dòng này
PHP: 
If Left(.Range("C" & i), 4) = "Nthu" Then
                .Range("C" & i).Resize(, 3).Font.ColorIndex = 3
                .Range("C" & i).Characters(Start:=1, Length:=5).Font.Underline = xlUnderlineStyleSingle '<--------------'
End If
 
Upvote 0
Ba Tê đã viết:
Bạn thử Record Macro xem sao.
Ví dụ trong Code của tôi thêm 1 dòng này
PHP: 
If Left(.Range("C" & i), 4) = "Nthu" Then
                .Range("C" & i).Resize(, 3).Font.ColorIndex = 3
                .Range("C" & i).Characters(Start:=1, Length:=5).Font.Underline = xlUnderlineStyleSingle '<--------------'
End If
Nhấp chuột vào đây để mở rộng...
Em cám ơn thầy. Vấn đề này em tìm mãi mà không làm được. Hôm nay mới được thầy chỉ cho.
Chúc thầy mạnh khỏe
 
Upvote 0
alibaba2209 đã viết:
Anh ơi còn khóa Vùng in nữa ạ..phiền anh tý nữa!
Nhấp chuột vào đây để mở rộng...
Cái này mình Record Macro bạn xem thử nha:
Mã: 
[FONT=Verdana]Sheet1.PageSetup.PrintArea = "$A$1:$F$" & [/FONT][COLOR=#0000ff][FONT=Verdana]Sheet1.Range("C65535").End(3).Row[/FONT][/COLOR]

Cái Sub Dinhdang chỉ đúng với dữ liệu của bạn hiện tại
Nếu phát triển nhật ký thi công như file bạn đang làm ( từ ngày bắt đầu đến ngày kết thúc) còn thiếu nhiều.
Ví dụ:
1. Công tác đất:
1.1 Kiểm tra thành phần hạt, độ ẩm theo tần xuất
1.2. Kiểm tra chỉ tiêu cơ lý theo tần xuất
2. Công tác bê tông
2.1 Lấy mẫu thí nghiệm
2.2 Thể hiện thời gian bảo dưỡng
...............
Vậy thì nhật ký thi công phải thể hiện hư thế nào...!$@!!
 
Chỉnh sửa lần cuối bởi điều hành viên:
Upvote 0
Sharava36 đã viết:
Cái này mình Record Macro bạn xem thử nha:
Mã: 
[FONT=Verdana]Sheet1.PageSetup.PrintArea = "$A$1:$F$" & [/FONT][COLOR=#0000ff][FONT=Verdana]Sheet1.Range("C65535").End(3).Row[/FONT][/COLOR]

Cái Sub Dinhdang chỉ đúng với dữ liệu của bạn hiện tại
Nếu phát triển nhật ký thi công như file bạn đang làm ( từ ngày bắt đầu đến ngày kết thúc) còn thiếu nhiều.
Ví dụ:
1. Công tác đất:
1.1 Kiểm tra thành phần hạt, độ ẩm theo tần xuất
1.2. Kiểm tra chỉ tiêu cơ lý theo tần xuất
2. Công tác bê tông
2.1 Lấy mẫu thí nghiệm
2.2 Thể hiện thời gian bảo dưỡng
...............
Vậy thì nhật ký thi công phải thể hiện hư thế nào...!$@!!
Nhấp chuột vào đây để mở rộng...
cảm ơn bác nhiều! những bác kê em có 1 file làm về hồ sơ riêng rồi, đây là 1 ví dụ nhỏ e up lên cho nhẹ file. Bác cũng là dân XD chính cống nhỉ!
 
Upvote 0
Ba Tê đã viết:
Bạn thử Record Macro xem sao.
Ví dụ trong Code của tôi thêm 1 dòng này
PHP: 
If Left(.Range("C" & i), 4) = "Nthu" Then
                .Range("C" & i).Resize(, 3).Font.ColorIndex = 3
                .Range("C" & i).Characters(Start:=1, Length:=5).Font.Underline = xlUnderlineStyleSingle '<--------------'
End If
Nhấp chuột vào đây để mở rộng...
thầy ơi đoạn code này báo lỗi, bị ở chỗ nào thầy xem lại dùm em với ạ
 
Upvote 0
Option Explicit

Public Sub XuatNhatKy_TH()
Dim sArr(), dArr(1 To 1000, 1 To 5), i As Long, j As Long, k As Long, R As Long
getSpeed (True)


With Sheets("List BB")
sArr = .Range("C3", .Range("C3").End(xlDown)).Resize(, 8).Value
R = UBound(sArr)
End With
For i = 1 To R
For j = sArr(i, 4) To sArr(i, 6)
k = k + 1: dArr(k, 1) = k
dArr(k, 2) = j: dArr(k, 3) = sArr(i, 1)
dArr(k, 4) = sArr(i, 2): dArr(k, 5) = sArr(i, 3)
Next j
k = k + 1: dArr(k, 1) = k
dArr(k, 2) = sArr(i, 8): dArr(k, 3) = "Nthu: " & sArr(i, 1)
dArr(k, 4) = sArr(i, 2): dArr(k, 5) = sArr(i, 3)
Next i
With Sheets("Xuat Tong Nhat Ky")
.Range("A2").Resize(1000, 5).ClearContents
.Range("C2").Resize(1000, 3).Font.ColorIndex = 0
If k Then
.Range("A2").Resize(k, 5) = dArr
.Range("B2").Resize(k, 4).Sort Key1:=.Range("B2")
For i = k + 1 To 3 Step -1
If .Range("B" & i) = .Range("B" & i - 1) Then .Range("B" & i).ClearContents
If Left(.Range("C" & i), 4) = "Nthu" Then .Range("C" & i).Resize(, 3).Font.ColorIndex = 3
Next i
ThoiTiet
DinhDang
End If
End With
getSpeed (False)
End Sub


Public Sub ThoiTiet()
Dim sArr(), dArr(), i As Long, j As Long

sArr = Sheets("Thoi Tiet").Range("C2:AG77").Value
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(sArr) Step 2
For j = 1 To UBound(sArr, 2)
If sArr(i + 1, j) <> Empty Then .Add sArr(i, j), sArr(i + 1, j)
Next j
Next i
sArr = Range("B2", Range("B65536").End(xlUp)).Value
ReDim dArr(1 To UBound(sArr), 1 To 1)
For i = 1 To UBound(sArr)
If sArr(i, 1) <> Empty Then
If .Exists(sArr(i, 1)) Then dArr(i, 1) = .Item(sArr(i, 1))
End If
Next i
End With
Range("G2").Resize(i - 1) = dArr
End Sub


Sub DinhDang()
Dim Edate As Long, Er As Long, i As Long

Er = Sheets("Xuat Tong Nhat Ky").Range("C65535").End(3).Row
For i = Er To 2 Step -1
If Sheets("Xuat Tong Nhat Ky").Range("B" & i) <> Empty Then
Edate = Sheets("Xuat Tong Nhat Ky").Range("B" & i).End(xlDown).Row
If i = Er Then
Sheets("Xuat Tong Nhat Ky").Range("A" & i & ":G" & i).Borders.LineStyle = xlContinuous
Sheets("Xuat Tong Nhat Ky").Range("A" & i & ":G" & i).Borders(xlInsideHorizontal).Weight = xlHairline
Else
Sheets("Xuat Tong Nhat Ky").Range("A" & Edate - 1 & ":G" & i).Borders.LineStyle = xlContinuous
Sheets("Xuat Tong Nhat Ky").Range("A" & Edate - 1 & ":G" & i).Borders(xlInsideHorizontal).Weight = xlHairline
Sheets("Xuat Tong Nhat Ky").PageSetup.PrintArea = "$A$1:$G$" & Sheets("Xuat Tong Nhat Ky").Range("C65535").End(3).Row '<<<<< Code khóa vùng In
End If
End If
Next i
End Sub
Nhấp chuột vào đây để mở rộng...
1.jpg 2.jpge xóa 2 cột đi giờ phải đổi code như nào a nhỉ
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

P
Xin gỡ rối giúp về code VBA (5 người xem)
Trả lời
2
Đọc
38
Hoàng Tuấn 868
H
K
Tạo sheet tổng hợp
    • Cười
Trả lời
3
Đọc
130
Hoàng Tuấn 868
H
V
Công thức để phân công chuyên môn cho giáo viên
Trả lời
0
Đọc
29
vietvanyen
V
Phan Thế Hiệp
Tìm ngày giờ kết thúc dự kiến
    • Thích
    • Yêu thích
2
Trả lời
31
Đọc
1K
Phan Thế Hiệp
Phan Thế Hiệp
L
Lọc dữ liệu theo nhóm từ danh sách
Trả lời
0
Đọc
38
luutrutamthoi
L
T
Tìm số hóa đơn trong chuỗi (1 người xem)
Trả lời
4
Đọc
74
ngoctinh87
ngoctinh87
SA_DQ
/(/hân Chung kết pháo hoa tại ĐN đêm nay (3 người xem)
Trả lời
0
Đọc
29
SA_DQ
SA_DQ
GPE-Trợ Lý
[ĐÀ NẴNG] ĐĂNG KÝ THAM DỰ SINH NHẬT GIAIPHAPEXCEL LẦN THỨ 19 NGÀY 13/07/2025
    • Thích
Trả lời
8
Đọc
627
yeudoi
yeudoi
N
Tạo COM Add-In bằng Visual C++
    • Thích
Trả lời
5
Đọc
435
nguyendang95
N
nguyenhoangtuananh9897
Hỏi về nơi tải danh sách xã huyện tỉnh chuẩn (10 người xem)
2 3 4
Trả lời
60
Đọc
4K
3hai
3
J
Khôi phục dữ liệu do máy tính bị mất điện!
Trả lời
2
Đọc
108
Joker36
J
T
Tùy chỉnh "Rows to repeat at top"
Trả lời
4
Đọc
88
hoangtuan.net
hoangtuan.net
ongke0711
  • Question Question
Trộn dữ liệu từ Excel sang Word mở rộng (phiên bản ongke0711)
    • Thích
    • Yêu thích
    • Cảm ơn
12 13 14
Trả lời
270
Đọc
34K
chanhocdichoi
chanhocdichoi
PhanTuHuong
Sách Lập trình VBA trong AutoCAD và Civil 3D đọc online miễn phí!
    • Thích
    • Yêu thích
2
Trả lời
27
Đọc
3K
PhanTuHuong
PhanTuHuong
Q
Tách dữ liệu thành các dòng
Trả lời
2
Đọc
90
Duy Tùng 9x
Duy Tùng 9x
J
Hiện đầy đủ danh sách giá trị duy nhất sắp xếp theo A-Z từ dãy dữ liệu lộn xộn
Trả lời
2
Đọc
173
jangne88
J
GPE-Trợ Lý
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM
    • Thích
Trả lời
6
Đọc
2K
hien dao 0306
H
T
Chuyển định dạng dữ liệu hệ thống từ Tháng Ngày năm về ngày tháng năm.
Trả lời
1
Đọc
75
vanle33
vanle33
K
xin file excel bảng đấu bóng đá
    • Yêu thích
2 3
Trả lời
43
Đọc
26K
kiều linh lâm
K
V
  • Question Question
Nhờ mọi người giúp cách xóa các mục đã chọn trong Droplist của một nhóm các ô cùng dạy một môn học.
Trả lời
0
Đọc
69
vinhphtdp
V
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom