Truy xuất comments trong Word sang Excel

  • Thread starter Thread starter KhoiSMC
  • Ngày gửi Ngày gửi
Liên hệ QC
K

KhoiSMC

Thành viên thường trực
Tham gia
19/6/09
Bài viết
248
Được thích
32
Chào các bạn,

Tại box "phần mềm xử lý văn bản và chế bản điện tử": http://www.giaiphapexcel.com/forum/showthread.php?90223-Xuất-comments-trong-word-đến-excel

Mình có câu hỏi sau trong box "phần mềm xử lý văn bản và chế bản điện tử" nhưng chưa có lởi giải, nay nhờ các bạn trong box này giúp đỡ:
Xuất comments trong word đến excel

Kính gửi các bạn GPE,

Mình hay đọc tài liệu trong Microsoft Word và hay tạo các comments trong file word. Hiện nay có phát sinh muốn copy toàn bộ comment trong file word sang excel.

Tuy nhiên mình mới chỉ xuất được các comments sang word với code VBA như sau:
(xem file đính kèm: Schedule visit 10 to 18 March 2014 lgk.doc)

Code:

Sub ExportComments() Dim s As String
Dim cmt As Word.Comment
Dim doc As Word.Document

For Each cmt In ActiveDocument.Comments
s = s & "Tên file: " & cmt.Parent & "; Ghi chú so: " & cmt.Initial & cmt.Index & "; Noi dung: " & cmt.Scope & cmt.Range.Text & vbCr
Next

Set doc = Documents.Add
doc.Range.Text = s

End Sub

Và có kết quả như sau:

Tên file: Schedule visit 10 to 18 March 2014 lgk.doc; Ghi chú so: KLG1; Noi dung: Dominique Chiesura
Title-Hành động bởi: data KLG1
Title-Thời gian thực hiện: data KLG1
Title-Sử dụng cho công việc: data KLG1
Tên file: Schedule visit 10 to 18 March 2014 lgk.doc; Ghi chú so: KLG2; Noi dung: Singapore
Title-Hành động bởi: data KLG2
Title-Thời gian thực hiện: data KLG2
Title-Sử dụng cho công việc: data KLG2
Title-Kinh nghiệm: data KLG2

Mong muốn xuất sang excel thành dạng bảng như sau: (file đính kèm: Book2.xlsx)


Mong các bạn giúp đỡ.

Khoi​
Nhấp chuột vào đây để mở rộng...

Khoi
 

File đính kèm

Các bạn ơi liệu có giải pháp nào không a?

Khoi
 
KhoiSMC đã viết:
Các bạn ơi liệu có giải pháp nào không a?

Khoi
Nhấp chuột vào đây để mở rộng...
Trước mắt chữa cháy bằng code này đi nhen, copy code vào trong cửa sổ VBA của word nhen bạn

[GPECODE=vb]
Sub CopyCommentsToExcel()
Dim xlExcel As Object
Dim xlWB As Object
Dim cmt As Word.Comment
Dim i As Integer, k As Integer, data
Set xlExcel = CreateObject("Excel.Application")
xlExcel.Visible = True
Set xlWB = xlExcel.Workbooks.Add
With xlWB.Worksheets(1)
i = 0
For Each cmt In ActiveDocument.Comments
i = i + 1
.Cells(i, 1).Value = cmt.Parent
.Cells(i, 2).Value = cmt.Initial & cmt.Index
.Cells(i, 3).Value = cmt.Scope
data = Split(cmt.Range.Text, ":")
For k = 1 To UBound(data)
.Cells(i, 3 + k) = Left(data(k), 11)
Next

Next
End With
Set xlWB = Nothing
Set xlExcel = Nothing
End Sub


[/GPECODE]
 
Cám ơn nmhung49,

Code của bạn đúng đã giải quyết được vấn đề mình đưa ra nhưng có vẻ yêu cầu của mình hơi phức tạp ở phần nội dung trong comments trong word nên mình muốn làm rõ lại ý của mình cho đơn giản hơn nhằm code sẽ chạy đúng cho mọi trường hợp comments bên word, cụ thể như sau:

Mã: 
Sub CopyCommentsToExcel()
Dim xlExcel As Object
Dim xlWB As Object
Dim cmt As Word.Comment
Dim i As Integer, k As Integer, data
Set xlExcel = CreateObject("Excel.Application")
xlExcel.Visible = True
Set xlWB = xlExcel.Workbooks.Add
With xlWB.Worksheets(1)
    i = 0
    For Each cmt In ActiveDocument.Comments
        i = i + 1
        .Cells(i, 1).Value = cmt.Parent [COLOR=#0000cd][B]'<-- OK, rõ ràng[/B][/COLOR]
        .Cells(i, 2).Value = cmt.Initial & cmt.Index [COLOR=#0000cd][B]'<-- OK, rõ ràng[/B][/COLOR]
        .Cells(i, 3).Value = cmt.Scope [COLOR=#0000cd][B]'<-- OK, rõ ràng[/B][/COLOR]
       [COLOR=#b22222] data = Split(cmt.Range.Text, ":") [/COLOR][COLOR=#ff0000][B]'<-- dòng code số 16,17,18,19 có thể thay bằng mô tả dưới đây[/B][/COLOR][COLOR=#b22222]
        For k = 1 To UBound(data)
          .Cells(i, 3 + k) = Left(data(k), 11)
        Next[/COLOR]
        
    Next
End With
Set xlWB = Nothing
Set xlExcel = Nothing
End Sub

Tại dòng code số 16 đến 19 mục đích muốn tách phần tiêu đề và nội dung của nó:
Định nghĩa khi viết comments trong word như sau: [Ti] tên tiêu đề [Ti] [data] nội dung của tiêu đề [data]

Khi đưa sang excel thì cứ dòng text bên trong [Ti] trong một cột và trong [data] để vào một cột.

Có một mong muốn nhỏ nữa là bạn có thể thêm một cột trong excel mô tả số trang của word mà comments xuất hiện. Cụ thể mình sửa file word (xin bạn download file word đính kèm).

và mong muốn xuất sang excel như sau: (file kết quả excel đính kèm)
Untitled.jpg

Cám ơn bạn nhiều a.
Khoi
 

File đính kèm

Mình cũng muốn giúp đỡ bạn lắm như mình không có khả năng để tách [Ti] với [Data] mình nghĩ có thể dùng VBscript.Regexp để làm việc này mà nghĩ chưa ra nên không thể giúp bạn được
 
Thanks bạn, như vậy cần phải định nghĩa [Ti] và [Data] bằng cách nào đó đơn giản hơn là tuỳ bạn để có thể tách thành hai cột cũng được bạn ạ.

Cám ơn nmhung49 đã quan tâm giúp đỡ.
khoi
 
Nhờ các cao thủ khác ra tay giúp đỡ với ạ.

Khoi
 
KhoiSMC đã viết:
Nhờ các cao thủ khác ra tay giúp đỡ với ạ.

Khoi
Nhấp chuột vào đây để mở rộng...

Bạn nmhung49 đã gợi ý thì ta dùng món VBscript.Regexp nhỉ?

Bạn thay code cũ bằng code sau:

Mã: 
Sub CopyCommentsToExcel()
Dim xlExcel As Object
Dim xlWB As Object
Dim cmt As Word.Comment
Dim i As Integer, k As Integer, re As Object, colMatches As Object
    Set xlExcel = CreateObject("Excel.Application")
    xlExcel.Visible = True
    Set xlWB = xlExcel.Workbooks.Add
    Set re = CreateObject("VBScript.RegExp")
    re.Global = True
    re.Pattern = "(\[data\]).*?\1"
    i = 1
    With xlWB.Worksheets(1)
        For Each cmt In ActiveDocument.Comments
            i = i + 1
            .Cells(i, 1).Value = cmt.Parent
            .Cells(i, 2).Value = cmt.Initial & cmt.Index
            .Cells(i, 3).Value = cmt.Scope
            If re.test(cmt.Range.text) Then
                Set colMatches = re.Execute(cmt.Range.text)
                For k = 1 To colMatches.Count
                    .Cells(i, 3 + k) = Trim(Replace(colMatches.Item(k - 1).Value, "[data]", ""))
                Next
            End If
        Next
    End With
    Set colMatches = Nothing
    Set re = Nothing
    Set xlWB = Nothing
    Set xlExcel = Nothing
End Sub

Nhớ là phải [data], tức không có dấu cách.
 
siwtom đã viết:
Bạn nmhung49 đã gợi ý thì ta dùng món VBscript.Regexp nhỉ?

Bạn thay code cũ bằng code sau:

Mã: 
Sub CopyCommentsToExcel()
Dim xlExcel As Object
Dim xlWB As Object
Dim cmt As Word.Comment
Dim i As Integer, k As Integer, re As Object, colMatches As Object
    Set xlExcel = CreateObject("Excel.Application")
    xlExcel.Visible = True
    Set xlWB = xlExcel.Workbooks.Add
    Set re = CreateObject("VBScript.RegExp")
    re.Global = True
    re.Pattern = "(\[data\]).*?\1"
    i = 1
    With xlWB.Worksheets(1)
        For Each cmt In ActiveDocument.Comments
            i = i + 1
            .Cells(i, 1).Value = cmt.Parent
            .Cells(i, 2).Value = cmt.Initial & cmt.Index
            .Cells(i, 3).Value = cmt.Scope
            If re.test(cmt.Range.text) Then
                Set colMatches = re.Execute(cmt.Range.text)
                For k = 1 To colMatches.Count
                    .Cells(i, 3 + k) = Trim(Replace(colMatches.Item(k - 1).Value, "[data]", ""))
                Next
            End If
        Next
    End With
    Set colMatches = Nothing
    Set re = Nothing
    Set xlWB = Nothing
    Set xlExcel = Nothing
End Sub

Nhớ là phải [data], tức không có dấu cách.
Nhấp chuột vào đây để mở rộng...

Cám ơn bạn nhiều lắm,

Gần đúng như mong muốn của bài toán rồi, tuy nhiên cần bổ sung thêm cột tiêu đề nữa, cụ thể như sau:

Kết quả của bạn đã xuất ra là:

A2: Schedule visit 10 to 18 March 2014 lgk.doc
B2: KLG1
C2: Dominique Chiesura
D2: Nội dung của tiêu đề Hành động bởi trong comments KLG1
E2: Nội dung của tiêu đề Thời gian thực hiện trong comments KLG1
F2: Nội dung của tiêu đề Sử dụng cho công việc trong comments KLG1

....

Mong muốn bài toán muốn xuất thêm cột cho phần tiêu đề (trong [Ti]):
A2: Schedule visit 10 to 18 March 2014 lgk.doc
B2: KLG1
C2: Dominique Chiesura
D2: Hành động bởi
E2: Nội dung của tiêu đề Hành động bởi trong comments KLG1
F2: Thời gian thực hiện
G2: Nội dung của tiêu đề Thời gian thực hiện trong comments KLG1
H2: Sử dụng cho công việc
I2: Nội dung của tiêu đề Sử dụng cho công việc trong comments KLG1

....

Thanks bạn siwtom nhé.
Khoi
 
KhoiSMC đã viết:
Cám ơn bạn nhiều lắm,

Gần đúng như mong muốn của bài toán rồi, tuy nhiên cần bổ sung thêm cột tiêu đề nữa, cụ thể như sau:

Kết quả của bạn đã xuất ra là:

A2: Schedule visit 10 to 18 March 2014 lgk.doc
B2: KLG1
C2: Dominique Chiesura
D2: Nội dung của tiêu đề Hành động bởi trong comments KLG1
E2: Nội dung của tiêu đề Thời gian thực hiện trong comments KLG1
F2: Nội dung của tiêu đề Sử dụng cho công việc trong comments KLG1

....

Mong muốn bài toán muốn xuất thêm cột cho phần tiêu đề (trong [Ti]):
A2: Schedule visit 10 to 18 March 2014 lgk.doc
B2: KLG1
C2: Dominique Chiesura
D2: Hành động bởi
E2: Nội dung của tiêu đề Hành động bởi trong comments KLG1
F2: Thời gian thực hiện
G2: Nội dung của tiêu đề Thời gian thực hiện trong comments KLG1
H2: Sử dụng cho công việc
I2: Nội dung của tiêu đề Sử dụng cho công việc trong comments KLG1

....

Thanks bạn siwtom nhé.
Khoi
Nhấp chuột vào đây để mở rộng...

Nếu thế thì bạn phải mô tả dữ liệu để có thể cho dữ liệu vào đúng cell.
Vd. trong tập tin bạn có comment 3 là "[data]Nôi dung không tiêu đề [data]"
Tức D2 = "", E2 = "Nôi dung không tiêu đề", F2 = G2 = H2 = I2 = ""

Thế có th vd. comment = [data]Nôi dung 1[data][data]Nôi dung 2[data][Ti]Sử dụng cho công việc[Ti][data]Nôi dung 3[data]?
Và có thì D2 = "", E2 = "Nôi dung 1", F2 = "", G2 = "Nôi dung 2", H2 = "Sử dụng cho công việc", I2 = "Nôi dung 3"????

Thêm nữa, ở comment 3 ta có cặp [data...[data] mà không có cặp [Ti]...[Ti] ở đằng trước đi cùng. Thế có trường hợp chỉ có cặp [Ti]...[Ti] mà không có cặp [data]...[data] ở đằng sau đi cùng không?
 
Thưa bạn,

siwtom đã viết:
Nếu thế thì bạn phải mô tả dữ liệu để có thể cho dữ liệu vào đúng cell.
Vd. trong tập tin bạn có comment 3 là "[data]Nôi dung không tiêu đề [data]"
Tức D2 = "", E2 = "Nôi dung không tiêu đề", F2 = G2 = H2 = I2 = ""
Nhấp chuột vào đây để mở rộng...
<-- Đúng như bạn mô tả ở đây

siwtom đã viết:
Thế có th vd. comment = [data]Nôi dung 1[data][data]Nôi dung 2[data][Ti]Sử dụng cho công việc[Ti][data]Nôi dung 3[data]?
Và có thì D2 = "", E2 = "Nôi dung 1", F2 = "", G2 = "Nôi dung 2", H2 = "Sử dụng cho công việc", I2 = "Nôi dung 3"????
Nhấp chuột vào đây để mở rộng...
<-- Đúng như bạn mô tả ở đây

siwtom đã viết:
Thêm nữa, ở comment 3 ta có cặp [data...[data] mà không có cặp [Ti]...[Ti] ở đằng trước đi cùng. Thế có trường hợp chỉ có cặp [Ti]...[Ti] mà không có cặp [data]...[data] ở đằng sau đi cùng không?
Nhấp chuột vào đây để mở rộng...
<-- Nếu không có [Ti] ở đằng trước thì coi như để trống cell [Ti] đó thôi. Còn trường hợp chỉ có cặp [Ti]...[Ti] mà không có cặp [data]...[data] thì để trống cell [data]

Thanks
Khoi
 
Lần chỉnh sửa cuối:
Thưa bạn

Kết quả mong muốn như file đính kèm bạn nhé (Mình chỉ thêm cột thể hiện số trang mà comments xuất hiện).

Thanks
Khoi
 

File đính kèm

Lần chỉnh sửa cuối:
KhoiSMC đã viết:
Thưa bạn,

<-- Đúng như bạn mô tả ở đây

<-- Đúng như bạn mô tả ở đây

<-- Nếu không có [Ti] ở đằng trước thì coi như để trống cell [Ti] đó thôi. Còn trường hợp chỉ có cặp [Ti]...[Ti] mà không có cặp [data]...[data] thì để trống cell [data]

Thanks
Khoi
Nhấp chuột vào đây để mở rộng...

Lúc trước bạn nói là chỉ có trường hợp có data mà không có Ti còn trường hợp có Ti mà không có data thì không sẩy ra. Bây giờ bạn lại nói là có cả trường hợp có Ti mà lại không có data
Mất công quá.
Mà tôi nghĩ là trường hợp không có tiêu đề (Ti) thì lôgíc nhưng trường hợp có Ti mà lại không có data = Nội dung thì không lôgíc, thừa, xóa cũng chả sao, không có cũng chả sao.

Vậy tôi loại trường hợp không có kiểu có Ti mà lại không có data. Bạn chấp nhận không?
Nếu chấp nhận thì code như ở sau.
-----------
Bạn thử test code này
Mã: 
Sub CopyCommentsToExcel()
Dim xlExcel As Object
Dim xlWB As Object
Dim cmt As Word.Comment
Dim i As Integer, k As Integer, re As Object, colMatches As Object, SubMatch As Object
    Set xlExcel = CreateObject("Excel.Application")
    xlExcel.Visible = True
    Set xlWB = xlExcel.Workbooks.Add
    Set re = CreateObject("VBScript.RegExp")
    re.Global = True
    re.Pattern = "\[Ti](.*?)\[Ti] *\[data](.*?)\[data]|\[data](.*?)\[data]"
    i = 1
    With xlWB.Worksheets(1)
        For Each cmt In ActiveDocument.Comments
            i = i + 1
            .Cells(i, 1).Value = cmt.Parent
            .Cells(i, 2).Value = cmt.Initial & cmt.Index
            .Cells(i, 3).Value = cmt.Scope
            If re.test(cmt.Range.text) Then
                Set colMatches = re.Execute(cmt.Range.text)
                For k = 1 To colMatches.Count
                    Set SubMatch = colMatches.Item(k - 1).SubMatches
                    If SubMatch(2) = "" Then
                        .Cells(i, 2 * k + 2) = SubMatch(0)
                        .Cells(i, 2 * k + 3) = SubMatch(1)
                    Else
                        .Cells(i, 2 * k + 3) = SubMatch(2)
                    End If
                Next
            End If
        Next
    End With
    Set colMatches = Nothing
    Set SubMatch = Nothing
    Set re = Nothing
    Set xlWB = Nothing
    Set xlExcel = Nothing
End Sub
 
KhoiSMC đã viết:
Thưa bạn

Kết quả mong muốn như file đính kèm bạn nhé (Mình chỉ thêm cột thể hiện số trang mà comments xuất hiện).

Thanks
Khoi
Nhấp chuột vào đây để mở rộng...

Tôi là người không thích cò cưa. Đã mô tả thì kỹ lưỡng và chỉ 1 hoặc cùng lắm 2 lần. Viết rồi sửa đi sửa lại mất công quá.
Lúc trước ở bài #9 Ti bắt đầu từ cột D. Bây giờ bạn đổi cấu trúc và Ti bắt đầu từ cột E.
Tôi viết lần cuối
Cột C là số thứ tự của trang.
Dữ liệu nếu chỉ có data thì không cần gõ Ti. Nhưng nếu bạn cứ muốn cả trường hợp có Ti nhưng không có data thì bạn tự làm vì tôi không sửa nữa. Tự làm thế nào? Bằng cách gõ thêm [data][data]. Tức vd. [Ti]gì đó[Ti][data][data]
Mã: 
Sub CopyCommentsToExcel()
Dim xlExcel As Object
Dim xlWB As Object
Dim cmt As Word.Comment
Dim i As Integer, k As Integer, re As Object, colMatches As Object, SubMatch As Object
    Set xlExcel = CreateObject("Excel.Application")
    xlExcel.Visible = True
    Set xlWB = xlExcel.Workbooks.Add
    Set re = CreateObject("VBScript.RegExp")
    re.Global = True
    re.Pattern = "\[Ti](.*?)\[Ti] *\[data](.*?)\[data]|\[data](.*?)\[data]"
    i = 1
    With xlWB.Worksheets(1)
        For Each cmt In ActiveDocument.Comments
            i = i + 1
            .Cells(i, 1).Value = cmt.Parent
            .Cells(i, 2).Value = cmt.Initial & cmt.Index
            .Cells(i, 3).Value = cmt.Scope
            .Cells(i, 4) = cmt.Reference.Information(wdActiveEndAdjustedPageNumber)
            If re.test(cmt.Range.text) Then
                Set colMatches = re.Execute(cmt.Range.text)
                For k = 1 To colMatches.Count
                    Set SubMatch = colMatches.Item(k - 1).SubMatches
                    If SubMatch(2) = "" Then
                        .Cells(i, 2 * k + 3) = SubMatch(0)
                        .Cells(i, 2 * k + 4) = SubMatch(1)
                    Else
                        .Cells(i, 2 * k + 4) = SubMatch(2)
                    End If
                Next
            End If
        Next
    End With
    Set colMatches = Nothing
    Set re = Nothing
    Set xlWB = Nothing
    Set xlExcel = Nothing
End Sub
 
siwtom đã viết:
Tôi là người không thích cò cưa. Đã mô tả thì kỹ lưỡng và chỉ 1 hoặc cùng lắm 2 lần. Viết rồi sửa đi sửa lại mất công quá.
Lúc trước ở bài #9 Ti bắt đầu từ cột D. Bây giờ bạn đổi cấu trúc và Ti bắt đầu từ cột E.
Tôi viết lần cuối
Cột C là số thứ tự của trang.
Dữ liệu nếu chỉ có data thì không cần gõ Ti. Nhưng nếu bạn cứ muốn cả trường hợp có Ti nhưng không có data thì bạn tự làm vì tôi không sửa nữa. Tự làm thế nào? Bằng cách gõ thêm [data][data]. Tức vd. [Ti]gì đó[Ti][data][data]
Mã: 
Sub CopyCommentsToExcel()
Dim xlExcel As Object
Dim xlWB As Object
Dim cmt As Word.Comment
Dim i As Integer, k As Integer, re As Object, colMatches As Object, SubMatch As Object
    Set xlExcel = CreateObject("Excel.Application")
    xlExcel.Visible = True
    Set xlWB = xlExcel.Workbooks.Add
    Set re = CreateObject("VBScript.RegExp")
    re.Global = True
    re.Pattern = "\[Ti](.*?)\[Ti] *\[data](.*?)\[data]|\[data](.*?)\[data]"
    i = 1
    With xlWB.Worksheets(1)
        For Each cmt In ActiveDocument.Comments
            i = i + 1
            .Cells(i, 1).Value = cmt.Parent
            .Cells(i, 2).Value = cmt.Initial & cmt.Index
            .Cells(i, 3).Value = cmt.Scope
            .Cells(i, 4) = cmt.Reference.Information(wdActiveEndAdjustedPageNumber)
            If re.test(cmt.Range.text) Then
                Set colMatches = re.Execute(cmt.Range.text)
                For k = 1 To colMatches.Count
                    Set SubMatch = colMatches.Item(k - 1).SubMatches
                    If SubMatch(2) = "" Then
                        .Cells(i, 2 * k + 3) = SubMatch(0)
                        .Cells(i, 2 * k + 4) = SubMatch(1)
                    Else
                        .Cells(i, 2 * k + 4) = SubMatch(2)
                    End If
                Next
            End If
        Next
    End With
    Set colMatches = Nothing
    Set re = Nothing
    Set xlWB = Nothing
    Set xlExcel = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...

Trời đất, mình làm bạn mất công quá. Cho mình xin lỗi nhé.
Giờ đã hoàn toàn theo đúng ý mình rồi :)

Cám ơn bạn nhiều nhé. Bạn thật siêu VBA đấy.
Thanks siwtom
Khoi
 
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

Mr.hieudoanxd
  • Question Question
[Cần hướng dẫn] Về lập trình Viết Function với Settimer và Killtimer
    • Thích
Trả lời
4
Đọc
152
nguyendang95
N
Emyeuexcel
  • Question Question
Code VBA mở nhiều file, value các sheet, lưu và đóng file
Trả lời
3
Đọc
34
Emyeuexcel
Emyeuexcel
V
Cho 2 biến - kết quả trả về giá trị của hàng đầu tiên
    • Chấp nhận
Trả lời
5
Đọc
71
Duy Tùng 9x
Duy Tùng 9x
D
Giúp đỡ thống kê dữ liệu theo điều kiện
Trả lời
8
Đọc
169
HieuCD
H
bachloc1212
Đưa Text từ các dòng khác nhau về chung 1 dòng
Trả lời
10
Đọc
207
VetMini
V
N
Sửa lỗi code vba khi chạy cho ra kết quả không đúng
Trả lời
6
Đọc
145
VetMini
V
Ha Manh-LD
  • Question Question
Lấy dữ liệu từ file csv
Trả lời
1
Đọc
101
ptm0412
ptm0412
T
Nhờ hỗ trợ hàm SUMIF không phân biệt được các ký tự "0" trước một số trong chuỗi
Trả lời
2
Đọc
111
VetMini
V
LuuAnh980
Add in tạo QR code miễn phí.
Trả lời
13
Đọc
408
LuuAnh980
LuuAnh980
HeSanbi
  • Đã giải quyết
VBA Nâng cao: Hướng dẫn tạo biểu thức tìm kiếm với Regular Expression
    • Thích
    • Yêu thích
Trả lời
9
Đọc
854
HeSanbi
HeSanbi
Tienvinh191
  • Question Question
Nhờ viết Code lấy dữ liệu tờ khai hải quan vào bảng tổng hợp
2
Trả lời
28
Đọc
3K
quyenpv
quyenpv
F
Hiển thị text trong Gantt chart (Google sheets)
Trả lời
0
Đọc
53
FATA11
F
Maika8008
  • Đã giải quyết
[Chia sẻ] Dùng VBA trộn dữ liệu Excel sang file Word mẫu (tương tự chức năng Mail Merge)
    • Thích
    • Yêu thích
    • Cảm ơn
25 26 27
Trả lời
522
Đọc
50K
Manhhung90
Manhhung90
C
Trách nhiệm pháp lý của chi nhánh doanh nghiệp Việt Nam tại nước ngoài với Công ty tại Việt Nam
Trả lời
5
Đọc
214
VetMini
V
C
  • Question Question
import data từ excel lên google sheet
Trả lời
5
Đọc
624
SonBDND
S
ptm0412
Chúc mừng năm mới Ất Tỵ 2025
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
1
Đọc
149
ptm0412
ptm0412
T
Bảng tính trợ cấp tinh giản biên chế theo NĐ 108
    • Thích
Trả lời
2
Đọc
959
thopd
T
mucongnghenhat
lỗi đoạn văn bản bị đóng khung
Trả lời
2
Đọc
131
VetMini
V
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
14 15 16
Trả lời
307
Đọc
22K
kunkoi9390
K
GPE-Trợ Lý
[GPE] TALK SHOW HÀM QUERY - BÍ KÍP BIẾN DỮ LIỆU KHỔNG LỒ THÀNH THÔNG TIN HỮU ÍCH TRONG TÍCH TẮC
    • Thích
    • Yêu thích
Trả lời
6
Đọc
2K
tranhungdao12a3
T
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

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
Chúc mừng năm mới Ất Tỵ 2025
Back
Top Bottom