Nhờ cả nhà giúp mình về vấn đề hyperlink trong excel

[the_truth]

Đặc thù công việc, mình có rất nhiều link (đường dẫn website) trong bảng tính excel, mình muốn mở tất cả các link đó 1 lần và nhảy lần lượt vô các tab của trình duyệt web goolge chrome, mong cả nhà hướng dẫn và giải đáp. mình xin cảm ơn

 

[tieutuvodanh192]

Đặc thù công việc, mình có rất nhiều link (đường dẫn website) trong bảng tính excel, mình muốn mở tất cả các link đó 1 lần và nhảy lần lượt vô các tab của trình duyệt web goolge chrome, mong cả nhà hướng dẫn và giải đáp. mình xin cảm ơn

View attachment 288728

1. Mình sử dụng Google Chorme để mở các tab, bạn có thể thay đường dẫn trên máy của bạn cho phù hợp:
C:\Program Files (x86)\Google\Chrome\Application\chrome.exe
2. Theo hình chụp của bạn thì mình thấy giá trị chứa các link nằm từ ô D33 xuống tới cuối bảng, bạn có thể thay đổi lại nếu muốn.
Chúc bạn thành công

Sub TEST()
    Dim chromePath As String
    Dim i As Long
    Dim lastRow As Long
    chromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
    lastRow = Cells(Rows.Count, "D").End(xlUp).Row
    For i = 33 To lastRow
        Dim link As String
        link = Cells(i, "D").Value
        If link <> "" Then
            Shell (chromePath & " -new-tab " & link)
        End If
    Next i
End Sub

 

[the_truth]

đoạn mã trên thêm vào đâu hả b, mình chưa rõ lắm, mong bạn giải thích kỹ hơn

 

[HeSanbi]

Mở lên rồi Chrome đứng "đơ như tượng nữ thần tự do" sao thao tác gì được.
Có khi khởi động lại PC.

Mở link Facebook Messenger chắc là bạn muốn hành động gì vào đó?

 

[the_truth]

Mở lên rồi Chrome đứng "đơ như tượng nữ thần tự do" sao thao tác gì được.
Có khi khởi động lại PC.

Mở link Facebook Messenger chắc là bạn muốn hành động gì vào đó?

máy mình khá khỏe nên mở dc mấy chục tab chrome thoải mái b ơi, cái quan trọng là mình cần là 1 thao tác click chuột là hàng loạt link trong excel đó sẽ bật lên các tab của chrome bạn ạ

Bài đã được tự động gộp: 10/4/23

Mở lên rồi Chrome đứng "đơ như tượng nữ thần tự do" sao thao tác gì được.
Có khi khởi động lại PC.

Mở link Facebook Messenger chắc là bạn muốn hành động gì vào đó?

mình làm việc liên quan tới khách hàng (thông báo trạng thái đơn hàng, thông báo hàng đã xuất kho, các loại thông báo khác) cho hàng chục, hàng trăm khách cùng lúc

 

[HeSanbi]

Mở lên dùng tay gửi từng người, khác nào cắt cỏ bằng tay.

Với mã như trên kia thêm Sendkeys giá trị trạng thái đơn hàng, hàng đã xuất kho, các loại thông báo khác ở cột tương ứng. Là tự động ngay lúc đó rồi.

Application.Wait Now + timeserial(0,0,7)
On error resume next
Err.Clear
AppActivate "Messenger", true
If Err = 0 Then
Sendkeys Cells(i, "E").Value, False
Sendkeys "{Enter}", False
Sendkeys "^w", False
End if

Lưu ý: Cần mở chrome dư 1 tab, và không động vào Máy tính lúc gửi.

 

[tieutuvodanh192]

đoạn mã trên thêm vào đâu hả b, mình chưa rõ lắm, mong bạn giải thích kỹ hơn

Bạn click chuột phải vào tên sheet chứa các đường link bạn muốn mở, chọn view code, rồi copy - paste mã code vào đấy.
Xong bạn quay lại màn hình excel, chọn insert -> Shapes -> chọn đại 1 hình gì đấy -> Click chuột phải vào hình -> Chọn Assign Macro -> Chọn tên Sub TEST -> nhấn OK
Sau khi làm xong thì khi bạn click vào cái hình vừa tạo cũng chính là kích hoạt để chạy code rồi nha, lưu ý là khi lưu file nhớ chọn Save as -> Excel macro enabled workbook (nếu không chọn cái này mà chỉ lưu thông thường thì bạn sẽ mất hết code trong file).
-----------------------------------
Còn có nhiều cách để chèn code VBA vào file excel, bạn cứ google là có.

 

[the_truth]

Bạn click chuột phải vào tên sheet chứa các đường link bạn muốn mở, chọn view code, rồi copy - paste mã code vào đấy.
Xong bạn quay lại màn hình excel, chọn insert -> Shapes -> chọn đại 1 hình gì đấy -> Click chuột phải vào hình -> Chọn Assign Macro -> Chọn tên Sub TEST -> nhấn OK
Sau khi làm xong thì khi bạn click vào cái hình vừa tạo cũng chính là kích hoạt để chạy code rồi nha, lưu ý là khi lưu file nhớ chọn Save as -> Excel macro enabled workbook (nếu không chọn cái này mà chỉ lưu thông thường thì bạn sẽ mất hết code trong file).
-----------------------------------
Còn có nhiều cách để chèn code VBA vào file excel, bạn cứ google là có.
View attachment 288753
View attachment 288751
View attachment 288754

Mình cảm ơn b nhiều

Bài đã được tự động gộp: 11/4/23

Mở lên dùng tay gửi từng người, khác nào cắt cỏ bằng tay.

Với mã như trên kia thêm Sendkeys giá trị trạng thái đơn hàng, hàng đã xuất kho, các loại thông báo khác ở cột tương ứng. Là tự động ngay lúc đó rồi.

Application.Wait Now + timeserial(0,0,7)
On error resume next
Err.Clear
AppActivate "Messenger", true
If Err = 0 Then
Sendkeys Cells(i, "E").Value, False
Sendkeys "{Enter}", False
Sendkeys "^w", False
End if

Lưu ý: Cần mở chrome dư 1 tab, và không động vào Máy tính lúc gửi.

cảm ơn bạn nha

 

[befaint]

Đặc thù công việc, mình có rất nhiều link (đường dẫn website) trong bảng tính excel, mình muốn mở tất cả các link đó 1 lần và nhảy lần lượt vô các tab của trình duyệt web goolge chrome

Mấy việc bán hàng này dùng Google Sheets chứ bạn.
Trên Google Sheets có sẵn links thế kia thì chỉ cần chọn cả vùng, click phải chuột rồi chọn Open links là xong phim 3 con heo con chạy lèo lèo.

 

[phantu93]

1. Mình sử dụng Google Chorme để mở các tab, bạn có thể thay đường dẫn trên máy của bạn cho phù hợp:
C:\Program Files (x86)\Google\Chrome\Application\chrome.exe
2. Theo hình chụp của bạn thì mình thấy giá trị chứa các link nằm từ ô D33 xuống tới cuối bảng, bạn có thể thay đổi lại nếu muốn.
Chúc bạn thành công

Sub TEST()
    Dim chromePath As String
    Dim i As Long
    Dim lastRow As Long
    chromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
    lastRow = Cells(Rows.Count, "D").End(xlUp).Row
    For i = 33 To lastRow
        Dim link As String
        link = Cells(i, "D").Value
        If link <> "" Then
            Shell (chromePath & " -new-tab " & link)
        End If
    Next i
End Sub

anh ơi, cho em xin code mà để gán mở theo 1 tài khoản/profie đăng nhập= 1 gmail đã đăng nhập sẵn trên trình duyệt với ạ,